vba自定义函数小结_vba自定义函数
vba自定义函数小结由刀豆文库小编整理，希望给你工作、学习、生活带来方便，猜你可能喜欢“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 i1 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 i1 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)= “” For i = m To Len(str)If InStr(“0123456789.”, Mid(str, i, 1))0 Then = & Mid(str, i, 1)Else GoTo kk End If Next i kk: getnum = Val()'注意是val不是value,在sheet中是value函数，在vb中则是val函数 End Function Public Function getnum2(str, m)= “” f = 0 For i = m To Len(str)If InStr(“0123456789.”, Mid(str, i, 1))0 Then = & Mid(str, i, 1)Else If f = 1 And “” Then GoTo kk End If f = 1 End If Next i kk: getnum2 = Val()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 UBound(a1, 2)
' UBound(a1, 2)指的是数组a1第2维度的大小，即a1的列数 If a1(i, j)= “” Then
'判断a1(i,j)是不是空白，如果是，那就赋0值。a1(i, j)= 0 End If Next j Next i
For i = 1 To UBound(b1, 1)For j = 1 To UBound(b1, 2)If b1(i, j)= “” Then b1(i, j)= 0 End If Next j Next i
NewMmult = Application.MMult(a1, b1)
End Function
Public Function sim(str1, str2)
If Len(str2)= 0 Then
sim = 0
GoTo kk
End If
sim = 0
For i = 1 To Len(str2)
If InStr(str1, Mid(str2, i, 1))0 Then
sim = sim + 1
End If
Next i
sim = sim / Len(str2)kk: End Function Public Function sima(ByVal str1, ByVal str2)
If Len(str2)= 0 Then
sima = 0
GoTo kk
End If
sima = 0
l = Len(str2)
For i = 1 To Len(str2)
If InStr(str1, Mid(str2, i, 1))0 Then
sima = sima + 1
str1 = Application.WorksheetFunction.Substitute(str1, Mid(str2, i, 1), “”, 1)
End If
Next i
sima = sima / l kk: End Function
Public Function mcc(rng, rng1, str1, Optional rng2 = “”, Optional str2, Optional rng3 = “”, Optional str3, Optional rng4 = “”, Optional str4, Optional rng5 = “”, Optional str5)r = rng r1 = rng1 r2 = rng2 r3 = rng3 r4 = rng4 r5 = rng5 mcc = “”
If Application.CountA(rng2)= 1 Then For i = 1 To UBound(r, 1)
' UBound(a1, 1)指的是数组a1第1维度的大小，即a1的行数 If Application.WorksheetFunction.And(r1(i, 1)= str1)Then mcc = r(i, 1)GoTo kk End If Next i End If
If Application.CountA(rng3)= 1 Then For i = 1 To UBound(r, 1)
' UBound(a1, 1)指的是数组a1第1维度的大小，即a1的行数 If Application.WorksheetFunction.And(r1(i, 1)= str1, r2(i, 1)= str2)Then mcc = r(i, 1)GoTo kk End If Next i End If
If Application.CountA(rng4)= 1 Then For i = 1 To UBound(r, 1)
' UBound(a1, 1)指的是数组a1第1维度的大小，即a1的行数 If Application.WorksheetFunction.And(r1(i, 1)= str1, r2(i, 1)= str2, r3(i, 1)= str3)Then mcc = r(i, 1)GoTo kk End If Next i End If
If Application.CountA(rng5)= 1 Then For i = 1 To UBound(r, 1)
' UBound(a1, 1)指的是数组a1第1维度的大小，即a1的行数 If Application.WorksheetFunction.And(r1(i, 1)= str1, r2(i, 1)= str2, r3(i, 1)= str3, r4(i, 1)= str4)Then mcc = r(i, 1)GoTo kk End If Next i End If
For i = 1 To UBound(r, 1)
' UBound(a1, 1)指的是数组a1第1维度的大小，即a1的行数 If Application.WorksheetFunction.And(r1(i, 1)= str1, r2(i, 1)= str2, r3(i, 1)= str3, r4(i, 1)= str4, r5(i, 1)= str5)Then mcc = r(i, 1)GoTo kk End If Next i
kk: End Function
Public Function mccd(rng, rng1, str1, Optional rng2 = “”, Optional str2, Optional rng3 = “”, Optional str3, Optional rng4 = “”, Optional str4, Optional rng5 = “”, Optional str5)
r = rng r1 = rng1 r2 = rng2 r3 = rng3 r4 = rng4 r5 = rng5 mccd = “”
If Application.CountA(rng2)= 1 Then
For i = 1 To UBound(r, 2)
' UBound(a1, 1)指的是数组a1第1维度的大小，即a1的行数 If Application.WorksheetFunction.And(r1(1, i)= str1)Then
mccd = r(1, i)GoTo kk End If Next i End If
If Application.CountA(rng3)= 1 Then For i = 1 To UBound(r, 2)
' UBound(a1, 1)指的是数组a1第1维度的大小，即a1的行数 If Application.WorksheetFunction.And(r1(1, i)= str1, r2(1, i)= str2)Then mccd = r(1, i)GoTo kk End If Next i End If
If Application.CountA(rng4)= 1 Then For i = 1 To UBound(r, 2)
' UBound(a1, 1)指的是数组a1第1维度的大小，即a1的行数 If Application.WorksheetFunction.And(r1(1, i)= str1, r2(1, i)= str2, r3(1, i)= str3)Then mccd = r(1, i)GoTo kk End If Next i End If
If Application.CountA(rng5)= 1 Then For i = 1 To UBound(r, 2)
' UBound(a1, 1)指的是数组a1第1维度的大小，即a1的行数 If Application.WorksheetFunction.And(r1(1, i)= str1, r2(1, i)= str2, r3(1, i)= str3, r4(1, i)= str4)Then mccd = r(1, i)GoTo kk End If Next i End If
For i = 1 To UBound(r, 2)
' UBound(a1, 1)指的是数组a1第1维度的大小，即a1的行数 If Application.WorksheetFunction.And(r1(1, i)= str1, r2(1, i)= str2, r3(1, i)= str3, r4(1, i)= str4, r5(1, i)= str5)Then mccd = r(1, i)GoTo kk End If Next i
kk: End Function
Public Function nsim(str, rng)'r1 = rng 'r2 = rng 'str1 = str 'str2 = str
v = sima(str, r(1, 1))+ sima(r(1, 1), str2)'str1 = str
‘这里不再需要赋值，因为sima设置的是值传递byval，sima调用实参str和r(1,1)不影响实参。'str2 = str k = 1 For i = 2 To UBound(r, 1)m =(sima(str, r(i, 1))+ sima(r(i, 1), str))'str1 = str 'str2 = str If v
