菜鸟谈VBA最最基础入门《原创》

hongrids · 发表于 2010-2-23 16:16

讲的非常通俗易懂，举得例子也很形象，非常佩服老师，以后一定好好学习！

ee2000 · 发表于 2010-2-23 18:34

真是太感谢了。

ee2000 · 发表于 2010-2-23 18:35

感谢楼主！

dw6688 · 发表于 2010-2-23 21:03

for-to-step next语句的使用

求0---1000偶数的和

Sub test3()
Dim Gsum As Long, i As Integer
For i = 0 To 1000 Step 2
Gsum = Gsum + i
Next
MsgBox "0-1000偶数的和是：" & Gsum
End Sub

[ 本帖最后由 dw6688 于 2010-2-23 21:04 编辑 ]

dw6688 · 发表于 2010-2-23 21:26

for each-next语句

把工作薄中的保个表名写在B列中

Sub sht() '在B列中写出该工作薄的按顺序的工作表名
Dim i As Integer, sht As Worksheet
i = 1
For Each sht In Worksheets
Cells(i, 2) = sht.Name
i = i + 1
Next
End Sub

dw6688 · 发表于 2010-2-23 21:35

看了两三天我才看到第十五楼，看得我好累哟，

幸亏有楼主这么通俗易懂，生动恢谐的语言，要不我都看不下去了，争取把它全部看完

hhzjxss · 发表于 2010-2-23 21:46

这帖子写得好，可以推荐大家看看！值得学习推广！

zztt168 · 发表于 2010-2-24 10:02

感谢楼主的无私奉献！

huangwenqian · 发表于 2010-2-24 11:36

dw6688 · 发表于 2010-2-24 15:53

用do while-loop和do-loop while求1-1000间能被5整除的数的和

Sub test4() '1000以内能被5整除的数的和
Dim i As Integer, Gsum As Long
Do While i <= 1000
Gsum = Gsum + i
i = i + 5
Loop
[a3] = Gsum
End Sub

Sub test5() '1000以内能被5整除的数的和
Dim i As Integer, Gsum As Long
Do
Gsum = Gsum + i
i = i + 5
Loop While i <= 1000
[a4] = Gsum
End Sub

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