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

Вход

Регистрация

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

 

= Мир MS Excel/Заполнение макросом видимых ячеек - Мир MS Excel

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

Excel 2007
Доброго времени суток.
Подобные проблемы и их решения присутствуют в интернете....но все не совсем то что нужно.
А нужно следующее--> макросом(ИМЕННО МАКРОСОМ) отфильтровывает столбец по нужному параметру(это сделать легко),допустим A столбец - все четные числа,в диапазоне A3:A9000(ну диапазон, это весь столбец, с запасом на возможное изменение кол-ва строк) , а вот далее, что как раз не получается --> нужно в соседнем столбце, на против каждой отфильтрованной(видимой) ячейки, поставить значение..причем само конечное кол-во строк меняется постоянно...допустим цифру "1". я не силен в VBA то что нашел, оно... вроде то да не то..а адаптировать под то что нужно не получается....просьба помоч с макросом.


Сообщение отредактировал Vintnight - Четверг, 06.02.2020, 15:03
 
Ответить
СообщениеДоброго времени суток.
Подобные проблемы и их решения присутствуют в интернете....но все не совсем то что нужно.
А нужно следующее--> макросом(ИМЕННО МАКРОСОМ) отфильтровывает столбец по нужному параметру(это сделать легко),допустим A столбец - все четные числа,в диапазоне A3:A9000(ну диапазон, это весь столбец, с запасом на возможное изменение кол-ва строк) , а вот далее, что как раз не получается --> нужно в соседнем столбце, на против каждой отфильтрованной(видимой) ячейки, поставить значение..причем само конечное кол-во строк меняется постоянно...допустим цифру "1". я не силен в VBA то что нашел, оно... вроде то да не то..а адаптировать под то что нужно не получается....просьба помоч с макросом.

Автор - Vintnight
Дата добавления - 06.02.2020 в 14:54
китин Дата: Четверг, 06.02.2020, 15:07 | Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 7014
Репутация: 1073 ±
Замечаний: 0% ±

Excel 2007;2010;2016
Vintnight, - Прочитайте Правила форума
- Приложите файл с исходными данными и желаемым результатом (можно вручную) в формате Excel размером до 500 кб согласно п.3 Правил форума


Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
СообщениеVintnight, - Прочитайте Правила форума
- Приложите файл с исходными данными и желаемым результатом (можно вручную) в формате Excel размером до 500 кб согласно п.3 Правил форума

Автор - китин
Дата добавления - 06.02.2020 в 15:07
Vintnight Дата: Четверг, 06.02.2020, 15:11 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
я бы с удовольствием, с работы нет такой возможности. В принципе описал все, достаточно понятно. Можно сжато.
Нужно макросом отфильтровать столбец А, а на против каждой отфильтрованной ячейки, в столбце В поставить "1"...вот :)


Сообщение отредактировал Vintnight - Четверг, 06.02.2020, 15:13
 
Ответить
Сообщениея бы с удовольствием, с работы нет такой возможности. В принципе описал все, достаточно понятно. Можно сжато.
Нужно макросом отфильтровать столбец А, а на против каждой отфильтрованной ячейки, в столбце В поставить "1"...вот :)

Автор - Vintnight
Дата добавления - 06.02.2020 в 15:11
китин Дата: Четверг, 06.02.2020, 15:12 | Сообщение № 4
Группа: Модераторы
Ранг: Экселист
Сообщений: 7014
Репутация: 1073 ±
Замечаний: 0% ±

Excel 2007;2010;2016
то есть вы считаете, что кто то нарисует за вас файл, напишет макрос. А потом увидит, что ВСЁ сделано не так и вы хотели совсем по другому?


Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
Сообщението есть вы считаете, что кто то нарисует за вас файл, напишет макрос. А потом увидит, что ВСЁ сделано не так и вы хотели совсем по другому?

Автор - китин
Дата добавления - 06.02.2020 в 15:12
Vintnight Дата: Четверг, 06.02.2020, 15:14 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Всмысле за меня.....так я и обращаюсь с этим вопросом на форум так как самому не получается написать....
 
Ответить
СообщениеВсмысле за меня.....так я и обращаюсь с этим вопросом на форум так как самому не получается написать....

Автор - Vintnight
Дата добавления - 06.02.2020 в 15:14
Vintnight Дата: Четверг, 06.02.2020, 15:18 | Сообщение № 6
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
там того макроса, я так подозреваю три строчки.....вот вариант но я не могу тут закрутить его на весь диапазон
[vba]
Код
range("B4").select
Dim i
i = 1
Do
If Not Rows(ActiveCell.Row + i).Hidden Then
ActiveCell.Offset(i).Select
ActiveCell.FormulaR1C1 = "1"
Exit Do
End If
i = i + 1
Loop
[/vba]


Сообщение отредактировал Vintnight - Четверг, 06.02.2020, 15:30
 
Ответить
Сообщениетам того макроса, я так подозреваю три строчки.....вот вариант но я не могу тут закрутить его на весь диапазон
[vba]
Код
range("B4").select
Dim i
i = 1
Do
If Not Rows(ActiveCell.Row + i).Hidden Then
ActiveCell.Offset(i).Select
ActiveCell.FormulaR1C1 = "1"
Exit Do
End If
i = i + 1
Loop
[/vba]

Автор - Vintnight
Дата добавления - 06.02.2020 в 15:18
китин Дата: Четверг, 06.02.2020, 15:18 | Сообщение № 7
Группа: Модераторы
Ранг: Экселист
Сообщений: 7014
Репутация: 1073 ±
Замечаний: 0% ±

Excel 2007;2010;2016
кто то нарисует за вас файл


Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
Сообщение
кто то нарисует за вас файл

Автор - китин
Дата добавления - 06.02.2020 в 15:18
Vintnight Дата: Четверг, 06.02.2020, 15:21 | Сообщение № 8
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
а я понял)) да просто от 1-1000 пронумеровать столбец A....файл готов))))
 
Ответить
Сообщениеа я понял)) да просто от 1-1000 пронумеровать столбец A....файл готов))))

Автор - Vintnight
Дата добавления - 06.02.2020 в 15:21
китин Дата: Четверг, 06.02.2020, 15:24 | Сообщение № 9
Группа: Модераторы
Ранг: Экселист
Сообщений: 7014
Репутация: 1073 ±
Замечаний: 0% ±

Excel 2007;2010;2016
Vintnight, вы я смотрю Правила даже посмотреть не удосужились!!!
- Оформите код тегами (в режиме правки поста выделите код и нажмите кнопку #, пояснялка здесь)


Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
СообщениеVintnight, вы я смотрю Правила даже посмотреть не удосужились!!!
- Оформите код тегами (в режиме правки поста выделите код и нажмите кнопку #, пояснялка здесь)

Автор - китин
Дата добавления - 06.02.2020 в 15:24
Nic70y Дата: Четверг, 06.02.2020, 16:19 | Сообщение № 10
Группа: Друзья
Ранг: Экселист
Сообщений: 8759
Репутация: 2272 ±
Замечаний: 0% ±

Excel 2010
[vba]
Код
    Range("b2:b" & Cells(Rows.Count, "a").End(xlUp).Row) = 1
[/vba]


ЮMoney 41001841029809
 
Ответить
Сообщение[vba]
Код
    Range("b2:b" & Cells(Rows.Count, "a").End(xlUp).Row) = 1
[/vba]

Автор - Nic70y
Дата добавления - 06.02.2020 в 16:19
Vintnight Дата: Четверг, 06.02.2020, 16:30 | Сообщение № 11
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
СПАСИБО ТЕБЕ о МУДРЕЙШИЙ yes


Сообщение отредактировал Vintnight - Четверг, 06.02.2020, 16:30
 
Ответить
СообщениеСПАСИБО ТЕБЕ о МУДРЕЙШИЙ yes

Автор - Vintnight
Дата добавления - 06.02.2020 в 16:30
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Заполнение макросом видимых ячеек (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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