如何实现在excel表里插入crc校验
我在一个表格里需要对ABCDEF六个格里的数字进行CRC16校验,并且CRC码放在GH里面。
请问高手们怎么实现?详细一点可以加分
[解决办法]
实际流程产生了两个问题
vba操作excel你会么??
另外一个问题是crc16的校验算法你会么??
前者不会的话,你的office版本是多少...针对2003开发还是2007开发
后一个不会的话
参考
Public Function GetModBusCRC(ByVal DATA As String) As Long Dim i As Long, J As Long, v() As Byte: v = DATA '1.预置1个16位的寄存器为十六进制FFFF(即全为1):称此寄存器为CRC寄存器; Dim CRC As Long: CRC = &HFFFF& For i = 0 To UBound(v) '2.把第一个8位二进制数据(既通讯信息帧的第一个字节)与16位的CRC寄存器的低8位相异或,把结果放于CRC寄存器; CRC = (CRC \ 256) * 256& + (CRC Mod 256&) Xor v(i) For J = 0 To 7 '3.把CRC寄存器的内容右移一位(朝低位)用0填补最高位,并检查最低位; '4.如果最低位为0:重复第3步(再次右移一位); ' 如果最低位为1:CRC寄存器与多项式A001(1010 0000 0000 0001)进行异或; '5.重复步骤3和4,直到右移8次,这样整个8位数据全部进行了处理; Dim d0 As Long: d0 = CRC And 1& CRC = CRC \ 2 If d0 = 1 Then CRC = CRC Xor &HA001& Next J '6.重复步骤2到步骤5,进行通讯信息帧下一字节的处理; Next i '7.最后得到的CRC寄存器内容即为:CRC码。 GetModBusCRC = CRC End Function