ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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

  1.     Select Case ComboBox1.Value
  2.                            
  3.         Case ""
  4.             MsgBox ("½Ð¿é¤JÃöÁä¦r")

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

§â³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

TOP

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

TOP

¦^´_ 3# av8d


    userform.rar (17.69 KB)
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 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¤@¦¸!

TOP

¦^´_ 5# av8d


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

TOP

        ÀR«ä¦Û¦b : ¦³Ä@©ñ¦b¤ß¸Ì¡A¨S¦³¨­Åé¤O¦æ¡A¥¿¦p¯Ñ¥Ð¤£¼½ºØ¡A¬Ò¬OªÅ¹L¦]½t¡C
ªð¦^¦Cªí ¤W¤@¥DÃD