2016新编带你入门VBA(第一讲).doc

带你入门VBA（2004第一期）马上新建一个EXCEL文件，用绘图插入一个矩形，点击右键，在菜单中点击指定宏，再点击新建。 会出现 Sub 矩形1_单击() End Sub 在两句中间加入Sheets(sheet1).Range(a1) = 100 Sub 矩形1_单击() Sheets(sheet1).Range(a1) = 100 End Sub 再加一句： Sub 矩形1_单击() Sheets(sheet1).Range(a1) = 100 Sheets(sheet1).Cells(2, 1) = 200 End Sub 这是两种单元格的基本录入方法，都懂吗？ 再输入下面的循环程序 Sub 矩形1_单击() Dim X As Integer 声明 X为整数型变量 For X= 1 To 20 X的值为从1到20循环 Sheets(sheet1).Cells(x, 1) = x 单元CELLS(X,1)的值班等于X值 Next End Sub 刚才我粘贴错了 Sub 矩形1_单击() Dim i As Integer For i = 1 To 20 Sheets(sheet1).Cells(i, 1) = i Next End Sub 这个程序的结果A1至A20 的值分别为1到20 Dim， As， Integer 是什么意思？是涵数吗？F1里好象找不到 DIM 变量名称 AS 变量类型 是声名变量用的 就象是平时别人给你介绍客人：他是干什么的，只是介绍了我们才能针对性的谈话。变量也一样，我们给程序介绍：这个是整数型，你没必要把他当作其他类型对待，这样系统对你声明的变量作整数型对待了，如果不介绍系统还要花费一定的内存去判断新出现的变量是什么？结果是多占用内存影响运算速度 Dim i As Integer 中间没有逗号 补充一点 单元格在VBA的表示方法： 1、Range(单元格地址) 如Range(a1) 即为A1单元格 2、CELLS（行，列） 如CELLS（1，1）也为A1单元格，CELLS（2，1）为 A2单元格 工作表在VBA中表示方法：sheets(工作表名) 如果刚才的明白，再加一句，是如何在A21计算出A1：A20的和 Sub 矩形1_单击() Dim i As Integer For i = 1 To 20 Sheets(sheet1).Cells(i, 1) = i Next Range(a21).Value = Application.WorksheetFunction.Sum(Range(a1:a20)) End Sub 在VBA不直接支持在EXCEL工作表中的一些函数，如果要调用就必须加上Application.WorksheetFunction SUM求和语法和工作表中的一样，但表示不能直接SUM（A1：A20）,要用VBA的表示方法 SUM(Range(a1:a20)) 就是每个函数前都要加Application.WorksheetFunction.吗？ 如果是单个调用必须加 如果是多个调用就可以用WITH语句省去后面的 如Sub 矩形1_单击() Dim i As Integer For i = 1 To 20 Sheets(sheet1).Cells(i, 1) = i Next With Application.WorksheetFunction Range(a21).Value = .Sum(Range(a1:a20)) 注意SUM前面要有个点才行 Range(a22).Value = .Average(Range(a1:a20)) End With End Sub ？如Sub 矩形1_单击() Dim i As Integer For i = 1 To 20 Sheets(sheet1).Cells(i, 1) = i Next Range(a21).Value = Application.WorksheetFunction.Sum(Range(a1:a20)) Range(a22).Value = Application.WorksheetFunction.Average(Range(a1:a20)) End Sub 我是这样的，也行。 Sub 矩形1_单击() Dim i As Integer For i = 4 To 36 Sheets(sheet1).Cells(i, 4) = i Next Range(d37).Value = Application.WorksheetFunction.Sum(Range(d4:d36)) End Sub 我是用前面的来改的，不知算不算？但要我一个一个单词输入，我想还要过一段时间。 已运行正确！