投稿日	： 2005/10/27(Thu) 08:49
投稿者	： YK
Ｅメール	：
ＵＲＬ	：
タイトル	： Re: 返値の判定について

こんにちは。

既に解決されたようですが、こんなのではどうですか。

Sub Testb()
    Dim lngD    As Long
    Dim ary     As Variant
    Dim i       As Long

    ary = Array(1, 2, 4, 8, 16, 32, 64)
    lngD = 26

    For i = 0 To 6
        If lngD And ary(i) Then
            MsgBox ary(i)
        End If
    Next
End Sub

★ - 返値の判定について - なお 10/26-21:30No.4766
• Re: 返値の判定について - いな 10/26-21:44 No.4767
  • Re^2: 返値の判定について - なお 10/26-21:47 No.4768
    • Re^3: 返値の判定について - いな 10/26-21:49 No.4769
      • Re^4: 返値の判定について - なお 10/26-22:15 No.4771
        • Re^5: 返値の判定について - いな 10/26-22:22 No.4772
          • Re^6: 返値の判定について - なお 10/27-14:23 No.4780
• Re: 返値の判定について - YK 10/27-08:49 No.4773
  • Re^2: 返値の判定について - なお 10/27-14:11 No.4779
    • Re^3: 2 ^ x乗を使ったほうが・・・ - GOD 10/27-14:54 No.4781
      • Re^4: 2 ^ x乗を使ったほうが・・・ - YK 10/27-15:33 No.4782