質問編集履歴
1
コードの追記
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -36,7 +36,7 @@
|
|
|
36
36
|
|
|
37
37
|
|
|
38
38
|
|
|
39
|
-
|
|
39
|
+
####チェック処理
|
|
40
40
|
|
|
41
41
|
```VBA
|
|
42
42
|
|
|
@@ -131,3 +131,49 @@
|
|
|
131
131
|
End Sub
|
|
132
132
|
|
|
133
133
|
```
|
|
134
|
+
|
|
135
|
+
|
|
136
|
+
|
|
137
|
+
####cnsResult宣言
|
|
138
|
+
|
|
139
|
+
```ここに言語を入力
|
|
140
|
+
|
|
141
|
+
'*************** セルの名前定義 =依頼票シート= ***************
|
|
142
|
+
|
|
143
|
+
'入力チェック
|
|
144
|
+
|
|
145
|
+
Private Const cnsResult As String = "ResultChk"
|
|
146
|
+
|
|
147
|
+
```
|
|
148
|
+
|
|
149
|
+
|
|
150
|
+
|
|
151
|
+
####stRequest
|
|
152
|
+
|
|
153
|
+
stRequest(依頼票)というオブジェクトの中のコード
|
|
154
|
+
|
|
155
|
+
```ここに言語を入力
|
|
156
|
+
|
|
157
|
+
'受付管理番号が変更された場合は、処理しない。
|
|
158
|
+
|
|
159
|
+
If Target.Address(ReferenceStyle:=xlR1C1) = stRequest.Range("SRNo").Address(ReferenceStyle:=xlR1C1) Then
|
|
160
|
+
|
|
161
|
+
|
|
162
|
+
|
|
163
|
+
Exit Sub
|
|
164
|
+
|
|
165
|
+
|
|
166
|
+
|
|
167
|
+
End If
|
|
168
|
+
|
|
169
|
+
|
|
170
|
+
|
|
171
|
+
Application.EnableEvents = False
|
|
172
|
+
|
|
173
|
+
|
|
174
|
+
|
|
175
|
+
ActiveWorkbook.Unprotect cnsPassWord
|
|
176
|
+
|
|
177
|
+
stRequest.Unprotect cnsPassWord
|
|
178
|
+
|
|
179
|
+
```
|