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

hongrids

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

ee2000

真是太感谢了。

ee2000

感谢楼主！

dw6688

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

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

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

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

hhzjxss

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

zztt168

感谢楼主的无私奉献！

huangwenqian

dw6688

用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