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

Вход

Регистрация

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

 

= Мир MS Excel/Сортировать по дате - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Сортировать по дате
Сортировать по дате
Bars88 Дата: Суббота, 08.08.2015, 05:15 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 1
Репутация: 0 ±
Замечаний: 0% ±

2013
Доброе утро! Есть таблица в нем есть набор работ, дисциплины работ и также сроки (сроки разные, есть и одинаковые) Можно-ли так поставить формулу что когда ставите дату, он показал все работы которые попадают на эту дату и также дисциплины.

Например
A B C
Скважина1-общестрой - 02.03.15
Скважина2-общестрой - 02.03.09
Скважина3-электрика-03.0315
Скважина4-кипиа-02.03.15
Когда нужно выбрать дату :02.03.15 формула выбрала из списка

Скаважина1-общестрой 02.03.15 и скважина4-кипиа-02.03.15
 
Ответить
СообщениеДоброе утро! Есть таблица в нем есть набор работ, дисциплины работ и также сроки (сроки разные, есть и одинаковые) Можно-ли так поставить формулу что когда ставите дату, он показал все работы которые попадают на эту дату и также дисциплины.

Например
A B C
Скважина1-общестрой - 02.03.15
Скважина2-общестрой - 02.03.09
Скважина3-электрика-03.0315
Скважина4-кипиа-02.03.15
Когда нужно выбрать дату :02.03.15 формула выбрала из списка

Скаважина1-общестрой 02.03.15 и скважина4-кипиа-02.03.15
Автор - Bars88
Дата добавления - 08.08.2015 в 05:15
ShAM Дата: Суббота, 08.08.2015, 05:50 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 1347
Репутация: 249 ±
Замечаний: 0% ±

Excel 2010
Цитата Bars88, 08.08.2015 в 05:15, в сообщении № 1
Есть таблица
Где? :o
Вам срочно сюда: http://www.excelworld.ru/forum/2-20-1
deal пункт 3 особо внимательно прочитайте.
 
Ответить
Сообщение
Цитата Bars88, 08.08.2015 в 05:15, в сообщении № 1
Есть таблица
Где? :o
Вам срочно сюда: http://www.excelworld.ru/forum/2-20-1
deal пункт 3 особо внимательно прочитайте.
Автор - ShAM
Дата добавления - 08.08.2015 в 05:50
gling Дата: Суббота, 08.08.2015, 08:38 | Сообщение № 3
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2525
Репутация: 678 ±
Замечаний: 0% ±

2010
Где то я это уже видел. Здесь вариант предложен.

ЯД-41001506838083
 
Ответить
СообщениеГде то я это уже видел. Здесь вариант предложен.
Автор - gling
Дата добавления - 08.08.2015 в 08:38
Nic70y Дата: Суббота, 08.08.2015, 17:30 | Сообщение № 4
Группа: Друзья
Ранг: Экселист
Сообщений: 8769
Репутация: 2276 ±
Замечаний: 0% ±

Excel 2010
Решил с рекордером поэкспериментировать.
какая-то фигня вышла.
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("c1")) Is Nothing Then
Application.ScreenUpdating = 0
     Range("E3:F1000").ClearContents
     For Each c In Range("c2:c1000")
     If c = [c1] Then
     Range("e1").End(xlDown).Offset(1, 0) = c.Cells.Offset(0, -2)
     Range("f1").End(xlDown).Offset(1, 0) = c.Cells.Offset(0, -1)
     End If
     Next
End If
Application.ScreenUpdating = 1
End Sub
[/vba]
К сообщению приложен файл: 5916337.xlsm (14.1 Kb)

ЮMoney 41001841029809
 
Ответить
СообщениеРешил с рекордером поэкспериментировать.
какая-то фигня вышла.
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("c1")) Is Nothing Then
Application.ScreenUpdating = 0
     Range("E3:F1000").ClearContents
     For Each c In Range("c2:c1000")
     If c = [c1] Then
     Range("e1").End(xlDown).Offset(1, 0) = c.Cells.Offset(0, -2)
     Range("f1").End(xlDown).Offset(1, 0) = c.Cells.Offset(0, -1)
     End If
     Next
End If
Application.ScreenUpdating = 1
End Sub
[/vba]
Автор - Nic70y
Дата добавления - 08.08.2015 в 17:30
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Сортировать по дате
  • Страница 1 из 1
  • 1
Поиск:

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