質問編集履歴
1
目的を満たすために、今回条件を追加した箇所に"★"を付けました
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -80,7 +80,7 @@
|
|
|
80
80
|
'画面の更新を止める
|
|
81
81
|
Application.ScreenUpdating = False
|
|
82
82
|
|
|
83
|
-
|
|
83
|
+
'★今回の条件追加のために、取得
|
|
84
84
|
'対応完了日（AQ列）が空白の行の管理NOを取得する
|
|
85
85
|
'対応完了日（AQ列）が空白でない行の管理NOを取得する
|
|
86
86
|
|
|
@@ -93,6 +93,9 @@
|
|
|
93
93
|
End If
|
|
94
94
|
Next
|
|
95
95
|
|
|
96
|
+
'★今回の条件追加のために以下のように変更
|
|
97
|
+
'変更前：12行目以降すべてクリア
|
|
98
|
+
'変更後：対応完了日が空白の行のみクリア
|
|
96
99
|
'対応完了日（AQ列）が空白の行の値をクリアする
|
|
97
100
|
For Each cell In Range("AQ12:AQ3000")
|
|
98
101
|
If cell = "" Then
|
|
@@ -174,6 +177,7 @@
|
|
|
174
177
|
|
|
175
178
|
strInBook = Mid(strInFl, intPos)
|
|
176
179
|
|
|
180
|
+
'★今回の条件追加のために、IF文を追加
|
|
177
181
|
If strInBook <> ctrlNum Then
|
|
178
182
|
|
|
179
183
|
'
|