亚洲在线久爱草,狠狠天天香蕉网,天天搞日日干久草,伊人亚洲日本欧美

為了賬號安全，請及時綁定郵箱和手機立即綁定
已解決430363個問題，去搜搜看，總會有你想問的

想要支持冒號這種表達式，需要怎樣修改呢？

想要支持冒號這種表達式，需要怎樣修改呢？

慕無忌1623718 2022-09-02 14:10:32
寫了一個自定義函數Function FFQiuhe(ParamArray Arr1()) As String……end Function此函數支持A1=FFQiuhe(B1,C1,D1,E1)但是不支持A1=FFQiuhe(B1:E1)
查看完整描述

1 回答

?
海綿寶寶撒

TA貢獻1809條經驗 獲得超8個贊

給你參考的
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


查看完整回答
反對 回復 2022-09-06
  • 1 回答
  • 0 關注
  • 74 瀏覽
慕課專欄
更多

添加回答

舉報

0/150
提交
取消
微信客服

購課補貼
聯系客服咨詢優惠詳情

 幫助反饋 APP下載

慕課網APP
您的移動學習伙伴

 公眾號

掃描二維碼
關注慕課網微信公眾號