帮我转成vba自定义函数目前已有公式,但使用时不方便,请高手帮我转换成自定义函数：=if(LEN(B6)16,"贷款卡编码必须为16位",if(RIGHT(CONCATENATE("0",1+MOD(SUM((FIND(MID(B6,｛1,2,3},1),"0123456789ABCDEFGHIJKLMNOPQRS

来源：学生作业帮助网 编辑：作业帮 时间：2024/11/27 17:27:11
帮我转成vba自定义函数目前已有公式,但使用时不方便,请高手帮我转换成自定义函数：=if(LEN(B6)16,
xUOPWA.n c l( PކlA3BxaEM| 0(f'w O;7ӎ7žLosjA7cN[N^bypVZQ<3X>8|y^40ds@L#({ 2ީ)lig+_ţ],cc(X@dˆ 0%

帮我转成vba自定义函数目前已有公式,但使用时不方便,请高手帮我转换成自定义函数：=if(LEN(B6)16,"贷款卡编码必须为16位",if(RIGHT(CONCATENATE("0",1+MOD(SUM((FIND(MID(B6,｛1,2,3},1),"0123456789ABCDEFGHIJKLMNOPQRS
帮我转成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),"","贷款卡编码校验码错误"))

帮我转成vba自定义函数目前已有公式,但使用时不方便,请高手帮我转换成自定义函数：=if(LEN(B6)16,"贷款卡编码必须为16位",if(RIGHT(CONCATENATE("0",1+MOD(SUM((FIND(MID(B6,｛1,2,3},1),"0123456789ABCDEFGHIJKLMNOPQRS

ok

Function 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自定义函数目前已有公式,但使用时不方便,请高手帮我转换成自定义函数：=if(LEN(B6)16,贷款卡编码必须为16位,if(RIGHT(CONCATENATE(0,1+MOD(SUM((FIND(MID(B6,｛1,2,3},1),0123456789ABCDEFGHIJKLMNOPQRS 帮我转成vba自定义函数目前已有公式,但使用时不方便,请高手帮我转换成自定义函数：=if(LEN(B6)16,贷款卡编码必须为16位,if(RIGHT(CONCATENATE(0,1+MOD(SUM((FIND(MID(B6,｛1,2,3},1),0123456789ABCDEFGHIJKLMNOPQRS 如何利用excel中vba自定义函数产生一组指定区间波动的随机数,有合格率限制如何利用excel中vba自定义函数产生一组指定区间波动的随机数,且有合格率限制?具体要求如下需用excel vba自定义函数 EXCEL（自定义函数（VBA） ）以某一个字或词（字或词：包括数字、字母、中文）为参照,提取它的下一单元要求：采用自定义函数（VBA）公式提取的内容适应（数字、字母、中文） 关于vba 自定义公式 在工作表1中,A列有不清楚多少行的数据,要是B列的每个单元格与A列一一对应并且=2*pi*关于vba 自定义公式 在工作表1中,A列有不清楚多少行的数据,即有“i 行,要是B列的每个 数学公式推导：计算可照时数以上为中华人民共和国气象行业标准QX/T-2006可照时数的计算公式截图,有没有高手可以用上面的公式转成一个Excel VBA能用或类似a=b+c的公式? 如何把一列中三个不同的文本个数计数在一起,用VBA自定义函数能解决吗? 请高手帮我转成文言 用matlab拟合 对数函数的问题请问matlab是不是不支持 y=b+klog(x-a) 的对数拟合?就是自定义公式中不能 用 log(x-t)?aquex:我的意思你没明白，我是说，如果自定义的公式里，有三个常量，是不是就 Excel中如何用公式将123转换成1,2,3EXCEL2007单元格中如A1为123,B1则用公式转换成1,2,3A1:885188,B1:8,8,5,1,8,8楼下两位辛苦了,我是希望有一个公式就直接形成VBA不会用且宏被禁止,多公式我也会,但批量 谁帮我搞个自定义字图 文字：陌 金蝶中,自定义公式+. 有没有哪个好心人帮我ps一张图啊?要炫舞自定义戒指无背景的图, 无符号整数转成有符号整数为什么无符号整数65535转成有符号的就变成-1了 哪位大侠能详细的讲解下,我要知道的是为什么不是随便给个函数什么的 最好具体帮我分析下 谢谢各位大哥了回答 请教函数问题公式你好,请教函数问题在横排并列的K4,L4,M4三个单元格,目前我已将M4单元格设置公式M4=ROUND((G4+J4-P4),2),现我想在目前M4这个公式不改变的基础上,当K4,L4单元格值为空白或0的时候, 帮我把“角落”转成繁体字,角落转成繁体字或火星文, 谁帮我把 这情、我伤了 转成繁体字 EXCEL表格中函数工程公式的字母都表示啥意思?刚学excel表格!我的是W7系统,问问工程函数公式中字母都表示啥意思 比如SUM表示求和!还有,VBA是啥意思?