エクセルＶＢＡでSelect...Caseの構文

Question

エクセルＶＢＡで
■Select...Caseの構文は、次（構文１）のようになっているとのことですが、
構文２のような、意味でネストして使う使い方は許されているのでしょうか。
（参考　ＱＮｏ.1965604　の#7に,#8に関係したところをお聞きします。）

（構文１）
Select Case 変数
　Case 値１
　　　変数が値１の時の処理
　Case 値２
　　　変数が値２の時の処理
　Case Else
　　　他のCaseに合わない場合（その他）の処理
End Select

（構文２）
Select Case 変数ａ
　Case 値１
　　　変数ａが値１の時の処理
　　　　　　Select Case 変数ｂ
　　　　　　　　　　　Case 値１
　　　　　　　　　　　変数ｂが値１の時の処理
　　　　　　　　　　　Case 値２
　　　　　　　　　　　変数ｂが値２の時の処理
　　　　　　Case Else
　　　　　　　変数ｂが、他のCaseに合わない場合（その他）の処理
End Select

　Case 値２
　　　変数ａが値２の時の処理
　Case Else
　　　変数ａが、他のCaseに合わない場合（その他）の処理
End Select

imogasi · Accepted Answer

質問　1965604　で回答したものです。「メチャメチャになっている」と書いた箇所があり、そのことと本質問が関連しているのかもしれません。もしそうなら、言い訳になりますが、
ＯＫＷＡＶＥの補足をパッと見て、ＯＫＷＡＶＥではインデントが崩れるのでネストを見抜けず、ＳｅｌｅｃｔＣａｓｅの視点（変数）が変わっていたので誤解したようです。Ｃａｓｅ分のネストも最近使わなかったので。
ＣＡＳＥ文のネストが可能かどうかは、既出回答でお分かりになったと思います。
複数視点からの判別はプログラム表現（コーディング）上難しいもののように思ってます。
それぞれ（変数ａと変数ｂ）を個別に条件を満たすかどうかのサイン（フラグ）０，１を作って（するとサインの組み合わせができますが）、１１、１０、０１、００の各パターンを判別（例えばネストなしのＣＡＳＥ文で）して、処理を変えたような経験もあります。
質問　1965604　では、他の箇所の補足振りから見て、ＣＡＳＥ文のネストまで使われるレベルの方とは思わず、失礼しました。

BLUEPIXY · Answer

>どうもされてないと思いますが、これは、どう確認するのですか。
>あるいは、どうやってインストールしますか。
VBE(ワークシートからはALT+F11)の画面で
"case"の文字の上でF1キーを押してもヘルプ画面がでてこないのであれば、おそらく、インストールがされていないのだと思います。
ただ、（私は既にインストールしてあるので未確認ですが）エクセルに於いては、インストールされていない機能を使用しようとすると、アプリケーションＣＤを挿入してインストールを促すメッセージがでたと思います。（メッセージにしたがってＣＤを挿入し、エクセルの機能の中からＶＢＡのヘルプのインストールを選ぶ）
そうでなくても、アプリケーションＣＤを挿入することで、現在インストールされている状況を調べて、機能を追加インストールするようなインストールプログラムが起動したと思います。

Wendy02 · Answer

こんにちは。　Wendy02です。

私は、表立っては、掲示板などでは言いませんが、

＞構文上だめみたいな説明があったのでお聞きしたのです。

それは、コーディング・ルール（プログラミング作法）ではダメ（違反）だということです。ただし、それは、プロの世界の話です。

それと、コーディング・ルールは、元々はVBからの話であって、VBとVBAでは、そのルールが若干違ったりします。

ただ、VBAは、個人が個人の範囲で使うものですから、スパゲティでも、マカロニでも、通れば文句ないだろうって、開き直られたり、逆切れされたりする世界だから、コーディング・ルールは通用しないっていうだけです。

同様のものに、With ステートメントのネストがあります。

BLUEPIXY · Answer

＞検索キーワードは何にするとでてきますか。
Select case
の"case"にカーソルがある状態でＦ１キーを押します。

（ＶＢＡのヘルプ自体はインストールされていますよね。）

noname#123709 · Answer

＞検索キーワードは何にするとでてきますか。
私はこのような場合でも質問タブのところに入れます。
「SELECT CASE」と。手っ取り早いです。
アシスタント適用ならそれに聞きます。

noname#123709 · Answer

＞構文上だめみたいな説明があったのでお聞きしたのです。
？？
当方EXCEL2000
HELPからの抜粋です。
Select Case ステートメントはネスト (入れ子) 構造にすることができま
す。このとき、各 Select Case ステートメントには、それぞれ対応する
End Select ステートメントが必要です。
・・・とあり、はっきりと「出来る」と書かれていますが？？

BLUEPIXY · Answer

Select Case ～ End Select
がちゃんと対応したブロックになっていたらネストは可能です。

ttyp03 · Answer

皆さんのご回答の通り、問題なく使えます。
こんなのは一度実行してみればわかるはずです。
ただ select case の入れ子はネストが深くなるのであまりお勧めはしません。
僕はソースが見づらくなるのでやりませんね。
IF文をうまく活用することです。
例えば case が２つしかないなら、IF文の方がいいでしょう。

noname#22222 · Answer

自分でテストしてみるのが一番に納得がいきます。

Private Sub CommandButton1_Click()
　　Dim A As Integer
　　Dim B As Integer
　　
　　A = InputBox("A=")
　　If A = 1 Then
　　　　B = InputBox("B=")
　　End If
　　Select Case A
　　　　Case 1
　　　　　　Select Case B
　　　　　　　　Case 1
　　　　　　　　　　MsgBox "B=1"
　　　　　　　　Case 2
　　　　　　　　　　MsgBox "B=2"
　　　　　　　　Case Else
　　　　　　　　　　MsgBox "B=ELSE"
　　　　　　End Select
　　　　Case 2
　　　　　　MsgBox "A=2"
　　　　Case Else
　　　　　　MsgBox "A=Else"
　　End Select
End Sub

noname#123709 · Answer

＞ＱＮｏ.1965604　の#7に,#8に関係したところをお聞きします。
リンクがなければ探し難いのでみません。
ここに書いてある質問だけでの解答ですが、可能です。
何故ここまで書いているのに自分で試してみないのでしょうか？
単純なテストなので聞くまでもないと思いますが？

エクセルＶＢＡでSelect...Caseの構文

質問 1965604 で回答したものです。

>どうもされてないと思いますが、これは、どう確認するのですか。

こんにちは。

＞検索キーワードは何にするとでてきますか。

この回答への補足

＞検索キーワードは何にするとでてきますか。

＞構文上だめみたいな説明があったのでお聞きしたのです。

この回答への補足

Select Case ～ End Select

皆さんのご回答の通り、問題なく使えます。

自分でテストしてみるのが一番に納得がいきます。

＞ＱＮｏ.1965604 の#7に,#8に関係したところをお聞きします。

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

質問　1965604　で回答したものです。

＞ＱＮｏ.1965604　の#7に,#8に関係したところをお聞きします。