我发现以下代码在更改另一个单元格时清除特定单元格。
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
Range("B1:C1").ClearContents
End If
End Sub
我想知道是否有更动态的方法来解决这个问题。也就是说，当任何一个单元格 A*（每次一个）发生变化时，相邻的 B* 和 C* 被清除。
谢谢，
检查是否Target与 A 列相交：
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Me.Range("A:A")) Is Nothing Then
Intersect(Target.EntireRow, Me.Range("B:C")).ClearContents
End If
End Sub
本文收集自互联网，转载请注明来源。
如有侵权，请联系 [email protected] 删除。
我来说两句