|
▼UO3 さん:
>
> ListObjectではない、通常のオートフィルターであれば後者のコードでフィルタリングされるんですが。
ふだんListObject使った作業は皆無に等しい自分なのですが、
試しにこうしてみたら、オートフィルタできました。
Sub Try1()
Dim myRange As Range
Dim oList As ListObject
Set myRange = ActiveSheet.Range("A1").CurrentRegion
Set oList = ActiveSheet.ListObjects.Add(xlSrcRange, myRange, , xlYes)
With oList
.Name = "List1"
.ShowAutoFilter = True 'マクロのほうで▼を明示する
.DataBodyRange.AutoFilter 2, Criteria1:="B" 'B列に フィルタをかける
MsgBox "ok?"
.DataBodyRange.AutoFilter
.Unlist
End With
Set oList = Nothing
End Sub
|
|