質問編集履歴
2
修正
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -5,7 +5,7 @@
|
|
|
5
5
|
先日も書きましたが、半角英数字のチェックは職員コードになります。
|
|
6
6
|
その際に半角英数字以外の文字が入っていたら、セルに色を付けるという風にしたいです。
|
|
7
7
|
どうも、半角英数字のチェックがうまくいってないようです。
|
|
8
|
-
郵便番号のチェックはできてます。
|
|
8
|
+
郵便番号のチェック~~はできてます。~~もできてませんでした。
|
|
9
9
|
データが文字列だからなのかと思っていたのですが、そうではないようでした。
|
|
10
10
|
意図的に文字列から数値に変換してもすべてセルの色が赤になってしまいました。
|
|
11
11
|
|
1
修正
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -30,10 +30,7 @@
|
|
|
30
30
|
reg.Pattern = "^[0-9]{3}-[0-9]{4}$" '郵便番号チェック
|
|
31
31
|
reg2.Global = True
|
|
32
32
|
|
|
33
|
-
Set RE = CreateObject("VBScript.RegExp")
|
|
34
|
-
RE.Pattern = "^[0-9A-Za-z]+$"
|
|
35
|
-
|
|
36
|
-
|
|
33
|
+
Select Case Cells(8, 3).Value
|
|
37
34
|
Case "職員マスタ"
|
|
38
35
|
|
|
39
36
|
|