程式碼如下
Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range
Set KeyCells = Range("B1:C10")
If Range("A1") = "" Then
If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then
MsgBox "請在A1輸入資料"
End If
'Range(Target.Address).ClearContents
End If
End Sub
如果A1沒有輸入值的話Range("B1:C10")範圍內剛輸入的值,將清除,現在問題是如果清除剛寫的,就會無限循環,請問要更改哪,才不會一直循環
麻煩了