Excel精英培训网

 找回密码
 注册

QQ登录

只需一步,快速开始

工作中常用的Excel函数公式,全印在一张超大鼠标垫上
查看: 269|回复: 5

vba清空单元格问题!

[复制链接]
发表于 2021-7-19 17:05 | 显示全部楼层 |阅读模式
本帖最后由 kenny820918 于 2021-7-19 17:06 编辑

清空内容.zip (8.59 KB, 下载次数: 2)
发表于 2021-7-19 19:18 | 显示全部楼层
不用VBA,条件格式就行了

清空内容.zip

8.51 KB, 下载次数: 4

回复

使用道具 举报

发表于 2021-7-19 19:27 | 显示全部楼层

感觉很简单啊!
插入到你的工作表模块里,按图:

捕获.PNG


Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 10 Then
        If Cells(Target.Row, Target.Column) = "已购买" Then Cells(Target.Row, Target.Column - 1) = ""
    End If
End Sub

回复

使用道具 举报

发表于 2021-7-19 20:58 | 显示全部楼层
wanao2008 发表于 2021-7-19 19:27
感觉很简单啊!
插入到你的工作表模块里,按图:

写的有点长了,Target就是Change的Range
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 10 Then
        If Target = "已购买" Then Target.offset(0,-1) = ""
    End If
End Sub
回复

使用道具 举报

发表于 2021-7-19 21:19 | 显示全部楼层
MOY838840554 发表于 2021-7-19 20:58
写的有点长了,Target就是Change的Range
Private Sub Worksheet_Change(ByVal Target As Range)
    If ...

谢谢指导,其实很多的地方都不太会用

有点丢人了。
回复

使用道具 举报

 楼主| 发表于 2021-7-20 12:57 | 显示全部楼层
谢谢各位大神!
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2021-9-16 17:54 , Processed in 0.447711 second(s), 10 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表