textboxのデータを２進数で表示するには？ (ID:103698)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 ２進数＝＞１６進数に変換する関数です。 form に button を張り付けて以下のコードを入力 <----------------------------------------------------- Private Sub CommandButton1_Click() BinA = InputBox("２進数を入力", , , Width, Height) HexA = BinToHex(BinA) MsgBox (BinA + " = " + HexA) End Sub Private Function BinToHex(ByVal StrBin As String) As String ' '********* 引数 StrBin ２進数文字列 '********* 返値 １６進数文字列 Num = 0: f = "" Length = Len(StrBin) For n = 0 To Length - 1 f = Mid$(StrBin, Length - n, 1) If f = "1" Then Num = Num + 2^n ' <==ここがミソ Next n BinToHex = Hex$(Num) End Function -----------------------------------------------------------> VBAで動作確認（VBでもOKでしょう） 分からないところが在れば質問を。