VBA用特定值清除特定区域内容

特定值清除特定区域内容
最近的VBA总是喜欢写些乱七八糟的东西,这不今天又想到个。
思路是这样的:特定单元格输入特定值清除特定区域内的数据!觉得有点自杀式的!不过只要不输那个真确值,数据都清空不了!
代码如下:
 
  1. Private Sub Worksheet_Change(ByVal Target As Range)   
  2. If Target.AddressLocal = Range("B3").AddressLocal And Val(Target.Text) = 2008 Then   
  3. Range("B4:C5").ClearContents ‘当B2单元格改变后并且是2008时,清空B4:C5区域内容。   
  4. End If   
  5. Range("B3").ClearContents   
  6. End Sub   
来2张效果图:这里当B3等于2008时触动清除事件。
执行前
执行前
执行后
执行后
提醒:这个执行结果是不可逆的,请慎重使用~
分享到: