Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Создание таблицы с автоматической сортировкой строк - Мир MS Excel

  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Создание таблицы с автоматической сортировкой строк
dimchic Дата: Среда, 08.02.2017, 19:13 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Добрый день. Требуется создать таблицу с данными с автоматической сортировкой строк.Вот как она выглядит:
Фио Дата Профессия
Иванов 01.07.2012 водитель
Петров 02.08.2012 слесарь
Сидоров 01.07.2012 токарь
Необходимо, чтобы при добавлении каждой новой строки, все данные автоматически сортировались по столбцу "дата" в порядке возрастания,
т.е. должно получиться:
Фио Дата Профессия
Иванов 01.07.2012 водитель
Сидоров 01.07.2012 токарь
Федоров 05.07.2012 водитель
Петров 02.08.2012 слесарь
Это вообще можно сделать?
К сообщению приложен файл: _Microsoft_Exce.xlsx (8.9 Kb)
 
Ответить
СообщениеДобрый день. Требуется создать таблицу с данными с автоматической сортировкой строк.Вот как она выглядит:
Фио Дата Профессия
Иванов 01.07.2012 водитель
Петров 02.08.2012 слесарь
Сидоров 01.07.2012 токарь
Необходимо, чтобы при добавлении каждой новой строки, все данные автоматически сортировались по столбцу "дата" в порядке возрастания,
т.е. должно получиться:
Фио Дата Профессия
Иванов 01.07.2012 водитель
Сидоров 01.07.2012 токарь
Федоров 05.07.2012 водитель
Петров 02.08.2012 слесарь
Это вообще можно сделать?

Автор - dimchic
Дата добавления - 08.02.2017 в 19:13
AlexM Дата: Среда, 08.02.2017, 20:01 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4517
Репутация: 1130 ±
Замечаний: 0% ±

Excel 2003
С умными таблицами не получилось сделать.
См работу на Лист2. Код в модуле листа[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Range("B2:B99"), Target) Is Nothing Then Exit Sub
Range([A1], [A1].End(xlDown).Offset(, 3)).Sort Range("B2"), 1 '2 - по убыванию, _
цифра в Offset(, 3) задает, сколько столбцов перемещать
End Sub
[/vba]
К сообщению приложен файл: _Microsoft_Exce.xls (28.5 Kb)



Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.
 
Ответить
СообщениеС умными таблицами не получилось сделать.
См работу на Лист2. Код в модуле листа[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Range("B2:B99"), Target) Is Nothing Then Exit Sub
Range([A1], [A1].End(xlDown).Offset(, 3)).Sort Range("B2"), 1 '2 - по убыванию, _
цифра в Offset(, 3) задает, сколько столбцов перемещать
End Sub
[/vba]

Автор - AlexM
Дата добавления - 08.02.2017 в 20:01
dimchic Дата: Среда, 08.02.2017, 20:51 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Спасибо, как раз то что надо.
 
Ответить
СообщениеСпасибо, как раз то что надо.

Автор - dimchic
Дата добавления - 08.02.2017 в 20:51
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2025 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!