兰色幻想的VBA入门整理（全5期）

dz304102 · 发表于 2011-7-5 11:02

表示感谢！

rbq555 · 发表于 2011-7-5 12:15

好东西，收藏了，多谢分享！

quanye · 发表于 2011-7-6 11:11

寻找好久了，谢谢

261927790 · 发表于 2011-7-6 21:04

谢谢楼主！

wzw117 · 发表于 2011-7-8 09:35

原帖由 ylcxcgk 于 2011-6-30 21:27 发表
谢谢楼主分享,
第一期中有下面代码
Sub 矩形1_单击()
Dim x As Integer
For x = 1 To 20
Sheets("sheet1").Cells(x, 1) = x
Next
with application.WorksheetFunction Range("a21").Value=.s ...

试试在代码中添加一个回车吧

Sub 矩形1_单击()
Dim x As Integer
For x = 1 To 20
Sheets("sheet1").Cells(x, 1) = x
Next
with application.WorksheetFunction
Range("a21").Value=.sum(range("a1:a20"))
Range("a22").Value = .Average(Range("a1:a20"))
End With
End Sub

beto · 发表于 2011-7-8 16:58

谢谢楼主分享！

zjgzgs · 发表于 2011-7-9 05:31

谢谢楼主！

yanwh · 发表于 2011-7-9 06:44

谢谢楼主无私奉献

kaixin456 · 发表于 2011-7-9 09:19

真的是不错！感谢整理，给我们学习VBA带来了更好的理解。

houjia525 · 发表于 2011-7-10 09:20

好东西，收下了，慢慢研究

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

[推荐] 兰色幻想的VBA入门整理（全5期）