なぜ十進数を二進数に変換する必要があるのか？
実務において、Excel関数だけで完結しない処理に直面することは少なくありません。特に、通信プロトコルやビットフラグを用いた設定値の解析、あるいは外部システムとのデータ連携を行う際、十進数を二進数へ変換するニーズが発生します。標準関数である「DEC2BIN」は非常に便利ですが、扱える桁数や負の数への対応に制約がある場合があります。VBAで独自の変換ロジックを持つことで、複雑なデータ処理を自動化し、エラーを未然に防ぐ堅牢なツールを作成できるようになります。
基礎知識：二進数変換の仕組み
二進数とは「0」と「1」のみで数値を表現する方法です。十進数を二進数に変換する基本アルゴリズムは「引き算」と「判定」の繰り返しです。対象の数値に対して、2の累乗（1, 2, 4, 8, 16…）を大きい順に比較し、引ける場合は「1」、引けない場合は「0」を立てていくことで、ビット列を構築します。このロジックをユーザ定義関数（UDF）として登録しておけば、セル上で通常の関数のように利用可能になります。
実装のポイント
今回の解決策では、VBAのWhileループとForループを組み合わせて実装します。Whileループで対象の数値がどの程度の大きさ（何桁必要か）を判定し、Forループで上位ビットから順に文字列として「1」または「0」を結合していきます。これにより、柔軟な変換処理が可能となります。
サンプルプログラム
以下のコードを標準モジュールにコピー＆ペーストしてください。
Function DecToBin(ByVal Number As Long) As String
‘ 引数Numberを二進数文字列に変換する関数
Dim myYard As Long
Dim myNumber As Long
Dim myExpo As Long
‘ 入力値を保持
myNumber = Number
‘ 必要な桁数（2の何乗まで必要か）を判定
myYard = 0
While 2 ^ myYard <= myNumber
myYard = myYard + 1
Wend
' 上位ビットから順に判定して文字列を作成
' 2^(myYard-1) から 2^0 までループ
For myExpo = myYard - 1 To 0 Step -1
If myNumber >= 2 ^ myExpo Then
‘ 引ける場合は1を立てて数値を減算
DecToBin = DecToBin & “1”
myNumber = myNumber – 2 ^ myExpo
Else
‘ 引けない場合は0
DecToBin = DecToBin & “0”
End If
Next
‘ 数値が0の場合の処理
If DecToBin = “” Then DecToBin = “0”
End Function
応用と注意点
1. 負の数への対応: 上記のコードは「非負整数（0以上）」を前提としています。負の数を扱う場合は、コンピュータの標準的な「2の補数」表現への変換が必要となり、ロジックがより複雑になります。
2. 桁数の固定: 現場の実務では「8ビット固定（例：00001010）」のように桁数を揃えたいケースが多いです。その場合は、返り値に対してVBAの「Format関数」や「Right関数」を組み合わせ、頭を0で埋める処理を追加してください。
3. パフォーマンス: 大量のデータを一括変換する場合、ループ処理はセル関数に比べて時間がかかることがあります。大量行を処理する際は、計算結果を配列に格納してからセルへ一括出力する手法を推奨します。
