|
こんばんは。
よく意味が分からないのですが、
普通に D2のセルに「=B2*C2」としていれば、
ツール→オプション→計算→自動 としていれば、
特にマクロを記述しなくても、自動計算すると思うのですが・・・
計算を手動としていて、値入力の時だけ自動としたいのなら、
> If Target.Address(0, 0) = "B2" Then
> Application.Calculation = xlCalculationAutomatic
> End If
これで、一度 自動にしてしまうと後はずっと自動だと思うのですが・・・
手動→入力後→計算→手動とするなら、手動に戻さなければならないと思います。
こんな感じではどうでしょうか?
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Count > 1 Then Exit Sub
If IsEmpty(.Value) Then Exit Sub
If Not IsNumeric(.Value) Then Exit Sub
If Not Application.Intersect(Target, Range("B2:C2")) Is Nothing Then
Application.Calculation = xlCalculationAutomatic
Application.Calculation = xlCalculationManual
End If
End With
End Sub
|
|