質問編集履歴
1
目的を満たすために、今回条件を追加した箇所に"★"を付けました
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -162,7 +162,7 @@
|
|
|
162
162
|
|
|
163
163
|
|
|
164
164
|
|
|
165
|
-
|
|
165
|
+
'★今回の条件追加のために、取得
|
|
166
166
|
|
|
167
167
|
'対応完了日（AQ列）が空白の行の管理NOを取得する
|
|
168
168
|
|
|
@@ -188,6 +188,12 @@
|
|
|
188
188
|
|
|
189
189
|
|
|
190
190
|
|
|
191
|
+
'★今回の条件追加のために以下のように変更
|
|
192
|
+
|
|
193
|
+
'変更前：12行目以降すべてクリア
|
|
194
|
+
|
|
195
|
+
'変更後：対応完了日が空白の行のみクリア
|
|
196
|
+
|
|
191
197
|
'対応完了日（AQ列）が空白の行の値をクリアする
|
|
192
198
|
|
|
193
199
|
For Each cell In Range("AQ12:AQ3000")
|
|
@@ -350,6 +356,8 @@
|
|
|
350
356
|
|
|
351
357
|
|
|
352
358
|
|
|
359
|
+
'★今回の条件追加のために、IF文を追加
|
|
360
|
+
|
|
353
361
|
If strInBook <> ctrlNum Then
|
|
354
362
|
|
|
355
363
|
|