Как перебрать все листы vba excel

Обновлено: 07.07.2024

Приветствую уважаемое сообщество!

Что-то я сильно затупил, но не могу понять, где у меня ошибка вот в этом куске кода:

Dim sht As Worksheet

После запуска выскакивает окно с ошибкой:

Пробовал и вот так эту строку записать:
[vba]

[/vba]
Всё равно ошибку выдаёт.
Что-то в орфографии VBA у меня хромает или где?

Вот полный текст VBA:
[vba]

With sht.AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

А выполнять он должен совсем простую задачу:
вывести на экран Лист1 на экран, сортируя при этом столбец X по убыванию;
после паузы вывести на экран Лист2 с аналогичными действиями;
и так далее со всеми листами книги, сколько бы их ни было;
после последнего выведенного листа снова выводится Лист1.
Всё это продолжается до нажатия на любом листе кнопки "Стоп" (ещё не сделана).
Что там будет выполняться в листах — это позже будет сделано.

Приветствую уважаемое сообщество!

Что-то я сильно затупил, но не могу понять, где у меня ошибка вот в этом куске кода:

Dim sht As Worksheet

После запуска выскакивает окно с ошибкой:

Пробовал и вот так эту строку записать:
[vba]

[/vba]
Всё равно ошибку выдаёт.
Что-то в орфографии VBA у меня хромает или где?

Вот полный текст VBA:
[vba]

With sht.AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

Где начало того конца, которым кончается начало?

Что-то я сильно затупил, но не могу понять, где у меня ошибка вот в этом куске кода:

Dim sht As Worksheet

После запуска выскакивает окно с ошибкой:

Пробовал и вот так эту строку записать:
[vba]

[/vba]
Всё равно ошибку выдаёт.
Что-то в орфографии VBA у меня хромает или где?

Вот полный текст VBA:
[vba]

With sht.AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

Добавил файл. Автор - Yurbas
Дата добавления - 31.05.2019 в 11:07

Читайте также: