Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

49689 / 76732

←次へ　｜　前へ→


	【31946】Re:文字を判断

kobasan - 05/12/2(金) 20:31 -


	引用なし

	パスワード

皆さん　今晩は。

正規表現の簡単な練習材料としてやってみました。

A列にこのようなデータがあるとして。
271-1111
13
27-33g
32
2223
4888-2k
733-0851

標準モジュールに貼り付けて、試してみてください。

Sub test()
　　Dim regEx As Object
　　Dim r As Range
　　　
　　'正規表現を作成
　　Set regEx = CreateObject("VBScript.RegExp")
　　regEx.Pattern = "[^0-9-]" '0123456789-以外の文字にマッチ
　　'
　　For Each r In Range("A1", Range("A65536").End(xlUp))
　　　　If regEx.test(r.Text) Then
　　　　　　r.Select
　　　　　　MsgBox "0123456789-以外の文字"
　　　　End If
　　Next
　　'
　　Set regEx = Nothing
End Sub

1 hits

▼

【31941】文字を判断 eriko 05/12/2(金) 18:10