作者:乔山办公网日期:
返回目录:excel表格制作
选中多行后直接点注释的按钮即可。
在语句的开百头加一个单度引号(')就是注知释,例如以下程序中第三句代码就道是注释回掉答了。
删掉',就是取消注释
Private Sub CommandButton1_Click()
On Error Resume Next
'Call Connect
UserForm1.Show 0
End Sub
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种颜色。
如何将“设置注释块”加到快捷工具栏 在VB窗口中的快速工具栏空白处鼠标右击,找到“自定义 >> (上面)命令 >> (左下)编辑 >> (右下)设置注释块”,拖动到快捷工具 烂...