回答編集履歴
1
ワイルドカードを使用したコードに修正
answer
CHANGED
|
@@ -15,7 +15,7 @@
|
|
|
15
15
|
End If
|
|
16
16
|
|
|
17
17
|
'全角のアルファベット
|
|
18
|
-
If buf Like "[
|
|
18
|
+
If buf Like "[Ａ-ｚ]" Then
|
|
19
19
|
'エラー処理
|
|
20
20
|
End If
|
|
21
21
|
|
|
@@ -27,4 +27,11 @@
|
|
|
27
27
|
記号は下記のサイトを参考にし、ファイル名に使用できる記号のみを対象にしています。
|
|
28
28
|
[参考サイト](http://itdoc.hitachi.co.jp/manuals/3020/30203H1580/EH150142.HTM)
|
|
29
29
|
|
|
30
|
-
ちなみに、Yukiyama7.4さんのコードは**半角のカタカナ以外**が含まれていたらエラー処理をするようになっていました。（!を付けたら～以外という意味になります）
|
|
30
|
+
ちなみに、Yukiyama7.4さんのコードは**半角のカタカナ以外**が含まれていたらエラー処理をするようになっていました。（!を付けたら～以外という意味になります）
|
|
31
|
+
|
|
32
|
+
####追記
|
|
33
|
+
ワイルドカードを入れないと先頭文字しか検索しないのですね。すみません…
|
|
34
|
+
[の前と]の後ろに*を入れて実行してみて下さい。すべての文字を検索してくれるはずです。
|
|
35
|
+
```VBA
|
|
36
|
+
If buf Like "*[ｱ-ﾝ]*" Then
|
|
37
|
+
```
|