用VBA將這個改寫成自定義函數 而且不能用goto語句----://pan.baidu.com/s/1slIP89R 把----改寫http可以
1 回答
炎炎設計
TA貢獻1808條經驗 獲得超4個贊
'自定義函數不是SUB 過程，你如果不是要自定義函數，自己修改一下吧 Function ss(rg, ParamArray n_arr()) As VariantApplication.Volatile '易失函數 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
添加回答
舉報
0/150
提交
取消