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

zhaozyuan

'将文本框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

      '撰写:宏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

'单引号“'”代表注释，表示其同一行后面的内容为注释部分，不执行
'在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

'比较前两个文本框的值的大小，结果写入第三个文本框
      '撰写:宏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

'判断语句测试
      '撰写:宏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

      '撰写:宏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

      '撰写:宏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

      '撰写:宏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

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

zhaozyuan

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

谢谢