nKB

nKB

シンプルにいこうよ

2017-10-20から1日間の記事一覧

VBA 10進数を2進数に変換する関数

Function ConvToBin(Number As Long) As String Dim binCnt As Long Dim DeciNum As Long 'Decimal Number Dim i As Long DeciNum = Number '累乗確認 binCnt = 0 While 2 ^ binCnt <= DeciNum ' <=(以下の場合) binCnt = binCnt + 1 Wend '2進数作成 For i …