VBA控制語句

 

'1，IF判斷
Sub IfElseIfDemo()
    Dim Age As Integer
    Sheets("Sheet1").Select
    Age = InputBox("Please Input Age:", "Input Age Window","18")
    If Age <= 18 Then
      Range("A1").Value = "未成年人"
    ElseIf Age <= 30 Then
      Range("A1").Value = ""
    Else

    End If


End Sub

 

'2，Select...Case語句
Sub SelectCaseDemo()
    Dim Age As Integer
    Sheets("Sheet1").Select'先選中Sheet1
    Age = InputBox("Please","Window Name","18")
    Select Case Age
      Case Age <= 18
        Range("A1").Value = "未成年"
      Case Age = 18
        MsgBox("成年")
      Case Else
        MsgBox("未知")
    End Select
End Sub