Range(col,col,col....) выделить много столбцов / Microsoft Office

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Range(col,col,col....) выделить много столбцов

3 сообщений из 3, страница 1 из 1

Range(col,col,col....) выделить много столбцов

#40089815

Focha

Участник

Откуда: Москва

Сообщения: 578

Рейтинг: 0 / 0

Ребят,
range("C:C,D:D... и т.д.") имеет ограничения по кол-во выделяемых диапозонов
application.union(range("C:C,D:D... и т.д."),range("D:D... и т.д.")) имеет ограничения 30 range
Мне необходимо выделить ~500 столбцов (Столбцы находятся не рядом, а через каждые 2 столбца) и состоящие из 10 строк и применить условное форматирование.

Есть идеи как это реализовать?
Не хотелось бы добавлять 500 условных форматироварований
я собираю через цикл адрес столбцов
получается, что-то типа
R2C17:R10C17,R2C24:R10C24,R2C31:R10C31,R2C38:R10C38,R2C45:R10C45,R2C52:R10C52,R2C59:R10C59,R2C66:R10C66,R2C73:R10C73,R2C80:R10C80... и т.д.
Хотелось бы как-то одним действие передать диапозоны и применить условное форматирование, а не разбивать их на range и объединять через application.union

...

Рейтинг:

0 / 0

10.08.2021, 11:21

| Ответить | Цитировать | Написать

Range(col,col,col....) выделить много столбцов

#40089820

Akina

Участник

Откуда: Зеленоград, Москва, Россия

Сообщения: 20 644

Рейтинг: 0 / 0

Ну вообще-то

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.

Sub test()
Dim i As Integer, r As Range

Set r = Range(Cells(1, 1), Cells(2, 2))
For i = 2 To 50
    Set r = Application.Union(r, Range(Cells(i + i - 1, i + i - 1), Cells(i + i, i + i)))
Next

r.Select
End Sub

отрабатывает без ошибок и выделяет полсотни фрагментов аки диапазон, плюя на всякие там ограничения...

...

Рейтинг:

0 / 0

10.08.2021, 11:38

| Ответить | Цитировать | Написать

Range(col,col,col....) выделить много столбцов

#40089891

Focha

Участник

Откуда: Москва

Сообщения: 578

Рейтинг: 0 / 0

Akina

Ну вообще-то

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.

Sub test()
Dim i As Integer, r As Range

Set r = Range(Cells(1, 1), Cells(2, 2))
For i = 2 To 50
    Set r = Application.Union(r, Range(Cells(i + i - 1, i + i - 1), Cells(i + i, i + i)))
Next

r.Select
End Sub

отрабатывает без ошибок и выделяет полсотни фрагментов аки диапазон, плюя на всякие там ограничения...

Спасибо, да теперь ему плевать какое кол-во диапозонов

...

Рейтинг:

0 / 0

10.08.2021, 16:48

| Ответить | Цитировать | Написать

3 сообщений из 3, страница 1 из 1

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Range(col,col,col....) выделить много столбцов

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=61&gotonew=1&tid=2171733]:	0ms
get settings:	15ms
get forum list:	7ms
check forum access:	1ms
check topic access:	1ms
track hit:	76ms
get topic data:	6ms
get first new msg:	3ms
get forum data:	1ms
get page messages:	117ms
get tp. blocked users:	1ms
others:	5ms

total:	233ms