Excel-UDF函数根据条件从多张纸中获取SUM值

如何解决Excel-UDF函数根据条件从多张纸中获取SUM值

我有一个UDF函数，其功能与Sumifs类似，但方式更为复杂，它基于主表中的条件对值求和，并在另一表中查找值。

我面临的挑战是，如果我在“ C”列中输入udf函数，它将在工作表“ ALPHA”中查找值，而不是工作表“ BETA”，而在其他列中查找相同的问题。

如果我在代码中的其他列中输入UDF inn，如何设置代码以引用其他工作表？

如果在列中输入了UDF函数，则以下内容应为

A列-ALPHA
C栏-测试版 E栏-GAMMA

当前我有以下代码

Set wks = Sheets("ALPHA")      
lr = wks.Range("I" & Rows.Count).End(xlUp).Row
arr = wks.Range("A2","I" & lr)

Public Function ASUM(r As Range) As Double
Application.Volatile
Dim val1,val2,my_sum
Dim i,x,mylen,lr
Dim crit1,crit2,crit3,crit4,crit5,crit6,crit7,crit8,mystring,mystring2
Dim T1,T2,T3,T4,T5,T6,T7,T8
Dim arr
Dim wks
Dim c
Dim e

T1 = 26
T2 = T1 + 1
T3 = T1 + 2
T4 = T1 + 3
T5 = T1 + 4
T6 = T1 + 5
T7 = T1 + 6
T8 = T1 + 7

If InStr(1,r.Offset(,T1),".") > 0 Then
mylen = Len(r.Offset(,T1))
For x = 1 To mylen
If IsNumeric(Mid(r.Offset(,1)) Then
mystring = mystring & Mid(r.Offset(,1)
Else
mystring = mystring & " "
End If
Next
mystring2 = Trim(mystring)
val1 = Left(mystring2,InStr(1,mystring2," ") - 1) * 100
val2 = Right(mystring2,Len(mystring2) - InStr(1," ")) & "99"
For i = val1 To val2
crit1 = crit1 & i & " "
Next
ElseIf InStr(1,",") > 0 Then
crit1 = Replace(r.Offset(," ")
Else
crit1 = r.Offset(,T1).Value
End If
mystring = "": mystring2 = ""

If InStr(1,T2),T2))
For x = 1 To mylen
If IsNumeric(Mid(r.Offset(," ") - 1)
val2 = Right(mystring2," "))
For i = val1 To val2
crit2 = crit2 & i & " "
Next
ElseIf InStr(1,") > 0 Then
crit2 = Replace(r.Offset(," ")
Else
crit2 = r.Offset(,T2).Value
End If
mystring = "": mystring2 = ""

If InStr(1,T3),T3))
For x = 1 To mylen
If IsNumeric(Mid(r.Offset(," "))
For i = val1 To val2
crit3 = crit3 & i & " "
Next
ElseIf InStr(1,") > 0 Then
crit3 = Replace(r.Offset(," ")
Else
crit3 = r.Offset(,T3).Value
End If
mystring = "": mystring2 = ""

If InStr(1,T4),T4))
For x = 1 To mylen
If IsNumeric(Mid(r.Offset(," "))
For i = val1 To val2
crit4 = crit4 & i & " "
Next
ElseIf InStr(1,") > 0 Then
crit4 = Replace(r.Offset(," ")
Else
crit4 = r.Offset(,T4).Value
End If
mystring = "": mystring2 = ""

If InStr(1,T5),T5))
For x = 1 To mylen
If IsNumeric(Mid(r.Offset(," "))
For i = val1 To val2
crit5 = crit5 & i & " "
Next
ElseIf InStr(1,") > 0 Then
crit5 = Replace(r.Offset(," ")
Else
crit5 = r.Offset(,T5).Value
End If
mystring = "": mystring2 = ""

If InStr(1,T6),T6))
For x = 1 To mylen
If IsNumeric(Mid(r.Offset(," "))
For i = val1 To val2
crit6 = crit6 & i & " "
Next
ElseIf InStr(1,") > 0 Then
crit6 = Replace(r.Offset(," ")
Else
crit6 = r.Offset(,T6).Value
End If
mystring = "": mystring2 = ""
.............................................
If InStr(1,T7),T7))
For x = 1 To mylen
If IsNumeric(Mid(r.Offset(," "))
For i = val1 To val2
crit7 = crit7 & i & " "
Next
ElseIf InStr(1,") > 0 Then
crit7 = Replace(r.Offset(," ")
Else
crit7 = r.Offset(,T7).Value
End If
mystring = "": mystring2 = ""

If InStr(1,T8),T8))
For x = 1 To mylen
If IsNumeric(Mid(r.Offset(," "))
For i = val1 To val2
crit8 = crit8 & i & " "
Next
ElseIf InStr(1,") > 0 Then
crit8 = Replace(r.Offset(," ")
Else
crit8 = r.Offset(,T8).Value
End If

Set wks = Sheets("ALPHA")

lr = wks.Range("I" & Rows.Count).End(xlUp).Row
arr = wks.Range("A2","I" & lr)

For i = 1 To UBound(arr)
If InStr(1,crit1,arr(i,1)) > 0 Or r.Offset(,T1) = "" Or r.Offset(,T1) = "<ALL>" Then
If InStr(1,2)) > 0 Or r.Offset(,T2) = "" Or r.Offset(,T2) = "<ALL>" Then
If InStr(1,3)) > 0 Or r.Offset(,T3) = "" Or r.Offset(,T3) = "<ALL>" Then
If InStr(1,4)) > 0 Or r.Offset(,T4) = "" Or r.Offset(,T4) = "<ALL>" Then
If InStr(1,5)) > 0 Or r.Offset(,T5) = "" Or r.Offset(,T5) = "<ALL>" Then
If InStr(1,6)) > 0 Or r.Offset(,T6) = "" Or r.Offset(,T6) = "<ALL>" Then
If InStr(1,7)) > 0 Or r.Offset(,T7) = "" Or r.Offset(,T7) = "<ALL>" Then
If InStr(1,8)) > 0 Or r.Offset(,T8) = "" Or r.Offset(,T8) = "<ALL>" Then
my_sum = my_sum + arr(i,UBound(arr,2))
End If
End If
End If
End If
End If
End If
End If
End If
Next
ASUM = my_sum
End Function

解决方法

事实证明，UDF可以通过使用Application.Caller获得有关其被调用的单元格的信息：

Dim kaller As Range,n As Long
Set kaller = Application.Caller
 n = kaller.Column
 If n = 1 Then Set ws = Sheets("ALHPA")
 If n = 3 Then Set ws = Sheets("BETA")
 If n = 5 Then Set ws = Sheets("GAMMA")

这应该替换单行：

Set wks = Sheets("ALPHA")

如果从其他列调用UDF，则可以扩展逻辑。