Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

50133 / 76738

←次へ　｜　前へ→


	【31501】複数シートでの計算処理ループ使用？

めいすい - 05/11/23(水) 19:41 -


	引用なし

	パスワード

お世話になります。
仕事で使用しているシートにマクロを作った（シート１枚のみに適用）んですが、ブック内のシートにも同時に展開できるようにしたいのです。
こちらのサイトで探してみたんですが、見当たりません。
ご教示願います。

内容は

Sub 生産実績数値変更()
Dim 目標値1h As Range
Set 目標値1h = Range("c18")
Dim 直当り As Range
Set 直当り = Range("g9")
Dim 累計1h As Range
Set 累計1h = Range("d19")
Dim 累計2h As Range
If 累計1h = 直当り Then　　　　　　　　　　　　
　　Range("c20").ClearContents　　　　　　　　　
ElseIf 累計1h <= 直当り - 累計1h Then　　　　　
　　Range("c20") = 目標値1h　　　　　　　　　　
Else　　　　　　　　　　　　　　　　　　　　　　
　　Range("c20").Value = 直当り - 累計1h　　　　
End If
End Sub
という数式になっています。（累計10Hまで同じ数式のパターンで繰り返しのため省略しています。）
この数式を複数の同フォームに一度に展開させたいのですが、教えていただけないでしょうか？よろしくお願いします。

0 hits

▼

【31501】複数シートでの計算処理ループ使用？ めいすい 05/11/23(水) 19:41

≪