AccessからExcelに入力規則を仕込みたい

Question

現在AccessからExcelにデータを出力し、
その際にあるセルに入力規則として
リストの値のみを入力可としようとしています。
以下のようなサンプルでそれは実現出来ました。

With Range("D2:D10").Validation
    .Delete
    .Add Type:=xlValidateList, _
         Operator:=xlEqual, _
         Formula1:="ロンドン,東京,ニューヨーク"
End With

そこで教えて頂きたいのですが、
２段階の絞込みリストを作成することは出来ないでしょうか。
VBAで仕込めるのは１段階のリストのみでしょうか。
できればリストの値はセルの値を参照させるのではなく、
上記のように直接VBAに記述したいです。

Answer 1

ご質問について、
先ずは、accessのvbaでエクセルへ入力規則を設定するということで良いでしょうか？

CreateObject("Excel.Application")を用いてaccess vbaからエクセルの編集が可能です。
CreateObject 関数

次に、エクセルで２段階の絞り込みを行いたい については、
こちら（エクセル（Excel）で2つのプルダウンリストを連動しよう♩+INDIRECT関数）が参考になるかと思います。
上記の手順を「マクロの記録」などで生成されたコードを利用すると楽ができるのではないかと思います。

Comments

[syncrock]

回答ありがとうございます。
多分このやり方ですとどこかに値のリストを持っておかないといけないと思います。
が、やりたいこととしてはリストを保持せずに実現出来ないかなぁと思っております。
・・・・っていうことは無理そうですね。。
ありがとうございます。