Выберите 1-й элемент в списке автофильтров

Question

Как использовать код VBA, чтобы выбрать первый элемент в списке автофильтров?

В настоящее время у меня есть следующее

ActiveSheet.Range("$A$1:$Y$840").AutoFilter Field:=5, Criteria1:= _
    "October"

Но я хочу изменить «Октябрь» на1-й элемент в выпадающем списке.

С уважением

Джим

Answer 1

Пожалуйста, попробуйте следующее:

Option Explicit


Sub calculate()

Dim rn As Range, sh As Worksheet, sh1 As Worksheet


SheetCreate
CopyRange



Set sh = Sheet1 ' the sheet where the data you want to filter are.
Set sh1 = Sheets("help to sort")



With sh

Set rn = sh1.Range("A:A")

If .AutoFilterMode = True Then .AutoFilterMode = False

.Range("$A$1:$Y$840").AutoFilter Field:=5, Criteria1:= _
        rn.Item(2)

End With

End Sub


Sub SheetCreate()

Dim sh As Worksheet, sh1 As Worksheet

For Each sh1 In ActiveWorkbook.Worksheets

If sh1.Name = "help to sort" Then Exit Sub

Next

Set sh = ActiveWorkbook.Sheets.Add

sh.Name = "help to sort"

End Sub


Sub CopyRange()

Dim rn As Range, rn1 As Range,sh As Worksheet, sh1 As Worksheet

Set sh = Sheet1 ' the sheet where the data you want to filter are.
Set sh1 = Sheets("help to sort")

With sh

If sh1.Range("A2") <> "" Then Exit Sub

Set rn = .Range("E:E")
Set rn1 = sh1.Range("A:A")

rn.Copy rn1

rn1.Sort key1:=sh1.Range("A2"), order1:=xlAscending, Header:=xlYes

End With

End Sub

, если хотите, вы можете изменить order1 на xldescending