带你入门VBA（2004第一期）

兰色幻想

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

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

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

OK！其实录入也很快的，在VBA中系统会提示输入，比如你输入完Application后加个点再输入W，下面的WorksheetFunction会自动出来让你去选

linvv

哦，原来可以这样，那我就必须开始背那些单词了！

兰色幻想

在原来的基上 求A列的非空单元格个数，把结果输入到B1中

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")) Range("B1").Value = Application.WorksheetFunction.CountA(Range("a1:a40000")) End Sub

忘了整列A怎么表示了，$A$吗？

[em04][em04]

因在原来基础上改，所以没有用with

可是再在A列加个数字，B1不会自动更新为22是怎么回事？？

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

兰色幻想

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

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")) Range("B1").Value = Application.WorksheetFunction.CountA(Range("a1:a40000")) End Sub

忘了整列A怎么表示了，$A$吗？

[em04][em04]

下面两种都可以

Range("B1").Value = .CountA(Columns(1)) Range("B2").Value = .CountA(Range("A:A"))

ＺＨＹＺ

你的做法很新颖，很好！！！，希望能继续！

我添加了清除按钮．

dRdVuMYR.rar (8.19 KB, 下载次数: 1470)

2004-10-3 17:49 上传

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

兰色幻想

可是再在A列加个数字，B1不会自动更新为22是怎么回事？？

这个需要执行程序后才能计算的不象在EXCEL工作表中的公式

先锋

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")) Range("B1").Value = Application.WorksheetFunction.CountA(Columns("A")) End Sub

是这样吗?好难输呀.

啊!怎么也不等我了,你们都比我快,看来我落后了.

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

兰色幻想

以下是引用ＺＨＹＺ在2004-10-3 17:48:00的发言：

你的做法很新颖，很好！！！，希望能继续！

我添加了清除按钮．

Range("A1:A22").Select Selection.ClearContents

这两句合为一句应行了

Range("A1:A22").ClearContents

在程序中要尽量少用SELECT,这样会影响速度,程序大的时候也很不方便,(录制的宏常带SELECT)

linvv

看看，大家都在进步

请问Columns是什么意思，也是一种表示法吗

真是坏势，整天问这种最基本的问题，

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