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

fansofcheer0987

¦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

GBKEE

¦^´_ 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

fansofcheer0987

¦^´_ 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«ü±Ð

fansofcheer0987

¦^´_ 2# GBKEE


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

GBKEE

¦^´_ 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