带你入门VBA（2004第一期）

兰色幻想

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

请“兰色幻想” 回答

Sub 矩形1_单击() Sheets("sheet1").Range("a1") = 100 Sheets("sheet1").Cells(2, 1) = 200 End Sub

1。我发现去掉Sheets("sheet1").Range("a1")=100

Sheets("sheet1").cells(2,1)=200

中的Sheets("sheet1").对程序没影响，有没有有啥不同?

2.cells range的区别，在啥时候用cells,啥时候用range?

（我仅知道cells可带变量）。

这是两种单元格的基本录入方法，都懂吗？

Sheets("sheet1")是限定单元格所在的工作表，如果不限定，在SHEET2中运行，结果是会在SHEET2的单元格中输入。而加上Sheets("sheet1")后，不管你在本工作薄哪个工作表中运行，数值始终会填入SHEET1的单元格中，

关于CELLS和RANGE的区别，接下来的第五讲中会有非常详细的介绍

兰色幻想

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

真的十分好，终于都学习玩了，谢谢！

但是，我也想知道，如果真的出现了空格怎么办怎么写这个程序呢？

如果那样，就用RANGE(A65536).END(XLUP).ROW 来判断最后一行的行号

chianson

谢谢！我将继续学习！

xhkcmtt

我今天有没有机会啊

612321

请大家回答下 我这里那出错了. 我做了2个控键 一个添加数据,另外一个删除数据, 添加得时候自动在最后面一个加,我想删除也是全部一下把所有数据删除掉,但只能删掉A1单元格,

删除控键

Private Sub CommandButton1_Click() Dim X As Integer X = Application.WorksheetFunction.CountA("A:A") Range(Cells(1, 1), Cells(X, 1)).ClearContents End Sub

添加控键

Private Sub CommandButton2_Click() Dim I As Integer Dim X As Integer For I = 1 To 20 Sheets("Sheet1").Cells(I, 1) = I Next I X = Application.WorksheetFunction.CountA(Range("A:A")) Cells(X + 1, 1).Value = Application.WorksheetFunction.Sum(Range(Cells(1, 1), Cells(X, 1)))

End Sub

有这么好得老师,又有这么热心得同学,在这里学习很开心.

[此贴子已经被作者于2004-10-21 0:50:49编辑过]

兰色幻想

以下是引用612321在2004-10-21 0:49:00的发言：

请大家回答下 我这里那出错了. 我做了2个控键 一个添加数据,另外一个删除数据, 添加得时候自动在最后面一个加,我想删除也是全部一下把所有数据删除掉,但只能删掉A1单元格,

删除控键

Private Sub CommandButton1_Click() Dim X As Integer X = Application.WorksheetFunction.CountA("A:A") Range(Cells(1, 1), Cells(X, 1)).ClearContents End Sub

添加控键

Private Sub CommandButton2_Click() Dim I As Integer Dim X As Integer For I = 1 To 20 Sheets("Sheet1").Cells(I, 1) = I Next I X = Application.WorksheetFunction.CountA(Range("A:A")) Cells(X + 1, 1).Value = Application.WorksheetFunction.Sum(Range(Cells(1, 1), Cells(X, 1)))

End Sub

有这么好得老师,又有这么热心得同学,在这里学习很开心.

Private Sub CommandButton1_Click() Dim X As Integer X = Application.WorksheetFunction.CountA("A:A")

FOR J=1 TO X Range(Cells(1, 1), Cells(J, 1)).ClearContents

NEXT End Sub

yigepure

以下是引用兰色幻想在2004-10-21 9:11:00的发言：

Private Sub CommandButton1_Click() Dim X As Integer X = Application.WorksheetFunction.CountA("A:A")

FOR J=1 TO X Range(Cells(1, 1), Cells(J, 1)).ClearContents

NEXT End Sub

Private Sub CommandButton1_Click() Dim X As Integer X = Application.WorksheetFunction.CountA(columns("a")) set a=Range(Cells(1, 1), Cells(X, 1))

a.ClearContents

这样也可以吧.

End Sub

[此贴子已经被作者于2004-10-21 15:15:04编辑过]

兰色幻想

X = Application.WorksheetFunction.CountA("A:A")

应是：

X = Application.WorksheetFunction.CountA(Range("A:A"))

612321

谢谢老师，是我太大意了。 还有一个问题就是连续点2次删除键时，就会报错，因为X=0了。想做个判断语句 我知道怎么用了 中间加一句 if x>1 then

[此贴子已经被作者于2004-10-21 15:35:51编辑过]

612321

呵呵,学了3遍了.什么时候在继续啊.