Question

自从学习了如何在VBA中编码后，我偶然发现了速记本来应该很早就知道的。您可以推荐一个速记或一些快捷方式或键，这样可以简化VBA中的编码吗？

Answer 1

1）当您不确定某个词组（例如工作簿或应用程序）可以使用哪些扩展名时：请使用“。”，然后使用箭头浏览列表。找到您要使用的那个后，按一下TAB！

2）功能键！！！
我喜欢使用的，并希望我从中了解开始：

F1：选择功能（例如“ .Find”或“ .Close”）时，请按F1键，浏览器窗口将打开到该功能的Microsoft支持页面！
F5：为您运行代码
F8：在“ breakmode”中逐行运行代码

3）选择整个文本部分并按TAB键将缩进整个选择范围。按下SHIFT＆TAB将会使它胜过一切。

4）当您将鼠标悬停在（以前）黄色突出显示的代码上时，例如在运行breakmode时，或在Debug上代码崩溃后，它将向您显示其运行的推入值。

5）单击代码行左侧（在灰色条区域中），然后在该行上启动一个暗红色的条，这是中断线模式，您的代码将在该行停止运行。

6）如果右键单击VBA视图代码浏览器栏，然后单击“自定义”，请转到“编辑”部分，找到“注释代码”和“取消注释代码”按钮并将其拖到快捷方式！它使您可以立即注释掉整个代码块。

7）如果要测试错误处理，请在某些时候想要在代码中发生错误的地方使用“ Err.Raise”，并给它一个数字（我喜欢使用5）。届时它将触发Err 5，您可以看到您的代码如何处理它！

Sub testing_Err()  
    ' To test your Error handling  
    On Error GoTo err_wrapper  
    Err.Raise 5  
    GoTo done  'This would only happen if you had no error  
err_wrapper:  
    Msgbox "You got an error!" & vbNewLine & Err.Description  
done:  
    Err.Clear  
End Sub

8）VBA可以识别“ Nothing”和“ Blank”一词，因此可以随意使用它们。

If var = Blank Then Exit Sub  
If Target.ListObject Is Nothing Then Exit Sub

9）在循环中使用Dir（）查找文件或文件夹时，请不要忘记在循环结束时将文件重命名为Dir（）！

file_Name = Dir(folder_Path, vbDirectory)  
    Do While file_Name <> Blank  
        Msgbox "The file name is: " & file_Name  
        file_Name = Dir()  
    Loop

希望这对使用VBA的像我这样的菜鸟有帮助：）

VBA中的速记

1 个答案: