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

[µo°Ý] ½Æ¿ïcombobox

[µo°Ý] ½Æ¿ïcombobox

¦p¦bcombobox1¿ï¾ÜA¤½¥q¡A¦bcombobox2Åã¥ÜA¤½¥qªº¤À¤½¥q¦WºÙ¡AVBA½XÀ³«ç¼Ë¼g¡H
¦hÁ¦U¤j¤j«ü±Ð¡I Test.rar (8.06 KB)

½Ð¦U°ª¤â©â®É¶¡«ü¾É¡AThahks

TOP

¦^´_ 2# jackysiu


   
¥¼©R¦W.png
2015-8-19 11:46
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

Thanks Hsieh

TOP

½Ð°Ýª©¥D,°õ¦æ«á¬°¦ó·|¥X²{°õ¦æ¶¥¬q¿ù»~'1004':,À³¥Îµ{¦¡©Îª«¥ó©w¸q¤Wªº¿ù»~
ComboBox2.ListFillRange = Range(a, a.End(x1Down)).Address

TOP

±NComboBox2.ListFillRange = Range(a, a.End(x1Down)).Address§ó§ï¬°
ComboBox2.RowSource = Range(a, a.End(x1Down)).Address

TOP

Private Sub ComboBox1_Change()
Dim xR As Range, Arr
Set xR = [B5].Cells(1, ComboBox1.ListIndex + 2)
Arr = Range(xR, xR.End(xlDown))
If xR(2) = "" Then Arr = Array(xR.Value)
ComboBox2.List = Arr
End Sub

End(xlDown)¡@·í¸ÓÄæ¥u¦³¤@­Ó¤¸¯À©Î¥þªÅ®É¡A¥i¯à¦³°ÝÃD¡A
©Ò¥H¥[¤JIf xR(2) = "" Then §PÂ_¡A
¤S³æ­Ó¤¸¯ÀµLªk§Î¦¨¡e°}¦C¡f¡A¥H.List±a¤J·|¿ù»~¡A
¬G¥H¡@Arr = Array(xR.Value)¡@±N³æ¤@¤¸¯ÀÂন°}¦C¡A
¦ý¸ê®Æ¤£³sÄò®É¡AEnd(xlDown)¡@¬OµLªk§ì¨ì¥þ³¡¸ê®Æ¡A³o³¡¥÷¤]¶·ª`·N¡ã¡ã

TOP

        ÀR«ä¦Û¦b : ª¾ÃÑ­n¥Î¤ßÅé·|¡A¤~¯àÅܦ¨¦Û¤vªº´¼¼z¡C
ªð¦^¦Cªí ¤W¤@¥DÃD