VBA常用技巧代码解析

lsytym

非常感谢版主的辛苦劳动。

neusut

Thanks for your diligent work

brendan.ye

太感谢楼主了,不光有实例,还有非常详尽的说明,另外能耐心的整理这些资料,真的是非常不容易..

ykx042907

袁版主：您好！再次麻烦您。通常相关资料制作的进度条都是他们自己举的例子进行运算，来测试进度条的进度。现在请问实际要运行的代码怎样与进度条同步呀？谢谢！下面是测试的进度条代码与本人需要运行的工资条的宏，怎样才能在运行工资条的宏时与进度条同步？
Public Sub Macro_1()
Total = 123
With UserForm1
.Show 0
For i = 1 To Total
.Label3.Width = Int(i / Total * 285)
.Label4.Caption = CStr(Int(i / Total * 100)) + "%"
DoEvents
Next i
End With
Unload UserForm1
End Sub

下面是要执行的工资条之宏
Sub 工资条()
Dim a, b As Integer
If Range("a9") <> Range("a3") Then   
a = Range("a65536").End(xlUp).Row   
For b = a To 8 Step -1              
Rows(b & ":" & b + 4).Insert     
Rows("3:6").Copy              
Rows(b + 1 & ":" & b + 4).Select      ActiveSheet.Paste              
Rows(b).RowHeight = 7.5         
Next
End If
Range("a1").Select
End Sub

现想在运行Sub 工资条()此过程时，与上面的进度条同步。本人将Sub 工资条()过程放到进度条代码中却不是同步的。烦请袁版主帮忙，再次谢谢！
Public Sub Macro_1()
Total = 123
With UserForm1
.Show 0
For i = 1 To Total
.Label3.Width = Int(i / Total * 285)
.Label4.Caption = CStr(Int(i / Total * 100)) + "%"
DoEvents
Next i
End With
Dim a, b As Integer
If Range("a9") <> Range("a3") Then   
a = Range("a65536").End(xlUp).Row   
For b = a To 8 Step -1            
Rows(b & ":" & b + 4).Insert   
Rows("3:6").Copy              
Rows(b + 1 & ":" & b + 4).Select      ActiveSheet.Paste            
Rows(b).RowHeight = 7.5         
Next
End If
Range("a1").Select
Unload UserForm1
End Sub

ykx042907

袁版主：您好！您编写的这些代码技巧都是适用03版的EXCEL，好像有些对07版的不适用耶？？？

slyvie

  楼主实在是太好了,我说跟你混了,学VBA全靠你了!

wbxfq

我可以少买一本书了.在这里来学习.

jizewei

版主太厉害了，精神太可嘉了，真的是不回帖都对不起了，这么好的贴，一定要定起来。太谢谢版主了。

yuanzhuping

技巧96         屏蔽所有的命令栏
       在使用自定义的操作界面时，需要屏蔽Excel中所有的命令栏，可以使用下面的代码。

1. #001  Sub Shielding_1()
   
2. #002      Dim i As Integer
   
3. #003      For i = 1 To Application.CommandBars.Count
   
4. #004          Application.CommandBars(i).Enabled = False
   
5. #005      Next
   
6. #006  End Sub

复制代码

代码解析：
       Shielding_1过程使用For...Next语句遍历Excel命令栏，并将其Enabled属性设置为False，使之无效。
       还可以使用For Each...Next 语句遍历所有的CommandBars对象，代码如下：

1. #001  Sub Shielding_2()
   
2. #002      Dim Cmd As CommandBar
   
3. #003      For Each Cmd In Application.CommandBars
   
4. #004          Cmd.Enabled = False
   
5. #005      Next
   
6. #006  End Sub

复制代码

运行Shielding_1或Shielding_2过程工作簿如图所示。

       在需要恢复时只需将Enabled属性设置为True即可，如下面的代码所示。

1. #001  Sub Recovery_1()
   
2. #002      Dim i As Integer
   
3. #003      For i = 1 To Application.CommandBars.Count
   
4. #004          Application.CommandBars(i).Enabled = True
   
5. #005      Next
   
6. #006  End Sub
   
7. #007  Sub Recover_2()
   
8. #008      Dim Cmd As CommandBar
   
9. #009      For Each Cmd In Application.CommandBars
   
10. #010          Cmd.Enabled = True
    
11. #011      Next
    
12. #012  End Sub

复制代码

代码解析：
       Recovery_1和Recover_2过程分别使用For...Next语句和For Each...Next 语句遍历所有的CommandBars对象，设置其Enabled属性为True，显示所有的命令栏。

yuanzhuping

技巧97         恢复Excel的命令栏
       如果用户经常添加、删除Excel的菜单和工具栏而又没有及时恢复的话，有时会破坏Excel默认的用户界面，即使用Reset方法也不能恢复成初始状态。
       此时可以在电脑的本地硬盘中查找扩展名为*.xlb的文件，该文件在电脑中的位置会因Excel版本的不同而不同，在XP操作系统中，该文件位于系统盘的Documents and Settings\Administrator\Application Data\Microsoft\Excel文件夹，其中Administrator是电脑的用户名。找到它最简单的方法是使用Windows的搜索功能。按<Win+F>组合键调出Windows的搜索窗口，然后用*.xlb为目标在本地硬盘中进行搜索，如图所示。

       如果搜索没有结果，请检查“更多高级选项”中是否选中“搜索隐藏的文件和文件夹”选项，如图所示。

       对Excel用户界面的任何修改都会保存在*.xlb文件中，找到后删除该文件，然后重新启动Excel。Excel会重新创建一个*.xlb文件，而菜单和工具栏也会全部恢复成初始状态。