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

174312396

我在努力中。

20052525

一直想学习VBA,现在终于有机会了。
十分感谢楼主。

好001

学习了..感谢

老师辛苦了

smh_asl

浅显易懂，十分有用，学习中

alwstr

看到160楼，不错不错，慢慢研究 慢慢学习，
感谢疯子的精彩分享！！
3/23  下午 330楼
3/30 700
3/31 1200 水分较多 所以看的快了

[ 本帖最后由 alwstr 于 2010-3-31 16:38 编辑 ]

mmqq

已下载，慢慢消化，谢谢!

alwstr

作业1
求阶乘
代码如下
Sub 求阶乘()
    Dim I&, J&
    J = 1
    For I = 1 To 10
        J = J * I
    Next
    MsgBox "10的阶乘为" & J
End Sub

alwstr

作业2 所有小于10000的2的整数次方的和为

Sub 求和()
    Dim i&, J&
    i = 2
    Do While i <= 10000
       J = J + i
       i = i * 2
    Loop
    MsgBox "所有小于10000的2的整数次方的和为" & J
End Sub

[ 本帖最后由 alwstr 于 2010-3-23 11:58 编辑 ]

alwstr

select case 语句学习
（未考虑闰月）

Sub 天数判断()
   Dim i&
   Select Case [a1].Value
   Case 1, 3, 5, 7, 8, 10, 12
   i = 31
   Case 4, 6, 9, 11
   i = 30
   Case 2
   i = 28
   End Select
   MsgBox [a1].Value & "月的天数为" & i
End Sub

学习结贴：已经学至1553楼

[ 本帖最后由 alwstr 于 2010-4-7 16:19 编辑 ]

little_u

辛苦了！非常感激！