2進数を10進数に変換 : Excel(エクセル)

2進数はExcel VBAでI/O制御を行う時などによく使います。

Excel Tipsメニューに戻る

スポンサーリンク






Excel VBA コード

Option Explicit

'Excel VBAで2進数を10進数に変換
Public Function ExBinToDeci(bin As String) As Long
    Dim length As Integer
    Dim i As Integer
    Dim ltemp As Long
    Dim stemp As String
    
    ltemp = 0
    length = Len(bin)
    For i = 1 To length
        '1文字取り出し
        stemp = Mid$(bin, i, 1)
        If stemp = "1" Then
            ltemp = ltemp + CLng(2 ^ (length - i))
        ElseIf stemp <> "0" Then
            MsgBox "引数が2進数ではありません。"
            ExBinToDeci = -1
            Exit Function
        End If
    Next i
    ExBinToDeci = ltemp
End Function

Private Sub CommandButton1_Click()
    Range("B7") = ExBinToDeci("00001111")
End Sub

スポンサーリンク


Excel実行結果

■00001111 の 10進数 15 が表示されています。

スポンサーリンク






Excel Tipsメニューに戻る

■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します


Copyright (c) Excel-Excel ! All rights reserved