質問編集履歴
1
2017/05/09 Nuu様のご提案に対する返答の更新
test
CHANGED
File without changes
|
test
CHANGED
@@ -143,3 +143,91 @@
|
|
143
143
|
何か良い案はありませんでしょうか…。
|
144
144
|
|
145
145
|
よろしくお願い致します。
|
146
|
+
|
147
|
+
|
148
|
+
|
149
|
+
---
|
150
|
+
|
151
|
+
(2017/05/05 追記)
|
152
|
+
|
153
|
+
Nuu様
|
154
|
+
|
155
|
+
迅速なご回答ありがとうございます。
|
156
|
+
|
157
|
+
ご提案頂いたコードを下記のように実行しました。
|
158
|
+
|
159
|
+
```VBA
|
160
|
+
|
161
|
+
Sub テスト()
|
162
|
+
|
163
|
+
|
164
|
+
|
165
|
+
q1 = MsgBox("実行", 0, "")
|
166
|
+
|
167
|
+
If q1 = vbCancel Then
|
168
|
+
|
169
|
+
MsgBox "キャンセル", 0, ""
|
170
|
+
|
171
|
+
GoTo endmark
|
172
|
+
|
173
|
+
Else
|
174
|
+
|
175
|
+
End If
|
176
|
+
|
177
|
+
|
178
|
+
|
179
|
+
Close #1
|
180
|
+
|
181
|
+
openfilename = Application.GetOpenFilename("テキスト文書,*.txt")
|
182
|
+
|
183
|
+
Open openfilename For Input As #1
|
184
|
+
|
185
|
+
|
186
|
+
|
187
|
+
Do Until EOF(1)
|
188
|
+
|
189
|
+
Line Input #1, buf
|
190
|
+
|
191
|
+
With Workbooks(1).Worksheets(1).Columns(1)
|
192
|
+
|
193
|
+
.AutoFilter Field:=1, Criteria1:="*" & buf & "*"
|
194
|
+
|
195
|
+
.CurrentRegion.SpecialCells(xlCellTypeVisible).Interior.Color = RGB(242, 221, 220)
|
196
|
+
|
197
|
+
.AutoFilter
|
198
|
+
|
199
|
+
a = a + 1
|
200
|
+
|
201
|
+
Application.StatusBar = a & "件目"
|
202
|
+
|
203
|
+
End With
|
204
|
+
|
205
|
+
Loop
|
206
|
+
|
207
|
+
Workbooks(1).Worksheets(1).Rows(1).Interior.Color = xlNone
|
208
|
+
|
209
|
+
|
210
|
+
|
211
|
+
endmark:
|
212
|
+
|
213
|
+
End Sub
|
214
|
+
|
215
|
+
|
216
|
+
|
217
|
+
```
|
218
|
+
|
219
|
+
(コード全てです)
|
220
|
+
|
221
|
+
|
222
|
+
|
223
|
+
上記コードで実行したところ、非常に時間がかかっているのでまだコードが完了するまで実行できていないのですが、
|
224
|
+
|
225
|
+
Escキーで中断すると、画像のような表示になります。
|
226
|
+
|
227
|
+
フィルターというものがよく理解できていないのですが、正常に処理できているのでしょうか?
|
228
|
+
|
229
|
+
稚拙な質問で大変申し訳ありません。
|
230
|
+
|
231
|
+
何卒よろしくお願い致します。
|
232
|
+
|
233
|
+
![](fd55d32b5e6830202a2cc1befae9134b.jpeg)
|