Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

57954 / 76738

←次へ　｜　前へ→


	【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が判断しないのは何故かな？
と思ったのです。

0 hits

▼

【23506】8Bitの数の検索について あいんすと 05/3/24(木) 23:42