c_c_lai

¦^´_ 1# ÂŤÑÄR¦À
ªþ¤W¤@­Ó½d¨Ò¡A°Ñ¦Ò¬Ý¬Ý¡I
¦h¦~¥¼±µÄ²¨é°Ó¨t²Î¤F¡A©|¤£ª¾§Aªº¥Î·N¡C
RTD¨Ï¥Î½d¨Ò.rar (18.85 KB)

¤U¸ü¦¸¼Æ: 6

2016-3-12 15:39

c_c_lai

¦^´_ 4# ÂŤÑÄR¦À
RTD¨Ï¥Î½d¨Ò¤¤¡G
A6 = Price
C3 = $TWT
=RTD("money.excel",,C$3,$A6)
¦³©ú½Tªº³æ¤¸¤º®e¥i´£¨Ñ´À´«¡C
¦p¦¹«K¥i±q AÄ椤±a¥X¤½¦¡À³¥Î:

1. Sub Ex()
   
2.     Dim rng As Range
   
3.    
   
4.     '  §A¥i¥H§Q¥Î For Each ~ Next ¤@¤@±N¤½¦¡±o¥X¡C
   
5.     For Each rng In Range("A5", Range("A" & Rows.Count).End(xlUp))
   
6.         '  Debug.Print rng.Address
   
7.         '  °²³]¤½¦¡­n¼g¦b "O" Äæ¡A§Y±q O5, O6, O7, ......., ¨ì³Ì«á¦C¡C
   
8.         rng.Offset(1, 14).Formula = "=RTD(""money.excel"",,C$3," & rng.Address & ")"
   
9.     Next
   
10. End Sub

½Æ»s¥N½X

¦Ó¦b§Aªº½d¨Ò¸Ì¡G
2330, 2317, 6505, .....¡A 1326 (°²³] °õ¦æ¨ì E900¡A E900 ¬O­n±a¤J 1326)
¸Õ°Ý³o¨Ç¥N½X§A­n¦p¦ó±oª¾¡A´«¥y¸Ü»¡¥N½X­n®Ú¾Ú­þ¸Ì¤~¯à¤@¤@¨D±o¡H
µL¤¤¥Í¦³¡H¤£¯à¥u¦³§A¦Û¤vª¾¹D¥N½X¬°¦ó¡Aµ{¦¡¥¦¬OµLªkµL¤¤¥Í¦³¡C