首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

怎么实现在excel表里插入crc校验

2012-01-26 
如何实现在excel表里插入crc校验我在一个表格里需要对ABCDEF六个格里的数字进行CRC16校验,并且CRC码放在GH

如何实现在excel表里插入crc校验
我在一个表格里需要对ABCDEF六个格里的数字进行CRC16校验,并且CRC码放在GH里面。

请问高手们怎么实现?详细一点可以加分

[解决办法]
实际流程产生了两个问题

vba操作excel你会么??

另外一个问题是crc16的校验算法你会么??

前者不会的话,你的office版本是多少...针对2003开发还是2007开发

后一个不会的话

参考

VB code
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 

热点排行