excel - VBA 触发器输入或更新查找值

Question

我有以下代码:

Sub PrintToCSV()
    Dim i As Long, e As Long
    i = Worksheets("STATEMENT (2)").Range("$G$6").Value
    e = Worksheets("STATEMENT (2)").Range("$G$7").Value

    Do While i <= e
        Range("K6") = i
        Application.Wait (Now + #12:00:01 AM#)

        If Range("$X$10").Value > 0 Then
            Cells(1, 1).Value = i
        End If

        i = i + 1
    Loop
End Sub

它按预期循环并更改 Range("K6") 的值。但是，当我手动执行此操作时，Range("K6") 的值会更新其他单元格值 (vlookup)，但不会使用此代码。如何确保依赖于 Range("K6") 的其他单元格的值使用此代码进行更改？

Answer 1

仅供引用 - 不要这样声明:

Dim i, e as Long

因为对于此声明，仅将“e”声明为 long，将“i”声明为变体。这可能会在以后的某个地方引起问题。

正确的做法是:

Dim i as Long
Dim e as Long