- ベストアンサー
エクセルVBAの Select Case構文
Wendy02の回答
- Wendy02
- ベストアンサー率57% (3570/6232)
こんばんは。 一応、念のために、変数に代入しました。 文字も数字も、同じデータとして、文字と数字の区切りライン(Chr(0))をつければよいのではないでしょうか？ なお、大文字・小文字を同じにさせるために必要でしたら、TextCompare モードの Option Compare Text にするか、StrConv で変換します。 なお、セルには、エラー値は入らないものとしています。また、#1さんのご指摘の日付比較は、シリアル値に対し行うように、Value2 プロパティにしました。通常は、私は、文字列比較と数値比較は別けますが、質問の中のコードに合わせて一緒にしてみました。 'Option Compare Text Sub Test3() Dim myValue As Variant myValue = Cells(1, 1).Value2 If myValue = "" Then MsgBox "やり直し!": Exit Sub '長さ0の文字列と空白-0とは扱わない Select Case myValue Case "AAA": MsgBox "AAA" Case Is >= Chr(0): MsgBox "やり直し" '^@を含む、それ以上 Case Is > 0: MsgBox "プラス" Case 0: MsgBox "ゼロ" Case Is < 0: MsgBox "マイナス！" ' Case Else: MsgBox "やり直し" 'おそらくは要りません End Select End Sub
関連するQ&A
- 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 このコードをまとめるはどうすればいいのでしょうか？ よろしくお願い致します。
- ベストアンサー
- オフィス系ソフト
- エクセルVBA Select Case いついて
現在時間を判断してあいさつを出すVBAを書こうとしましたがうまくいきません。 どこが悪いのかご教示くださいませ。 Sub メッセージ() Dim MG As String Select Case Time Case Time < "16:00:00" MG = "こんにちは。" Case Time < "12:00:00" MG = "おはようございます。" Case Time >= "16:00:00" MG = "こんばんは。" End Select MsgBox MG End Sub
- ベストアンサー
- オフィス系ソフト
- Select Caseステートメント 「Is」
VBAについて質問です。 http://excelvba.pc-users.net/fol6/6_2.html の Sub test() Dim intPoint As Integer intPoint = InputBox("点数を入力してください") Select Case intPoint Case Is >= 80 MsgBox "優です。" Case Is >= 70 MsgBox "良です。" Case Is >= 60 MsgBox "可です。" Case Else MsgBox "再テストです。" End Select End Sub は、 なぜ Sub test2() Dim intPoint As Integer intPoint = 75 Select Case intPoint Case intPoint >= 80 MsgBox "優です。" Case intPoint >= 70 MsgBox "良です。" Case intPoint >= 60 MsgBox "可です。" Case Else MsgBox "再テストです。" End Select End Sub では、だめなのでしょうか？ test2を実行すると、 Case Elseの MsgBox "再テストです。" になってしまいます。 本当は、"良です。"が正しいのに。 testをF8でステップインしながら実行した時に、 「Case Is >= 80」 の来た時に、isにカーソルをあてても、InputBoxで入力した数値が表示されません。 なぜ、この場合、Case intPoint >= 80 ではダメなのか理由をご教授ください。ご回答よろしくお願いします。
- ベストアンサー
- Visual Basic
- VB2008EEのSelect Case
VB2008EEのSelect Case devilconanさんとのやりとりを締めてしまいましたが、 下記でdevilconanさんは動いているようですが、再度試してもこちらでは動きません。 しかし、別のPCのVB2008EEで試すことが出来たのですが、こちらでは動きました。 Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged, RadioButton2.CheckedChanged Select Case sender.text Case "RadioButton1" aaa = "1" bbb = "" Case "RadioButton2" aaa = "" bbb = "2" End Select End Sub Elseを追加して、ラジオボタン1と2を交互にチェックすると、それぞれ「sssss」とMsgBoxが出ます。 別のPCだと下の記述で、「case1」「case2」が表示されました。 Select Case sender.text Case "RadioButton1" aaa = "1" bbb = "" MsgBox("case1") Case "RadioButton2" aaa = "" bbb = "2" MsgBox("case2") Case Else MsgBox("sssss") End Select 動いたPCも動かないPCもXPです。 同じファイルを開いているのですが、この違いは何でしょうか？
- ベストアンサー
- Visual Basic
- Select Caseでlikeを使うには？
Sub test() Dim s As String s = "aa*@yahoo.co.jp" Select Case s Case like "*yahoo*" MsgBox "yahoo" End Select End Sub をすると、コンパイルエラーになるのですが 「yahoo」と言う文字を含むのなら とするにはどうすればいいでしょう？
- ベストアンサー
- オフィス系ソフト
- Select Caseのisについて
Isは変数名ではないですよね？ Sub isを使った場合() Dim i As Long i = 2 Select Case i Case Is < 3 Debug.Print "3以下です" Case Else Debug.Print "3以上です" End Select End Sub 例えばこのようなサンプルの時、 Case Is < 3 の時は Case 2 < 3 Case i < 3 と同じ意味ですよね？ という事は、is＝i=2だと思ったのですが、 Sub 変数を使った場合() Dim i As Long i = 2 Select Case i Case i < 3 Debug.Print "3以下です" Case Else Debug.Print "3以上です" End Select End Sub だと、なぜか3以上ですになってしまいます。 ISの仕組みがよくわからないのですが、 Case Is < 3はCase 2 < 3 なってるわけではないのでしょうか？
- ベストアンサー
- オフィス系ソフト
- Select Caseで条件が複数の場合
ifではなくSelect Case で表現するにはどうすればいいでしょうか？ Sub Macro1() ひらがな = "い" カタカナ = "イ" Select Case ひらがな Case "あ" Select Case カタカナ Case "ア" MsgBox "ひらがな = ""あ""カタカナ = ""ア""です" End Select End Select Select Case ひらがな Case "い" Select Case カタカナ Case "イ" MsgBox "ひらがな = ""い""カタカナ = ""イ""です" End Select End Select End Sub この場合あ～おまでの条件を設定したい場合どのように書けばいいのでしょうか？ またひらがな = "あ"、カタカナ = "イ"の場合はスルーしたいです。 なにか効率のいい方法はありますでしょうか？ IFの方が書き方としては正しいのでしょうか？ よろしくお願い致します。
- ベストアンサー
- オフィス系ソフト
- エクセルＶＢＡで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 大文字小文字を区別しないよ
select case 大文字小文字を区別しないようにするには？ Sub test01() Dim str As String str = "A" Select Case str Case "a" MsgBox "aです" Case "Ａ" MsgBox "aです" End Select End Sub これだと、半角全角がヒットしないのはなんとなくしょうがないかな、と思うのですが 大文字小文字がちがくてもヒットさせるにはどうすればいいですか？ Sub test01() Dim str As String str = "A" Select Case str Case "a", "A" MsgBox "aです" End Select End Sub とするしかないでしょうか？ 大文字小文字区別なく評価する方法があれば教えてください。よろしくお願いします。
- ベストアンサー
- その他MS Office製品
- 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
- ベストアンサー
- オフィス系ソフト
お礼
Wendy02さん、いつも助けていただきありがとうございます。 Chr(0)？？？調べたら「値 0を持つ文字」ということらしいのですが意味がわかりません。 Case Is >= Chr(0)で文字列と判定できるという理解でよいのでしょうか？ Value2プロパティも初めて知りました！これは調べて納得です。ありがとうございました。 計算結果がエラー値の場合はどうSlelect Caseのなかに取り込めるでしょうか？