返回列表 上一主題 發帖

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

av8d

帖子
703 
主題
276 
精華
0 
積分
1005 
點名
1  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2024-5-29 
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內~
是否有變通的方法?
收藏 分享

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
2#
發表於 2012-10-4 15:41 | 只看該作者
把這整個select case包成一個 sub function如 MyShowHide() 如何?
要用只要呼叫
call MyShowHide(ComboBox1.Value)
call MyShowHide(ComboBox2.Value)
....
call MyShowHide(ComboBox5.Value)

修改也只要修改MyShowHide就好

TOP

av8d

帖子
703 
主題
276 
精華
0 
積分
1005 
點名
1  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2024-5-29 
3#
發表於 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

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
204  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-9-16 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
4#
發表於 2012-10-4 19:22 | 只看該作者
回復 3# av8d


    userform.rar (17.69 KB)
學海無涯_不恥下問

TOP

av8d

帖子
703 
主題
276 
精華
0 
積分
1005 
點名
1  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2024-5-29 
5#
發表於 2012-10-5 10:20 | 只看該作者
回復 4# Hsieh


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

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
204  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-9-16 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
6#
發表於 2012-10-5 11:17 | 只看該作者
回復 5# av8d


    Ar = Array("春子飲食店", "巧米 雞|腿|大|王", "大快活快餐廳", "來來麵食館", "山海珍平價熱炒")
For i=1 to 5
Controls("ComboBox" & i).List =Ar
Next
學海無涯_不恥下問

TOP

        靜思自在 : 【為善競爭】人生要為善競爭，分秒必爭。
返回列表 上一主題