基于VBA代码和形状指定宏实现一键为所选区域单元格添加删除线效果。
工具/原料
Excel
方法/步骤
1
本教程以下列数据为例。
2
插入一个ActiveX按钮控件。
3
绘制按钮成功后会自动弹出一个窗口，如图所示。
4
选择新建。
5
此时会自动跳转到VBA窗口。
6
在弹出的模块中，复制粘贴以下代码：Sub 按钮1_Click()Dim rng As RangeFor Each rng In Selection rng.Font.Strikethrough = TrueNextEnd Sub
7
返回Excel窗口，框选区域，单击按钮即可实现添加删除线效果。
注意事项
如果对您有点帮助，请帮忙点个赞再走，谢谢！
上一篇：表格中间的线怎么去掉