马上新建一个EXCEL文件，用绘图插入一个矩形，点击右键，在菜单中点击指定宏，再点击新建。


会出现


Sub 矩形1_单击()


End Sub

2

在两句中间加入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 i As Integer
For i = 1 To 20
Sheets("sheet1").Cells(i, 1) = i
Next
End Sub



这个程序的结果A1至A20 的值分别为1到20

补充一点



单元格在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"))

源程序

好了 以上是第一课 是送给各位EXCEL VBA新人的新年礼物！
我会根据大家的反映慢慢继续发教程的
诚恳建议斑竹置顶,目的只有一个,就是为了大家多交流,多学习,共同进步！

没人来看？嗨~~~