带你入门VBA（2004第一期）

风中筱竹

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

布置个习题

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

今天第一次看到这个贴子,今天第一次接触VB,兰色幻想老师教得真好!我要好好学习,天天向上!

我的作业:

Sub 矩形5_单击() Dim i As Integer For i = 1 To 33 Sheets("sheet1").Cells(i + 3, 4) = i + 3 Next Range("d37").Value = Application.WorksheetFunction.Sum(Range("d4:d36")) End Sub

daxue2003

老大，有视频教程吗

兰色幻想

以下是引用daxue2003在2004-10-14 18:22:00的发言： 老大，有视频教程吗

还没找到哪有

aken009

我刚开始学excel表。本来想过一段时间再学VBA的，现在看来要提前学了

谢谢兰老师

原来就是原来的李连杰啊，怪不得这么厉害啊

风中筱竹

Sub 矩形1_单击()

Dim i As Integer Dim y As Integer For i = 1 To 15 Sheets("sheet1").Cells(i, 2) = i + 100 Next With Application.WorksheetFunction y = .CountA(Range("B:B")) Cells(y + 1, 2) = .Sum(Range(Cells(1, 2), Cells(y, 2))) End With

End Sub

第二讲的习题做出来了,由于只有晚上才有时间学习,进度很慢.

而且这之前一点没接触过相关的东东,现在只能依样画葫芦,希望老师耐心指教,谢谢!!

兰色幻想

以下是引用风中筱竹在2004-10-14 20:29:00的发言：

Sub 矩形1_单击()

Dim i As Integer Dim y As Integer For i = 1 To 15 Sheets("sheet1").Cells(i, 2) = i + 100 Next With Application.WorksheetFunction y = .CountA(Range("B:B")) Cells(y + 1, 2) = .Sum(Range(Cells(1, 2), Cells(y, 2))) End With

End Sub

第二讲的习题做出来了,由于只有晚上才有时间学习,进度很慢.

而且这之前一点没接触过相关的东东,现在只能依样画葫芦,希望老师耐心指教,谢谢!!

不错，鼓励一下[em23]

peaksun

看看先

yuwd3

请问：我在编下句时，

Range("b1").Value = Application.WorksheetFunction.CountA(Range("a:a"))

少了“Value”属性，结果也对，有没有“Value”有什么区别？

兰色幻想

以下是引用yuwd3在2004-10-15 7:20:00的发言：

请问：我在编下句时，

Range("b1").Value = Application.WorksheetFunction.CountA(Range("a:a"))

少了“Value”属性，结果也对，有没有“Value”有什么区别？

Value可以省略。

girl0733

现在还可以吗