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时触动清除事件。
执行前
执行前
执行后
执行后
提醒:这个执行结果是不可逆的,请慎重使用~
分享到:

13 条评论

注意: 评论者允许使用'@user空格'的方式将自己的评论通知另外评论者。例如, ABC是本文的评论者之一,则使用'@ABC '(不包括单引号)将会自动将您的评论发送给ABC。使用'@all ',将会将评论发送给之前所有其它评论者。请务必注意user必须和评论者名相匹配(大小写一致)。

昵称
  1. 成都白癜风医学研究院

    帅气的人啊

  2. 高手!能不能指点一点点啊,好想像你们这样有才。

  3. 北京白癜风

    好东西

  4. 郑州白癜风医院

    博主真乃神人也。

  5. 上善若水

    能不能弄个ppt汇报时倒计时的代码啊?比如说限制汇报时间为10分钟,然后倒计时!

    1. Kael.Z

      我不懂PPT的代码,貌似excel是有的~

  6. 歪SIR

    唉 要能集成excel和飞信就好了…每次得一条一条的发飞信

    1. Kael.Z

      excel可以调用飞信,我以前写过这样的文章~

      1. 歪SIR

        在哪里~~~求瞅一眼

  7. 狐臭怎么治疗

    来看看 支持下了~~~

  8. 遥控飞机

    说实话 没看懂呢

    1. Kael.Z

      我已经写的很直白了~