Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count <> 1 Or Target.Address <> "$B$4" Then
Exit Sub
Else
Range("D4") = 1
End If
End Sub作者: freeffly 時間: 2011-6-22 12:34
可是經由下拉清單改變好像不會變動?
應該還是會的
這個事件在儲存格內容發生改變時執行
他不會去管是直接輸入還是用下拉輸入的
程式可去除多餘的敘述:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count <> 1 Or Target.Address <> "$B$4" Then Exit Sub
Range("D4") = 1
End Sub作者: freeffly 時間: 2011-6-22 17:47