[已解决]为什么Format(WorksheetFunction.Dec2Hex(26), "00") 值等于00 不等于1A

tzjx200521

为什么Format(WorksheetFunction.Dec2Hex(26), "00") 值等于00 不等于1A

最佳答案

月排行榜 / 总排行榜

爱疯

2015-12-15 18:09

tzjx200521 发表于 2015-12-15 17:52
这代码  我没看   懂       解释下

Sub Click3()
    Dim x, y, z

    x = String(4, "0")      '将字符"0"重复4次，即"0000"
    y = Hex(26)             '作用等同于 WorksheetFunction.Dec2Hex(26)
    z = x & y

    MsgBox Right(z, 4)      '截取字符串z右边4位
End Sub



把6楼分开写，好看懂意思

跳转到最佳答案楼层

爱疯

Sub 按钮1_Click()
    Dim x
    x = WorksheetFunction.Dec2Hex(26)
    'x = Format(WorksheetFunction.Dec2Hex(26), "00")
End Sub

不清楚要干嘛，只用第1句呢

yorkchenshunan

用这个就好了

1. [a1] = Application.WorksheetFunction.Dec2Hex(26)
   
2. [a1].NumberFormatLocal = "00"
   

复制代码

tzjx200521

爱疯 发表于 2015-12-15 09:55
Sub 按钮1_Click()
    Dim x
    x = WorksheetFunction.Dec2Hex(26)

其实要实现的   16进制转换    必须格式上要两位     但奇怪的是26这个数明明是1A  为什么运行的时候是00，，问题出在哪？？？

爱疯

Sub Click()
    Dim str As String
    str = WorksheetFunction.Dec2Hex(26)
    str = String(4 - Len(str), "0") & str
End Sub

爱疯

Sub Click2()
    MsgBox Right(String(4, "0") & Hex(26), 4)
End Sub

tzjx200521

爱疯 发表于 2015-12-15 16:35
Sub Click2()
    MsgBox Right(String(4, "0") & Hex(26), 4)
End Sub

这代码  我没看   懂       解释下

爱疯

tzjx200521 发表于 2015-12-15 17:52
这代码  我没看   懂       解释下

Sub Click3()
    Dim x, y, z

    x = String(4, "0")      '将字符"0"重复4次，即"0000"
    y = Hex(26)             '作用等同于 WorksheetFunction.Dec2Hex(26)
    z = x & y

    MsgBox Right(z, 4)      '截取字符串z右边4位
End Sub



把6楼分开写，好看懂意思