[原创]条码校验位的计算公式

xgxjohn

条码校验位的计算公式

不知哪位可以帮我简化,谢谢!

FsJvU9mM.rar (2.09 KB, 下载次数: 986)

2004-12-5 14:31 上传

点击文件名下载附件
[原创]条码校验位的计算公式

gdliyy

以下是引用chenjun在2004-12-5 22:50:00的发言： 文本 {=MID("1234567890",10-RIGHT(SUM(MID($A$1,ROW(INDIRECT("1:12")),1)*{1;3;1;3;1;3;1;3;1;3;1;3})),1)} 数值 {=MOD(10-RIGHT(SUM(MID($A$1,ROW(INDIRECT("1:12")),1)*{1;3;1;3;1;3;1;3;1;3;1;3})),10)}

该公式还可以简化： =MOD(10-SUM(MID($A$1,ROW(INDIRECT("1:12")),1)*(3-MOD(ROW(INDIRECT("1:12")),2)*2)),10)

apolloh

数组公式

{=MOD(-SUM(MID($A$1,ROW($1:$12),1)*(3-(MOD(ROW($1:$12),2)*2))),10)}

自定义函数

Function VINCODE(Str12 As String) As String Dim a As Byte Dim b As Byte Dim i As Byte For i = 0 To 5 a = a + Mid(Str12, (i + 1) * 2, 1) b = b + Mid(Str12, i * 2 + 1, 1) Next i VINCODE = Str12 & (10 - (a * 3 + b) Mod 10) Mod 10

End Function

5jqWmh4E.rar (6.67 KB, 下载次数: 526)

2004-12-6 08:46 上传

点击文件名下载附件
[原创]条码校验位的计算公式

apolloh

以下是引用gdliyy在2004-12-6 8:37:00的发言： 该公式还可以简化： =MOD(10-SUM(MID($A$1,ROW(INDIRECT("1:12")),1)*(3-MOD(ROW(INDIRECT("1:12")),2)*2)),10)

呵呵，不是剽窃，偶看到时没有gdliyy版主的公式

apolloh

以下是引用一意孤行在2004-12-6 8:56:00的发言：

呵呵，公式越做越完美了。

菠萝是这个用法更精炼！ MOD(-SUM......,10)

呵呵，还可以更短

{=MOD(SUM(MID(A1,ROW($1:$12),1)*(MOD(ROW($1:$12),2)*2-3)),10)}

apolloh

普通公式

=MOD(SUMPRODUCT(MID(A1,ROW($1:$12),1)*(MOD(ROW($1:$12),2)*2-3)),10)

gdliyy

呵呵~~~公式越来越好，最初只想到省掉Right()函数，还应该去掉10的！[em04][em04][em04]

kkitt

以下是引用apolloh在2004-12-6 9:11:00的发言：

普通公式

=MOD(SUMPRODUCT(MID(A1,ROW($1:$12),1)*(MOD(ROW($1:$12),2)*2-3)),10)

是这样吧

=MOD(SUMPRODUCT(MID(A1,ROW($1:$12),1),(MOD(ROW($1:$12),2)*2-3)),10)

wangtx218

是这样吧

=MOD(SUMPRODUCT(MID(A1,ROW($1:$12),1),(MOD(ROW($1:$12),2)*2-3)),10)

不对

apolloh

=MOD(-SUM(MID($A$1,{0,1}+{1;3;5;7;9;11},1)*{1,3}),10)

呵呵，这短了一点，谢谢版主，又让偶学到了

ROW($1:$12)，下次改正！

[此贴子已经被作者于2004-12-6 12:04:05编辑过]