EXCEL如何实现CRC16-MODBUS的计算

原创

已于 2023-12-19 00:53:53 修改 · 4k 阅读

15 ·

CC 4.0 BY-SA版权

文章标签：

#excel

于 2023-12-19 00:46:41 首次发布

1、创建启用宏的EXCEL文件，一般文件后缀为*.xlsm。

2、选择开发工具 --- Visual Basic。（如果没有，那就去找找相关文章，如何调出开发工具，相关文章很多）

3、创建模块

4、输入代码（最核心）

Function CalculateCRC(inputHex As String) As String
    Dim i As Integer
    Dim j As Integer
    Dim crc As Integer
    Dim crcLowByte As Byte
    Dim crcHighByte As Byte
    
    crc = &HFFFF
                
    For i = 1 To Len(inputHex) Step 2
        crc = crc Xor Val("&H" & Mid(inputHex, i, 2))
        For j = 1 To 8
            If (crc And 1) = 1 Then
                crc = ((crc And &HFFFF&) \ 2) Xor &HA001
                
            Else
                crc = (crc And &HFFFF&) \ 2
            En