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

Вход

Регистрация

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

 

= Мир MS Excel/Как сделать выборку позиций из таблицы - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Как сделать выборку позиций из таблицы (Формулы/Formulas)
Как сделать выборку позиций из таблицы
Agent763 Дата: Воскресенье, 04.01.2015, 13:20 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 20% ±

Excel 2007
Извиняюсь если что не так...
В Excel новичок, есть таблица с видами работ (столбец B), ед. измерения (столбец C), стоимость за ед. (столбец D), количество (столбец E) и сумма (столбец F)
Хотел сделать так, чтоб при проставлении значения в столбце E "кол-во" вся строка, где это значение проставлено отображалась в соседнем листе "На печать".
Думал просто будет, но не тут-то было...
 
Ответить
СообщениеИзвиняюсь если что не так...
В Excel новичок, есть таблица с видами работ (столбец B), ед. измерения (столбец C), стоимость за ед. (столбец D), количество (столбец E) и сумма (столбец F)
Хотел сделать так, чтоб при проставлении значения в столбце E "кол-во" вся строка, где это значение проставлено отображалась в соседнем листе "На печать".
Думал просто будет, но не тут-то было...
Автор - Agent763
Дата добавления - 04.01.2015 в 13:20
JayBhagavan Дата: Воскресенье, 04.01.2015, 13:44 | Сообщение № 2
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 188
Репутация: 27 ±
Замечаний: 0% ±

Excel 2010
Цитата Agent763, 04.01.2015 в 13:20, в сообщении № 1
Хотел сделать так
Где Ваши попытки в файле экселя?

Языком ты или построишь жизнь,или разрушишь ее до основания.Думайте что говорите.(с)А.Хакимов
 
Ответить
Сообщение
Цитата Agent763, 04.01.2015 в 13:20, в сообщении № 1
Хотел сделать так
Где Ваши попытки в файле экселя?
Автор - JayBhagavan
Дата добавления - 04.01.2015 в 13:44
Hugo Дата: Воскресенье, 04.01.2015, 13:46 | Сообщение № 3
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3854
Репутация: 814 ±
Замечаний: 0% ±

365
Завели количество, поставили фильтр по этому столбцу, распечатали. Зачем проблемы со вторым листом?

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD
 
Ответить
СообщениеЗавели количество, поставили фильтр по этому столбцу, распечатали. Зачем проблемы со вторым листом?
Автор - Hugo
Дата добавления - 04.01.2015 в 13:46
Agent763 Дата: Воскресенье, 04.01.2015, 13:50 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 20% ±

Excel 2007
Проблема в том, что фильтром не умеет пользоваться тот кто будет работать с этой базой...
Пришлось даже макрос найти на очистку данных из столбца "кол-во"!
Есть полная версия файла
К сообщению приложен файл: RE001.xlsm (49.7 Kb)
 
Ответить
СообщениеПроблема в том, что фильтром не умеет пользоваться тот кто будет работать с этой базой...
Пришлось даже макрос найти на очистку данных из столбца "кол-во"!
Есть полная версия файла
Автор - Agent763
Дата добавления - 04.01.2015 в 13:50
RAN Дата: Воскресенье, 04.01.2015, 14:40 | Сообщение № 5
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Проблема не в "умеет". Не ХОЧЕТ.
А для тех, кто не хочет, запросто сделаем кнопочку. (Но на платной основе)

Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеПроблема не в "умеет". Не ХОЧЕТ.
А для тех, кто не хочет, запросто сделаем кнопочку. (Но на платной основе)
Автор - RAN
Дата добавления - 04.01.2015 в 14:40
Agent763 Дата: Воскресенье, 04.01.2015, 14:50 | Сообщение № 6
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 20% ±

Excel 2007
Понятно без макроса никак((
В макросах я ещё менее силен, чем в формулах...
Ладно, хрен с ним, я то думал, тут как-то с ВПР можно было бы сделать...
 
Ответить
СообщениеПонятно без макроса никак((
В макросах я ещё менее силен, чем в формулах...
Ладно, хрен с ним, я то думал, тут как-то с ВПР можно было бы сделать...
Автор - Agent763
Дата добавления - 04.01.2015 в 14:50
Hugo Дата: Воскресенье, 04.01.2015, 14:50 | Сообщение № 7
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3854
Репутация: 814 ±
Замечаний: 0% ±

365
А читать "тот кто будет работать" умеет? :)
Запишите рекордером макрос установления фильтра, поставьте его на кнопку, на другую кнопку макрос снятия фильтра. Ну или на один переключатель.
Ваш макрос по очистке требует жестокой оптимизации - зачем просматривать все ячейки, если интересует только один столбец? Да и зачем их вообще просматривать по одной, если можно просто тупо удалить все в диапазоне. Да даже все во всём столбце, затем кодом написать куда нужно это "Итого:".
К сожалению Ваш файл у меня завешивает Эксель (возможно это у меня система слетает...), так что кодом не помогу.

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD
 
Ответить
СообщениеА читать "тот кто будет работать" умеет? :)
Запишите рекордером макрос установления фильтра, поставьте его на кнопку, на другую кнопку макрос снятия фильтра. Ну или на один переключатель.
Ваш макрос по очистке требует жестокой оптимизации - зачем просматривать все ячейки, если интересует только один столбец? Да и зачем их вообще просматривать по одной, если можно просто тупо удалить все в диапазоне. Да даже все во всём столбце, затем кодом написать куда нужно это "Итого:".
К сожалению Ваш файл у меня завешивает Эксель (возможно это у меня система слетает...), так что кодом не помогу.
Автор - Hugo
Дата добавления - 04.01.2015 в 14:50
Agent763 Дата: Воскресенье, 04.01.2015, 15:24 | Сообщение № 8
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 20% ±

Excel 2007
Попробовал записать макрос на фильтр:

[vba]
Код
Sub Фильтр1()

ActiveSheet.Range("$E$6:$E$590").AutoFilter Field:=5, Criteria1:=[color=red]Array( _
"4,000", "56,000", "6,000", "7,000", "8,000")[/color], Operator:=xlFilterValues
End Sub
[/vba]

но не понял как критерии для фильтра подредактировать (чтоб все значения кроме "Итого" и пустых ячеек отфильтровывал)

Макрос со снятием фильтра вроде прошел.

А в макросе с очисткой
[vba]
Код
Sub clear2()
Dim r As Range
Dim rgn As Range
Set rgn = Application.Worksheets(1).UsedRange
For Each r In rgn.Cells

If r.Cells.Interior.ColorIndex = Range("e6").Interior.ColorIndex Then
r.Cells.ClearContents
End If
Next
End Sub
[/vba]
Как в темном лесу) где здесь можно диапазон указать - столбец E
К сообщению приложен файл: 0430063.xlsm (64.7 Kb)


Сообщение отредактировал Pelena - Воскресенье, 04.01.2015, 18:09
 
Ответить
СообщениеПопробовал записать макрос на фильтр:

[vba]
Код
Sub Фильтр1()

ActiveSheet.Range("$E$6:$E$590").AutoFilter Field:=5, Criteria1:=[color=red]Array( _
"4,000", "56,000", "6,000", "7,000", "8,000")[/color], Operator:=xlFilterValues
End Sub
[/vba]

но не понял как критерии для фильтра подредактировать (чтоб все значения кроме "Итого" и пустых ячеек отфильтровывал)

Макрос со снятием фильтра вроде прошел.

А в макросе с очисткой
[vba]
Код
Sub clear2()
Dim r As Range
Dim rgn As Range
Set rgn = Application.Worksheets(1).UsedRange
For Each r In rgn.Cells

If r.Cells.Interior.ColorIndex = Range("e6").Interior.ColorIndex Then
r.Cells.ClearContents
End If
Next
End Sub
[/vba]
Как в темном лесу) где здесь можно диапазон указать - столбец E
Автор - Agent763
Дата добавления - 04.01.2015 в 15:24
RAN Дата: Воскресенье, 04.01.2015, 15:32 | Сообщение № 9
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
[vba]
Код
Set rgn = Worksheets(1).Columns("E")
[/vba]

Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение[vba]
Код
Set rgn = Worksheets(1).Columns("E")
[/vba]
Автор - RAN
Дата добавления - 04.01.2015 в 15:32
Agent763 Дата: Воскресенье, 04.01.2015, 15:37 | Сообщение № 10
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 20% ±

Excel 2007
Цитата RAN, 04.01.2015 в 15:32, в сообщении № 9
Set rgn = Worksheets(1).Columns("E")


Все зависло и желтым цветом подсветило

[vba]
Код
If r.Cells.Interior.ColorIndex = Range("e5").Interior.ColorIndex Then
r.Cells.ClearContents
[/vba]
[moder]Оформляйте коды тегами (кнопка #). Исправьте предыдущее сообщение[/moder]
 
Ответить
Сообщение
Цитата RAN, 04.01.2015 в 15:32, в сообщении № 9
Set rgn = Worksheets(1).Columns("E")


Все зависло и желтым цветом подсветило

[vba]
Код
If r.Cells.Interior.ColorIndex = Range("e5").Interior.ColorIndex Then
r.Cells.ClearContents
[/vba]
[moder]Оформляйте коды тегами (кнопка #). Исправьте предыдущее сообщение[/moder]
Автор - Agent763
Дата добавления - 04.01.2015 в 15:37
RAN Дата: Воскресенье, 04.01.2015, 17:01 | Сообщение № 11
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Умерим аппетит
[vba]
Код
Set rgn = Intersect(Worksheets(1).UsedRange, Worksheets(1).Columns("E"))
[/vba]

Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеУмерим аппетит
[vba]
Код
Set rgn = Intersect(Worksheets(1).UsedRange, Worksheets(1).Columns("E"))
[/vba]
Автор - RAN
Дата добавления - 04.01.2015 в 17:01
Agent763 Дата: Воскресенье, 04.01.2015, 17:13 | Сообщение № 12
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 20% ±

Excel 2007
Цитата RAN, 04.01.2015 в 17:01, в сообщении № 11
Умерим аппетит
Set rgn = Intersect(Worksheets(1).UsedRange, Worksheets(1).Columns("E"))

Спасибо! Вроде стал побыстрей чистить.
 
Ответить
Сообщение
Цитата RAN, 04.01.2015 в 17:01, в сообщении № 11
Умерим аппетит
Set rgn = Intersect(Worksheets(1).UsedRange, Worksheets(1).Columns("E"))

Спасибо! Вроде стал побыстрей чистить.
Автор - Agent763
Дата добавления - 04.01.2015 в 17:13
Hugo Дата: Воскресенье, 04.01.2015, 17:38 | Сообщение № 13
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3854
Репутация: 814 ±
Замечаний: 0% ±

365
Цитата Agent763, 04.01.2015 в 17:13, в сообщении № 12
Вроде стал побыстрей чистить.

Вероятно далее всё так же - берём одну ячейку, берём Range("e5"), смотрим в обоих какой цвет и затем при совпадении удаляем значения и т.д....
Зачем столько работы? Почему просто не удалить сразу всё?
Ну хоть перестаньте всё время лазить в Range("e5") - можно ведь этот цвет запомнить в переменной.

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD
 
Ответить
Сообщение
Цитата Agent763, 04.01.2015 в 17:13, в сообщении № 12
Вроде стал побыстрей чистить.

Вероятно далее всё так же - берём одну ячейку, берём Range("e5"), смотрим в обоих какой цвет и затем при совпадении удаляем значения и т.д....
Зачем столько работы? Почему просто не удалить сразу всё?
Ну хоть перестаньте всё время лазить в Range("e5") - можно ведь этот цвет запомнить в переменной.
Автор - Hugo
Дата добавления - 04.01.2015 в 17:38
evgen55587 Дата: Вторник, 06.01.2015, 11:39 | Сообщение № 14
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
,,,
К сообщению приложен файл: 8277347.xlsm (87.3 Kb)

)))

Сообщение отредактировал evgen55587 - Вторник, 06.01.2015, 11:40
 
Ответить
Сообщение,,,
Автор - evgen55587
Дата добавления - 06.01.2015 в 11:39
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Как сделать выборку позиций из таблицы (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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