返回列表 上一主題 發帖

[發問] Select Case ComboBox1~5 內容相同，該如何讓他參照?

av8d

帖子
710 
主題
280 
精華
0 
積分
1016 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2025-1-19 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-10-4 14:19 | 顯示全部帖子

[發問] Select Case ComboBox1~5 內容相同，該如何讓他參照?

  1.     Select Case ComboBox1.Value
  2.                            
  3.         Case ""
  4.             MsgBox ("請輸入關鍵字")

  6.         Case "春子飲食店"
  7.             UserForm1.Hide
  8.             UserForm2.Show
  9.             
  10.         Case "巧米 雞|腿|大|王"
  11.             UserForm1.Hide
  12.             UserForm3.Show
  13.             
  14.         Case "大快活快餐廳"
  15.             UserForm1.Hide
  16.             UserForm4.Show
  17.             
  18.         Case "來來麵食館"
  19.             UserForm1.Hide
  20.             UserForm5.Show
  21.             
  22.         Case "山海珍平價熱炒"
  23.             UserForm1.Hide
  24.             UserForm6.Show
  25.             
  26.         Case "紅喬自助餐"
  27.             UserForm1.Hide
  28.             UserForm7.Show
  29.             
  30.         Case "牛家莊"
  31.             UserForm1.Hide
  32.             UserForm8.Show
  33.             
  34.         Case "翔美快餐店"
  35.             UserForm1.Hide
  36.             UserForm9.Show
  37.             
  38.         Case "香港洪記燒臘"
  39.             UserForm1.Hide
  40.             UserForm10.Show
  41.             
  42.         Case "鴨肉榮"
  43.             UserForm1.Hide
  44.             UserForm11.Show
  45.             
  46.         Case "江下麵食"
  47.             UserForm1.Hide
  48.             UserForm12.Show
  49.                     
  50.         Case "悟饕池上飯包"
  51.             UserForm1.Hide
  52.             UserForm13.Show
  53.                     
  54.         Case "小廚師麵館"
  55.             UserForm1.Hide
  56.             UserForm14.Show
  57.                            
  58.         Case "檸檬泰式快餐"
  59.             UserForm1.Hide
  60.             UserForm15.Show
  61.                            
  62.         Case "猋師傅"
  63.             UserForm1.Hide
  64.             UserForm16.Show
  65.                            
  66.         Case "食全食美自助餐"
  67.             UserForm1.Hide
  68.             UserForm17.Show
  69.                   
  70.         Case "牛丼"
  71.             UserForm1.Hide
  72.             UserForm18.Show
  73.                              
  74.         Case "漁都日本料理"
  75.             UserForm1.Hide
  76.             UserForm68.Show
  77.                            
  78.         Case "黑丸嫩仙草"
  79.             UserForm1.Hide
  80.             UserForm167.Show
  81.   
  82.     End Select
複製代碼
一共有五個內容都相同的Select Case ComboBox
Select Case ComboBox1.Value
End Select
Select Case ComboBox2.Value
End Select
Select Case ComboBox3.Value
End Select
Select Case ComboBox4.Value
End Select
Select Case ComboBox5.Value
End Select
內容如最上方~但是會隨時變更~
每次變更都要複製到以上ComboBox5內~
是否有變通的方法?
收藏 分享

av8d

帖子
710 
主題
280 
精華
0 
積分
1016 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2025-1-19 
2#
發表於 2012-10-4 17:12 | 顯示全部帖子
把這整個select case包成一個 sub function如 MyShowHide() 如何?
要用只要呼叫
call MyShowHide(ComboBo ...
stillfish00 發表於 2012-10-4 15:41



    嘗試了一下~不太會將select case包成一個~
我的嘗試方法如下:
  1. Sub aa()
  2.                            
  3.     Select Case ""
  4.             MsgBox ("請輸入關鍵字")

  6.         Case "春子飲食店"
  7.             UserForm1.Hide
  8.             UserForm2.Show
  9.             
  10.         Case "巧米 雞|腿|大|王"
  11.             UserForm1.Hide
  12.             UserForm3.Show
  13.             
  14.         Case "大快活快餐廳"
  15.             UserForm1.Hide
  16.             UserForm4.Show
  17.             
  18.         Case "來來麵食館"
  19.             UserForm1.Hide
  20.             UserForm5.Show
  21.             
  22.         Case "山海珍平價熱炒"
  23.             UserForm1.Hide
  24.             UserForm6.Show
  25.             
  26.         Case "紅喬自助餐"
  27.             UserForm1.Hide
  28.             UserForm7.Show
  29.             
  30.         Case "牛家莊"
  31.             UserForm1.Hide
  32.             UserForm8.Show
  33.             
  34.         Case "翔美快餐店"
  35.             UserForm1.Hide
  36.             UserForm9.Show
  37.             
  38.         Case "香港洪記燒臘"
  39.             UserForm1.Hide
  40.             UserForm10.Show
  41.             
  42.         Case "鴨肉榮"
  43.             UserForm1.Hide
  44.             UserForm11.Show
  45.             
  46.         Case "江下麵食"
  47.             UserForm1.Hide
  48.             UserForm12.Show
  49.                     
  50.         Case "悟饕池上飯包"
  51.             UserForm1.Hide
  52.             UserForm13.Show
  53.                     
  54.         Case "小廚師麵館"
  55.             UserForm1.Hide
  56.             UserForm14.Show
  57.                            
  58.         Case "檸檬泰式快餐"
  59.             UserForm1.Hide
  60.             UserForm15.Show
  61.                            
  62.         Case "猋師傅"
  63.             UserForm1.Hide
  64.             UserForm16.Show
  65.                            
  66.         Case "食全食美自助餐"
  67.             UserForm1.Hide
  68.             UserForm17.Show
  69.                   
  70.         Case "牛丼"
  71.             UserForm1.Hide
  72.             UserForm18.Show
  73.                              
  74.         Case "漁都日本料理"
  75.             UserForm1.Hide
  76.             UserForm68.Show
  77.                            
  78.         Case "黑丸嫩仙草"
  79.             UserForm1.Hide
  80.             UserForm167.Show
  81.   
  82.     End Select
  83. End Sub
複製代碼
Call aa(ComboBox1.Value)

TOP

av8d

帖子
710 
主題
280 
精華
0 
積分
1016 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2025-1-19 
3#
發表於 2012-10-5 10:20 | 顯示全部帖子
回復 4# Hsieh


    再次感謝大大的解答~我想問一下大大~
ComboBox1.List = Array("春子飲食店", "巧米 雞|腿|大|王", "大快活快餐廳", "來來麵食館", "山海珍平價熱炒")
ComboBox2.List = Array("春子飲食店", "巧米 雞|腿|大|王", "大快活快餐廳", "來來麵食館", "山海珍平價熱炒")
ComboBox3.List = Array("春子飲食店", "巧米 雞|腿|大|王", "大快活快餐廳", "來來麵食館", "山海珍平價熱炒")
ComboBox4.List = Array("春子飲食店", "巧米 雞|腿|大|王", "大快活快餐廳", "來來麵食館", "山海珍平價熱炒")
ComboBox5.List = Array("春子飲食店", "巧米 雞|腿|大|王", "大快活快餐廳", "來來麵食館", "山海珍平價熱炒")
如果要在山海珍平價熱炒新增一個~就要新增五次~是否可以只新增一次!

TOP

        靜思自在 : 做好事不能少我一人，做壞事不能多我一人。
返回列表 上一主題