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

Вход

Регистрация

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

 

= Мир MS Excel/Заполнение всей выборки. Макрос по фильтру - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Заполнение всей выборки. Макрос по фильтру
Maxts Дата: Суббота, 14.09.2013, 15:54 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Всем добрый день.

Давно (очень давно) не программировал на VB для микрософта, и порядком все подзабыл.
Прошу помочь в решение двух задачи:

Задача 2.
Есть условия для фильтра.
Макрос из таблицы делает выборку (фильтром).
Получается таблица с наложенными фильтрами - например из 10.000 получилось 100.
Как в этой таблице заполнить все 100 ячеек в колонке B текстом "выборка-1" (именно макросом а не ручками), понимая, что исходная таблица в которой надо заполнять ячейки каждый раз разная - одинаковые только условия.

Заранее благодарю за помощь!

ps использую excell 2010/2013
К сообщению приложен файл: -2.xlsm (16.2 Kb)
 
Ответить
СообщениеВсем добрый день.

Давно (очень давно) не программировал на VB для микрософта, и порядком все подзабыл.
Прошу помочь в решение двух задачи:

Задача 2.
Есть условия для фильтра.
Макрос из таблицы делает выборку (фильтром).
Получается таблица с наложенными фильтрами - например из 10.000 получилось 100.
Как в этой таблице заполнить все 100 ячеек в колонке B текстом "выборка-1" (именно макросом а не ручками), понимая, что исходная таблица в которой надо заполнять ячейки каждый раз разная - одинаковые только условия.

Заранее благодарю за помощь!

ps использую excell 2010/2013

Автор - Maxts
Дата добавления - 14.09.2013 в 15:54
SkyPro Дата: Суббота, 14.09.2013, 16:16 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 1206
Репутация: 255 ±
Замечаний: 0% ±

2010
[vba]
Код
    [B2].Resize([B10000].End(xlUp).Row, 1).Formula = "выборка-1"
[/vba]
Только для таких вопросов есть специальный раздел


skypro1111@gmail.com

Сообщение отредактировал SkyPro - Суббота, 14.09.2013, 16:16
 
Ответить
Сообщение[vba]
Код
    [B2].Resize([B10000].End(xlUp).Row, 1).Formula = "выборка-1"
[/vba]
Только для таких вопросов есть специальный раздел

Автор - SkyPro
Дата добавления - 14.09.2013 в 16:16
  • Страница 1 из 1
  • 1
Поиск:

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