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

《带你入门VBA(第一讲).doc》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、带你入门VBA（2004第一期）马上新建一个EXCEL文件，用绘图插入一个矩形，点击右键，在菜单中点击指定宏，再点击新建。会出现Sub矩形1_单击()EndSub在两句中间加入Sheets("sheet1").Range("a1")=100Sub矩形1_单击()Sheets("sheet1").Range("a1")=100EndSub再加一句：Sub矩形1_单击()Sheets("sheet1").Range("a1")=100Sheets("sheet1").Cells(2,1)=200EndSub这是两种单元格的基本录入方法，都懂吗？再输入下面的循环程序Sub矩形1_单击()Di

2、mXAsInteger声明X为整数型变量ForX=1To20X的值为从1到20循环Sheets("sheet1").Cells(x,1)=x单元CELLS(X,1)的值班等于X值NextEndSub刚才我粘贴错了Sub矩形1_单击()DimiAsIntegerFori=1To20Sheets("sheet1").Cells(i,1)=iNextEndSub这个程序的结果A1至A20的值分别为1到20Dim，As，Integer是什么意思？是涵数吗？F1里好象找不到DIM变量名称AS变量类型是声名变量用的就象是平时别人给你介绍客人：他是干什么的，只是介绍了我们才能针对性的谈话。变量也一样

3、，我们给程序介绍：这个是整数型，你没必要把他当作其他类型对待，这样系统对你声明的变量作整数型对待了，如果不介绍系统还要花费一定的内存去判断新出现的变量是什么？结果是多占用内存影响运算速度DimiAsInteger中间没有逗号补充一点单元格在VBA的表示方法：1、Range("单元格地址")如Range("a1")即为A1单元格2、CELLS（行，列）如CELLS（1，1）也为A1单元格，CELLS（2，1）为A2单元格工作表在VBA中表示方法：sheets("工作表名")如果刚才的明白，再加一句，是如何在A21计算出A1：A20的和Sub矩形1_单击()DimiAsIntegerFor

4、i=1To20Sheets("sheet1").Cells(i,1)=iNextRange("a21").Value=Application.WorksheetFunction.Sum(Range("a1:a20"))EndSub在VBA不直接支持在EXCEL工作表中的一些函数，如果要调用就必须加上Application.WorksheetFunctionSUM求和语法和工作表中的一样，但表示不能直接SUM（A1：A20）,要用VBA的表示方法SUM(Range("a1:a20"))就是每个函数前都要加Application.WorksheetFunction.吗？如果是单个调用必须加

5、如果是多个调用就可以用WITH语句省去后面的如Sub矩形1_单击()DimiAsIntegerFori=1To20Sheets("sheet1").Cells(i,1)=iNextWithApplication.WorksheetFunctionRange("a21").Value=.Sum(Range("a1:a20"))注意SUM前面要有个点才行Range("a22").Value=.Average(Range("a1:a20"))EndWithEndSub？如Sub矩形1_单击()DimiAsIntegerFori=1To20Sheets("sheet1").Cells(i,1)

6、=iNextRange("a21").Value=Application.WorksheetFunction.Sum(Range("a1:a20"))Range("a22").Value=Application.WorksheetFunction.Average(Range("a1:a20"))EndSub我是这样的，也行。？Sub矩形1_单击()DimiAsIntegerFori=4To36Sheets("sheet1").Cells(i,4)=iNextRange("d37").Value=Application.WorksheetFunction.Sum(Range("d4:d3

7、6"))EndSub我是用前面的来改的，不知算不算？但要我一个一个单词输入，我想还要过一段时间。已运行正确！！3Q？以下是引用linvv在2004-10-317:44:00的发言：Sub矩形1_单击()DimiAsIntegerFori=4To36Sheets("sheet1").Cells(i,4)=iNextRange("d37").Value=Application.WorksheetFunction.Sum(Range("d4:d36"