- ベストアンサー
エクセルVBAの Select Case構文
KenKen_SPの回答
- KenKen_SP
- ベストアンサー率62% (785/1258)
皆さん、こんにちは。 データ型判定するなら、ベーシックに TypeName 関数で分岐処理すれば良い と思います。下記のようなコードでセルが取りうるデータ型は全て網羅できます。 余談ですが、IsNumeric 関数は、 「数値として評価できるか？」 を ブール値（True/False）で返すだけで、実際のデータ型判定をしている わけではありません。例えば、イミディエイトウインドウで、 ? IsNumeric("1") とすると True が返ってきますので注意が必要です。 諸事情によりまた暫らく消えます(´・ω・`)が、ご参考までに。では。 Option Explicit Sub TEST() Dim strMsg As String With ActiveCell Select Case UCase$(TypeName(.Value)) Case "STRING" strMsg = "文字列" ' 特定文字判定(大文字・小文字区別しない) ' InStr で vbTextCompare でも判定できます If StrComp(.Value, "AAA", vbTextCompare) = 0 Then strMsg = "AAA" End If Case "DOUBLE" If InStr(.NumberFormat, ":") > 0 Then strMsg = "日付/時刻" Else If .Value = 0 Then: strMsg = "ゼロ" If .Value > 0 Then: strMsg = "正数" If .Value < 0 Then: strMsg = "負数" End If Case "DATE": strMsg = "日付" Case "BOOLEAN": strMsg = "ブール値" Case "ERROR": strMsg = "エラー値" Case "EMPTY": strMsg = "空" End Select End With MsgBox strMsg 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
- ベストアンサー
- オフィス系ソフト
お礼
> 例えば、イミディエイトウインドウで、 ? IsNumeric("1") イミディエイトウインドウの使い方がよくわからないので Sub TEST() MsgBox IsNumeric("1") End Sub としたらTrue が返ってきました！勉強になりました。 ありがとうございます。