用VBA將這個(gè)改寫成自定義函數(shù) 而且不能用goto語(yǔ)句----://pan.baidu.com/s/1slIP89R 把----改寫http可以
1 回答
炎炎設(shè)計(jì)
TA貢獻(xiàn)1808條經(jīng)驗(yàn) 獲得超4個(gè)贊
'自定義函數(shù)不是SUB 過(guò)程，你如果不是要自定義函數(shù)，自己修改一下吧 Function ss(rg, ParamArray n_arr()) As VariantApplication.Volatile '易失函數(shù) Dim nr As Long, nc As Long, n As LongDim i As Long, j As Long, k as long Dim s As LongDim arr If IsMissing(n_arr) Thenss = "條件缺件"Exit FunctionEnd Ifarr = rgnr = UBound(arr, 1)nc = UBound(arr, 2)n = UBound(n_arr) + 1For i = 1 To nr For j = 1 To nc For k = 1 To n If arr(i, j) = n_arr(k - 1) Then s = s + 1 Next Next If n = s Then ss = ss + 1 End If s = 0NextEnd Function
添加回答
舉報(bào)
0/150
提交
取消