|
Nechápu na co přesně se ptáte... ale pokud chcete konvertovat dekadické číslo na jeho Hexa-Decimální tvar, pak je tu funkce HEX. Pokud potřebujete číslo ve stringy konvertovat na číslo, použijte v tomto případě VAL. Pokud jde jen o mezery můžete i ještě bezpečneji použít navíc funkci replace.
Dim HexString As String
HexString = Hex(Val(Replace("123 456 789 000", " ", "")))
nebo lépe
Dim HexString As String
HexString = vbTab & vbNewLine & "123 456,789 000" 'zadání "složitého" řetězce
HexString = Replace(HexString, ",", ".") 'nahrazení desetiných čárek za desetinou tečku
HexString = Replace(HexString, " ", "") 'odstranění mezer uvnitř řetzce
HexString = Replace(HexString, vbCr, "") 'odstranění speciálního znaku (odřádkování)
HexString = Replace(HexString, vblf, "") 'odstranění speciálního znaku (odřádkování)
HexString = Trim(HexString) 'ořezání mezer "po stranách"
HexString = Hex(Val(HexString)) 'převedení na číslo a hned převod čísla na String v Hexa-decimálním tvaru
|