Excel VBA質問箱 IV

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

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


57945 / 76732 ←次へ | 前へ→

【23521】Re:8Bitの数の検索について
発言  ichinose  - 05/3/25(金) 14:13 -

引用なし
パスワード
   ▼あいんすと さん:
こんにちは。

>10進数から2進数(8桁)への変換するマクロは以下の様に作りました。
最初の投稿でDec2Binが自作の関数ならば、その旨を記述するか
コードを提示して下さいね!!
何の断りもなしにDec2Binと書かれれば分析ツールのそれだと思ってしまいます。
(分析ツールDec2Binで問題がないと思いますが)


>
>
>ですので、最初の質問に戻りますが、ANDが判断しないのは何故かな?
>と思ったのです。
i = 2
Do Until Cells(i,Label1) = ""
'10進数から2進数(8桁)に変換
'フラグ1
dec1 = Cells(i,D_Label1)
Data1 = Dec2Bin(dec1)
'フラグ2
dec2 = Cells(i,D_Label2)
Data2 = Dec2Bin(dec2)

If Mid(Data1,(8-S_Bit1),1) = Flag1 And _
  Mid(Data2,(8-S_Bit2),1) = Flag2 Then
 
  N = i
  Exit Sub
End If
  i = i + 1
Loop

このコードだけでは、あいんすとさんがFlag1やFlag2にどんな値を設定しているのか
わかりませんよね?それからCells(i,D_Label1)に何が入っているかも・・・。

例題として、セルにはxxxx、S_Bit1、S_Bit2、Flag1、Flag2には、それぞれxxx、・・
とはいっていた場合、結果、xxxとなる予定がyyyyにしかなりません。

という記述は必要だな!!
と、思いませんか?
Mid(Data1,(8-S_Bit1),1)は、文字列ですから、

Flag1には、
Flag1="0"
又は、
Flag1="1"

と設定しなければなりません

もし、
Flag1=0
とか
Flag1=1
としているのなら、

If val(Mid(Data1,(8-S_Bit1),1)) = Flag1 And _
  val(Mid(Data2,(8-S_Bit2),1)) = Flag2 Then


として下さい。

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 お礼

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