VBA - ビットキーを使用してパラメータが設定されているかどうかを確認します。

Question

いくつかのパラメータ（arround 20）を持つダイアログがあります。 すべてのパラメータは、1,2,4,8,16,32などの値を取得します。 ダイアログを閉じると、2 + 8 + 16 + 64のようなパラメータの合計で整数が設定されます。

私はプログラムを実行するためのいくつかのオプションがあります。 例：

最初のオプションは、2,8と16のパラメータを実行する必要があるため、2,8と16が整数にチェックされているかどうかを確認する必要があります。

私は道があるが実際には方法があることを知っています。 多分あなたを助けることができます。 おかげ Jassin

最初のオプション

Answer 1

は、マスク（M、興味深いビットがセット）とデータ（D、E）にAnd operatorを適用する必要が。結果がmに等しい場合、mに設定されたすべてのビットがデータに設定されます。

>> d = 4 + 2 + 1 
>> e = 4 + 1 
>> m = 4 + 2 + 1 
>> WScript.Echo 0, CStr(m = (d And m)) 
>> WScript.Echo 1, CStr(m = (e And m)) 
>> 
0 True 
1 False