VBA UDF 多单元参考

Question

我正在尝试创建一个 UDF，它从 4 个选定的单元格中获取值并用它执行一个函数。但是我不知道如何编写函数来识别单元格值。按照我目前编写的方式，我需要输入一个值。谁能帮我解决这个相对简单的问题？这是我到目前为止所拥有的。

Function solubility(anion As String, cation As String, carbon1 As String, carbon2 As String)

编辑

例如，我尝试选择单元格 A、C、E 和 G，它们包含 Tf、Mi、Ch 和 Ch 的值。然后，我将使用这些单元格引用范围内的相应值来计算并显示最终值。下面提供了完整的代码。

Function solubility(anion As String, cation As String, carbon1 As String, carbon2 As String)

Dim sum As Double
Dim ncavalue As Long, nanvalue As Long, ncb1value As Long, ncb2value As Long
Dim nca As Long, nan As Long, ncab As Long
Dim coeff As Range, groups As Range

'solubility groups range
groups = Worksheets("Solubility").Range("A2:A33")

'group coefficients range
coeff = Worksheets("Solubility").Range("B2:B33")

'number of groups for each group
ncavalue = Range("AE" & cation.Row)
nanvalue = Range("AC" & anion.Row)
ncb1value = Range("AG" & carbon1.Row)
ncb2value = Range("AI" & carbon2.Row)

j = 0

    For j = 0 To UBound(groups)
        If UCase(anion.Value) = UCase(coeff(j).Value) Then
            'coefficient value
            anvalue = coeff(j).Value
        End If
        If UCase(cation.Value) = UCase(coeff(j).Value) Then
            'coefficient value
            cavalue = coeff(j).Value
        End If
        If cation.Value = "[MIm]" Then
            cavalue = Range("B2")
            ncb1value = ncb1value.Value + 1
        End If
        If UCase(carbon1.Value) = UCase(coeff(j).Value) Then
            'coefficient value
            cb1value = coeff(j).Value
        End If
        If UCase(carbon2.Value) = UCase(coeff(j).Value) Then
            'coefficient value
            cb2value = coeff(j).Value
        End If
    Next j
    sum = anvalue * nanvalue + cavalue * ncavalue + cb1value * ncb1value + cb2value * ncb2value
    solubility = sum + Range("B34").Value
End Function

Answer 1

假设第 1 行，像这样调用函数：

=solubility(A1, C1, E1, G1)