如何实现在excel表里插入crc校验

Question

我在一个表格里需要对ABCDEF六个格里的数字进行CRC16校验，并且CRC码放在GH里面。请问高手们怎么实现？详细一点可以加分

Answer 1

实际流程产生了两个问题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 

Answer 2

liuxiaoyi666高手，我两个都不太会，我的excel是office xp版本。另外，vba可以调用dll文件吗？

Answer 3

vba可以调用dll,尤其是com...是灰常的简单的....office xp跟2003接近...

Answer 4

最近我开始忙了  (你要帮我写 脚本解释器,我帮你写vba,玩笑)我没有office xp了,这个你还是自己先研究吧,我尽量跟一下你的帖子有具体问题了问...google excel vba编程,有很多入门的文章

Answer 5

看一下 EXCEL应该把CRC放在默认公式里。