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

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

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

¦pªþ¥ó Test 20121108.rar (10.21 KB)

½Ð°Ý ¦b°µCombox¿ï¾Ü®Éªº®æ¦¡ ¦³¨S¦³¿ìªk¤]Åý¥¦Åã¥Ü"YYYY MMM"ªº®æ¦¡
boyao

¦^´_ 1# boyao
¸Õ¸Õ¬Ý
  1. Private Sub UserForm_Activate()
  2.     With ComboBox1
  3.         .List = Sheet1.Range("a5:a16").Value
  4.         For I = 0 To .ListCount - 1
  5.             .List(I, 0) = Format(.List(I, 0), "yyyy mmm")
  6.         Next
  7.     End With
  8. End Sub
½Æ»s¥N½X

TOP

¦^´_ 2# GBKEE


ÁÂÁÂ....
§Ú­ì¥»¥u¬O·Q®æ¦¡Âà´«¦Ó¤w.....
¦]¬°"¤é´Á"·|Âà¤J¨ä¥L¶µ¥ØªºÀ³¥Î
¬Ý¨Ó¬O¨S¿ìªk¹F¦¨­ì¥»ªº¥Øªº
§â¨Ó·½³]¦¨2ºØ.À³¸Ó¬O¤ñ¸û®e©öªº°µªk
boyao

TOP

¦^´_ 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

¦^´_ 4# Hsieh


ÁÂÁÂ....
­ì¨Ó¥i¥H¥Î³oºØ¤è¦¡ª½±µÂà´«¸m¤J...
boyao

TOP

        ÀR«ä¦Û¦b : ¡i°±º¢¤£«e¡A²×µL©Ò±o¡j¤H³£°g©ó´M§ä©_ÂÝ¡A¦]¦Ó°±º¢¤£«e¡FÁa¨Ï®É¶¡¦A¦h¡B¸ô¦Aªø¡A¤]¤FµL¥Î³B¡A²×µL©Ò±o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD