VBA控制语句

 

  
  
  
  
  1. '1,IF判断 
  2. Sub IfElseIfDemo() 
  3.     Dim Age As Integer 
  4.     Sheets("Sheet1").Select 
  5.     Age = InputBox("Please Input Age:", "Input Age Window","18") 
  6.     If Age <= 18 Then 
  7.       Range("A1").Value = "未成年人" 
  8.     ElseIf Age <= 30 Then 
  9.       Range("A1").Value = "" 
  10.     Else 
  11.   
  12.     End If 
  13.  
  14.   
  15. End Sub 

 

  
  
  
  
  1. '2,Select...Case语句 
  2. Sub SelectCaseDemo() 
  3.     Dim Age As Integer 
  4.     Sheets("Sheet1").Select'先选中Sheet1 
  5.     Age = InputBox("Please","Window Name","18"
  6.     Select Case Age 
  7.       Case Age <= 18  
  8.         Range("A1").Value = "未成年" 
  9.       Case Age = 18 
  10.         MsgBox("成年"
  11.       Case Else 
  12.         MsgBox("未知"
  13.     End Select 
  14. End Sub 

 

你可能感兴趣的:(职场,休闲,VBA控制语句,VBA-IF,VBA-Select-Case)