Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


44113 / 76732 ←次へ | 前へ→

【37641】Re:Select caseについて
回答  H. C. Shinopy  - 06/5/13(土) 17:47 -

引用なし
パスワード
   Like演算子と一緒に使ってみてはどうでしょう?
ヘルプで見た感じでは、
指定の仕方は文字列検索に使うワイルドカードと同じようです。

某書に載っていた例(一部)
myString = Application.InputBox(Prompt:="文字を入力してください")
Select Case True
  Case myString Like "[A-Z]": MsgBox "半角英字大文字"
  Case myString Like "[ぁ-ん]": MsgBox "ひらがな"
End Select

[charlist](文字リスト)による文字範囲について、
どの文字を指定するかについては、
メニューバーの[挿入]から[記号と特殊文字]を見て頂ければと思います。

他の例ですが、私の場合、Word VBAで下のような処理をしたことがあります。

myDigit = "〇一二三四五六七八九十百千万億兆"
'
Select Case True
  Case myString Like "[" & myDigit & "]"
   Rem 漢数字の場合は、何もしない。
  Case Else
    Rem 選択範囲を1文字狭める。
    Call Selection.MoveLeft(wdCharacter, 1, wdExtend)
End Select

また、ヘルプでLike演算子を見ると、
下の例が載っていますので、
御参考までに。

次の例は、Like 演算子を使って、文字列とパターンを比較します。

Dim MyCheck
MyCheck = "aBBBa" Like "a*a"    ' True を返します。
MyCheck = "F" Like "[A-Z]"    ' True を返します。
MyCheck = "F" Like "[!A-Z]"    ' False を返します。
MyCheck = "a2a" Like "a#a"    ' True を返します。
MyCheck = "aM5b" Like "a[L-P]#[!c-e]"  ' True を返します。
MyCheck = "BAT123khg" Like "B?T*"  ' True を返します。
MyCheck = "CAT123khg" Like "B?T*"  ' False を返します。
0 hits

【37640】Select caseについて よしの 06/5/13(土) 16:31 質問
【37641】Re:Select caseについて H. C. Shinopy 06/5/13(土) 17:47 回答
【37644】Re:Select caseについて よしの 06/5/13(土) 21:51 お礼

44113 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free