質問編集履歴
2
修正
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -12,7 +12,7 @@
|
|
|
12
12
|
|
|
13
13
|
どうも、半角英数字のチェックがうまくいってないようです。
|
|
14
14
|
|
|
15
|
-
郵便番号のチェックはできてます。
|
|
15
|
+
郵便番号のチェック~~はできてます。~~もできてませんでした。
|
|
16
16
|
|
|
17
17
|
データが文字列だからなのかと思っていたのですが、そうではないようでした。
|
|
18
18
|
|
1
修正
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -62,13 +62,7 @@
|
|
|
62
62
|
|
|
63
63
|
|
|
64
64
|
|
|
65
|
-
Set RE = CreateObject("VBScript.RegExp")
|
|
66
|
-
|
|
67
|
-
RE.Pattern = "^[0-9A-Za-z]+$"
|
|
68
|
-
|
|
69
|
-
|
|
70
|
-
|
|
71
|
-
Select Case Cells(8, 3).Value
|
|
65
|
+
Select Case Cells(8, 3).Value
|
|
72
66
|
|
|
73
67
|
Case "職員マスタ"
|
|
74
68
|
|