集装柜 柜号验证

标准柜号构成基本概念：采用ISO6346（1995）标准。

标准集装箱箱号由11位编码组成，包括三个部分：（4位英文字母+6位数字+1位校验码）

1、 第一部分由4位英文字母组成。前三位代码 (Owner Code) 主要说明箱主、经营人，第四位代码说明集装箱的类型（所有海运柜子的第四个字母，都是U，是用于海运集装箱的代号）。列如CBHU 开头的标准集装箱是表明箱主和经营人为中远集运。

2、 第二部分由6位数字组成。是箱体注册码（Registration Code），用于一个集装箱箱体持有的唯一标识。

3、 第三部分为校验码（Check Digit）由前4位字母和6位数字经过校验规则运算得到，用于识别在校验时是否发生错误。即第11位数字。

根据校验规则箱号的每个字母和数字都有一个运算的对应值。箱号的前10位字母和数字的对应值从0到Z对应数值为0到38，11、22、33不能对11取模数，所以要除去

第N位的箱号对应值再分别乘以2的N－1次方 （N=1，2，3………..10）

例如：箱号为CBHU3202732的集装箱它的第1位代码为C，

它的代码值=代码的对应值×2的0次方 =13×1=13。

类推第2位代码为B

它的代码值=代码的对应值×2的1次方 =12×2=24

以此类推得到箱号前10位代码的代码值。

将前10位的代码值乘积累加后对11取模

箱号为CBHU3202732的集装箱前10位箱号的代码累加值=4061，取11的模后为2，就是这个箱号第11位的识别码的数值。

公式

校验码S=∑Ci*2

以此类推，就能得到校验码。

Public Sub 集装箱编码验证()
On Error Resume Next
Dim row1 As Integer, col1 As Integer, b As Integer
Dim row2 As Integer, col2 As Integer, c As Integer
row1 = Range(Selection.Address).Row
row2 = Range(Selection.Address).Rows.Count + row1 - 1
col1 = Range(Selection.Address).Column
col2 = Range(Selection.Address).Columns.Count + col1 - 1
d = 0
For i = row1 To row2
For j = col1 To col2
c = 0
For k = 1 To 10 '取字符计算循环
If Len(Cells(i, j)) = 11 Then
a = Mid(LCase(Cells(i, j)), k, 1)
Select Case a
Case Is = "0"
b = 0
Case Is = "1"
b = 1
Case Is = "2"
b = 2
Case Is = "3"
b = 3
Case Is = "4"
b = 4
Case Is = "5"
b = 5
Case Is = "6"
b = 6
Case Is = "7"
b = 7
Case Is = "8"
b = 8
Case Is = "9"
b = 9
Case Is = "a"
b = 10
Case Is = "b"
b = 12
Case Is = "c"
b = 13
Case Is = "d"
b = 14
Case Is = "e"
b = 15
Case Is = "f"
b = 16
Case Is = "g"
b = 17
Case Is = "h"
b = 18
Case Is = "i"
b = 19
Case Is = "j"
b = 20
Case Is = "k"
b = 21
Case Is = "l"
b = 23
Case Is = "m"
b = 24
Case Is = "n"
b = 25
Case Is = "o"
b = 26
Case Is = "p"
b = 27
Case Is = "q"
b = 28
Case Is = "r"
b = 29
Case Is = "s"
b = 30
Case Is = "t"
b = 31
Case Is = "u"
b = 32
Case Is = "v"
b = 34
Case Is = "w"
b = 35
Case Is = "x"
b = 36
Case Is = "y"
b = 37
Case Is = "z"
b = 38
Case Else
Cells(i, j).Interior.ColorIndex = 3

d = d + 1
Exit For

End Select

c = 2 ^ (k - 1) * b + c
Else
End If
Next k
If (c Mod 11) Mod 10 <> Mid(Cells(i, j), 11, 1) Then
Cells(i, j).Interior.ColorIndex = 3 '不符合填充红色

d = d + 1
Else
Cells(i, j).Interior.ColorIndex = 4
End If

Next j
Next i

MsgBox "有" & d & "处箱号错误或为空。绿色填充为正确箱号。"
Workbooks("集装箱编码校验.xls").Close
End Sub