帮我转成vba自定义函数

来源：学生作业帮编辑：拍题作业网作业帮分类：综合作业时间：2024/04/27 14:51:01

帮我转成vba自定义函数
目前已有公式,但使用时不方便,请高手帮我转换成自定义函数：=if(LEN(B6)16,"贷款卡编码必须为16位",if(RIGHT(CONCATENATE("0",1+MOD(SUM((FIND(MID(B6,｛1,2,3},1),"0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ")-1)*{1,3,5})+SUM((FIND(MID(B6,{4,5,6,7,8,9,10,11,12,13,14},1),"0123456789")-1)*7,11,2,13,1,1,17,19,97,23,29}),97)),2)=MID(B6,15,2),"","贷款卡编码校验码错误"))

okFunction NumVerify(ChNum As String) As String
Dim Arr0toZ$, Arr0to9$, ArrChar$(1 To 14), Arr135, Arr729
Dim i%, x!
If Len(ChNum) <> 16 Then
    NumVerify = "贷款卡编码必须为16位"
    Exit Function
End If
For i = 1 To 14
    ArrChar(i) = Mid(ChNum, i, 1)
Next i
Arr0toZ = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
Arr0to9 = "0123456789"
Arr135 = Array("1", "3", "5")
Arr729 = Array("7", "11", "2", "13", "1", "1", "17", "19", "97", "23", "29")
For i = 1 To 3
    x = x + (WorksheetFunction.Find(ArrChar(i), Arr0toZ) - 1) * Arr135(i - 1)
Next i
For i = 4 To 14
    x = x + (WorksheetFunction.Find(ArrChar(i), Arr0to9) - 1) * Arr729(i - 4)
Next i
If Right(1 + x Mod 97, 2) <> Mid(ChNum, 15, 2) Then
    NumVerify = "贷款卡编码校验码错误"
End If
End Function

帮我转成vba自定义函数 VBA 自定义函数问题如何用vba在excel中自定义一个函数如何利用excel中vba自定义函数产生一组指定区间波动的随机数,有合格率限制如何把一列中三个不同的文本个数计数在一起,用VBA自定义函数能解决吗? 请高手帮我转成文言帮我把“角落”转成繁体字, 请帮我把中文名转成英文名高手帮我转成下文言文, EXCEL（自定义函数（VBA））以某一个字或词（字或词：包括数字、字母、中文）为参照,提取它的下一单元谁帮我搞个自定义字图文字：陌 c语言求三角形面积如果我不自定义函数能做这道题么?我写了个编程大虾帮我看下#include"stdio.h"#incl