回答編集履歴
1
ワイルドカードを使用したコードに修正
test
CHANGED
@@ -32,7 +32,7 @@
|
|
32
32
|
|
33
33
|
'全角のアルファベット
|
34
34
|
|
35
|
-
If buf Like "[
|
35
|
+
If buf Like "[A-z]" 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
|
+
```
|