首頁(yè) 猿問(wèn) 想要支持冒號(hào)這種表達(dá)式，需要怎樣修改呢？

想要支持冒號(hào)這種表達(dá)式，需要怎樣修改呢？

數(shù)據(jù)結(jié)構(gòu)

慕無(wú)忌1623718 2022-09-02 14:10:32

寫(xiě)了一個(gè)自定義函數(shù)Function FFQiuhe(ParamArray Arr1()) As String……end Function此函數(shù)支持A1=FFQiuhe(B1,C1,D1,E1)但是不支持A1=FFQiuhe(B1:E1)

查看完整描述

1 回答

海綿寶寶撒

TA貢獻(xiàn)1809條經(jīng)驗(yàn) 獲得超8個(gè)贊

給你參考的
Public Function udSum(ParamArray x()) As Double

Dim i As Integer
Dim j As Integer
Dim k As Integer, One
Dim rtn As Double
rtn = 0

For i = 0 To UBound(x)
Select Case TypeName(x(i))
Case "Range"
For j = 1 To x(i).Rows.Count
For k = 1 To x(i).Columns.Count
rtn = rtn + x(i).Cells(j, k)
Next k
Next j

Case "Variant()"
For Each One In x(i)
rtn = rtn + One
Next One

End Select
Next i
udSum = rtn
End Function