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

Вход

Регистрация

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

 

= Мир MS Excel/Макрос поочередного определения отфильтрованных данных - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Макрос поочередного определения отфильтрованных данных (Формулы/Formulas)
Макрос поочередного определения отфильтрованных данных
A_3485 Дата: Пятница, 08.06.2018, 15:17 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 144
Репутация: 0 ±
Замечаний: 60% ±

2007
Уважаемы форумчане, добрый день!
Не могу справиться со следующей задачей. У меня есть отфильтрованная таблица (поле1, поле2.....). В последней колонке отфильтрованы значения 1 и 2. Мне нужно макросом определить значения только отфильтрованных ячеек в последнем столбце и также макросом их подсчитать.
К сообщению приложен файл: 0582846.xlsx(13.5 Kb)
 
Ответить
СообщениеУважаемы форумчане, добрый день!
Не могу справиться со следующей задачей. У меня есть отфильтрованная таблица (поле1, поле2.....). В последней колонке отфильтрованы значения 1 и 2. Мне нужно макросом определить значения только отфильтрованных ячеек в последнем столбце и также макросом их подсчитать.

Автор - A_3485
Дата добавления - 08.06.2018 в 15:17
Gopronotmore Дата: Пятница, 08.06.2018, 15:32 | Сообщение № 2
Группа: Пользователи
Ранг: Участник
Сообщений: 95
Репутация: 1 ±
Замечаний: 0% ±

Excel 2007
А зачем макрос когда можно так?

Код
SUBTOTAL(109;E4:E14)
 
Ответить
СообщениеА зачем макрос когда можно так?

Код
SUBTOTAL(109;E4:E14)

Автор - Gopronotmore
Дата добавления - 08.06.2018 в 15:32
abtextime Дата: Пятница, 08.06.2018, 15:38 | Сообщение № 3
Группа: Проверенные
Ранг: Ветеран
Сообщений: 797
Репутация: 113 ±
Замечаний: 0% ±

Excel 2010
Умной таблицей - не вариант?
К сообщению приложен файл: 3676201.xlsx(9.4 Kb)
 
Ответить
СообщениеУмной таблицей - не вариант?

Автор - abtextime
Дата добавления - 08.06.2018 в 15:38
A_3485 Дата: Пятница, 08.06.2018, 15:42 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 144
Репутация: 0 ±
Замечаний: 60% ±

2007
Мне нужно знать значение каждой отфильтрованной ячейки в последнем столбце, т.к. далее это значение сравнивается с другим.
 
Ответить
СообщениеМне нужно знать значение каждой отфильтрованной ячейки в последнем столбце, т.к. далее это значение сравнивается с другим.

Автор - A_3485
Дата добавления - 08.06.2018 в 15:42
abtextime Дата: Пятница, 08.06.2018, 15:46 | Сообщение № 5
Группа: Проверенные
Ранг: Ветеран
Сообщений: 797
Репутация: 113 ±
Замечаний: 0% ±

Excel 2010
и также макросом их подсчитать


их подсчитать - это КАК? что посчитать? Количество? Сумму? Если сумму - показывал в предыдущем посте, если количество - смотрите файл, приаттаченный к этому посту
К сообщению приложен файл: 1424941.xlsx(9.4 Kb)
 
Ответить
Сообщение
и также макросом их подсчитать


их подсчитать - это КАК? что посчитать? Количество? Сумму? Если сумму - показывал в предыдущем посте, если количество - смотрите файл, приаттаченный к этому посту

Автор - abtextime
Дата добавления - 08.06.2018 в 15:46
A_3485 Дата: Пятница, 08.06.2018, 15:52 | Сообщение № 6
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 144
Репутация: 0 ±
Замечаний: 60% ±

2007
Вроде как этот код подходит (....значение каждой отфильтрованной ячейки)
[vba]
Код
Dim x
For Each x In ActiveSheet.AutoFilter.Range.Columns(5).SpecialCells(xlCellTypeVisible)
    x.Select
    znach = x
Next
[/vba]

Всем спасибо.
 
Ответить
СообщениеВроде как этот код подходит (....значение каждой отфильтрованной ячейки)
[vba]
Код
Dim x
For Each x In ActiveSheet.AutoFilter.Range.Columns(5).SpecialCells(xlCellTypeVisible)
    x.Select
    znach = x
Next
[/vba]

Всем спасибо.

Автор - A_3485
Дата добавления - 08.06.2018 в 15:52
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Макрос поочередного определения отфильтрованных данных (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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