質問編集履歴
1
コードの修正
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -22,9 +22,15 @@
|
|
|
22
22
|
|
|
23
23
|
If (Left(rs2(0), 4) >= 2200 And Left(rs2(0), 4) <= 2473) And rs2(1) <> "" Then
|
|
24
24
|
|
|
25
|
+
'社員番号を変数に格納する
|
|
26
|
+
|
|
25
27
|
Number(i) = Left(rs2(0), 4)
|
|
26
28
|
|
|
29
|
+
'次の添え番に変更する
|
|
30
|
+
|
|
27
31
|
i = i + 1
|
|
32
|
+
|
|
33
|
+
'当営業所の社員番号以外のレコードの場合
|
|
28
34
|
|
|
29
35
|
Else
|
|
30
36
|
|