vba自义函数小结.docxVIP

小结： 函数参数前面标记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 GoTo kk End If Next i kk: getnum = Val(ss) 注意是val不是value,在sheet中是value函数，在vb中则是val函数 End Function Public Function getnum2(str, m) ss = f = 0 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 把range a的值赋给a1，a是几行几列的range，a1就是 几行几列的数组。注意a1是一个variant数组，即a1中的不同元素可以属性不同，a1中某个元素是字符，另一个可以是整数。 b1 = b 把range b的值赋给b1 For i = 1 To UBound(a1, 1) UBound(a1, 1)指的是数组a1第1维度的大小，即a1的行数 For j = 1 To UBou