¤£¦n·N«ä ·s¤â¤S¨Ó½Ð±Ð ¸ê®Æ¤ñ¹ï°ÝÃD ³Â·Ð¦U¦ì¤F
- ©«¤l
- 26
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 33
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- OFFICE2003
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-7-19
- ³Ì«áµn¿ý
- 2013-5-13
|
¦^´_ 13# ffntldj
©êºp¨S»¡²M·¡ À³¬O¥H¤U³o¬q §ï¦¨¿ï¾ÜÀÉ®×
With Workbooks.Open '("D:\¤uµ{®v°e¥ó½d¨Ò.xls") 'Àɮ׸ô®|¦Û¦æקï |
|
|
|
|
|
|
- ©«¤l
- 26
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 33
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- OFFICE2003
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-7-19
- ³Ì«áµn¿ý
- 2013-5-13
|
¤F¸Ñ ÁÂÁ§A ¥Ø«e¤w¥Î³oÓ¬[ºc¥h«Ø¥ß§Ú·Qnªº¥\¯à
¥t¥~¸ò§A½Ð°Ý¤@Ó°ÝÃD ¦pªG§Ú·Qn§â¿é¤J§ï¦¨¥i¥H¿ï¾ÜÀÉ®×
¬O¤£¬O¥Îapplication.getopenfilename
¸Õ¤F¤@¤U ¦b With .Sheets("b") ·|¦³°ÝÃD
·P¿E¤£ºÉ |
|
|
|
|
|
|
- ©«¤l
- 26
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 33
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- OFFICE2003
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-7-19
- ³Ì«áµn¿ý
- 2013-5-13
|
to ¶W¯Åª©¥D ¤U±ªº¨ºÓ¥\¯à§Ú¼g¥X¨Ó¤F!! ·PÁ ¨ºÓmystr¤£¥Î©w¸q¨ºÓ°ÝÃD¦b³Â·Ð§A±Ð§Ú¤@¤U ÁÂÁ |
|
|
|
|
|
|
- ©«¤l
- 26
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 33
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- OFFICE2003
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-7-19
- ³Ì«áµn¿ý
- 2013-5-13
|
ÁÂÁª©¥D§A¼ö¤ßªº¦^ÂÐ ¯uªº«Ü·PÁÂ
¦³°ÝÃD·Q½Ð±Ð ¤W±³o¦Ucodeªºmystr ¤£¥Î©w¸q¹À?? ¤£¥Î¥Î¨ìDictionary¤F?³o¼Ë¼g¬O©w¸qmystr¬O¯x°}ªº·N«ä¹À?
§ÚÀ³¸Ó¬O¤£¤Àpart id §âope_no¼g¶i¥hÀx¦s®æ¸Ì¨S¿ù
¦ý¬Opart_id ¬On¤ÀÀx¦s®æªº ¦p¤U± y z ³o¼Ë
part_id y z
('356','456','556')
§Ú·|¦n¦n§V¤Oªº ÁÂÁ |
|
|
|
|
|
|
- ©«¤l
- 26
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 33
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- OFFICE2003
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-7-19
- ³Ì«áµn¿ý
- 2013-5-13
|
ÁÂÁ¨â¦ìª©¥D, code§Ú¤w¸g¬Ý§¹¤F¤]¬ÝÀ´¤F,¤]¦Û¤v¸ÕµÛ°µ¤F¤@¨Ç×§ï «D±`·PÁÂ
¦³¨âÓ°ÝÃD·Q½Ð±Ð
²Ä¤@Ó°ÝÃD´N¬O ¥H¤U³o¬qcode¬°¤°»ò¨S¦³¹ïÀ³ªºend if? ¬O¤£»Ýn¶Ü?
If a = "part_id" Then mystr = a.Offset(, 1).Text
²Ä¤GÓ°ÝÃD¬O
³oÓcode¥Dn¬O§âpart_id ¥i¥H¸ò ope_no¥h°µ¹ïÀ³ ,¦p¤Uªí¥Ü
part_id y z
('356','456') ('556')
¦pªG§Ú·Q§ï¦¨
part_id y z
('356','456','556')
À³¸Ó¬Oקï¥H¤U³o¤@¬qcode,¸Õ¤F¤@¤U¤È,¥i§_¦A±Ð§Ú¤@¤U ·P¿E¤£ºÉ
If d(mystr) = "" Then
d(mystr) = "'" & Right(a.Offset(, 1), 3) & "'"
Else
d(mystr) = d(mystr) & ",'" & Right(a.Offset(, 1), 3) & "'"
End If |
|
|
|
|
|
|
- ©«¤l
- 26
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 33
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- OFFICE2003
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-7-19
- ³Ì«áµn¿ý
- 2013-5-13
|
@¶W¯Åª©¥D ÁÂÁ§A §Ú¦b¬ã¨s¤@¤U§Aªº¼gªk
@ª©¥D ©êºp §Ú¦b´yz²M·¡¤@ÂI ÁÂÁ |
|
|
|
|
|
|