ご教授願います。

質問

ちょっと行き詰ったので、どなたかご教授願います。
あるセルにデータの入力規則でプルダウンの選択事項が表示されるようにしました。
次にVBAで色々記録できるマクロを組みました。
マクロの記録先を先ほどプルダウンで選択したシートに転送させたいのです。
プルダウンの選択事項は１２個、シートは４個。
どういうことかといいますと、
例えば、プルダウン選択事項が「あ　い　う　か　き　く　さ　し　す　た　ち　つ」
とかの場合だと「あ～う」を選択した場合は「あ行」のシートへ。
「か～く」は「か行」
「さ～す」は「さ行」
「た～つ」は「た行」へとしたいのです。
プルダウン内容に例の様に順番に並んでいる場合でしたらできそうなのですが、これが入り混じっている場合どうすればいいのかわかりません。「あ　か　つ　た　う　い　き　ち・・・」のように。
プルダウンの順番方法はできれば変えたくありませんのでどなたかわかる方ご教授ください。

回答No.2

imogasi

質問の表現ががややこしい上に何が難しいのかわからない。
＞あ行」のシートへ、とは。
「あ」を選択された　＝＞　Ｓｈｅｅｔ１
「い」を選択された　＝＞　Ｓｈｅｅｔ１
・・
「か」を選択された　＝＞　Ｓｈｅｅｔ２
・・・
のような意味か。それならそういう対応表を示して質問したら。
＞入力規則でプルダウン、は関係なく焦点をぼやかし、ややこしきするだけ。値をセルに
直接入力しても同じでしょう。
ーーー
１対1対応でないというだけの話では。それなら＃１回答の方法でやれば良い。
ーー
または
Sub test02()
x = Application.WorksheetFunction.VLookup(Range("A1"), Range("$e$1:$f$10"), 2, False)
Sheets(x).Select
End Sub
のような方法もある。
仮にＥ１：Ｆ１０（ＭＡＸ）に
あ Sheet2
い Sheet2
か Sheet3
き Sheet3
さ Sheet4
のような値と、シート名の対応表を作っておく。
ーー
ほかに配列で上記対応データを持ち、あ、い・・を探す方法もある。
これらはプログラムにおける、ロジックの問題で、経験をつんで会得するほか無い。

回答No.1

watabe007

参考に
Select Case プルダウンの値
　　Case "あ", "い", "う"
　　　　MsgBox "あ行の処理"
　　Case "か", "き", "く"
　　　　MsgBox "か行の処理"
　　Case "さ", "し", "す"
　　　　MsgBox "さ行の処理"
　　Case "た", "ち", "つ"
　　　　MsgBox "た行の処理"
End Select