带你入门VBA
带你入门VBA
第一期：带你入门VBA www.wendangwang.com
第二期：进阶操作VBA www.wendangwang.com
第三期：编制简单的自定义函数 www.wendangwang.com 第四期:如何控制工作薄和工作表 www.wendangwang.com 第五期：如何控制单元格 www.wendangwang.com
第一期：带你入门VBA
1、马上新建一个EXCEL文件，用绘图插入一个矩形，点击右键，在菜单中点击指定宏，再点击新建。 会出现
Sub 矩形1_单击()
End Sub
2、在两句中间加入：Sheets("sheet1").Range("a1") = 100
结果如下：
Sub 矩形1_单击()
Sheets("sheet1").Range("a1") = 100
End Sub
3、再加一句：Sheets("sheet1").Cells(2, 1) = 200
Sub 矩形1_单击()
Sheets("sheet1").Range("a1") = 100
Sheets("sheet1").Cells(2, 1) = 200
End Sub
这是两种单元格的基本录入方法，都懂吗？
补充：单元格和工作表在VBA的表示方法
（1）Range("单元格地址") 如Range("a1") 即为A1单元格；
（2）CELLS（行，列） 如CELLS（1，1）=A1，CELLS（2，1）=A2；
（3）工作表在VBA中表示方法：sheets("工作表名")。
4、再输入下面的循环程序
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
这个程序的结果A1至A20 的值分别为1到20
补充：“DIM 变量名称 AS 变量类型 ” 这个是声名变量用的，就象是平时别人给你介绍客人：他是干什么的，只是介绍了我们才能针对性的谈话。变量也一样，我们给程序介绍：这个是整数型，你没必要把他当作其他类型对待，这样系统对你声明的变量作整数型对待了，如果不介绍系统还要花费一定的内存去判断新出现的变量是什么？结果是多占用内存影响运算速度。
5、如果刚才的明白，再加一句，是如何在A21计算出A1：A20的和
Sub 矩形1_单击()
Dim i As Integer
