VBA Do loop を使って１０進数から２進数への変換

Question

１００という１０進数をDo loop を使って２進数に変換させるにはどのようにすればよいのでしょうか？
イメージとしては、１００を２ずつ割っていってそこで出たそれぞれの余りの数をセルA1に表示させたいです。
よろしくお願い致します。

VBA

Sub Sample()
    Dim SM As Long
    SM = 100

    Do Until SM = 100
        SM = SM / 2 Mod 2
        Cells(1, 1) = SM
        SM = SM + 1
    Loop
End Sub

Answer 1

手っ取り早いのは

Sub Sample()
    Range("A1") = Application.WorksheetFunction.Dec2Bin(100)
End

Answer 2

その処理ですと +1 したあとループが止まってしまいます。正しくは 2 で割っていき、余りを文字として足していくようにします。

Function Sample(SM)
    Sample = ""
    Do Until SM = 0
        b = SM Mod 2
        SM = (SM - b) / 2 
        Sample = b & Sample 
    Loop 
End Function

このような関数でどうでしょうか？

Comments

[hatena19]

SM = (SM - b) / 2
のコードは整数除算演算子\を使うとシンプルにできますね。
SM = SM \ 2