excel 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种颜色。

Sub ek_sky()

  Dim arr1, i&, j$

  '得到F1:Fx的区域，其中x取祥悔决于A列最后一个单元格的行，例如：A1到A10都有内容，A11开始就没内容了，那么arr1得到的区域就是F1:F10

  arr1 = Range("f1:f" &Cells(Rows.Count, 1).End(3).Row)

  'i从1到arr1区域中单元格行宴者的数量

  For i = 1 To UBound(arr1)

      '如果arr1中第(i,1)个元素的内容包含以通配符表示的"*小节*"，那就执行IF内的语句

      If arr1(i, 1) Like "*小节*" Then

          j = j &",A" &i

      End If

  Next i

  'j变量中保存的是F列中包含有"*小节*"的对应的A列单元格，如",A1,A2"，由于前面有个逗号，所以需要使用Mid(j,2)，以此来从第2个符号开始往后取，以去掉最前面档薯的逗号

  '下面整句的使用就是将包含"*小节*"内容的行全都选中

  Range(Mid(j, 2)).EntireRow.Select

End Sub

---