如何用宏按钮，清除光标在随意位置选定的行，中特定列的单元格数据

coben_hb

如何用宏按钮，清除光标在随意位置选定的行中，D:F、H:I、M列单元格？
比如光标在任意一列中选择6:8、12共4行，则按钮清除D6:F8,D12:F12,H6:I8,H12:I12,M6:M8,M12
光标选定的行随机无规律，但列为特定的，即为D:F、H:I、M列

如何用宏按钮，清除光标在随意位置选定的行，中特定列的单元格数据01.rar (11.86 KB, 下载次数: 12)

2015-12-19 18:42 上传

点击文件名下载附件

unsamesky

不是很复杂，代码如下，将下面的代码放置在Sheet1的VBE窗口，然后按钮指定宏“Sheet1.xx”：

1. Sub xx()
   
2.     Dim Rng As Range
   
3.     For Each Rng In Selection
   
4.         Me.Cells(Rng.Row, "D").Resize(, 3).ClearContents
   
5.         Me.Cells(Rng.Row, "H").Resize(, 2).ClearContents
   
6.         Me.Cells(Rng.Row, "M").ClearContents
   
7.     Next
   
8. End Sub
   

复制代码

coben_hb

unsamesky 发表于 2015-12-19 18:59
不是很复杂，代码如下，将下面的代码放置在Sheet1的VBE窗口，然后按钮指定宏“Sheet1.xx”：

不行啊，提示：“编译错误：无效使用Me关键字”

unsamesky

coben_hb 发表于 2015-12-19 19:18
不行啊，提示：“编译错误：无效使用Me关键字”

我前面说了，上面那段代码请放在Sheet1的VBE窗口，如果你实在不会弄，把Me换成Sheet1也可以，如果还是不知道怎么弄，干脆把Me.去掉也行！

1. Sub xx()
   
2.     Dim Rng As Range
   
3.     For Each Rng In Selection
   
4.         Sheet1.Cells(Rng.Row, "D").Resize(, 3).ClearContents
   
5.         Sheet1.Cells(Rng.Row, "H").Resize(, 2).ClearContents
   
6.         Sheet1.Cells(Rng.Row, "M").ClearContents
   
7.     Next
   
8. End Sub
   

复制代码

coben_hb

unsamesky 发表于 2015-12-19 19:54
我前面说了，上面那段代码请放在Sheet1的VBE窗口，如果你实在不会弄，把Me换成Sheet1也可以，如果还是不 ...

可以了，非常感谢！！

coben_hb

如果选定了一整行，excel就对一整行的单元格，反复运行这个代码，造成死机，有没有办法将一整行的单元格，限定只运行一次？有哪位老师能帮忙解决一下，谢谢