Question

我有一个单元格“A”，其复杂的公式涉及2个自定义函数/公式。

据我所知，当单元格更改值时，Excel会自动重新计算其所有相关单元格。当单元格“A”从此机制更新时，它会给出#VALUE！。

没有做任何其他事情，我选择单元格“A”＆gt;点击F2（编辑）＆gt;然后按Enter键（退出编辑），重新计算单元格“A”的值并给出正确的值。

编辑1 ：在这些keyboard shortcuts中，只有CTRL + ALT + SHIFT + F9给出正确的值。所有其他人都给#VALUE！如果该函数没有Application.Volatile。

公式：

=HLOOKUPRANGE(arr(CB43,CC43,CE43),Q!$CD$3:$DG$28,CG43)

有问题的VBA功能：

Public Function arr(ParamArray fields() As Variant)
    arr = fields
End Function

Public Function HLOOKUPRANGE(headers() As Variant, lookup_range As Range, row_index As Integer) As Variant
    If lookup_range.Columns.Count = 1 Then
        HLOOKUPRANGE = lookup_range(row_index, 1)
    Else
        ' look at the first row in the range for the header
        For colStart = 1 To lookup_range.Columns.Count Step 1
            col = lookup_range.Cells(1, colStart).Value
            If col = headers(1) Then
                colEnd = colStart + lookup_range.Cells(1, colStart).MergeArea.Columns.Count - 1
                Exit For
            End If
        Next

        ' set the new smaller range
        First = lookup_range.Cells(2, colStart).Address
        Last = lookup_range.Cells(lookup_range.Rows.Count, colEnd).Address
        Dim szRange As String
        szRange = First & ":" & Last

        ' set the new headers array
        Dim header_next() As Variant
        If UBound(headers) > 1 Then
            ReDim header_next(1 To UBound(headers) - 1)
            For i = LBound(headers) + 1 To UBound(headers) Step 1
                header_next(i - 1) = headers(i)
            Next
        End If

        HLOOKUPRANGE = HLOOKUPRANGE(header_next, Range(szRange), row_index)
    End If
End Function

这些函数的组合工作是以自上而下的方式从头中导航查找表，并根据arr（）中定义的字符串头返回表中的值。

编辑1 ：检查计算步骤时，arr（）正确评估HLOOKRANGE（{“hdr1”，“hdr2”，“hdr3”}，Q！$ CD $ 3：$ DG $ 28 ，CG43），但这个结果评估为#VALUE！

Answer 1

调用时，Range（）函数似乎具有Application.ActiveSheet范围，而不是包含相同函数的单元格公式的工作表范围。

因此，为了解决我的问题，我需要从正确的工作表中明确调用Range（），例如

Dim rangeWorksheet as String
rangeWorksheet = lookup_range.Cells(2, colStart).Parent.Name
Dim curws As Worksheet
Set curws = Worksheets(rangeWorksheet)
curws.Range(...)

自定义Excel VBA公式生成#VALUE！仅限自动计算

1 个答案: