Excel の 1 つのワークシートで、数値を入力した後にさまざまな範囲を計算したいと考えています。
たとえば、範囲 A1:C4 で 4 を掛けたい
セル A1 に 1 を入力すると 4、2 を入力すると 8 などになります。
次に、範囲 B12:F14 で 2 を掛けて、セル B12 に 1 を入力すると 2、2 が 4 などになるようにします。
現在、シート全体で機能する次の VB があります。
Private Sub Worksheet_Change(ByVal Target As Range)
If IsNumeric(Target.Value) Then
Application.EnableEvents = False
Target.Value = Target.Value / 100
Application.EnableEvents = True
End If
End Sub