vba自定义函数小结.docxVIP

— PAGE \* Arabic 1 — vba自定义函数小结 小结：  函数参数前面标记byval，实现的是实参与形参之间的值传递，即形参具有了实参的值或者说建立了一个实参的副本给了形参，这样对形参的操作不会影响实参；  函数参数前面标记byref，实现的是实参与形参之间的引用传递，这样对形参的操作会影响实参，或者说对形参的操作等同于对实参的操作；  在函数内部使用“r=形参”，实现的是把形参的副本给r，在函数中对r操作不会影像形参，如果使用“set r=形参”，那么对r的操作会影响形参，这里实现的效果是r只是形参的一个别名而已，所以对r 的操作等同于对形参的操作。  在函数中形参前面不标记byref和byval，默认是引用传递byref，但是这种情况下如果实参是excel中worksheet的range区域，则默认是值传递。  有时调试结果不符合预期，比如值传递，对””r=形参”中的r操作，居然影响形参了，这可能是由于excel一时程序错乱导致，关闭重启就好了。  Public Function tjbcf(rng)  r = rng Set r = rng注意带着set是错误的  k = 0  If UBound(r, 1) 1 And UBound(r, 2) = 1 Then  For i = 1 To UBound(r, 1)  f = 0  For j = 1 To i - 1  If r(i, 1) = r(j, 1) Then  f = 1  Exit For  End If  Next j  If f = 0 And r(i, 1) Then  k = k + 1  End If  Next i  End If  If UBound(r, 1) = 1 And UBound(r, 2) 1 Then For i = 1 To UBound(r, 2)  f = 0  For j = 1 To i - 1  If r(1, i) = r(1, j) Then  f = 1  Exit For  End If  Next j  If f = 0 And r(1, i) Then  k = k + 1  End If  Next i  End If  If UBound(r, 1) 1 And UBound(r, 2) 1 Then For i = 1 To UBound(r, 1)  For j = 1 To UBound(r, 2)  If r(i, j) = Then  f = 1  GoTo kk  End If  f = 0  For m = 1 To i - 1  For n = 1 To UBound(r, 2)  If r(i, j) = r(m, n) Then  f = 1  GoTo kk  End If  Next n  Next m  For n = 1 To j - 1  If r(i, j) = r(i, n) Then  f = 1  GoTo kk  End If  Next n  kk:  If f = 0 Then  k = k + 1  End If  Next j  Next i  End If  tjbcf = k  End Function  Public Function getnum(str, m)  ss =  For i = m To Len(str)  If InStr(0123456789., Mid(str, i, 1)) 0 Then  ss = ss Mid(str, i, 1)  Else  If f = 1 And ss Then  GoTo kk  End If  f = 1  End If  Next i  kk:  getnum2 = Val(ss)  End Function  Public Function NewMmult(a, b)  a1 = a