带你入门VBA（2004第一期）

wolf009 · 发表于 2004-10-15 10:30

偷偷地看完了所有有贴子，觉得很有收获，十分感谢！

victer · 发表于 2004-10-15 11:12

佩服兰色幻想,佩服兰色幻想不仅是一个高手,还是一个能够从初学者角度考虑问题的高手,佩服佩服!!!

chengyuyu · 发表于 2004-10-15 11:49

我也是新手，请多指教，谢谢!

dongyf · 发表于 2004-10-15 20:51

阿兰兄，我也想学，请赐教。

tingming · 发表于 2004-10-16 10:49

[em02]

我也想学！！！

nowarmy · 发表于 2004-10-16 10:54

非常好，谢谢老师。

imcy · 发表于 2004-10-16 15:24

跟着贴子学一学，太好了~

谢谢！

ZPX · 发表于 2004-10-17 09:33

高----讲授方法高

高---------专业水平高

实在是高------------思想境界高，无私。

[此贴子已经被作者于2004-10-17 14:27:13编辑过]

hanetyb · 发表于 2004-10-18 13:17

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

以下是引用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运算的结果。

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

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

ZPX · 发表于 2004-10-18 18:19

请“兰色幻想” 回答

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可带变量）。

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

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

		自动登录	找回密码
密码			免费注册

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