[分享] 带你入门VBA（2004第一期）

反对陡客然先生，看书有时不理解没地方现问，这个就不同了（当然，对于我这种理解能力较差的人），

这个宏好象不能运行啊？？

能力有限看不懂，

Dim， As， Integer 是什么意思？是涵数吗？F1里好象找不到

刚才我粘贴错了

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 变量类型

是声名变量用的 就象是平时别人给你介绍客人：他是干什么的，只是介绍了我们才能针对性的谈话。变量也一样，我们给程序介绍：这个是整数型，你没必要把他当作其他类型对待，这样系统对你声明的变量作整数型对待了，如果不介绍系统还要花费一定的内存去判断新出现的变量是什么？结果是多占用内存影响运算速度

Dim i As Integer 中间没有逗号

明白了， Integer 是整数了

请教一下象哪里有此类单词或函数（在VBA里用的）的说明书

我的英语较烂 :）

兄台，我们的进度好象慢了点，你是在忙别的还是我们在互相等待？

补充一点

单元格在VBA的表示方法：

1、Range("单元格地址") 如Range("a1") 即为A1单元格

2、CELLS（行，列） 如CELLS（1，1）也为A1单元格，CELLS（2，1）为 A2单元格

工作表在VBA中表示方法：sheets("工作表名")

这也是我从论坛里下载的，你也看看吧。

yifox8MK.rar (151.11 KB, 下载次数: 3710)

2004-10-3 16:57 上传

点击文件名下载附件
带你入门VBA（今天限一名）

如果刚才的明白，再加一句，是如何在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"))

先谢谢老师，带我入了门！

其实，就这么简单的，我也是第一次操作，感觉还不错，虽然中间电脑出了点问题，还蛮顺利。

从简单到复杂，一步一个脚印，慢慢学！

呵呵！！要不，一天上一课，怎么样？

上面的内容看是看懂了，就想问：

是不是只要写VBA，就必须用这个固定的格式？

这格式是不是要死记着，我的脑袋可不太好使。

。

就是每个函数前都要加Application.WorksheetFunction.吗？

同意先锋，只是时间要如何安排啊，不知老师有闲没？