Question

我正在尝试在公式中使用变量但是我得到的结果是FALSE，它应该返回一个Lookup值，从表的底部开始然后向上。

Private Sub NewTaxCode()
Dim TaxCode2 As Long
Dim B As Range
Dim TaxCode3 As Range
Dim TaxCode4 As Range

Worksheets("P11Combined").Activate

Set B = Range("A:A")

Worksheets("E'ee Details").Range("U1").Value = "=Match(RC[-4],P11Combined!C[-18],0)"
TaxCode2 = Worksheets("E'ee Details").Range("U1").Value

Set TaxCode3 = Range("A:A").Find(What:="TAX:", After:=B(TaxCode2))

Set TaxCode4 = Range(TaxCode3.Address).End(xlDown).Offset(1, 2)

TaxCode5 = Range(TaxCode4.Address).FormulaR1C1 = "=LOOKUP(2,1/(R[-12]C:R[-1]C<>"" ""),(R[-12]C[-1]:R[-1]C[-1]))"

最后一行是我遇到问题的地方。该公式在电子表格中运行良好，但我无法在VBA中使用它。

Answer 1

代码的最后一行格式为

variable = logical_expression

并将变量（TaxCode5）设置为True或False，具体取决于TaxCode4引用的单元格中的公式是否相同作为代码中的一个。

不修改TaxCode4引用的单元格中的公式。

看起来你想要：

Private Sub NewTaxCode()
    Dim TaxCode2 As Long
    Dim B As Range
    Dim TaxCode3 As Range
    Dim TaxCode4 As Range
    Dim TaxCode5 As Variant

    Set B = Worksheets("P11Combined").Range("A:A")

    Worksheets("E'ee Details").Range("U1").FormulaR1C1 = "=Match(RC[-4],P11Combined!C[-18],0)"
    TaxCode2 = Worksheets("E'ee Details").Range("U1").Value

    Set TaxCode3 = B.Find(What:="TAX:", After:=B(TaxCode2))

    Set TaxCode4 = TaxCode3.End(xlDown).Offset(1, 2)

    TaxCode4.FormulaR1C1 = "=LOOKUP(2,1/(R[-12]C:R[-1]C<>"" ""),(R[-12]C[-1]:R[-1]C[-1]))"
    TaxCode5 = TaxCode4.Value
    '...
End Sub

在公式中使用变量

1 个答案: