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

 

= Мир MS Excel/Расстановка людей - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Расстановка людей (Сортировка по алфавиту и дате рождения)
Расстановка людей
12345tn Дата: Понедельник, 22.09.2014, 19:10 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 116
Репутация: 0 ±
Замечаний: 0% ±

2007
Здравствуйте!Скажите пожалуйста как в EXCEL можно сделать что бы при нажатии на ячейку C2 фамилии в этом столбце сортировались по алфавиту,а при нажатии на ячейку D2 сортировались в столбце D по дате рождения .Много прочитал тем на форуме про сортировку,но почему то похожего не нашёл.Заранее спасибо.
К сообщению приложен файл: _1.xls (44.5 Kb)
 
Ответить
СообщениеЗдравствуйте!Скажите пожалуйста как в EXCEL можно сделать что бы при нажатии на ячейку C2 фамилии в этом столбце сортировались по алфавиту,а при нажатии на ячейку D2 сортировались в столбце D по дате рождения .Много прочитал тем на форуме про сортировку,но почему то похожего не нашёл.Заранее спасибо.
Автор - 12345tn
Дата добавления - 22.09.2014 в 19:10
gling Дата: Вторник, 23.09.2014, 00:03 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2643
Репутация: 739 ±
Замечаний: 0% ±

2010
Здравствуйте. Можно сделать и
Цитата
что бы при нажатии на ячейку C2 фамилии в этом столбце сортировались по алфавиту
Два раза на клавишу нажать слабо? ПКМ на ячейку С2 - Сортировка - от А до Я. По датам сортироваться не будет, так как там текст, а не дата. Сначала преобразуйте в дату, потом сортируйте так же как и С2.

ЯД-41001506838083

Сообщение отредактировал gling - Вторник, 23.09.2014, 00:04
 
Ответить
СообщениеЗдравствуйте. Можно сделать и
Цитата
что бы при нажатии на ячейку C2 фамилии в этом столбце сортировались по алфавиту
Два раза на клавишу нажать слабо? ПКМ на ячейку С2 - Сортировка - от А до Я. По датам сортироваться не будет, так как там текст, а не дата. Сначала преобразуйте в дату, потом сортируйте так же как и С2.
Автор - gling
Дата добавления - 23.09.2014 в 00:03
Rioran Дата: Вторник, 23.09.2014, 10:08 | Сообщение № 3
Группа: Авторы
Ранг: Ветеран
Сообщений: 903
Репутация: 290 ±
Замечаний: 0% ±

Excel 2013
12345tn, здравствуйте.

Для самых ленивых - во вложении событийный VBA-макрос листа.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Intersect(Target, [C2:D2]) Is Nothing Then
    With Me.AutoFilter.Sort
        .SortFields.Clear
        .SortFields.Add Key:=Range(Cells(2, Target.Column), Cells(Cells(Rows.Count, 2).End(xlUp).Row, Target.Column)), SortOn:=0, Order:=1, DataOption:=0
        .Apply
    End With
    [A1].Select
End If

End Sub


Чтобы на Вашем файле он мог нормально работать, я преобразовал Ваши даты в нормальный формат (раньше были текстовые) с помощью такого приёма:

Sub Value_to_Value()

Dim X As Long

For X = 3 To Cells(Rows.Count, 2).End(xlUp).Row
    Cells(X, 4).Value = CDate(Cells(X, 4).Value)
Next X

End Sub

К сообщению приложен файл: Rio_Sort.xlsm (25.1 Kb)

Роман, Москва, voronov_rv@mail.ru
Яндекс-Деньги: 41001312674279
 
Ответить
Сообщение12345tn, здравствуйте.

Для самых ленивых - во вложении событийный VBA-макрос листа.

[vba]
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, [C2:D2]) Is Nothing Then      With Me.AutoFilter.Sort          .SortFields.Clear          .SortFields.Add Key:=Range(Cells(2, Target.Column), Cells(Cells(Rows.Count, 2).End(xlUp).Row, Target.Column)), SortOn:=0, Order:=1, DataOption:=0          .Apply      End With      [A1].Select End If End Sub
[/vba]
Чтобы на Вашем файле он мог нормально работать, я преобразовал Ваши даты в нормальный формат (раньше были текстовые) с помощью такого приёма:

[vba]
Sub Value_to_Value() Dim X As Long For X = 3 To Cells(Rows.Count, 2).End(xlUp).Row      Cells(X, 4).Value = CDate(Cells(X, 4).Value) Next X End Sub
[/vba]
Автор - Rioran
Дата добавления - 23.09.2014 в 10:08
12345tn Дата: Среда, 24.09.2014, 07:55 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 116
Репутация: 0 ±
Замечаний: 0% ±

2007
Rioran, Спасибо Вам большое за участие в моём вопросе
 
Ответить
СообщениеRioran, Спасибо Вам большое за участие в моём вопросе
Автор - 12345tn
Дата добавления - 24.09.2014 в 07:55
12345tn Дата: Среда, 24.09.2014, 07:56 | Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 116
Репутация: 0 ±
Замечаний: 0% ±

2007
gling, Спасибо за вразумительный ответ
 
Ответить
Сообщениеgling, Спасибо за вразумительный ответ
Автор - 12345tn
Дата добавления - 24.09.2014 в 07:56
Alex_ST Дата: Среда, 24.09.2014, 09:00 | Сообщение № 6
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3219
Репутация: 622 ±
Замечаний: 0% ±

2003
12345tn,
извините за мою правовую безграмотность, но разве в Украине нет какого-то аналога Российского Закона о защите персональных данных?
По крайней мере в РФ, данные о дате рождения и, кажется, образовании являются закрытыми для свободного распространения без специального на то согласия персон.
Чушь, конечно. Мужикам-то это пофигу. А вот женщины год своего рождения предпочитают скрывать потому закон и протащили :)


С уважением,
Алексей
MS Excel 2003 - the best!!!

Сообщение отредактировал Alex_ST - Среда, 24.09.2014, 09:00
 
Ответить
Сообщение12345tn,
извините за мою правовую безграмотность, но разве в Украине нет какого-то аналога Российского Закона о защите персональных данных?
По крайней мере в РФ, данные о дате рождения и, кажется, образовании являются закрытыми для свободного распространения без специального на то согласия персон.
Чушь, конечно. Мужикам-то это пофигу. А вот женщины год своего рождения предпочитают скрывать потому закон и протащили :)
Автор - Alex_ST
Дата добавления - 24.09.2014 в 09:00
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Расстановка людей (Сортировка по алфавиту и дате рождения)
  • Страница 1 из 1
  • 1
Поиск:

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