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

[µo°Ý] RTD§ìTICK¡A¦p¦ó³]©w·íÁ`¶qÅܤƮɦb§ì¨ú

[µo°Ý] RTD§ìTICK¡A¦p¦ó³]©w·íÁ`¶qÅܤƮɦb§ì¨ú

¥»©«³Ì«á¥Ñ fansofcheer0987 ©ó 2017-5-20 01:51 ½s¿è

¦U¦ì¥ý¶i¦n¡A¤p§Ì·Qµo°Ý¡G
¦]¬°§Ú³Ìªñ¦b¥ÎRTD¦¬TICK¡A·Q°µ·sªº§Þ³N«ü¼Ð¡A
¦ý¬ORTD¨ìexcel«á¡A°õ¦æVBA®É­Y³æ¯Â¥u¥Î¨C¹j¤@¬q®É¶¡´N§ì¨ú¤@¦¸¡A
³o¼Ë§ì¨ú¤U¨Óªºtick¨Æ¹ê¤W¬O¥¢¯uªº¡A¨Ã«D¯u¥¿ªºtick¡A
§Úªº·Qªk¬O¡G¦]¬°¦¨¥æ®ÉÁ`¶q·|ÅÜ¡A©Ò¥H¥u­n¦bÁ`¶qÅܮɦb§ì´N¦n¡A
·Q½Ð±Ðªº¬O¡A­n¦p¦ó¤~¯à¹F¨ì©O¡H
¸Õ¹Lsetlinkondata¤èªk¡A«o¥Î¤£¥X¨Ó
worksheet change ¦ü¥G¤]¤£¦æ¡A»PRTD¤½¦¡­È¥¼Åܰʦ³Ãö¡A
©ó¬O¤W¨Ó½Ð±Ð¦U¦ì¤j­ô¥ý¶i­Ì¡AÀ°À°¦£¡C

¬¡­¶Ã¯1.rar (29.05 KB)

¬O±µ³Í°òRTDªº

¦^´_ 4# fansofcheer0987
ªþÀÉ Private Sub Worksheet_Calculate()¦bModule3¬O¤@¯ë¼Ò²Õ¤£¬O¤u§@ªí¼Ò²Õ.
·íµM¨S°µ¥Î
ªþÀÉ ¤u§@ªía,¥i¯à¦³¦hµ§­n°O¿ý
­×§ï¦p¤U
  1. Private Sub Worksheet_Calculate() '¤u§@ªí1(a)¼Ò²Õªº­«ºâ¨Æ¥ó
  2.     Dim i As Long, Sht2 As Worksheet
  3.     Set Sht2 = Sheets("b")
  4.     For i = 2 To Cells(Rows.Count, "h").End(xlUp).Row              '¦hµ§­n°O¿ý
  5.         If Not IsError(Range("h" & i)) Then                        '¥¼¶}½L®É RTD¤½¦¡¶Ç¦^ "N/A" ¬°¿ù»~­È
  6.             If Range("h" & i) > Cells(i, Columns.Count) And IsNumeric(Range("h" & i)) Then      '¶}½L«á,Á`¶q»Ý¦³ >0 ªº¼Æ¦r
  7.             '** »²§UÄæ: Cells(i, Columns.Count)** ¤u§@ªí³Ì¥k¤@Äæ,°O¿ý¤W¤@¦¸¦¨¥æÁ`¶q
  8.                
  9.                 '°õ¦æµ{¦¡½X  '**§ì¨ú§A­nªº¸ê®Æ**
  10.                 Cells(i, Columns.Count) = Range("h" & i)   '°O¿ý¦¹¦¸¦¨¥æÁ`¶q
  11.                 Sht2.Range("A2").EntireRow.Insert
  12.                 Sht2.Range("A2:J2").Value = Range("A" & i & ":J" & i).Value
  13.             Else
  14.                 Cells(i, Columns.Count) = ""  '**¦¨¥æÁ`¶qÂk¹s
  15.             End If
  16.         Else
  17.             Cells(i, Columns.Count) = ""  '**¦¨¥æÁ`¶qÂk¹s
  18.         End If
  19.     Next
  20. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 2# GBKEE


    Àɮתþ¤W ¡A³Â·Ð±z¤F¡AÁÂÁÂ

¬¡­¶Ã¯1.rar (28.28 KB)

TOP

[ª©¥DºÞ²z¯d¨¥]
  • GBKEE(2017/5/26 06:16): §Aªºµ{¦¡½X¬O¥i¦æªº½Ð¤W¶Ç­×§ï«áªºÀɮ׬ݬÝ

¦^´_ 2# GBKEE

GBKEE ¤j¤j¦n¡A¦]¬°³Ìªñ¦³¨ÇÂø¨Æ¡A¨ì¤µ¤Ñ¤~¦³¾÷·|´ú¸Õ
Private Sub Worksheet_Calculate() '¥u¦³Á`¶qRTD¤½¦¡,ªº¤u§@ªí¼Ò²Õ.
   
     Set Sht1 = ThisWorkbook.Sheets("c")   '·s¶}ªº¤À­¶  µM«á¦¹¤À­¶¥u¦³A1 ¶ñ¤J¤½¦¡ RTDÁ`¶qªº³ø»ù
   
    If Not IsError([A1]) Then                           '¥¼¶}½L®É RTD¤½¦¡¶Ç¦^ "N/A" ¬°¿ù»~­È
        If [A1] < 0 And IsNumeric([A1]) Then     '¶}½L«á,Á`¶q»Ý¦³ >0 ªº¼Æ¦r
                '°õ¦æµ{¦¡½X  '**§ì¨ú§A­nªº¸ê®Æ**
               
            xRow = Sht1.Range("A1000000").End(xlUp).Row + 1 '¥Ñ¤W©¹¤U§ä
            Sht1.Range("A2").EntireRow.Insert
            Sht1.Range("A2:J2").Value = Sht1.Range("A1:J1").Value
        End If
   End If
   
End Sub

    ¦ý¬O«o¨S¦³®ÄªG §Ú¦b·Q¬O­þ¸Ì¥X¿ù¤F¡A½Ð¤j¤j«ü±Ð

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2017-5-20 12:26 ½s¿è

¦^´_ 1# fansofcheer0987
¤u§@ªíÀx¦s®æªº­È,¦r¦ê¦³ÅÜ°Ê.     ¥iIJµoªº¨Æ¥ó :Worksheet_Change
¤u§@ªíÀx¦s®æ¬°¤½¦¡¶Ç¦^­ÈªºÅÜ°Ê.  ¥iIJµoªº¨Æ¥ó :Worksheet_Calculate

'ªþÀɤW¤u§@ªí(b)Àx¦s®æRTD¤½¦¡¦³¦h­Ó,Worksheet_CalculateµLªk©ú½T«ü¥X¬O­þ¤@­ÓRTD¤½¦¡¦bÅÜ°Ê

'½Ð¦b©Ò¦³Àx¦s®æ¨S¦³¤½¦¡ªº¤u§@ªí¤WªºA1,¼g¤WÁ`¶qªºRTD¤½¦¡
'=RTD("xqrtd.rtdserverkgiap",,"FIMTX*1.TF-TotalVolume")
  1. Private Sub Worksheet_Calculate() '¥u¦³Á`¶qRTD¤½¦¡,ªº¤u§@ªí¼Ò²Õ.
  2.    
  3.     If Not IsError([a1]) Then                           '¥¼¶}½L®É RTD¤½¦¡¶Ç¦^ "N/A" ¬°¿ù»~­È
  4.         If [a1] < 0 And IsNumeric([a1]) Then     '¶}½L«á,Á`¶q»Ý¦³ >0 ªº¼Æ¦r
  5.                 '°õ¦æµ{¦¡½X  '**§ì¨ú§A­nªº¸ê®Æ**
  6.         End If
  7.    End If
  8.    
  9. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ¤£©È¨Æ¦h¡A¥u©È¦h¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD