請教各位高手,我想要讓A1輸入"B"之後,則B1不論輸入任何數字,皆會變為負數
我用下列公式去試
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
For Each BS In [a1:a10]
If BS.Value = "B" Then
BS.Offset(0, 1) = BS.Offset(0, 1) * -1
End If
Next
Application.EnableEvents = True
End Sub
可是這樣的話,只要其他地方有更動,
原本是負數的值,就會因為*-1,又變成正數了。
因此想請問該怎麼修改,才能讓他一直保持為負數,謝謝~~~作者: Kubi 時間: 2013-9-10 13:35
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count <> 1 Then Exit Sub
If Intersect([A1:A10], Target) Is Nothing Then Exit Sub
Application.EnableEvents = False
If Target.Value = "B" Then Target.Offset(0, 1).Value = -1 * Abs(Target.Offset(0, 1).Value)
Application.EnableEvents = True
End Sub作者: owen06 時間: 2013-9-10 13:49