VBA中嵌套的If…Then語句和Select Case語句

Sub TestConditions()
 Range("A1").Select
 If IsEmpty(ActiveCell) Then
    MsgBox "The cell is empty."
 Else
      If IsNumeric(ActiveCell.Value) Then
         If ActiveCell.Value = 0 Then
                ActiveCell.Offset(0, 1).Value ="zero"
         ElseIf ActiveCell.Value > 0 Then
                ActiveCell.Offset(0, 1).Value ="positive"
         ElseIf ActiveCell.Value < 0 Then
                ActiveCell.Offset(0, 1).Value ="negative"
         End If
       Else
         ActiveCell.Offset(0, 1).Value = "text"
       End If
  End If
End Sub

Select Case 測試表達式
Case 表達式1
如果表達式1匹配測試表達式的語句
Case 表達式2
如果表達式2匹配測試表達式的語句
Case 表達式N
如果表達式N匹配測試表達式的語句
Case Else
如果沒有表達式匹配測試表達式要執(zhí)行的語句
End Select

Sub TestButtons()
    Dim question As String
    Dim bts As Integer
    Dim myTitle As String
    Dim myButton As Integer
    question = "Do you want to open a new workbook?"
    bts = vbYesNoCancel + vbQuestion + vbDefaultButton1
    myTitle = "New Workbook"
    myButton = MsgBox(prompt:=question, buttons:=bts, _ title:=myTitle)
    Select Case myButton
         Case 6
                  Workbooks.Add
         Case 7
                  MsgBox "You can open a new book manually later."
         Case Else
                  MsgBox "You pressed Cancel."
         End Select
    End Sub

Select Case myButton
    Case vbYes
             Workbooks.Add
    Case vbNo
             MsgBox "You can open a new book manually later."
    Case Else
             MsgBox "You pressed Cancel."
End Select

Select Case myButton
    Case vbYes
             Workbooks.Add
    Case vbNo
             MsgBox "You can open a new book manually later."
    Case vbCancel
             MsgBox "You pressed Cancel."
End Select