EXCEL\PPT中同玩VBA——VBA编程基础及简单程序实例(从头开始)

jxb8088

初学者的福音！

zhaozyuan

原帖由 jxb8088 于 2009-10-3 13:57 发表
初学者的福音！

过奖 过奖 喜欢就好

VBA2010

可以把PPT传上看看不？

zhaozyuan

原帖由 VBA2010 于 2009-10-3 14:06 发表
可以把PPT传上看看不？

代码还没写完 让大家先看看吧

zhaozyuan

'循环语句会几个
      '撰写:宏FANS
      'QQ:1158268815
      '日期:2009-10-3 14:55:00
Sub do语句2()
    Dim i, J As Integer
    With Slide1
        .Maxmin3.Text = ""
        MsgBox "开始"
        tdo = Timer
        Do While i <= 100
            i = i + 2
            J = J + i
        Loop
         .maxmin1.Text = i
         .Maxmin2.Text = J
        .Maxmin3.Text = "用时：" & Format(Timer - tdo, "0.000") & "秒"
    End With
    MsgBox "结束"
End Sub



[ 本帖最后由 zhaozyuan 于 2009-10-3 14:58 编辑 ]

zhaozyuan

      '撰写:宏FANS
      'QQ:1158268815
      '日期:2009-10-3 14:55:01
Sub for语句()
    Dim i, J As Integer
    With Slide1
        MsgBox "开始"
        t = Timer
        For i = 1 To 100
            J = J + i
            .maxmin1.Text = i
            .Maxmin2.Text = J
        Next i
        .Maxmin3.Text = "用时：" & Format(Timer - t, "*#.###") & "秒"
    End With
    MsgBox "结束"
End Sub

zhaozyuan

for语句2      '撰写:宏FANS
      'QQ:1158268815
      '日期:2009-10-3 14:55:01
Sub for语句()
    Dim i, J As Integer
    With Slide1
        MsgBox "开始"
        t = Timer
        For i = 1 To 100
            J = J + (i+1)
        Next i
            .maxmin1.Text = i
            .Maxmin2.Text = J
        .Maxmin3.Text = "用时：" & Format(Timer - t, "0.000") & "秒"
    End With
    MsgBox "结束"
End Sub

zhaozyuan

      '撰写:宏FANS
      'QQ:1158268815
      '日期:2009-10-3 16:13:12
Sub while语句()
C清除maxmin
With Slide1
    While score <= 1000
        score = score + 40
        .maxmin1 = score
    Wend
End With
End Sub

zhaozyuan

      '撰写:宏FANS
      'QQ:1158268815
      '日期:2009-10-3 17:07:08
Sub ifgoto语句()
MsgBox "开始"
t = Timer
With Slide1
自加:
    i = i + 1
    J = J + i
    .maxmin1.Text = i
    .Maxmin2.Text = J
    If i < 100 Then GoTo 自加
     .Maxmin3.Text = "用时:" & Format(Timer - t, "*#.###") & "秒"
     Debug.Print Timer - t
End With
MsgBox "结束"
End Sub

lt101

朋友，中秋佳节还在工作，谢谢你了