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

½Ð°Ý­n¦p¦ó²¤Æµ{¦¡½X??

½Ð°Ý­n¦p¦ó²¤Æµ{¦¡½X??

¥H¤Uµ{¦¡½X¬O§Ú¥Î¥¨¶°¿ý»sªº¡A¥u¿ý¨ìE10¡A§Ú­n±N¥H¤U¥¨¶°°õ¦æ¨ìE900¡A¦ý¤S¤£¥i¯à¤@ª½½Æ»s¤U¥h¡A½Ð±Ð¤j¤j¥H¤Uµ{¦¡½X­n¦p¦ó²¤Æ¡AÅý¥L¥i¥H°õ¦æ¨ìE900

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

¥»©«³Ì«á¥Ñ lpk187 ©ó 2016-3-12 23:33 ½s¿è

¦^´_ 1# ÂŤÑÄR¦À
  1. Public Sub ex()
  2. Dim arr, i%
  3.     arr = Sheets("¤u§@ªí2").Range("A2:A9") '¥ý§âªÑ²¼½s¸¹©ñ¬Y¤@¤u§@ªíªºAÄæ¡AµM«á¨Ï¨ä¦¨¬°°}¦C arr
  4.     With Sheets("¤u§@ªí1")
  5.         For i = 1 To UBound(arr)
  6.             .Cells(i+1, 5) = "=RTD(""money.excel"", ," & arr(i, 1) & ",""BestBidVolume2"")"
  7.         Next
  8.     End With
  9. End Sub
½Æ»s¥N½X

TOP

¦^´_ 2# lpk187


    ¤j¤j¡AÁÂÁ¡A¥i¬O¬°¤°»ò°}¦C´N¥i¥H§Ú¥Î&«o¤£¦æ??

TOP

¦^´_ 3# ÂŤÑÄR¦À

§Ú¦b·Q¡A¥i¯à¬O§Aªº&¥Î¿ù¤F¡A ¤]¤£¤@©w­n°}¦C¤~¬O¤èªk¡A¤]¦³¨ä¥L¤èªk¡A ¨Ò¦p ¥ÎFor Each ...
¦ó¤£PO¤£¥X§A­ì¨Óªº&«ç»ò¨Ï¥Î¡AÅý¦U¦ì¤j¤j¸Ñ´b¡I

TOP

¦^´_ 4# lpk187

RTD§ï.rar (7.27 KB)

    ³o¬O§Úªºªþ¥ó¡A½Ð¤j¤j¬Ý¬Ý

TOP

¦^´_ 5# ÂŤÑÄR¦À

H2 =A2&B2&C2&D2&E2&F2&G2
Åã¥Ü =RTD("money.excel", ,"2330","BestAskVolume5")
³o¥u¬O¤å¦rÅã¥Ü¨Ã«D¤½¦¡

¤½¦¡À³¸Ó¿é¤J¦p¤U¡A¬Ý¬Ý³o¼Ë¥i¥H°õ¦æ¶Ü?
H2 =RTD("money.excel", ,D2,"BestAskVolume5")

¤U©Ô½Æ»s¤½¦¡
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

¥»©«³Ì«á¥Ñ ÂŤÑÄR¦À ©ó 2016-3-13 15:19 ½s¿è

¦^´_ 6# ML089


    ³o¼Ë¥i¥H¡A°ÝÃD¬O¦pªG§Ú­n±N¥N¸¹©ñ¦b¸Ì­±­n¦p¦ó°µ©O??
³o¬O¤½¦¡¡A§Ú¥u­n«öF2+Enter´N·|Åܦ¨¤½¦¡

TOP

¦^´_ 7# ÂŤÑÄR¦À

³o¬O¤½¦¡ªº¤èªk

­Y¬O§A­nF2+ENTERªº¤èªk
´N¬O­ì¨Ó§Aªº¤èªk¡AH2 =A2&B2&C2&D2&E2&F2&G2
¦b¾ã­Ó¿ï¨ú¨Ó ½Æ»s¡A¦A¥t¥~¤@ÄæI2 ¿ï¾Ü©Ê¶K¤W - ­È¡C
¦A¾ã­Ó¿ï¨úIÄæ¡A CTRL-H ¨ú¥N ¡A¿ï¨ú¥Ø¼Ð¿é¤J =¡A¨ú¥N¦¨¿é¤J =¡A ´N¥þ³¡Âন§A­nªº¤½¦¡¡C
¤£¥Î¤@­Ó¤@­Ó F2+ENTER¡A¤Ó¨¯­W¤F
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

        ÀR«ä¦Û¦b : Ä@­n¤j¡B§Ó­n°í¡B®ð­n¬X¡B¤ß­n²Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD