テーブルの自己結合について教えてください。
以下のようなテーブルAがあります。
Table A
collumn1(企業名) collumn2（フラグ）
B 0
C 0
D 1
B 1
C 0
E 0
E 1
E 1
これにおいて、フラグが1の企業でかつ
フラグの如何に関わらず同じ企業名があればその企業名を
とってきたいです。
上の例では企業BとEとなります。
企業名が同じでもフラグが0のものばかりであればとってきません。
この条件を私が考えたのは
select collumn1 from A where collumn2 = 0 and collumn1 = (select collumn1 from A where collumn2 = 1)
というSQLなのですが、うまく取れません。
なにも取って来なくなります。
何がいけないでしょうか。
アドバイス、よろしくお願いいたします。
Excel2003でマクロを組んでいます。
ThisWorkbookにて、
With Menu1
.Controls.add Type:=msoControlButton
With .Controls(1)
.Caption = "手順１"
.OnAction = "Jikkou"
End With
End With
のように記述し、Menu1というオリジナルのメニューの中に、
「手順１」というメニューを表示させ、これを実行すると関数"Jikkou"が動くようにしました。
このJikkouという関数に、引数を持って行きたいのですが、
どのように記述すればよいでしょうか。
具体的には、異なるメニューを実行して同じ関数へ移動する際、
「どのメニューを選択してきたのか」によって、Jikkouの中で処理を分岐させたいのです。
引数を持たせられたら解決しそうだと思って質問しています。
他に何か方法があれば（例えば、それよりこちらの方が自然だ、のような方法があれば）教えていただきたいです。
以下、引数の持たせ方がわからず詰まった、自分の考えたコードです（勿論動きません）。
目的が伝われば幸いです。
---▼ThisWorkbookの一部---------------------------
With Menu1
.Controls.add Type:=msoControlButton
With .Controls(1)
.Caption = "手順１"
a = 0
.OnAction = "Jikkou a"
End With
End With
With Menu1
.Controls.add Type:=msoControlButton
With .Controls(2)
.Caption = "手順２"
a = 1
.OnAction = "Jikkou a"
End With
End With
---▼関数Jikkou------------------------------------
Sub Jikkou(byVal a as integer)
if a = 0 then
msgbox "手順１から来た"
elseif a = 1 then
msgbox "手順２から来た"
end if
End Sub
Excel2003でマクロを組んでいます。
ThisWorkbookにて、
With Menu1
.Controls.add Type:=msoControlButton
With .Controls(1)
.Caption = "手順１"
.OnAction = "Jikkou"
End With
End With
のように記述し、Menu1というオリジナルのメニューの中に、
「手順１」というメニューを表示させ、これを実行すると関数"Jikkou"が動くようにしました。
このJikkouという関数に、引数を持って行きたいのですが、
どのように記述すればよいでしょうか。
具体的には、異なるメニューを実行して同じ関数へ移動する際、
「どのメニューを選択してきたのか」によって、Jikkouの中で処理を分岐させたいのです。
引数を持たせられたら解決しそうだと思って質問しています。
他に何か方法があれば（例えば、それよりこちらの方が自然だ、のような方法があれば）教えていただきたいです。
以下、引数の持たせ方がわからず詰まった、自分の考えたコードです（勿論動きません）。
目的が伝われば幸いです。
---▼ThisWorkbookの一部---------------------------
With Menu1
.Controls.add Type:=msoControlButton
With .Controls(1)
.Caption = "手順１"
a = 0
.OnAction = "Jikkou a"
End With
End With
With Menu1
.Controls.add Type:=msoControlButton
With .Controls(2)
.Caption = "手順２"
a = 1
.OnAction = "Jikkou a"
End With
End With
---▼関数Jikkou------------------------------------
Sub Jikkou(byVal a as integer)
if a = 0 then
msgbox "手順１から来た"
elseif a = 1 then
msgbox "手順２から来た"
end if
End Sub
