VBA Excel MID函数数组

kgqe7b3p  于 2023-01-27  发布在  其他
关注(0)|答案(2)|浏览(160)

我尝试创建一个函数来计算UPC校验位。我需要做的一部分是,将1,3,5,7,9,11位的字符相加,然后乘以3。所以在我的代码中,我想使用MID函数,我假设,但我不知道如何让其他字符使用它,因为MID函数只允许我选择一个起始数字,就像我可以写一行“CD = Mid(UPC,1,1)",但我需要公式中的第一个“1”,即(1,3,5,7,9,11)。我是否必须为每个数字编写六次Mid函数并将其连接起来?或者是否有办法一次得到所有这些数字?

hxzsmxv2

hxzsmxv21#

您可以使用以下公式:

=SUM(NUMBERVALUE(MID(A1,{1;3;5;7;9;11},1)))*3

根据您的Excel语言,您可能必须在花括号中使用逗号。
或者您需要纯VBA解决方案?

jogvjijk

jogvjijk2#

这将处理可变长度UPC

UPC = "1234567891011"
CD = 0
For i = 1 To Len(code) Step 2
    CD = CD + Mid(UPC, i, 1)
Next

CD = CD * 3

相关问题