集装柜 柜号验证

标准柜号构成基本概念：采用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

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

 

 

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114

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