|
指定した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の使い方が間違っているのでしょうか?
|
|