'------------------------------------------------------
'10進数から2進数に変換する
'------------------------------------------------------
Function DecimalToBinary(value As Long) As String

    Dim amari   As String
    
    '2で割った余りを逆から並べる
    While value >= 1
    
        amari = amari & value Mod 2
        
        value = value \ 2

    Wend
    
    '0の場合
    If amari = "" Then amari = "0"

　　'並びを逆にする
    DecimalToBinary = StrReverse(amari)

    '【例】
    '   value = 10 → 1010
    '   value = 15 → 1111

End Function