Excel VBA質問箱 IV

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

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


16086 / 76738 ←次へ | 前へ→

【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 質問
【66123】Re:2進数から16進数の変換について kanabun 10/8/2(月) 20:44 発言
【66124】Re:2進数から16進数の変換について kanabun 10/8/2(月) 20:58 発言
【66125】Re:2進数から16進数の変換について とってぃ 10/8/3(火) 10:17 お礼

16086 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free