[решено]Заполнить диапазон ячеек одинаковыми символами

Автор Андрей2014, 5 мая 2015, 12:49

0 Пользователи и 1 гость просматривают эту тему.

Андрей2014

Доброго времени суток.
Подскажите, можно ли как-то автоматически заполнить выбранный диапазон ячеек одинаковым символом?
К примеру, задан автофильтр (определённый критерий), нужно пометить отобранные им строчки символом (единица, т.е. "1"), специально для этого предусмотрен ряд "Y" (после отбора автофильтром, диапазон, который надо заполнить единицами - "Y1:Y46047"). Это можно как-то сделать автоматически?

ps Разумеется, так чтобы не затрагивались отфильтрованные строки.
Спасибо.

JohnSUN

Цитата: Андрей2014 от  5 мая 2015, 12:49
(после отбора автофильтром, диапазон, который надо заполнить единицами - "Y1:Y46047"). Это можно как-то сделать автоматически?
Наверное, все-таки не "Y1:Y46047", а "Y2:Y46047"? В Y1 заголовок колонки...
Не совсем "автоматически", но довольно быстро это делается так:
Встать на Y1, нажатием Ctrl+Shift+End выделить Y2:Y46048 (на строчку больше чем нужно), Shift+Up - приподнять выделение на одну (видимую) ячейку.
Нажать 1 и Alt+Enter
Владислав Орлов aka JohnSUN
Благодарить-не зазорно.
Подарить благо создателям офиса, нашему ресурсу, мне

Андрей2014

Цитата: JohnSUN от  5 мая 2015, 11:05Нажать 1 и Alt+Enter
Это всё что нужно в моей задаче. Благодарю.

Aleksandr H.

а как выделить только пустые ячейки в столбце?

Андрей2014

Чёт я не понял, "пустые" подразумевается незакрашенные?

JohnSUN

В каком из офисов? В Либре через поиск регулярного выражения " крышка-доллар" в выделенном диапазоне -Найти все
Владислав Орлов aka JohnSUN
Благодарить-не зазорно.
Подарить благо создателям офиса, нашему ресурсу, мне

Aleksandr H.


JohnSUN

#7
Ха! Таки-да, не работает... (Склероз, что ли?) Ну, тогда через автофильтр или стандартный фильтр

PS. На худой конец и такое сойдёт:
Sub selectEmptyCells
Dim oCurrentSelection As Variant
Dim oSDescr As Variant
Dim oFound As Variant
oCurrentSelection = ThisComponent.getCurrentSelection()
oSDescr = oCurrentSelection.createSearchDescriptor()
oFound = oCurrentSelection.findAll(oSDescr)
ThisComponent.getCurrentController().select(oFound)
End Sub
Выделяем диапазон, запускаем макрос, из первоначального выделения остаются выделенными только пустые ячейки. Если пустых клеток не найдено - выделение останется прежним
Владислав Орлов aka JohnSUN
Благодарить-не зазорно.
Подарить благо создателям офиса, нашему ресурсу, мне

rami

Цитата: JohnSUN от  5 мая 2015, 19:24Ха! Таки-да, не работает...
Ха-Ха! Работает, да ещё как!

В окне Найти и заменить кнопка Найти всё изначально не активна, но она активизируется если записать что-нибудь в поле Заменить. Если нажать Найти всё, то выделятся все пустые ячейки.

JohnSUN

О! Точно! Спасибо, дружище! Я же помню, что был нетривиальный способ!..  :beer:
Владислав Орлов aka JohnSUN
Благодарить-не зазорно.
Подарить благо создателям офиса, нашему ресурсу, мне

Aleksandr H.

чета с макросом у меня не "альо" (файл NewFilm_003).

А, вообще, задание - реализовать трюк екселя (файл NewFilm_001)

rami

Цитата: Aleksandr H. от  5 мая 2015, 20:01чета с макросом у меня не "альо" (файл NewFilm_003).
Для данного выделения макрос работает, но при выборе некоторых других диапазонов, например A1:B36, то столбец B выделяет до низа.