Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Программирование, связанное с MS Office > Переименование и сортировка листов

Автор: VadimSh 26.4.2015, 17:25

Помогите разобраться с автоматической сортировкой листов при переименовании листа. В настоящий момент реализовано кнопкой с макросом:

Sub Sort_Sheets()    Dim i As Integer, j As Integer
    For i = 1 To Sheets.Count - 1
        For j = i + 1 To Sheets.Count
            If UCase(Sheets(i).Name) > UCase(Sheets(j).Name) Then
                Sheets(j).Move before:=Sheets(i)
            End If
       Next j
    Next i
End Sub

Автор: VadimSh 27.4.2015, 13:07

Нашел решение. Тема закрыта.