|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
27.04.2015, 11:13 | #1 |
Пользователь
Регистрация: 26.11.2008
Сообщений: 22
|
Переименование и сортировка листов
Необходимо автоматически сортировать листы при переименовании листа. В настоящий момент реализовано кнопкой с макросом:
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.04.2015 в 12:16. |
27.04.2015, 11:48 | #2 |
Старожил
Регистрация: 31.12.2010
Сообщений: 2,133
|
http://www.sql.ru/forum/1153887/pere...tirovka-listov
Где еще спросили?
exceleved@yandex.ru Яндекс.Деньги: 410011500007619
|
27.04.2015, 13:06 | #3 |
Пользователь
Регистрация: 26.11.2008
Сообщений: 22
|
Нашел решение. Тема закрыта.
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Переименование слайдов в PP | lkbb | Microsoft Office Excel | 3 | 23.08.2010 09:18 |
добавление и переименование листов книги | kievlyanin | Microsoft Office Excel | 12 | 05.08.2009 18:14 |
сортировка листов | cheshiki1 | Microsoft Office Excel | 2 | 29.05.2009 17:48 |
Сортировка листов книги | RUBEY | Microsoft Office Excel | 1 | 17.07.2008 10:57 |
Переименование файла | Патрон | Общие вопросы Delphi | 17 | 09.04.2008 16:50 |