質問編集履歴
1
回答を受けての修正
test
CHANGED
File without changes
|
test
CHANGED
@@ -11,6 +11,14 @@
|
|
11
11
|
ファイル名に半角の片仮名か記号、もしくは全角のアルファベットか数字が含まれていた場合、格納したセルと同じ行にエラー文を入れる。
|
12
12
|
|
13
13
|
|
14
|
+
|
15
|
+
**2017-01-29追記**
|
16
|
+
|
17
|
+
回答ありがとうございます。
|
18
|
+
|
19
|
+
それぞれのIFで判別はできるようになりましたが、ファイル名の先頭の文字のみを参照しているようで、途中や最後に含まれている場合にIFに掛かりません。
|
20
|
+
|
21
|
+
記号はこちらで使いそうな物だけにまとめました。
|
14
22
|
|
15
23
|
```VBA
|
16
24
|
|
@@ -26,7 +34,7 @@
|
|
26
34
|
|
27
35
|
Do While buf <> ""
|
28
36
|
|
29
|
-
buf = Left(buf, Len(buf) - 4)
|
37
|
+
buf = Left(buf, Len(buf) - 4)
|
30
38
|
|
31
39
|
cnt = cnt + 1
|
32
40
|
|
@@ -40,9 +48,33 @@
|
|
40
48
|
|
41
49
|
|
42
50
|
|
43
|
-
If buf Like "[
|
51
|
+
If buf Like "[ア-ン]*" Then
|
44
52
|
|
53
|
+
Cells(cnt, 5) = "半角片仮名有り"
|
54
|
+
|
55
|
+
Cells(cnt, 5).Font.Color = RGB(255, 0, 0)
|
56
|
+
|
57
|
+
End If
|
58
|
+
|
59
|
+
If buf Like "[/! ・ 。 、 ( )]*" Then
|
60
|
+
|
45
|
-
Cells(cnt, 5) = "半角有り"
|
61
|
+
Cells(cnt, 5) = "半角記号有り"
|
62
|
+
|
63
|
+
Cells(cnt, 5).Font.Color = RGB(255, 0, 0)
|
64
|
+
|
65
|
+
End If
|
66
|
+
|
67
|
+
If buf Like "[A-z]*" Then
|
68
|
+
|
69
|
+
Cells(cnt, 5) = "全角アルファベット有り"
|
70
|
+
|
71
|
+
Cells(cnt, 5).Font.Color = RGB(255, 0, 0)
|
72
|
+
|
73
|
+
End If
|
74
|
+
|
75
|
+
If buf Like "[0-9]*" Then
|
76
|
+
|
77
|
+
Cells(cnt, 5) = "全角数字有り"
|
46
78
|
|
47
79
|
Cells(cnt, 5).Font.Color = RGB(255, 0, 0)
|
48
80
|
|
@@ -56,8 +88,4 @@
|
|
56
88
|
|
57
89
|
End Sub
|
58
90
|
|
59
|
-
|
60
|
-
|
61
|
-
|
62
|
-
|
63
91
|
```
|