VBA中一行代码长到要添加_来多行书写时，如何给各行写注释？

huangsijun17

现有函数如下：

1. Sub WriteToCells(ByVal rowNum As Long, ParamArray values() As Variant) '批量填写指定行的单元格
   
2.     Dim i As Integer
   
3.     For i = LBound(values) To UBound(values)
   
4.         If Not IsEmpty(values(i)) Then
   
5.             Cells(rowNum, i + 1).Value = values(i)
   
6.         End If
   
7.     Next i
   
8. End Sub

复制代码

调用时，希望给各参数加注释。但 _ 后面无法使用 ' 添加注释。有无其他方法？


错误范例：

1. WriteToCells 1, _ '第一行
   
2.         "A", _ 'A1
   
3.         "B", _ 'B1

复制代码

mmwwdd

在VBA中，注释可以使用单引号（'）来添加。在一行代码长到需要分割成多行时，可以使用下划线（_）来分割。如果需要给各行写注释，可以将注释写在分割前的行末尾，并使用下划线来分割注释。示例如下：

plaintext
Copy code
'这是一段很长的代码，需要分割成多行
Dim a As Integer: a = 1 _
    '这是变量a的赋值语句
    + 2 _
    '这是加2的运算
    + 3 _
    '这是加3的运算
    + 4 '这是加4的运算
MsgBox "a的值是：" & a '这是显示变量a的值的语句

在上述示例代码中，我们使用下划线将代码分割成多行，并在需要添加注释的行末尾添加了注释，并使用下划线将注释与代码分割开来。这样做可以使代码更易读，并且方便其他人阅读和理解。

huangsijun17

mmwwdd 发表于 2023-4-28 16:06
在VBA中，注释可以使用单引号（'）来添加。在一行代码长到需要分割成多行时，可以使用下划线（_）来分割。 ...

并不行。
还有，我有ChatGPT。它有多睿智，我所知道的。

micch

mmwwdd 发表于 2023-4-28 16:06
在VBA中，注释可以使用单引号（'）来添加。在一行代码长到需要分割成多行时，可以使用下划线（_）来分割。 ...

能避免尽量避免太长的语句

既然是注释，那就是想怎么写就怎么写，你完全可以把参数和注释放在同一行单独写注释，然后再写参数。参数写两遍就是了

huangsijun17

micch 发表于 2023-4-29 22:40
能避免尽量避免太长的语句

既然是注释，那就是想怎么写就怎么写，你完全可以把参数和注释放在同一行单 ...

好吧，也只能这样了。