vba 排版缩进 和 注释

缩进一般为一个【Tab】键的宽度（4个空格）

在缩进某行或某块代码时可以选中代码块(如果是一行，只需将光标定位到行首而不用选中它)，

按【Tab】键（或依次执行【编辑】--【缩进】命令）即可将代码统一缩进一个【Tab】键的宽度。

 

如果选中已缩进的代码，按【Shift+Tab】组合键（或依次执行【编辑】--【凸出】命令），则可将选中的代码取消缩进一个【Tab】键的宽度。

 

一个【Tab】键的宽度默认为4个空格，可以在【选项】对话框中修改，【工具】--【选项】

 

将长行代码显示为多行

在VBA中，一行代码就代表一个命令，为了保证命令的完整性，VBA不允许将一行代码直接按【Enter】键将其改写为多行。

而有些很长的代码，如果对一行代码的确有换行的需求，可以在代码中要换行的位置输入一个空格和下划线"_"，然后按【Enter】键换行，即可把一行

代码分成两行。

eg：

Sub test()
     Application.Workbooks("Book1").Worksheets("Sheet1") _
         .Range("A1:D100").Font.Bold=True 
End Sub

为了将换行的代码在视觉上和其他完整的一行代码区分开，换行后的第2行代码应适当缩进。

      有一点需要注意，虽然可以把一行代码分成两行、三行甚至更多行，但一般当一行代码长度超过80个字符时，我们才会考虑对其换行。

 

把多行短代码合并显示为一行

       在第1行代码后面加上英文冒号，可以在后面接着写第2行代码。

通过这样的方法可以把多行短代码合并成一行代码。

Sub test()
       Dim a%,b%,c%:a=1:b=2:c=3
End Sub

尽管可以把多行代码写在同一行，但是这样会增加代码的阅读障碍，不建议这样做。

 

 

注释

注释符号为 英文单引号 ，可以放在句子的末尾，也可以单独写在一行。

eg:

Sub test()
      Dim i As Integer '定义一个Integer类型的变量，名称为i
      '利用For循环语句，向单元格中输入数据
      For i=1 to 10
           Cells(i,"A")=i
      Next i
End Sub

在【代码窗口】中，所有的注释语句都显示为绿色。

 

当注释语句单独成一行时，可以使用Rem关键字代替单引号。

eg:

Sub test()
      Dim i As Integer '定义一个Integer类型的变量，名称为i
      Rem利用For循环语句，向单元格中输入数据
      For i=1 to 10
           Cells(i,"A")=i
      Next i
End Sub

 

注释语句的其他作用

     在调试程序时，如果怀疑某行代码存在错误不想执行它，可以在代码行前加个单引号（或Rem 关键字）将其转为注释语句，而不用删除它。

当要恢复这些代码时，只要将单引号（或Rem关键字）删除即可，这是调试代码时常用的一个技巧。

 

       在注释代码的过程中，如果需要注释一整块代码，可以借助【编辑】工具栏中的【设置注释块】命令来完成。

如果想取消注释，将代码还原成普通代码，就选中已经注释的语句块，单击【编辑】工具栏中的【解除注释块】按钮。如下图所示。

 

         如果VBE中没有显示【编辑】工具栏，可以依次执行【视图】--【工具栏】--【编辑】命令调出该工具栏即可。