vba - 使用 VBA 将传入市场提要保存在不同的单元格中

Question

我从 9.30 -3.30 收到特定股票的市场供稿。该值将逐个滴答地更改。我必须在每次更改时捕获单元格中的值并在不同的单元格中打印。我今天刚开始使用 VBA，因此将不胜感激。

声明变量：

Dim X As Range
Dim Y As Range
Dim F As Integer
Set Y = Worksheets("Equity").Range("F158")

选择值每秒变化的单元格：

Set X = Worksheets("Equity").Range("F152").Value

运行循环：不确定是否正确：

    For F = 0 To 10000 Step 1
        Y = X
    Next
    Y = Y + 1
End Sub

如果错了，请纠正。在此先感谢

Answer 1

您可以使用该Worksheet_Change事件。将以下代码放在工作表代码部分。一旦范围 F158 中的值发生变化并且从 3.3 到 9.3 并且它与以前的值不同，那么它将粘贴范围 G158 中的值

 Dim oldVal As Double

Private Sub Worksheet_Change(ByVal Target As Range)

    On Error Resume Next
    Application.EnableEvents = False


    If Not Intersect(Target, Range("F158")) Is Nothing Then
        If Target.Value >= 3.3 And Target.Value <= 9.3 Then
            If oldVal <> Target Then Target.Offset(0, 1).Value = Target
        End If
    End If

     oldVal = Range("F158").Value

    Application.EnableEvents = True
End Sub