¦p¦ó§Ö³t½s¿è¤j¶qÀx¦s®æ

ÂŤÑÄR¦À

¤U¸ü (316.23 KB)

2016-3-12 11:07

½Ð°Ý¤j¤j¡A§Ú±µ¨é°ÓRTDªº¸ê®Æ¡A§Ú§Ë¦n«á¥X²{¦p¤W¹Ï¨º¼Ë¡A¤§«á­n¦b¨C­ÓÀx¦s®æ¤º«öF2+Enter¤~¦³¿ìªk³s±µ¨ì¨é°Ó¨ºÃä¡A¤~·|¥X²{¼Æ¦r¡A¦ý¦]¬°¸ê®Æ«Ü¦h¡A­n¦p¦ó°µ¤~¯à°õ¦æ¤j¶q¥B§Ö³tªº½s¿èÀx¦s®æ©O??

¤W¹Ï¦³¼Æ¦rªº³¡¤À¬O¤w¸g°õ¦æF2+Enter¡A¤½¦¡³¡¤À¬OÁÙ¨S¦³°õ¦æ

Sub ¥¨¶°1()
'
' ¥¨¶°1 ¥¨¶°
'

'
    ActiveCell.FormulaR1C1 = "=RTD(""money.excel"", ,2330,""BestBidVolume2"")"
    Range("E3").Select
    ActiveCell.FormulaR1C1 = "=RTD(""money.excel"", ,2317,""BestBidVolume2"")"
    Range("E4").Select
    ActiveCell.FormulaR1C1 = "=RTD(""money.excel"", ,6505,""BestBidVolume2"")"
    Range("E5").Select
    ActiveCell.FormulaR1C1 = "=RTD(""money.excel"", ,2412,""BestBidVolume2"")"
    Range("E6").Select
    ActiveCell.FormulaR1C1 = "=RTD(""money.excel"", ,1303,""BestBidVolume2"")"
    Range("E7").Select
    ActiveCell.FormulaR1C1 = "=RTD(""money.excel"", ,1301,""BestBidVolume2"")"
    Range("E8").Select
    ActiveCell.FormulaR1C1 = "=RTD(""money.excel"", ,2882,""BestBidVolume2"")"
    Range("E9").Select
    ActiveCell.FormulaR1C1 = "=RTD(""money.excel"", ,1326,""BestBidVolume2"")"
    Range("E10").Select
End Sub

¤W­zµ{¦¡½X¬O§Ú¥Î¥¨¶°¿ý»s¡A¥Ø«e¬O°õ¦æ¨ìE10¡A­n¦p¦ó²¤ÆÅýµ{¦¡½X¯à°÷°õ¦æ¨ìE900©O??

Brandy

¦^´_ 1# ÂŤÑÄR¦À
¬Ý¨ÓÀ³¸Ó¬O¤¸¤jªºRTD¡A§Úªº¬O¶}EXCEL«e´N­n¥ý¥´±b±K¡A¥´§¹´N¥i¥H³s±µ¤F¡A§ÚÁÙ¬O²Ä¤@¦¸Å¥¨ì­nF2+enter
§A¥´¶}¥Lªº½d¨Ò¦³»Ý­n³o¼Ë¤~¦³¸ê®Æ¶Ü?

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

ÂŤÑÄR¦À

¦^´_ 3# c_c_lai

¤U¸ü (94.44 KB)

2016-3-12 22:27

RTD§ï.rar (7.27 KB)

¤U¸ü¦¸¼Æ: 3

2016-3-12 22:29

¦]¬°¥N½X«Ü¦h¡A©Ò¥H§Ú§â¥¦¤À¬q¤§«á¥Î"&"³s°_¨Ó¡A¤§«á½Æ»s¶K¤W­È¡A§Ú¨Ã«Dª½±µ§ïªÑ²¼¥N¸¹¡A©Ò¥H³B²z°_¨Ó¤~·|³o¼Ë
Åܦ¨­n½s¿è«á¥L¤~·|Åܦ¨¼Æ¦r«¬ºA

½Ð±Ð¤@¤UC¤j¡A§Ú¤W­±»¡ªº¨º­Ó­n¦p¦ó±Nµ{¦¡½X²¤Æ³B²z¨ìE900??

¦pªGC¤jÁÙ¬O¤£À´¡A¥i¥H¥ý¤j·§§i¶D§Ú­n¦p¦ó²¤Æµ{¦¡½X¶Ü??

ÂŤÑÄR¦À

¦^´_ 2# Brandy

§Ú¬O¦]¬°¦³§ó§ï¹L

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

ÂŤÑÄR¦À

¦^´_ 6# c_c_lai

C¤j§Ú¤F¸Ñ¤F¡A·PÁÂ

­ã´£³¡ªL

¢ÏÄæ©ñ½s¸¹¡A¨ä¥¦¤£¥Î¡Aª½±µ¦b¢ÓÄæ¤U¤½¦¡¡G

Sub TEST()
With Range("E2:E" & [A65536].End(xlUp).Row)
¡@¡@¡@.Formula = "=""=RTD(""""money.excel"""", ,""&A2&"",""""BestAskVolume5"""")"""
¡@¡@¡@.Value = .Value
¡@¡@¡@'.Replace "=", "=", Lookat:=xlPart¡@'¦pªGÁÙµLªkÂনDDE¤½¦¡¡A¦A¥[³o¤@¦æ¡@
End With
End Sub
¡@
¡@
­Y¨ä¥¦Äæ¦ìªº¤½¦¡°Ñ¼Æ©Î¤å¦r¤£¬Û¦P¡A¥i¤W¶Ç¸û¸Ô²Ó¤º®e¡ã¡ã¡ã
¡@

ÂŤÑÄR¦À

¦^´_ 3# c_c_lai

http://forum.twbts.com/thread-16677-1-1.html
C¤j¥i¥H½Ð§AÀ°§Ú¬Ý¬Ý¶Ü??