[µo°Ý] Select Case ComboBox1~5 ¤º®e¬Û¦P¡A¸Ó¦p¦óÅý¥L°Ñ·Ó?

av8d

1.     Select Case ComboBox1.Value
   
2.                            
   
3.         Case ""
   
4.             MsgBox ("½Ð¿é¤JÃöÁä¦r")
   
5. 
   
6.         Case "¬K¤l¶¼­¹©±"
   
7.             UserForm1.Hide
   
8.             UserForm2.Show
   
9.             
   
10.         Case "¥©¦Ì Âû|»L|¤j|¤ý"
    
11.             UserForm1.Hide
    
12.             UserForm3.Show
    
13.             
    
14.         Case "¤j§Ö¬¡§ÖÀ\ÆU"
    
15.             UserForm1.Hide
    
16.             UserForm4.Show
    
17.             
    
18.         Case "¨Ó¨ÓÄÑ­¹À]"
    
19.             UserForm1.Hide
    
20.             UserForm5.Show
    
21.             
    
22.         Case "¤s®ü¬Ã¥­»ù¼öª£"
    
23.             UserForm1.Hide
    
24.             UserForm6.Show
    
25.             
    
26.         Case "¬õ³ì¦Û§UÀ\"
    
27.             UserForm1.Hide
    
28.             UserForm7.Show
    
29.             
    
30.         Case "¤û®a²ø"
    
31.             UserForm1.Hide
    
32.             UserForm8.Show
    
33.             
    
34.         Case "µ¾¬ü§ÖÀ\©±"
    
35.             UserForm1.Hide
    
36.             UserForm9.Show
    
37.             
    
38.         Case "­»´ä¬x°O¿Nþ"
    
39.             UserForm1.Hide
    
40.             UserForm10.Show
    
41.             
    
42.         Case "Àn¦×ºa"
    
43.             UserForm1.Hide
    
44.             UserForm11.Show
    
45.             
    
46.         Case "¦¿¤UÄÑ­¹"
    
47.             UserForm1.Hide
    
48.             UserForm12.Show
    
49.                     
    
50.         Case "®©Å¹¦À¤W¶º¥]"
    
51.             UserForm1.Hide
    
52.             UserForm13.Show
    
53.                     
    
54.         Case "¤p¼p®vÄÑÀ]"
    
55.             UserForm1.Hide
    
56.             UserForm14.Show
    
57.                            
    
58.         Case "ÂfÂc®õ¦¡§ÖÀ\"
    
59.             UserForm1.Hide
    
60.             UserForm15.Show
    
61.                            
    
62.         Case "Ún®v³Å"
    
63.             UserForm1.Hide
    
64.             UserForm16.Show
    
65.                            
    
66.         Case "­¹¥þ­¹¬ü¦Û§UÀ\"
    
67.             UserForm1.Hide
    
68.             UserForm17.Show
    
69.                   
    
70.         Case "¤ûÉd"
    
71.             UserForm1.Hide
    
72.             UserForm18.Show
    
73.                              
    
74.         Case "º®³£¤é¥»®Æ²z"
    
75.             UserForm1.Hide
    
76.             UserForm68.Show
    
77.                            
    
78.         Case "¶Â¤Y¹à¥P¯ó"
    
79.             UserForm1.Hide
    
80.             UserForm167.Show
    
81.   
    
82.     End Select

½Æ»s¥N½X

¤@¦@¦³¤­­Ó¤º®e³£¬Û¦Pªº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
¤º®e¦p³Ì¤W¤è~¦ý¬O·|ÀH®ÉÅܧó~
¨C¦¸Åܧ󳣭n½Æ»s¨ì¥H¤WComboBox5¤º~
¬O§_¦³Åܳqªº¤èªk?

Hsieh

¦^´_ 5# av8d


    Ar = Array("¬K¤l¶¼­¹©±", "¥©¦Ì Âû|»L|¤j|¤ý", "¤j§Ö¬¡§ÖÀ\ÆU", "¨Ó¨ÓÄÑ­¹À]", "¤s®ü¬Ã¥­»ù¼öª£")
For i=1 to 5
Controls("ComboBox" & i).List =Ar
Next

av8d

¦^´_ 4# Hsieh


    ¦A¦¸·PÁ¤j¤jªº¸Ñµª~§Ú·Q°Ý¤@¤U¤j¤j~
ComboBox1.List = Array("¬K¤l¶¼­¹©±", "¥©¦Ì Âû|»L|¤j|¤ý", "¤j§Ö¬¡§ÖÀ\ÆU", "¨Ó¨ÓÄÑ­¹À]", "¤s®ü¬Ã¥­»ù¼öª£")
ComboBox2.List = Array("¬K¤l¶¼­¹©±", "¥©¦Ì Âû|»L|¤j|¤ý", "¤j§Ö¬¡§ÖÀ\ÆU", "¨Ó¨ÓÄÑ­¹À]", "¤s®ü¬Ã¥­»ù¼öª£")
ComboBox3.List = Array("¬K¤l¶¼­¹©±", "¥©¦Ì Âû|»L|¤j|¤ý", "¤j§Ö¬¡§ÖÀ\ÆU", "¨Ó¨ÓÄÑ­¹À]", "¤s®ü¬Ã¥­»ù¼öª£")
ComboBox4.List = Array("¬K¤l¶¼­¹©±", "¥©¦Ì Âû|»L|¤j|¤ý", "¤j§Ö¬¡§ÖÀ\ÆU", "¨Ó¨ÓÄÑ­¹À]", "¤s®ü¬Ã¥­»ù¼öª£")
ComboBox5.List = Array("¬K¤l¶¼­¹©±", "¥©¦Ì Âû|»L|¤j|¤ý", "¤j§Ö¬¡§ÖÀ\ÆU", "¨Ó¨ÓÄÑ­¹À]", "¤s®ü¬Ã¥­»ù¼öª£")
¦pªG­n¦b¤s®ü¬Ã¥­»ù¼öª£·s¼W¤@­Ó~´N­n·s¼W¤­¦¸~¬O§_¥i¥H¥u·s¼W¤@¦¸!

Hsieh

¦^´_ 3# av8d


    userform.rar (17.69 KB)

¤U¸ü¦¸¼Æ: 13

2012-10-4 19:22

av8d

§â³o¾ã­Óselect case¥]¦¨¤@­Ó sub function¦p MyShowHide() ¦p¦ó?
­n¥Î¥u­n©I¥s
call MyShowHide(ComboBo ...
stillfish00 µoªí©ó 2012-10-4 15:41

    ¹Á¸Õ¤F¤@¤U~¤£¤Ó·|±Nselect case¥]¦¨¤@­Ó~
§Úªº¹Á¸Õ¤èªk¦p¤U:

1. Sub aa()
   
2.                            
   
3.     Select Case ""
   
4.             MsgBox ("½Ð¿é¤JÃöÁä¦r")
   
5. 
   
6.         Case "¬K¤l¶¼­¹©±"
   
7.             UserForm1.Hide
   
8.             UserForm2.Show
   
9.             
   
10.         Case "¥©¦Ì Âû|»L|¤j|¤ý"
    
11.             UserForm1.Hide
    
12.             UserForm3.Show
    
13.             
    
14.         Case "¤j§Ö¬¡§ÖÀ\ÆU"
    
15.             UserForm1.Hide
    
16.             UserForm4.Show
    
17.             
    
18.         Case "¨Ó¨ÓÄÑ­¹À]"
    
19.             UserForm1.Hide
    
20.             UserForm5.Show
    
21.             
    
22.         Case "¤s®ü¬Ã¥­»ù¼öª£"
    
23.             UserForm1.Hide
    
24.             UserForm6.Show
    
25.             
    
26.         Case "¬õ³ì¦Û§UÀ\"
    
27.             UserForm1.Hide
    
28.             UserForm7.Show
    
29.             
    
30.         Case "¤û®a²ø"
    
31.             UserForm1.Hide
    
32.             UserForm8.Show
    
33.             
    
34.         Case "µ¾¬ü§ÖÀ\©±"
    
35.             UserForm1.Hide
    
36.             UserForm9.Show
    
37.             
    
38.         Case "­»´ä¬x°O¿Nþ"
    
39.             UserForm1.Hide
    
40.             UserForm10.Show
    
41.             
    
42.         Case "Àn¦×ºa"
    
43.             UserForm1.Hide
    
44.             UserForm11.Show
    
45.             
    
46.         Case "¦¿¤UÄÑ­¹"
    
47.             UserForm1.Hide
    
48.             UserForm12.Show
    
49.                     
    
50.         Case "®©Å¹¦À¤W¶º¥]"
    
51.             UserForm1.Hide
    
52.             UserForm13.Show
    
53.                     
    
54.         Case "¤p¼p®vÄÑÀ]"
    
55.             UserForm1.Hide
    
56.             UserForm14.Show
    
57.                            
    
58.         Case "ÂfÂc®õ¦¡§ÖÀ\"
    
59.             UserForm1.Hide
    
60.             UserForm15.Show
    
61.                            
    
62.         Case "Ún®v³Å"
    
63.             UserForm1.Hide
    
64.             UserForm16.Show
    
65.                            
    
66.         Case "­¹¥þ­¹¬ü¦Û§UÀ\"
    
67.             UserForm1.Hide
    
68.             UserForm17.Show
    
69.                   
    
70.         Case "¤ûÉd"
    
71.             UserForm1.Hide
    
72.             UserForm18.Show
    
73.                              
    
74.         Case "º®³£¤é¥»®Æ²z"
    
75.             UserForm1.Hide
    
76.             UserForm68.Show
    
77.                            
    
78.         Case "¶Â¤Y¹à¥P¯ó"
    
79.             UserForm1.Hide
    
80.             UserForm167.Show
    
81.   
    
82.     End Select
    
83. End Sub

½Æ»s¥N½X

Call aa(ComboBox1.Value)

stillfish00

§â³o¾ã­Óselect case¥]¦¨¤@­Ó sub function¦p MyShowHide() ¦p¦ó?
­n¥Î¥u­n©I¥s
call MyShowHide(ComboBox1.Value)
call MyShowHide(ComboBox2.Value)
....
call MyShowHide(ComboBox5.Value)

­×§ï¤]¥u­n­×§ïMyShowHide´N¦n