返回列表 上一主題 發帖

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

av8d

帖子
712 
主題
281 
精華
0 
積分
1019 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2025-5-22 
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

        靜思自在 : 【生命在呼吸間】佛陀說：「生命在呼吸間。」人無法管住自己的生命，更無法擋住死期，讓自己永住人間。既然生命去來這麼無常，我們更應該好好地愛惜它、利用它、充實它，讓這無常、寶貴的生命，散發它真善美的光輝，映照出生命真正的價值。
返回列表 上一主題