Чтобы создать короткое целое число из двух байтов в Excel VBA, вы можете использовать побитовые операции. Вот несколько методов с примерами кода:

Метод 1: использование побитового сдвига и операций побитового ИЛИ

Dim byte1 As Byte
Dim byte2 As Byte
Dim result As Integer
byte1 = 255 ' Example byte value
byte2 = 128 ' Example byte value
result = (byte1 << 8) Or byte2

Метод 2: использование операций побитового сдвига и побитового сложения

Dim byte1 As Byte
Dim byte2 As Byte
Dim result As Integer
byte1 = 255 ' Example byte value
byte2 = 128 ' Example byte value
result = (byte1 * 256) + byte2

Метод 3. Использование операций побитового сдвига и побитового сложения с преобразованием типов

Dim byte1 As Byte
Dim byte2 As Byte
Dim result As Integer
byte1 = 255 ' Example byte value
byte2 = 128 ' Example byte value
result = CInt(byte1) * 256 + CInt(byte2)

Во всех приведенных выше методах мы предполагаем, что byte1и byte2— это два байта, которые вы хотите объединить в короткое целое число.