リアルタイムデータをキャプチャする方法

Question

私はリアルタイムデータ（= Tickers！Z12）にリンクされたセル（A1）を持っています。私は5分の期間ですべての価格帯をキャプチャしたい。私の問題は、私はWorksheet_Changeメソッドを使用しようとしているが、セル（A1）が公式化されている場合、値が変更されると更新されません。私は手動で値を変更する場合は正常に動作します。私は数式によって生成されている値をキャプチャする必要がありますし、&は値が変化するたびにB列に値を貼り付けます。ここに私がこれまで持っているものがあります。

Private Sub Worksheet_Change(ByVal Target As Range) 

Application.ScreenUpdating = False 
Application.EnableEvents = False 

If Range("A1").value <> Range("B2").value Then 
    Range("A1").Select 
    Selection.Copy 
    With ActiveSheet 
     LastRow = .Cells(.rows.Count, "B").End(xlUp).row + 1 
     .Cells(LastRow, 2).Select 
     Selection.PasteSpecial Paste:=xlPasteValues 
    End With 

End If 

Application.CutCopyMode = False 
Application.EnableEvents = True 

End Sub 

Answer 1

Worksheet_Calculateイベントを使用してください。

また、A1とB2を比較したいとは思っていません。ロジックでは、列Bの最後のセルと比較する必要があります。

また、Activesheetを使用することはお勧めできません。他のシートにいるときに再計算が行われる可能性があります。ランダムなワークシートの値。

さらにもう1つ：マクロ内のコピー＆ペーストを使用しないでください。 .Value = .Valueとするだけです。

Private Sub Worksheet_Calculate() 

Dim lngLastRow As Long 

On Error Goto SkipAllThis 

Application.ScreenUpdating = False 
Application.EnableEvents = False 

With Worksheets("Source") 'or whatever sheet has your code and stores your values 
    lngLastRow = .Cells(.Rows.Count, 2).End(xlUp).Row 
    If .Range("A1").Value <> .Cells(lngLastRow, 2).Value Then 
    .Cells(lngLastRow + 1, 2).Value = Range("a1").Value 
    End If 
End With 

SkipAllThis: 

Application.EnableEvents = True 
Application.ScreenUpdating = True 

End Sub 

Answer 2

DRS、

としてスリープ機能を実装します。あなたの値をキャプチャし、その後続いて

Declaring & Calling The Sleep API

。 APIはミリ秒単位であることに注意してください。

G.