1

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
4

1 に答える 1