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

使用VBA在不同单元格中保存的传入市场Feed

1 个答案: