VBAでビット情報にてデータ抽出
ワゴンと計測器がひもついたデータのテーブルがあります。
A***、B***がひもついている計測器の種別のイメージです。
ワゴン1
A001
A002
A003
B001
B002
ここで、
1番の機械だったらA001,B001
2番の機械だったらA001,A002,B001,B002
という風に機械のタイプで使用する計測器のリストを抽出したいと思っています。
データテーブルの構造を変更することは難しいので、支障のない列(PGM)にてフラグにて抽出できないものかと考えました。
PGMの列には24ビット分のデーたが入れられます。
そこで下記の様にPGMの列にビット情報を入れます。(とりあえず8ビットの情報)
ワゴン1 PGM
A001 11001011
A002 01001011
A003 00001011
B001 11001011
B002 01001011
1番目の機械だったら、8ビット目が"1"を抽出。2番目の機械だったら7ビット目が"1"を抽出
という風にすればよいかと思っています。
このフラグコントロールをVBAでどの様にしたら良いかを教えていただけませんでしょうか。
あるいは、もっと簡単に対応可能な方法があればとも思っています。
尚、VBA全くの初心者で、ホームページやいろんなサイトにて、
やっと下記のデータ抽出までたどり着けた次第です。
コードに関しては、基本部分を全記述でお願いしたく。
ORACLEのデータベースにMEISAIというテーブルがあり、
ここからEXCELのセルA21に入力された文字列を参照します。
IDがABC
CODEがCOMPANY
PGMがセルA21の文字列
てデータ抽出する記述。
WG1 = Range("A21")
Set rs = OraDatabase.CreateDynaset("select * from MEISAI where ID = 'ABC' AND CODE = 'COMPANY' AND PGM = '" & WG1 & "'", 0&)
OFFICE2003 ORACLE V9.0です
補足
ご返答ありがとうございます。 私の場合は、ケータイでとった画像をパソコンに取り込み、flashのライブラリで取り込み、分解して、抽出するとこのような現象になりました。