Excel VBA質問箱 IV

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

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


57960 / 76732 ←次へ | 前へ→

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

引用なし
パスワード
   指定したBitが1または0かを判断するマクロを
作成したのですが、うまくいきません。

ちなみに以下の様に作成しました。

☆S_Bit1,S_Bit2は0〜7の整数(任意のBit)
 Flag1,Flag2は 0 か 1
 D_Label1,D_Label2は任意の項目の行番号
以上の変数については他で既に定義されています。

※2つの項目が空白になるセルの列番号は同じです。
※Functionで10進数から8桁の2進数の変換出来てます。(Dec2Bin)

'------------------------------------------------------
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

条件があるのにきちんとNを出してもらえません。
「F8」で確認してみたのですが、きちんと動作はしている様なのですが・・・
Midの使い方が間違っているのでしょうか?
0 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 お礼

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