如何在不修改电子表格的情况下返回修改范围

Question

我想要我的vlookup_range（）服用byval vba 范围'search>'search'返回修改的范围对象，以= sumproducts使用（vlookup_range（H2：i2; a2：b11; 2）; h3：i3），但也修改了表（键由值替换）。

我的猜测是，一个范围仅包含坐标和表键。

是否可以使用像我的示例这样的函数，也许与另一种对象类型一样？

Option VBASupport 1
Option Compatible

Function VLOOKUP_RANGE(ByVal range_to_modify, ref_range, index As Integer, Optional sorted As Boolean = False)
    calc_built_in = getProcessServiceManager().createInstance("com.sun.star.sheet.FunctionAccess")
    sheet = ThisComponent.getCurrentController.ActiveSheet
    'VBA Range to LibreOffice
    lo_ref_range = sheet.getCellRangebyName(ref_range.Address)
    
    Dim sum
    For Each cell In range_to_modify
        If cell.Value <> 0 Then
            cell.Value = calc_built_in.callFunction("VLOOKUP", Array(cell.Value, lo_ref_range, index, sorted))
        End If
    Next
    
    VLOOKUP_RANGE = range_to_modify
End Function

Answer 1

在libreoffice中，可以写下这样的功能，例如，

Option Explicit 

Function VLOOKUP_RANGE(range_to_modify As Variant, ref_range As Variant, index As Integer) As Variant 
Dim i As Long, j As Long, m As Long

    If index < LBound(ref_range,2) Or index > UBound(ref_range,2) Then Exit Function 

    For i = LBound(range_to_modify,1) To UBound(range_to_modify,1)
        For j = LBound(range_to_modify,2) To UBound(range_to_modify,2)
            For m = LBound(ref_range,1) To UBound(ref_range,1)
                If range_to_modify(i, j) = ref_range(m, 1) Then
                    range_to_modify(i, j) = ref_range(m, index)
                    Exit For 
                EndIf 
            Next m
        Next j
    Next i
    VLOOKUP_RANGE = range_to_modify
End Function

如评论中所建议的那样，最好使用由Calc的内置功能组成的公式。