<em>excel</em>里编写VBA程序时怎么把一段语句直接注释和解除注释...

1. Sub 计算()
Dim a as Integer '定义变量 a 为 整数型
a=Val(InputBox(“请输入一整数a”) ‘将对话框中输入的值转化为数值并赋值给变量a
If a>=0 Then ’条件语句，如果a大于等于零
a=a+10 ‘则，变量a等于原变量值+10
Else ’否则a小于零
a=-a+10 ‘变量a等于10-变量a
End ’条件语句结束
Sheet1.Activate ‘激活sheet1表
Cells(1, 1) = a ’将变量a的值写入单元格A1
End Sub ‘过程结束

2.Sub color()
For k = 1 To 7 ’循环语句，执行7次
c = "A" & k ‘’确定单元格，如A1 、A2
Range(c).Select ‘选定单元
Selection.Interior.ColorIndex = k ’给选定的单元格标色
Next
End Sub 该过程执行完后会给A1Z至A7单元格表上7种颜色。

在语句复的开头加一个单引号（'）就是注释，例如以下程制序中第三句代码就是注释掉知了。

删掉'，就是取消道注释

Private Sub CommandButton1_Click()
On Error Resume Next
'Call Connect
UserForm1.Show 0
End Sub

Application.ScreenUpdating = False '关闭屏幕刷新
    r = Cells(Rows.Count, 2).End(3).Row '定义第二列最后一个非空单元格行数为变量r
    For Each Rng In Application.Intersect(ActiveSheet.UsedRange, Columns(2))
    '单元格变量Rng在活动工作表中使用区域的第二列中循环
        If Rng.Interior.ColorIndex = 3 Then '如果Rng的颜色为红色
            Range(Rng.Offset(1), Cells(r, 9)).Copy Rng
             '复制Rng区域第一个单元格至r行第9列区域
            Exit For '退出循环
        End If
    Next
    For j = 2 To 9 '变量j从2循环至9
        Cells(r, j) = 0 'r行第2列为0，r行第3列为0...r行第9列为0
    Next j
    ActiveSheet.UsedRange.Borders.LineStyle = xlContinuous
     '设置活动工作表使用区域的边框为实线7a686964616fe4b893e5b19e333
    Application.ScreenUpdating = True '恢复屏幕刷新

1. Sub 计算()
Dim a as Integer ；定义变量 a 为 整数型
a=Val(InputBox(“请输入一整数a”) ；将对话框中输入的值转化为数值并赋值给变量a
If a>=0 Then ；条件语句，如果a大于等于零
a=a+10 ；则，变量a等于原变量值+10
Else ；否则a小于零
a=-a+10 ；变量a等于10-变量a
End ；条件语句结束
Sheet1.Activate ；激活7a686964616fe78988e69d83334sheet1表
Cells(1, 1) = a ；将变量a的值写入单元格A1
End Sub ；过程结束

2.Sub color()
For k = 1 To 7 ；循环语句，执行7次
c = "A" & k ；确定单元格，如A1 、A2
Range(c).Select ；选定单元
Selection.Interior.ColorIndex = k ；给选定的单元格标色
Next
End Sub ； 该过程执行完后会给A1Z至A7单元格表上7种颜色。