2024-12-01 03:38:53
2024-12-01 12:52:02
我还是没有 讲清楚
我的A1,A2,A3 都是可以输入数值的...只是偶尔需要把它们统一归0
手动改太麻烦了...还有 A4 A5 A6 A7.........很多很多的 统一改
这样只好用VBA来实现了,当B1=0时A列全部有数据的变0,否则不变保留A列原有数据,是这样吧?
按Alt+F11打开VBA编辑器,双击工程中的你要处理的工作表名,在右边的编辑框中粘贴如下代码,当B1修改时自动运行,当B1=0时A列所有数据=0
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" Then
If Target.Value = 0 Then
Range("A1:A" & Range("A65536").End(xlUp).Row) = 0
End If
End If
End Sub
如果是当B1=0时A列所有数据清空的话,修改如下
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" Then
If Target.Value = 0 Then
Range("A1:A" & Range("A65536").End(xlUp).Row) .ClearContents
End If
End If
End Sub
2024-12-01 02:38:56
2024-12-01 10:42:22
2024-12-01 17:19:00