回答編集履歴

1

ワイルドカードを使用したコードに修正

2017/01/29 05:10

投稿

N-u-u
N-u-u

スコア113

test CHANGED
@@ -32,7 +32,7 @@
32
32
 
33
33
  '全角のアルファベット
34
34
 
35
- If buf Like "[-]" Then
35
+ If buf Like "[-]" Then
36
36
 
37
37
  'エラー処理
38
38
 
@@ -57,3 +57,17 @@
57
57
 
58
58
 
59
59
  ちなみに、Yukiyama7.4さんのコードは**半角のカタカナ以外**が含まれていたらエラー処理をするようになっていました。(!を付けたら~以外という意味になります)
60
+
61
+
62
+
63
+ ####追記
64
+
65
+ ワイルドカードを入れないと先頭文字しか検索しないのですね。すみません…
66
+
67
+ [の前と]の後ろに*を入れて実行してみて下さい。すべての文字を検索してくれるはずです。
68
+
69
+ ```VBA
70
+
71
+ If buf Like "*[ア-ン]*" Then
72
+
73
+ ```