EXCELのFAX用紙で同じ会社の違う担当を選択

質問

マクロｏｒ関数の質問です。（EXCEL２００３ベースが希望）

エクセルのフォーマットを使ってＦＡＸの宛先を自動選択するようにしています。
ＶLOOKUP関数を使って、会社名を指定すると
あとはＦＡＸ番号や担当者が自動的に選択されるようにしました。

しかし、同じ会社でも担当、若しくは部署が違う場合や担当者が違う場合、
ＶＬＯＯＫＵＰ関数では、会社を指定した時点で部署が違う担当の人が選択出来なくなってしまいます。
（つまり、一種類の宛先しか自動選択してくれない）

理想は、会社名を選択した時に、
他の選択肢がある場合にはドロップダウンリストか何かで更なる選択が可能なようになることです。
選択肢がない場合はそのまま自動選択で完了。

どういったやり方が適切かご指導下さい。

回答No.2

keithin · ベストアンサー

＞EXCELのFAX用紙で
＞選択肢がない場合はそのまま自動選択で完了。
＞他の選択肢がある場合にはドロップダウンリスト

というお話の前提なので，関数（と選択肢）を使った方法では使い回しができなくなってしまい，不適当です。
という事でマクロを組み込んで行わせる格好になりますね。「丸なげでカンペキ版を作ってちょーだい」ではいつまでたっても終わらないので，基本を教わった上でご自分で実際のシートに組み込んで作成してください。

サンプル：
シート１のA1セルに会社名を記入する
シート１のB1セルに相手名称が現れるか，若しくは選択するようにする

シート２のデータリストには
A列に会社名を列記
B列に相手名称を列記
してある

作業手順：
シート１のシート名タブを右クリックしてコードの表示を選ぶ
現れたシートに下記をコピー貼り付ける

private sub worksheet_change(byval Target as excel.range)
　dim r1 as long
　dim r2 as long
　if target.address <> "$A$1" then exit sub
　if target = "" then exit sub
　range("B1").validation.delete

’会社名にヒットするリストの件数を調査
　select case application.countif(worksheets("Sheet2").range("A:A"), target)
　case 0
’登録されたリストになかった
　　range("B1") = "該当がありません"
　case 1
’１件あった
　　range("B1").formula = "=VLOOKUP(A1,Sheet2!A:B,2,FALSE)"

　case else
’複数行あった
　　range("B1") = "選択してください"
　　r1 = application.match(target, worksheets("Sheet2").range("A:A"), 0)
　　r2 = application.countif(worksheets("Sheet2").range("A:A"), target)
　　range("B1").validation.add type:=xlvalidatelist, alertstyle:=xlvalidalertstop, _
　　　operator:=xlbetween, formula1:="=INDIRECT(""Sheet2!B" & r1 & ":B" & (r1 + r2 -1) & """)"
　end select
end sub

回答No.1

kokorone

http://fuji.cocolog-nifty.com/pclife/2006/03/post_93c7.html
が参考になると思います。