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

[µo°Ý] VBA¤U©Ô¦¡¿ï³æ(¤w¸Ñ¨M)

±NAÄæ¸ê®Æ©w¸q°ÊºA½d³òªº¦WºÙ
ComboBoxªºRowSourceÄݩʳ]¬°¸Ó¦WºÙ
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 5# arcticfox


    option.gif
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

°ÊºA©w¸q½d³òªº¦WºÙ¡A³Ì¤jªº¦n³B´N¦b©ó¥i¥H¦]À³¸ê®Æ¶q¦¨ªø
½Ðª`·N¹ÏÀɤ¤©w¸q¦WºÙªº¤½¦¡
©w¸q¦n¦WºÙ«á¡A¦bVBA¥u»Ý¤Þ¥Î¸Ó¦WºÙ´N¯à«ü©w¨ì¸Ó½d³ò
RowSourceÄÝ©Ê¥²¶·¦bÄÝ©Êªí¤º³]©w
LISTÄÝ©Ê¥i©óªí³æªì©l¤Æªº¦P®É¡A±N¤U©Ô²M³æªºLISTÄݩʳ]¬°¸Ó¦WºÙ´N¯à¨Ï¥Î
  1. Private Sub UserForm_Initialize()
  2. ComboBox1.List = [x].Value
  3. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¥»©«³Ì«á¥Ñ Hsieh ©ó 2011-5-19 17:09 ½s¿è

§AªºSales©Ò©w¸q¥X¨Óªº·|¬O¬Æ»ò?
INDEX
·|¶Ç¦^®Ú¾ÚÄæ¦C¸¹½X¯Á¤Þ©Ò¿ï¨ú¤§ªí®æ©Î°}¦C¤¤¤@­Ó¤¸¯Àªº­È¡C
¥L¬O¤@­Ó­È¡A¨Ã¤£¬O¤@­Ó°}¦C©Î¬OÀx¦s®æ°Ñ·Ó
·íµMµLªk·í¦¨LIST
¤£¹LÀ³¥i³]¦¨RowSource
§Aªº°ÝÃD¦ü¥G¤£¬O¦b©ó¦p¦ó³]©w¤U©Ô²M³æ
¦Ó¬OÅܼƵ¹­Èªº°ÝÃD
§Aªº«È¤á¿ï¾Ü«á­n¹ïÀ³Sales
MATCH(±M®×¬ö¿ý!$C$2:$C$1000, «È¤á¸ê®ÆºÞ²z!$A$2:$A$1000,0)³o¬O­n±o¨ì¬Æ»ò¸ê®Æ?
§Ú·Q§AÀ³¸Ó±q©w¸q¦WºÙ¤½¦¡¥hÀˬd
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¥ý¬Ý³o¥y
Sales_P.FormulaR1C1 = "=Sales"
¦b³o¥y¤§«e§A¦³±NSales_Pµ¹­È¶Ü?
FormulaR1C1 ÄݩʬOÀx¦s®æªº¤½¦¡
³oÀx¦s®æÅܼƥ²¶·¥ýSET
Set Sales_P=Àx¦s®æ
Sales_P.FormulaR1C1 = "=Sales"
³o¼Ë¤~·|¦¨¥ß¡A¤£µMSales_P¬ONothing
§Ú²q§A¬O­n§âSales_P«ü©w¦¨¦WºÙSales
¨º»ò´N¥ÎSet Sales_P=[Sales]
³o¯Âºé²q´ú¡A­n¤F¸Ñ§Aªº«ä¸ô¤~¯àµ¹§A¥¿½T¤è¦V
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ­n¥Î¤ß¡A¤£­n¾Þ¤ß¡B·Ð¤ß¡C
ªð¦^¦Cªí ¤W¤@¥DÃD