[已解决]删除对应内容

风中雨花

现在我点“取电”中H列的201315601后的“确定”时，只能删除“充电”中的A2的内容，
如果我想点“取电”中H列的六个”确定“按钮之一时，都可自动在”充电“中A列，找到与它相同编号并删除”充电”中的那个相同编号，特别注意，只是删除对应的编号，编号后的数据不能删除
这些按钮我是用录制宏做的，点“确定”按钮时，有两个变化的，一，后面出现“已取电“，二，“充电”中A列删除一个单元格内容，但不是删除整行内容

如果“取电”的A2编号为其它用户编号时，后面的“物品编号”也变的，因为它是与“用户资料”对应的 删除对应内容.rar (56.6 KB, 下载次数: 13)

2013-5-12 14:39 上传

点击文件名下载附件

谁能帮我改一下，谢谢老师

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-5-12 16:18

按钮1的

1.     Dim rg As Range
   
2.     On Error Resume Next
   
3.     Set rg = Worksheets("充电").Columns("a").Find(what:=Range("e2").Value, lookat:=xlWhole)
   
4.     If Not rg Is Nothing Then
   
5.         rg.ClearContents
   
6.     End If

复制代码

后面的单元格的，只要改range("e2")对应的就成了。

跳转到最佳答案楼层

hwc2ycy

按钮1的

1.     Dim rg As Range
   
2.     On Error Resume Next
   
3.     Set rg = Worksheets("充电").Columns("a").Find(what:=Range("e2").Value, lookat:=xlWhole)
   
4.     If Not rg Is Nothing Then
   
5.         rg.ClearContents
   
6.     End If

复制代码

后面的单元格的，只要改range("e2")对应的就成了。

zld0807

学习了。。。。。。。