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

zhaozyuan · 发表于 2009-10-3 12:12

'将文本框maxmin1到maxmin3置空
   '撰写:宏FANS
   'QQ:1158268815
   '日期:2009-10-3 12:05:30
001:Sub C清除maxmin()
002: With Slide1
003:       Call Maxmin("", .maxmin1)
004:       Call Maxmin("", .Maxmin2)
005:       Call Maxmin("", .Maxmin3)
006: End With
007:End Sub

zhaozyuan · 发表于 2009-10-3 12:15

   '撰写:宏FANS
   'QQ:1158268815
   '日期:2009-10-3 12:05:30
001:Function Max(ByVal t1, ByVal t2)
'If……else……end if条件判断语句
'如果t1>t2,则最大值max=t1；否则,max=t2
002: If t1 > t2 Then
003:       Max = t1
004: Else
005:       Max = t2
006: End If
007:End Function

zhaozyuan · 发表于 2009-10-3 12:16

'单引号“'”代表注释，表示其同一行后面的内容为注释部分，不执行
'在C语言中用/*……*/,表示“/*”和“*/”中间的部分为注释
   '撰写:宏FANS
   'QQ:1158268815
   '日期:2009-10-3 12:05:29
001:Sub TestMax()
'输入框inputbox(命令提示Prompt，标题Title，默认值Default)
002: t1 = Val(InputBox("请输入t1", "输入T1", 1))
003: t2 = Val(InputBox("请输入t1", "输入T1", 2))
'with slide1……end with，就对于slide1（幻灯片），
'从with 到end with中间的“.”后面的属性或者对象都属于slide1
004: With Slide1
      '函数调用
      'call 函数或者过程名(第一个参数,第二个参数)
005:       Call Maxmin("第一个数t1=" & t1, .maxmin1)
006:       Call Maxmin("第二个数t2=" & t2, .Maxmin2)
007:       Call Maxmin("最大值为：" & Max(t1, t2), .Maxmin3)
008: End With
'消息框 msgbox
009: MsgBox "最大数为" & Max(t1, t2)
010:End Sub

zhaozyuan · 发表于 2009-10-3 12:28

'比较前两个文本框的值的大小，结果写入第三个文本框
   '撰写:宏FANS
   'QQ:1158268815
   '日期:2009-10-3 12:05:30
001:Sub Q文本框取值()
002: With Slide1
003:       x = .maxmin1.Value
004:       y = .Maxmin2.Value
005:       .Maxmin3.Text = x & y
006: End With
007:End Sub

zhaozyuan · 发表于 2009-10-3 12:29

'判断语句测试
   '撰写:宏FANS
   'QQ:1158268815
   '日期:2009-10-3 12:05:30
001:Sub P判断语句()
002:S输入x:
003: x = InputBox("请输入成绩", "成绩", 65)
004: If x < 0 Or x > 100 Then
005:       Slide1.maxmin1 = "输入错误"
006:       GoTo S输入x
007: End If
'调用两个多条件判断函数
008: Call If多条件判断(x)
009: Call select多条件判断(x)
010:End Sub

zhaozyuan · 发表于 2009-10-3 12:31

   '撰写:宏FANS
   'QQ:1158268815
   '日期:2009-10-3 12:05:30
001:Function If多条件判断(ByVal x)
002: With Slide1
003:       .maxmin1.Text = x
004:       .Maxmin3.Text = ""
005:       If x >= 90 Then
006:       .Maxmin2.Text = "成绩优秀"
007:       ElseIf x >= 80 Then
008:       .Maxmin2.Text = "成绩良好"
009:       ElseIf x >= 70 Then
010:       .Maxmin2.Text = "成绩较好"
011:       ElseIf x >= 60 Then
012:       .Maxmin2.Text = "成绩合格"
013:       Else
014:       .Maxmin2.Text = "成绩较差"
015:       End If
016: End With
017:End Function

zhaozyuan · 发表于 2009-10-3 12:32

   '撰写:宏FANS
   'QQ:1158268815
   '日期:2009-10-3 12:05:31
001:Function select多条件判断(ByVal x)
002: With Slide1
003:       Select Case x
004:          Case Is >= 90
005:             .Maxmin3.Text = "成绩优秀"
006:          Case Is >= 80
007:             .Maxmin3.Text = "成绩良好"
008:          Case Is >= 70
009:             .Maxmin3.Text = "成绩较好"
010:          Case Is >= 60
011:             .Maxmin3.Text = "成绩合格"
012:          Case Else
013:             .Maxmin3.Text = "成绩较差"
014:       End Select
015: End With
016:End Function

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

   '撰写:宏FANS
   'QQ:1158268815
   '日期:2009-10-3 13:10:12
Sub do语句()
Dim i, J As Integer
With Slide1
      .Maxmin3.Text = ""
      MsgBox "开始"
      tdo = Timer
      Do While i <= 100
         .maxmin1.Text = i
         .Maxmin2.Text = J
         i = i + 1
         J = J + i
      Loop
      .Maxmin3.Text = "用时：" & Format(Timer - tdo, "*#.###") & "秒"
End With
MsgBox "结束"
End Sub

ljx63426 · 发表于 2009-10-3 13:45

太好了,很适合初学者,好好学习,并向朋友推荐学习.

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

原帖由 ljx63426 于 2009-10-3 13:45 发表
太好了,很适合初学者,好好学习,并向朋友推荐学习.

谢谢

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

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

清空文本框

最大值比较函数

文本框取值

判断语句

If多条件判断

select多条件判断

do语句