Board logo

標題: [發問] Select Case ComboBox1~5 內容相同，該如何讓他參照? [打印本頁]
作者: av8d    時間: 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    時間: 2012-10-4 15:41

把這整個select case包成一個 sub function如 MyShowHide() 如何?
要用只要呼叫
call MyShowHide(ComboBox1.Value)
call MyShowHide(ComboBox2.Value)
....
call MyShowHide(ComboBox5.Value)

修改也只要修改MyShowHide就好
作者: av8d    時間: 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)
作者: Hsieh    時間: 2012-10-4 19:22

回復 3# av8d


    [attach]12697[/attach]
作者: av8d    時間: 2012-10-5 10:20

回復 4# Hsieh


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

回復 5# av8d


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



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)