Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

16082 / 76734

←次へ　｜　前へ→


	【66124】Re:2進数から16進数の変換について

kanabun - 10/8/2(月) 20:58 -


	引用なし

	パスワード

参考までにこんなのもありました

Function Bin2Dec(sMyBin As String) As Long
　　Dim x As Integer
　　Dim iLen As Integer

　　iLen = Len(sMyBin) - 1
　　For x = 0 To iLen
　　　　Bin2Dec = Bin2Dec + _
　　　　　Mid(sMyBin, iLen - x + 1, 1) * 2 ^ x
　　Next
End Function

これをつかうと

Private Sub CommandButton1_Click()
　Dim i As Long
　i = Bin2Dec(TextBox1.Text _
　　　　　　& TextBox2.Text _
　　　　　　& TextBox3.Text _
　　　　　　& TextBox4.Text)
　TextBox5.Text = Right$("00" & Hex$(i), 2)

End Sub

1 hits

▼

【66122】2進数から16進数の変換について とってぃ 10/8/2(月) 20:20