VBA：从两个字节生成一个短整数

在 VBA 中，我们可以使用一个叫做 Int16 的数据类型来存储一个短整数（16 位有符号整数）。有时候我们需要从两个字节中生成一个短整数，比如从一串二进制数据中解析出数据，那么我们可以用以下方法来实现。

Function BytesToShort(byte1 As Byte, byte2 As Byte) As Integer
    BytesToShort = byte1 * 256 + byte2
End Function

上面的函数接受两个字节作为参数，然后将它们组合成一个短整数并返回。这里用到了一个基本的二进制原理，将第一个字节左移 8 位（即乘以 256），再加上第二个字节，就得到了组合后的结果。

下面是一个使用示例：

Sub TestBytesToShort()
    Dim b1 As Byte, b2 As Byte
    b1 = &H12
    b2 = &H34
    Debug.Print BytesToShort(b1, b2)  '输出 4660
End Sub

上面的代码首先定义了两个字节变量 b1 和 b2，并给它们赋了十六进制值 &H12 和 &H34，然后调用了 BytesToShort 函数将它们组合成一个短整数，并输出了结果 4660。

除此之外，我们还可以用以下方法将一个短整数拆分成两个字节：

Sub ShortToBytes(num As Integer, ByRef byte1 As Byte, ByRef byte2 As Byte)
    byte1 = Int(num / 256)
    byte2 = num Mod 256
End Sub

这里的函数接受一个短整数作为参数，然后将它拆分成两个字节并存到传入的参数变量 byte1 和 byte2 中。拆分的方法与组合的方法正好相反，先将短整数除以 256 取整，得到的商就是第一个字节，再将短整数对 256 取余，得到的余数就是第二个字节。

下面是一个使用示例：

Sub TestShortToBytes()
    Dim b1 As Byte, b2 As Byte
    ShortToBytes 4660, b1, b2
    Debug.Print b1, b2  '输出 &H12 &H34
End Sub

上面的代码调用了 ShortToBytes 函数将整数 4660 拆分成两个字节，并将结果存到 b1 和 b2 中，最后输出 &H12 和 &H34。