Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


57948 / 76732 ←次へ | 前へ→

【23518】Re:8Bitの数の検索について
質問  あいんすと  - 05/3/25(金) 13:12 -

引用なし
パスワード
   10進数から2進数(8桁)への変換するマクロは以下の様に作りました。

Function Dec2Bin(ByVal dec As Currency) As String

'8BIT対応(通常)
Dim tmp As String
  Do Until dec < 1
    tmp = dec / 2 - dec \ 2
    If tmp = 0 Then
      bin = "0" & bin
    Else
      bin = "1" & bin
    End If
    dec = dec \ 2
  Loop
'-----------------------------------------------------------
  If Len(bin) < 8 Then    'binが8文字より少ない場合
    Do Until Len(bin) = 8
    bin = "0" & bin     '8文字になるまで"0"を付ける
    Loop
  End If
'-----------------------------------------------------------
  Dec2Bin = bin
End Function

セルでDec2Bin(Dec1,8)でいいのですが、
元のデータを変えてはいけないので、
セルのデータが「0」なら「00000000」と
マクロの中で変換し、判断したいのでこの様な
回りくどいプログラムを作ってしまいました。

ですので、最初の質問に戻りますが、ANDが判断しないのは何故かな?
と思ったのです。

1 hits

【23506】8Bitの数の検索について あいんすと 05/3/24(木) 23:42 質問
【23507】Re:8Bitの数の検索について ちゃっぴ 05/3/24(木) 23:52 回答
【23508】Re:8Bitの数の検索について ichinose 05/3/25(金) 1:47 発言
【23518】Re:8Bitの数の検索について あいんすと 05/3/25(金) 13:12 質問
【23521】Re:8Bitの数の検索について ichinose 05/3/25(金) 14:13 発言
【23525】Re:8Bitの数の検索について あいんすと 05/3/25(金) 14:35 お礼

57948 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free