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

[µo°Ý] combox¿ï¾Ü®Éªº®æ¦¡°ÝÃD

¦^´_ 3# boyao
play.gif
  1. Private Sub ComboBox1_Change()
  2. Sheet1.[A1] = Sheet1.Range("a5:a16")(ComboBox1.ListIndex + 1)
  3. End Sub

  4. Private Sub UserForm_Initialize()
  5. For Each a In Sheet1.Range("a5:a16")
  6.   ComboBox1.AddItem a.Text
  7. Next
  8. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : µêªÅ¦³ºÉ¡D§ÚÄ@µL½a¡AµoÄ@®e©ö¦æÄ@Ãø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD