Sub Worksheet_SelectionChange(ByVal ws As Range)
Dim rCell As RangeSet rInt = Intersect(Target, Range("B1:B32, B37:B45, K3:K11, K12:K18")) For Each rCell In rInt
我正在开发一个宏,它将扫描一系列单元格,并检测何时在此范围内输入了任何内容(N/A除外)。然后,它会将单元位置返回给用户。Private Sub Worksheet_Change(ByVal Target As Range)
If v.Value <> "N/A" And IsEmpty(v.Value) = False Then MsgBox x