带你入门VBA（2004第一期）

hpw · 发表于 2004-10-25 18:04

太棒了.

在这之前,我是一看到这样的代码就跳过.

今天刚看到这个贴子时,我是硬着头发让自己看的,没看到效果这么神奇噢,我开始慢慢有点懂了,也慢慢开窍啦.

netcrystal · 发表于 2004-10-26 13:31

Sub 按钮1_单击() Dim i As Integer For i = 1 To 20 Sheets("sheet1").Cells(i, 1) = i Next Range("a21").Value = Application.WorksheetFunction.Sum(Range("a1:a20")) Range("a22").Value = Application.WorksheetFunction.Average(Range("a1:a20"))

End Sub Sub 按钮2_单击() Range("a1:a22").ClearContents

End Sub Sub 按钮3_单击()

Range("b1").Value = Application.WorksheetFunction.CountA(Range("a")) Range("b2").Value = Application.WorksheetFunction.CountA(Columns(1))

End Sub

我在第三个按钮上实现统计a列的非空格,但是出现错误.

请帮忙看一看问题出现在什么地方.

兰色幻想 · 发表于 2004-10-26 13:36

Range("a")应为Range("a:a")

netcrystal · 发表于 2004-10-26 13:52

Range("a")应为Range("a:a")

多谢兰大侠!

rongjun · 发表于 2004-10-26 14:07

兰色幻想兄：我用宏调用“记录单”，怎么样改代码才能使我每次打开的记录单都是新建的，而不需要再用鼠标点击“新建”？以下是我的代码！

Sub Macro1() [a65536].End(xlUp).Offset(1, 0).Select ActiveSheet.ShowDataForm End Sub

兰色幻想 · 发表于 2004-10-26 14:56

以下是引用rongjun在2004-10-26 14:07:00的发言：

兰色幻想兄：我用宏调用“记录单”，怎么样改代码才能使我每次打开的记录单都是新建的，而不需要再用鼠标点击“新建”？以下是我的代码！

Sub Macro1() [a65536].End(xlUp).Offset(1, 0).Select ActiveSheet.ShowDataForm End Sub

记录单只能控制它打开，关闭，具体功能应该控制不了，其实平时我很少用它，因为它不太灵活。需要时要可以自已做一个，很简单的代码就可以实现，且很灵活。

0haCOux0.rar (7.58 KB, 下载次数: 642)

小肖 · 发表于 2004-10-26 15:11

哇！兰色幻想好棒啊！我也来学了，希望不要把这些贴子删啊，它们好珍贵啊！

rongjun · 发表于 2004-10-26 15:16

以下是引用兰色幻想在2004-10-26 14:56:00的发言：

记录单只能控制它打开，关闭，具体功能应该控制不了，其实平时我很少用它，因为它不太灵活。需要时要可以自已做一个，很简单的代码就可以实现，且很灵活。

我怎么输不进去数据？

兰色幻想 · 发表于 2004-10-26 15:43

以下是引用rongjun在2004-10-26 15:16:00的发言：

我怎么输不进去数据？

抱歉，刚才文件传错了，重新上传

KhLEfiaq.rar (9.47 KB, 下载次数: 598)

rongjun · 发表于 2004-10-26 17:00

159楼和162楼的代码是一样的吗？我怎么没看出有什么差别？除了162楼的窗体多了个“录入”外。

还有，能不能输入A数据后回车，光标自动移到B，依次下去，当输完数据D后回车，则数据录入相应单元格，同时光标移到A

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

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