在vba中交换参数的字节顺序

Question

我正在创建一个 Excel 工作表，它需要能够接收十进制格式的参数列表（不同大小、有符号和无符号），并从中生成十六进制字符串。然而问题是字符串中的参数需要是小端字节序，而字符串本身是大端字节序。我正在使用 VBA 来执行此操作，但我对此很陌生并且遇到了困难。我认为在将每个参数添加到字符串之前，我需要交换每个参数的字节顺序。我查看了这个网站和网络，但没有找到任何简单的解决方案来解决我猜应该是一个简单的问题。如果有人有任何建议，我们将不胜感激。

到目前为止，我用于生成字符串的代码如下所示：

SubGenerate_String()

Dim funcset As String
Dim y As String
x = 0
z = 0
funcset = ""
'while variant column is not empty
Do While ((Trim(Cells(2, 4 + z).Value) <> "") And (Trim(Cells(2, 4 + z).Value) <> "0"))

    Do
        'check if last cell in the column
        If Trim(Cells(4 + x, 1).Value) = "VALUE" Then
            'convert cell contents to hex
             y = Hex(Cells(3 + x, 4 + z).Value)

            'add the converted value to the string
            funcset = funcset + "0x" + y
            x = x + 1

        Else
            'convert cell contents to hex
            y = Hex(Cells(3 + x, 4 + z).Value)
            'add the converted value to the string
            funcset = funcset + "0x" + y + " " 
            x = x + 1

        End If
    ' continue until end of column is reached
    Loop While Trim(Cells(3 + x, 1).Value) <> "VALUE"

    'write the string  to corresponding cell
    Cells(3 + x, 4 + z).Value = funcset
    funcset = ""
    x = 0
    z = z + 1

Loop

EndSub

这是一些示例数据： 数据已生成字符串，但字节序交换尚未完成

Answer 1

我不懂 VBA，但这是我遵循的算法。

for each parameter in parameter_list
    for i = 1 to (number of bytes in parameter type)
        append 2-character hex value of (parameter mod 256) to string
        parameter = parameter / 256

如果 VBA 语法与 Excel 函数类似，我认为您可以在 HEX() 函数调用中添加第二个参数 ,2 来强制它使用 2 个字符。