10進数を16進数に変換

質問

タイトルどおりです。
よろしくお願いします。

回答No.3

ahoojpn

Private Sub Command1_Click()
Dim x As Long
x = Text1.Text
Label1.Caption = Hex(x)
End Sub

[Text1]に数値を入力（入力した数値は10進数とみなされます。）した上で[Command1]を押すと、[Label1]に16進数での数値が表記されます。

余談になりますが、[スタート]→[プログラム]→[アクセサリ]→[電卓]（電卓の"表示(V)"の所を"関数電卓(S)"としてください。）でも同等のことが出来ます。

回答No.2

imogasi

Sub test01()
Dim ns As String
Dim a, c As Long
tbl = "0123456789abcdef"
ns = ""
a = InputBox("１０進数＝")
p01:
c = Int(a / 16)
b = a Mod 16
ns = Mid(tbl, b + 1, 1) & ns
If c = 0 Then GoTo p02
a = c
GoTo p01
p02:
MsgBox ns
End Sub
こう言う表記だけの変換ではだめなんでしょうか。ある数を１０進で指定して、その数に当たる１６進（言いかえると２進と同じ）の内容の変数をメモリ上に作ると言うことでしょうか。

回答No.1

sakura_sakura

aaa = Hex(5) ' 5 を返します。
aaa = Hex(10) ' A を返します。
aaa = Hex(459) ' 1CB を返します。