|
今晩は。
ちょっと作ってみました。
シートモジュールに貼り付けて試してみてください。
Option Explicit
Private orgV
Private orgAd As String
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If IsNumeric(Target.Text) = True And orgAd <> "" Then
Application.EnableEvents = False
Range(orgAd).Value = Target.Value - orgV
Application.EnableEvents = True
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If IsNumeric(Target.Text) = True Then
orgV = Target.Value
orgAd = Target.Address(0, 0)
Else
orgV = 0
End If
End Sub
|
|