- ベストアンサー
エクセルVBAの Select Case構文
Wendy02の回答
こんにちは。Wendy02です。 私の回答は、あまり、merlionXXさんご自身の問題解決には役に立たないような気がしますが、これは、参考程度に読んでくださいね。 >Case Is >= Chr(0)で文字列と判定できるという理解でよいのでしょうか？ そうです。それ以下はありませんね。現実には、ワークシート上の文字、コード31(x1F) ぐらいだったと思います。それ以下は、制御文字になってしまいます。 「値0の文字列」というのは、私も詳しくはありませんが、お調べになったように、vbNullChar の空の文字列 (")です。 例えば、Window プロパティのCaption に文字列を設定する場合は、違いがありませんが、Excel.Application 上では、以下のような違いがあります。 Application.Caption = vbNullChar 'Chr(0) 'Caption のMicrosoft Excel が消える Application.Caption = "" 'Caption は消えない=設定できない。 >計算結果がエラー値の場合はどうSlelect Caseのなかに取り込めるでしょうか？ 単に、エラー値を数字に変えればよいのですが、数字との比較が先にありますから、文字列にして、接頭辞を与えました。 If IsError(myValue) Then myValue = "#" & Str(CInt(myValue)) End If エラーは、この時点で捕まえていますが、それを更に厳密に分類したりする場合は、この数字を使えばよいです。ワークシート関数にも、ERR.TYPE関数がありますが、VBA側だけにしました。# をつける理由は特にありませんが、文字列の数字であっても、分類する必要があるような気がしました。 文字列比較なら、Text プロパティで取れば、例えば、 "#VALUE!"と出すことも出来ます。 #NULL! 2000 #DIV/0! 2007 #VALUE! 2015 #REF! 2023 #NAME? 2029 #NUM! 2036 #N/A 2042 コードとしては、もうありえない段階に入っているような気がしますが、実験的に、こういうものって、こちらもやっていて発見があります。 Sub Test4() Dim myValue As Variant myValue = Cells(1, 1).Value2 If IsError(myValue) Then myValue = "#" & Str(CInt(myValue)) End If If myValue = "" Then MsgBox "やり直し!": Exit Sub Select Case myValue Case "AAA": MsgBox "AAA" Case "# 2000" To "# 2042": MsgBox "エラーです。" Case Is >= Chr(0): MsgBox "やり直し" '^@を含む、それ以上 Case Is > 0: MsgBox "プラス" Case 0: MsgBox "ゼロ" Case Is < 0: 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
- ベストアンサー
- オフィス系ソフト
お礼
ありがとうございました！ とても勉強になりました。今後ともよろしくご指導くださいませ。