该代码实现聚焦单元格特效,如果需要保存使用请先将表格保存为启用宏的电子表格格式,不然每次使用都得复制粘贴,不是很方便。请先确保Excel启用了宏,不然使用不了。
工具/原料
Excel 2003及以上
方法/步骤
1
Excel启用宏(2016版本),其他版本差不多,启用后就可以很方便使用宏了,启用方式如下图:
2
Alt + F11打开VBE,点击 插入->模块 插入一个新模块,复制如下代码到模块中,将Excel文件保存为启用宏的Excel文件。聚焦特效代码如下:Option Explicit Sub 宏1()'' 宏1 宏' ' With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .Color = 65535 .TintAndShade = 0 .PatternTintAndShade = 0 End WithEnd SubSub 宏2()'' 宏2 宏' ' Selection.EntireRow.Delete Target.EntireColumn Target.EntireRow End Sub
3
复制代码粘贴到模块后,效果如下所示:
注意事项
确保Excel启用宏,或者将文件保存为启用宏的Excel文件
上一篇:利用Excel制作宏程序!!