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

jxb8088 · 发表于 2009-10-3 13:57

初学者的福音！

zhaozyuan · 发表于 2009-10-3 13:58

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

过奖过奖喜欢就好

VBA2010 · 发表于 2009-10-3 14:06

可以把PPT传上看看不？

zhaozyuan · 发表于 2009-10-3 14:35

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

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

zhaozyuan · 发表于 2009-10-3 14:56

'循环语句会几个
   '撰写:宏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 · 发表于 2009-10-3 15:00

   '撰写:宏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 · 发表于 2009-10-3 15:22

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 · 发表于 2009-10-3 16:14

   '撰写:宏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 · 发表于 2009-10-3 17:08

   '撰写:宏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 · 发表于 2009-10-3 18:23

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

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

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

do语句2

for语句1