|
お世話になります。
仕事で使用しているシートにマクロを作った(シート1枚のみに適用)んですが、ブック内のシートにも同時に展開できるようにしたいのです。
こちらのサイトで探してみたんですが、見当たりません。
ご教示願います。
内容は
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まで同じ数式のパターンで繰り返しのため省略しています。)
この数式を複数の同フォームに一度に展開させたいのですが、教えていただけないでしょうか?よろしくお願いします。
|
|