带你入门VBA（2004第一期）

兰色幻想

以下是引用linvv在2004-10-3 17:06:00的发言： 就是每个函数前都要加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

ＺＨＹＺ

以下是引用兰色幻想在2004-10-3 16:28:00的发言：

再输入下面的循环程序

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

你是否把以上做法，发个文件上来．

兰色幻想

以下是引用linvv在2004-10-3 17:06:00的发言：

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

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

我今天先做个试验，看看这样做能不能行通，如果效果好，我会坚持下去的

linvv

明了

[em08]

我觉得效果非常好，我的印象很深，如果自己看书，我总是很容易就给忘了，请安排时间，我估计不用十课就可基本学会，我们再自己去加强提高

[此贴子已经被作者于2004-10-3 17:20:10编辑过]

先锋

如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

我是这样的，也行。

兰色幻想

以下是引用ＺＨＹＺ在2004-10-3 17:15:00的发言： 你是否把以上做法，发个文件上来．

qRqSSt90.rar (10.42 KB, 下载次数: 1634)

2004-10-3 17:20 上传

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

先锋

以下是引用ＺＨＹＺ在2004-10-3 17:15:00的发言： 你是否把以上做法，发个文件上来．

同意25楼的看法。这个教学方法很好，比对着书本，自己琢磨快多了，印象也非常深。

[此贴子已经被作者于2004-10-3 17:29:25编辑过]

兰色幻想

布置个习题

请在工作表SHEET1的D4：D36单元格中填充4-36的数值，并在D37单元格中求和

老荷才露

支持！希望继续。

linvv

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

我是用前面的来改的，不知算不算？但要我一个一个单词输入，我想还要过一段时间。

已运行正确！！3Q

[此贴子已经被作者于2004-10-3 17:31:11编辑过]