VBA Excel：Dec2Hex不止一个地方

Posted 2023-01-11

在宏（如下所示）中，我将一行单元格从十进制转换为十六进制。当我使用正常的Dec2Hex转换（不在VBA中）时，我可以获得两个位置（8 - > 08）。但是，当我使用Dec2Hex转换IN VBA时，我似乎无法获得2个位置，直到我实际需要字符（8 - > 8但10 - > 0A）。如果不添加0，我怎么能强制最后一个字符。谢谢！

跟进

我注意到一件有趣的事情是，如果你查看宏，我会在每个十六进制值后添加一个空格。但是，在查看生成的文件时，仅在存在两个字符时才添加空格。

样品

F3 07 00 31 FA 10 //

F3 07 00 31 FB 20 //

F3 07 00 31 FC 00 //

F3 25 00 31 FF 830B 5114 // < - 注意奇数间距。应该看起来像...... 08 03 0B ......

F3 07 00 31 FA 11 //

Private Sub CommandButton3_Click()

Dim fso As New FileSystemObject
Dim stream As TextStream
Dim FilePath As String
Dim saveDialog As Variant
Dim hexVal As String
Dim updateRate As String

'"N" is selected elsewhere by the user and simply dictates how far down a row cells are active     


For i = 4 To N + 3
    Cells(3, i) = Application.WorksheetFunction.Dec2Hex(Cells(2, i), 2) & " "
Next i

For i = 4 To N + 3
    hexVal = hexVal & Cells(3, i)
Next i

updateRate = ComboBox1.Value

saveDialog = Application.GetSaveAsFilename(FileFilter:="Script Files(*.us1),*.us1")

    Set stream = fso.OpenTextFile(saveDialog, ForWriting, True)

        stream.WriteLine "F3 07 00 31 FA 10 // "
        stream.WriteLine "F3 07 00 31 FB " + updateRate + " // "
        stream.WriteLine "F3 07 00 31 FC 00 // "
        stream.WriteLine "F3 25 00 31 FF " + hexVal + "// "
        stream.WriteLine "F3 07 00 31 FA 11 // "

    stream.Close

End Sub

答案

我认为问题是单元格3，i是数字或一般的。这些中的任何一个都会截断前导零。但是，如果将单元格格式更改为TEXT，则在写出文件之前，前导零不会被截断。

另一答案

你做了：

> For i = 4 To N + 3
>     Cells(3, i) = Application.WorksheetFunction.Dec2Hex(Cells(2, i), 2) & " " 
> Next i
> 
> For i = 4 To N + 3
>     hexVal = hexVal & Cells(3, i) 
> Next i

首先，VBA（Excel）具有“hex（）”函数，为什么使用worksheetfunction.dec2hex？第二，为什么你使用单元格来存储你的十六进制以便以后检索并插入到hexval中？

您可以将两者替换为：

For i = 4 To N + 3
    hext = hex(cells(2,i)) & " "
    Cells(3, i) = hext
    hexVal = hexVal & hext
Next i

如果您想要十六进制值的偶数位数，例如“B”变为“0B”，则3FC变为03FC，然后：

For i = 4 To N + 3
    hext = hex(cells(2,i)) & " "
    if len(hext) Mod 2 = 0 then hext = "0" & hext
    Cells(3, i) = hext  ' if you really need Cells(3,i) to store it
    hexVal = hexVal & hext
Next i