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

• VBA • 13 条评论 • •9,942 次查阅
特定值清除特定区域内容
最近的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

        在哪里~~~求瞅一眼

        1. Kael.Z

          http://blog.zyj.pw/excel-vba-to-open-other-applications-to-achieve.html方法基本类似~

          Notify
  7. 狐臭怎么治疗

    来看看 支持下了~~~

  8. 遥控飞机

    说实话 没看懂呢

    1. Kael.Z

      我已经写的很直白了~