返回列表 上一主題 發帖

[發問] 如何將IF判別式寫成Case的型態

av8d

帖子
703 
主題
276 
精華
0 
積分
1005 
點名
1  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2024-5-29 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-9-4 14:32 | 只看該作者

[發問] 如何將IF判別式寫成Case的型態

If ComboBox1.Caption = "丰米" Then
    UserForm1.Hide
    UserForm2.Show
End If

If ComboBox1.Caption = "安心" Then
    UserForm1.Hide
    UserForm3.Show
End If

If ComboBox1.Caption = "池上" Then
    UserForm1.Hide
    UserForm4.Show
End If
收藏 分享

小俠客

帖子
83 
主題
17 
精華
0 
積分
105 
點名
0  
作業系統
XP 
軟體版本
XP 
閱讀權限
20 
註冊時間
2010-12-28 
最後登錄
2018-8-8 
2#
發表於 2012-9-4 17:16 | 只看該作者
select case ComboBox1.Caption
  case "丰米"
        UserForm1.Hide
        UserForm2.Show
  case "安心"
      UserForm1.Hide
     UserForm3.Show
  case "池上"
     UserForm1.Hide
     UserForm4.Show
end select

TOP

        靜思自在 : 人的眼睛長在前面，只看到別人的缺點，絲毫看不到自己的缺點。
返回列表 上一主題