| |
▼フィルター さん：
こんばんは。
>▼kanabun さん：
>遅くなってすいませんです。具体的には
>Ａ Ｂ Ｃ Ｄ Ｅ Ｆ Ｇ Ｈ Ｉ Ｊ Ｋ Ｌ・・・・
>番号 日付 ｴﾘｱ 支店 ｴﾝﾄﾞ ID 種別1 種別2 種別3 種別4 ｴﾝﾄﾞ ID・・・・
>・ ・ ・ ・ ・ ・ ・ ・ ・ ・ ・ ・
>・ ・ ・ ・ ・ ・ ・ ・ ・ ・ ・ ・
>・ ・ ・ ・ ・ ・ ・ ・ ・ ・ ・ ・
>のような配置になっています。ここでE〜Jのﾊﾟﾀｰﾝが繰り返されます。
>この様なﾊﾟﾀｰﾝでF、L、R、X、AD、、AJの列に格納しているIDをあいまい検索後、
>行としてリストボックスに表示させています。
やはりそういうことでしたか｡｡｡
抽出列が増えた時点で、処理内容を一度確認すべきでした。。
そうなると、AdvancedFilterを使って同時検索抽出する方法では
無理がありますね？
前のスレッドのタイトルどおり、
「オートフィルターの繰り返し」になるような気がします。
Private Sub CommandButton110_Click()
Dim ss As String
Dim CopyTo As Range '抽出先
Dim i As Long, j As Long
ss = "*" & TextBox76.Value & "*"
With Worksheets("WAREA")
.UsedRange.ClearContents
Set CopyTo = .Range("A1")
j = -1
End With
Application.ScreenUpdating = False
With Worksheets("DATA").Range("A1").CurrentRegion
For i = 5 To 35 Step 6
With .Columns(i).Resize(, 5)
.AutoFilter 2, ss
If .Columns(1).SpecialCells(xlVisible).Count > 1 Then
Intersect(.Cells, .Offset(1 + j)).Copy CopyTo
Set CopyTo = CopyTo.End(xlDown).Offset(1)
j = 0
End If
.AutoFilter
End With
Next
End With
Application.ScreenUpdating = True
'「WAREA」シートに抽出された
> ｴﾝﾄﾞ ID 種別1 種別2 種別3 種別4
'をリストボックスのリストにセットする
End Sub
|
|
kanabun
- 08/12/17(水) 19:22 -
