- ベストアンサー
Select Case文でこのようなことは可能でしょうか？
merlionXXの回答
- merlionXX
- ベストアンサー率48% (1930/4007)
Select Case strName Case "ABC" MsgBox "処理1" Case Else If strName Like "*D*" Then MsgBox "処理2" Else MsgBox "処理3" End If End Select
関連するQ&A
- select case文について
VB6.0のSelect Case文について質問です。 現在、ある文字列(mojiretu)の中から特定の文字を検索して その文字が文字列(mojiretu)の中に存在したらチェックボックスにチェックという一連の処理を行いたいのですがうまくいきません＞＜ このSelect Case文のどこを直すべきでしょうか？ select case mojiretu case instr(mojiretu,"abc") chk1.value=1 case instr(mojiretu,"def") chk2.value=1 case else chk3.value=1 end select
- ベストアンサー
- Visual Basic
- VBA Select Caseについて
エクセルVBAでLike演算子とSelectCase構文を組み合わせたいのですが、以下ではエラーになってしまいます。 どう修正すればいいのでしょうか？ ABCを含む文字列、DEFを含む文字列、その他、についての処理の分岐方法です。 Private Sub Worksheet_Change(ByVal Target As Range) Select Case Target.Value Case Like "*ABC*" `処理A Case Like "*DEF*" `処理B Case Else `処理C End Select End Sub
- ベストアンサー
- オフィス系ソフト
- ExcelVBA Select Caseについて
Select Case Cells(i, k) Case "" Case "AB","EF","G","IJ","K",,"LM","S","MNO","P","T","V","Z" 処理１ Case "CDE","H" 処理２ Case Else 処理３ End Select 上記の文字を条件にして処理を変えたいのですが、まったく同じ条件の分岐がマクロ上に数箇所あります（それぞれ処理は違います） コピーして貼り付けてしまえばいいのですが、見栄えが悪くなるし、訂正が発生したら直すのが大変だし、という状態です 最初に変数か何かに入れておいて、そこで比較できればかなりすっきりするのでは？ と思いついたのですが、書き方が分かりません もしかしたら構文の関係で出来ないのかもしれませんが、できるとしたらかなりうれしいです 教えて下さい、よろしくお願いします
- ベストアンサー
- オフィス系ソフト
- Select Case の条件式
VBAの初心者です。 家計簿の品目に対して値段を自動で入力したいです。 以下のように、Select Case の条件式の指定方法で、 列に入力された文字列の条件に対して、 自動でとなりのセルに入力したいのですが解らなくて困っております。 Sub TEST() ' A列セルの条件（文字列）でとなりのセルに文字列を入れたい Select Case Range("A1").Value 'A1をどうすればいいのでしょうか。 Case "a": Range("列のセルのとなりに入力したい").Value = "リンゴ" Case "o": Range("列のセルのとなりに入力したい").Value = "オレンジ" Case "b": Range("列のセルのとなりに入力したい").Value = "バナナ" Case Else: Range("列のセルのとなりに入力したい").Value = "error" End Select End Sub ご存じの方がおられましたら教えていただけませんでしょうか。 よろしくお願いします。
- ベストアンサー
- Visual Basic
- ExcelVBA select case 値設定
ExcelVBAのSelect Caseで Select Case 数式または文字列式 Case 値1, 値2, 値3 処理 Case Else 処理 End Select のようにカンマで区切ると複数の値を指定できるはずです。 この値1, 値2, 値3のところに別のシートのＡ1、Ａ２、A3に入っている値を設定したいのですが そのようなことは可能でしょうか？（A1→値1 A2→値2 A3→値3） 5年ぶりにＶＢＡを書いていますが、びっくりするぐらい忘れています。。。
- ベストアンサー
- Visual Basic
- Select Caseでorは使えないのでしょうか？
Sub TEST() 文字 = "あ" Select Case 文字 Case "あ" Or "い" MsgBox "「あ」もしくは「い」です。" End Select End Sub これだとエラーになるのですが ケースが「あ」もしくは「い」の場合は同じ処理をしたい場合はどうすればいいのでしょうか？ Sub TEST() 文字 = "あ" Select Case 文字 Case "あ" MsgBox "「あ」もしくは「い」です。" Case "い" MsgBox "「あ」もしくは「い」です。" End Select End Sub このコードをまとめるはどうすればいいのでしょうか？ よろしくお願い致します。
- ベストアンサー
- オフィス系ソフト
- エクセルＶＢＡでSelect...Caseの構文
エクセルＶＢＡで ■ 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
- ベストアンサー
- オフィス系ソフト
- Select case の条件にOrは使えない？？？
いつもお世話になっています。 ＡＳＰ(VBScript)でプログラミング中です。 多分ＶＢでは出来たと思うのですが、 Select case A case 1 Or 2 処理Ａ End Select のように、Ａが1でも2でも通って欲しい処理があるのですが、 上記のように書いた場合 Ａが1でも2でも 処理Ａを通ってくれません。 こういう記述の仕方って出来ませんでしたっけ？ Select case A case 1 処理Ａ case 2 処理Ａ End Select のように2回同じことを書かなきゃいけないんでしょうか・・・ それとも何か他のところでミスってるだけで、こういう書き方はＯＫなのでしょうか？困ってます。よろしくお願いします。
- ベストアンサー
- Microsoft ASP
- VBA 曖昧一致CASE文のELSE
以下の様な曖昧一致CASE文でElse判定がとれず困っています。 どの様にするべきでしょうか Select Case True Case str Like "*AAAA*" ' 処理1 Case str Like "*BBBB*" ' 処理2 Case Else ' Else処理 End Select この例で実行すると、全ての曖昧検索が一致しなくても 結果として処理2が走ってしまいます。
- ベストアンサー
- Access（アクセス）
- SELECT文
SELECT文で列を指定するのではなく 列には存在しない、自分で指定した文字列を 表示させるにはどうすればいいのでしょうか？ 文的にはこのようなイメージです。 SELECT 指定した文字列,存在する列名 FROM テーブル名 分かり難いかもしれませんが よろしくお願いします。
- 締切済み
- SQL Server