完善Excel宏代码的步骤与技巧.pdfVIP

完善Excel宏代码的步骤及技巧 录制宏后，你可能会发现宏可以进⾏⼀些别的操作。如果你已经熟悉了VB语⾔，要 宏⾥⾯加指令并不是⼀件困难的事情。然⽽，在绝⼤多数情况下，你可以将这些⼯ 作交给Excel宏录制器，从⽽更有效地完成这项⼯作。你也许会说，Excel录制了太多 的不需要的指令。但是，肯定的是，宏录制器不会犯错，你完全可以依赖于它。 如果你想要通过宏录制器在你的代码⾥添加指令，那么你必须录制⼀个新宏，然后复 制需要的部分再粘贴到原来代码的正确位置。 我们来给A 1:B3添加粗边框: 如果你从VB编辑器运⾏宏时，想观察宏的运⾏情况，你必须将Excel界⾯和VB编辑器 并排地布置在⼀起 1、激活图1－6看到的Excel界⾯ 2、选择“⼯具”－“宏”－“录制新宏” 3、在宏对话框点击确定，接受默认的宏名并开始录制 4 、选择区域A 1:B3 5、选择“格式”－“单元格” ，点击“边框”页 6、在“边框样式”部分，点击“外部”按钮 7 、在边框粗细列表，点击最粗的，再点击确定关闭对话框 8、点击单元格A 1。注意，A 1:B3区域有了粗边框。 9、点击“停⽌录制”按钮，或者选择“⼯具”－“宏”－“停⽌录制” 切换置VB编辑器窗⼜，查看你录制的宏。给A 1:B3 （译者：原⽂为A 1:A3 ）添加粗边 框的代码如下： Sub Macro2() Macro2 Macro Macro recor e 5/31/2002 by Julitta Korol Range(A 1:B3) .Select Selection .Bor ers(xlDiagonalDown) .LineStyle = xlNone Selection .Bor ers(xlDiagonalUp) .LineStyle = xlNone With Selection .Bor ers(xlE geLeft) .LineStyle = xlContinuous .Weight = xlThick .ColorIn ex = xlAutomatic En With With Selection .Bor ers(xlE geTop) .LineStyle = xlContinuous .Weight = xlThick .ColorIn ex = xlAutomatic En With With Selection .Bor ers(xlE geBottom) .LineStyle = xlContinuous .Weight = xlThick .ColorIn ex = xlAutomatic En With With Selection .Bor ers(xlE geRight) .LineStyle = xlContinuous .Weight = xlThick .ColorIn ex = xlAutomatic En With Selection .Bor ers(xlInsi eVertical) .LineStyle = xlNone Selection .Bor ers(xlInsi eHorizontal) .LineStyle = xlNone Range(A 1) .Select En Sub 现在，我们来分析⼀下这些录制的代码。你认为你可以去掉其中的⼀些指令吗？在你 删除这些不必要的