带你入门VBA（2004第一期）

jds2004

衷心地向老师道声谢谢！

森林一族

我也是新手一个，是程序的设计可以说是毫无头绪，不过，楼主的无私奉献精神，唤起我学习的愿望，期望继续。谢谢。高手实在不少。

黑色幽默

第一讲消化得差不多了。呵呵。接着看

东北人

太好了 学到了不少东西

gz_wu

以下是引用homerzhang在2004-10-10 13:18:00的发言：

Sub 矩形2_单击() Dim i As Integer Dim YYY As Integer For i = 1 To 20 Sheets("sheet1").Cells(i, 1) = i Next YYY = Application.WorksheetFunction.CountA(Columns("A")) Cells(YYY + 1, 1) = Application.WorksheetFunction.Sum(Range(Cells(1, 1), Cells(YYY, 1))) End Sub 在此Sub中，每次点击一下矩形框，都要在最后一行求和，包括上次Sub运算的结果。

呵呵!要的就是这样的效果

有一个问题,如果前面的数据中存在空格,怎么办?

gz_wu

这里有部分空格,如何才能识别到"A13"是最后一个存在数据的单元格,从而在"A14"单元格求和呢?

shangyu

[A65536].end(xlup)是指向A13；

[A65536].end(xlup).offset(1,0)就是A14。

啊一

真的很不好意思我来晚了。我要在B1：B15输入101：115的时候怎么也不能成功，后来按上面的方法却在B101：B115输入了。请各位老师帮帮我，谢谢了！

Private Sub CommandButton1_Click() Dim i As Integer For i = 101 To 115 Dim x As Integer For x = 1 To 15 Sheets("sheet1").cell(x, 2) = i Next Next End Sub

兰色幻想

以下是引用啊一在2004-10-13 15:29:00的发言：

真的很不好意思我来晚了。我要在B1：B15输入101：115的时候怎么也不能成功，后来按上面的方法却在B101：B115输入了。请各位老师帮帮我，谢谢了！

Private Sub CommandButton1_Click() Dim i As Integer For i = 101 To 115 Dim x As Integer For x = 1 To 15 Sheets("sheet1").cell(x, 2) = i Next Next End Sub

Private Sub CommandButton1_Click() Dim i As Integer For i = 101 To 115 Sheets("sheet1").cell(x-100, 2) = i

Next End Sub

啊一

Dim i As Integer For i = 101 To 115 Sheets("sheet1").Cells(i, 2) = i Next 这是按大家的方法，可选择的却是B101：B115，我都晕了啊老师们。