![]() |
Модераторы: mihanik |
![]() ![]() ![]() |
|
VadimSh |
|
|||
Новичок Профиль Группа: Участник Сообщений: 11 Регистрация: 14.10.2007 Репутация: нет Всего: нет |
Помогите разобраться с автоматической сортировкой листов при переименовании листа. В настоящий момент реализовано кнопкой с макросом:
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, 11:55 Присоединённый файл ( Кол-во скачиваний: 0 ) ![]() |
|||
|
||||
VadimSh |
|
|||
Новичок Профиль Группа: Участник Сообщений: 11 Регистрация: 14.10.2007 Репутация: нет Всего: нет |
Нашел решение. Тема закрыта.
|
|||
|
||||
![]() ![]() ![]() |
Правила форума "Программирование, связанное с MS Office" | |
|
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще!
|
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
0 Пользователей: | |
« Предыдущая тема | Программирование, связанное с MS Office | Следующая тема » |
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |