Выделить несмежные ячейки с помощью Union()

@Igor_Tr · Регистрация: 17.01.2010

Студворк — интернет-сервис помощи студентам

С помощью Union(Range(Cells(r1,c1),RangeCells(r2,c 2)),.........).Select выделил несмежные диапазоны. А теперь, когда мне надо выделить несколько несмежных ячеек, как быть? Union(Cells(r1,c1),Cells(r2,c2),........ .) и варианты - не работают. Или я перегрелся, или ...

Скрипт · 19.10.2012, 18:10

Igor_Tr, напишите вашу задачу: что вам нужно сделать. Если задача большая, то приложите ещё и книгу Excel.
Всю книгу Excel не выкладывайте, а оставьте столько данных, сколько необходимо, чтобы понять вашу задачу.

@Казанский · 19.10.2012, 18:11

Работает - попробовал в окне Immediate:

Visual Basic
1
union(cells(2,3),cells(4,5)).Select

Откройте страшную тайну - зачем нужно ВЫДЕЛЯТЬ диапазоны? Вы хотите обратить внимание пользователя на ячейки, которые вызывают ошибку? Другой цели я не могу придумать.

@Igor_Tr · 19.10.2012, 18:37 **[ТС]**

И так всегда за меня будет кто-то что-то....? Да задача простая, как и я сам. Теперь мне нужно выделить несколько несмежных ячеек (кол-во) заранее не известно, адреса плавающие, определяются кодом, для, к примеру, форматирования. Главное - условное форматирование не подходить, критерии тоже плавающие.

Добавлено через 7 минут
to Казанский. Нет никакой тайны. Создается, по ходу, лист. Не совсем стандартный, но данные в таблицах. Шапка - большая. Нужно отформатировать ячейки (диапазоны) в разных частях шапки. Долбает для каждого диапазона забивать Range/Cells(...).Select, With selection.Border...., With selection.Font..... и т.д. А так собрал для одного типа все в кучу - и готово, для другого - готово. И быстро, и читать легко. Вот и все.

Добавлено через 13 минут
Прошу извинения за отнятое время. Действительно, Union(Cells(1, 4), Cells(1, 8), Cells(2, 10)).Select работает. Почему не работало раньше - у кого-то глюк. Железо, скорее всего

Скрипт · 19.10.2012, 19:09

Другой способ выделить несколько ячеек:

Visual Basic
1
2
3
4
5
Sub Procedure_1()
 
    Range("D1, H1, J2").Select
 
End Sub

@Igor_Tr · 19.10.2012, 19:20 **[ТС]**

To Скрипт.Да, так будет работать, а вот так - Range(Cells(1, 4), Cells(1, 8), Cells(2, 10)).Select - не хочет.
А я всегда работаю в R1C1.

@ikki · 19.10.2012, 20:39

для форматирования совсем необязательно выделять ячейки.

достаточно

Visual Basic
1
2
3
4
5
with union(...)
  .borders...
  .font...
  .interior...
end

или

Visual Basic
1
2
3
4
5
6
set c=union(...)
with c
  .borders...
  .font...
  .interior...
end

конечно, с выделением будет тот же результат, но гораздо позже, ибо работает медленнее, да и такое мелькание, мягко говоря, красиво не выглядит.
а уж если отключать обновление экрана при работе макроса - то тогда вообще пропадает абсолютно всякий смысл.

@Igor_Tr · 19.10.2012, 21:03 **[ТС]**

Все так. Можно без With
Union(Cells(mRow, genCol + 4), Cells(mRow, genCol + 6), _
Cells(genRow + 4, mCol + 12), Cells(mRow - 5, mCol + 11), _
Cells(mRow, mCol + 10), Cells(mRow, mCol + 12), _
Cells(mRow + 1, mCol + 4)).NumberFormat = "#,##0.00"
А это я не понял: "если отключать обновление экрана при работе макроса - то тогда вообще пропадает абсолютно всякий". Смысл чего? Для скорости я всегда применяю Application.ScreenUpdating = False. Боюсь, крыша улетит, если смотреть на мелькание.

@Hugo121 · 19.10.2012, 21:18

Действительно, зачем union и выделение...

Visual Basic
1
2
3
4
5
6
7
Sub tt()
 
With Range("D1, H1, J2")
.Interior.Color = vbRed
End With
 
End Sub

"пропадает абсолютно всякий смысл" выделения.

@ikki · 19.10.2012, 21:23

Сообщение от Igor_Tr

вот так - Range(Cells(1, 4), Cells(1, 8), Cells(2, 10)).Select - не хочет.
А я всегда работаю в R1C1.

а причем тут R1C1?
да и Select?

в этом примере вы неправильно используете свойство Range

@Igor_Tr · 19.10.2012, 21:29 **[ТС]**

Да Select - это в период отладки, чтоб проверить "а где я был и что говорил..." Я спросил про другое, почему не надо откллючать мелькание. Или я не правильно понял IKKI.

@ikki · 19.10.2012, 21:33

ээээ.... покажите мне место, где я сказал, что "мелькание отключать не надо"?

@Igor_Tr · 19.10.2012, 23:12 **[ТС]**

Ну я ведь написал, "если я правильно понял". И вообще, спасибо Вам за реагирование на мои глупые вопросы!!!!

@Казанский · 20.10.2012, 21:28

Сообщение от Igor_Tr

Создается, по ходу, лист. Не совсем стандартный, но данные в таблицах. Шапка - большая. Нужно отформатировать ячейки (диапазоны) в разных частях шапки.

Можно иметь в книге с макросом скрытый лист-шаблон с шапкой и нужным форматированием. Когда надо, сделать лист видимым, создать его копию и снова скрыть. При необходимости размножить диапазон шапки или диапазон строк таблицы.
Для изменения листа-шаблона можно сделать его видимыи и отредактировать средствами Excel, вместо того, чтобы переписывать макрос.

Скрипт · 20.10.2012, 21:32

Можно лист создавать и на основе книги-шаблона, в которой будет один лист.

@Igor_Tr · 20.10.2012, 23:15 **[ТС]**

У меня случай немного другой. Я не програмист, а просто инженер. И очень загруженный. У меня на протяжении какого-то периода собираются какие-то однотипные задачи, которые обычный юзер с "просто" с неплохим знанием Excel решает, при напряженном рабочем дне, за три - четыре дня. Вот я их и автоматизирую когда в краткосрочном отпуске, в глупой командировке или, как сейчай, на больничном. Потом беру модуль на флэшку, сажусь не пеньок с розеткой, подключаю любой попавший под руку ноут, импорт модуля - и вперед. Мне удобно.

@ikki · 21.10.2012, 00:33

Igor_Tr, м.б. я чего-то недопонял, но причин отказываться от варианта с листом-шаблоном я и при вашем режиме не вижу

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

@Igor_Tr · 21.10.2012, 11:08 **[ТС]**

Наверное, пока не вижу особой необходимости. Большой документооборот разных форматов. Word (постольку-поскольку), AutoCAD, Excel, AVK, ArchiCAD, PhotoShop и т.д. В этом бардаке вспоминать, где там у меня чего ... Мне как-то проще вытянуть из библиотеки *.bas. А просто для примера - есть у Вас какой-то самый елементарный пример, чтоб понять. Я вообще применяю шаблоны листов только для квитанций оплаты комунальных (заполняются автоматом). Вы что-то в этом духе имеете ввиду?

Новые блоги и статьи Все статьи Все блоги /
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .

@Igor_Tr 4377 / 661 / 36 Регистрация: 17.01.2010 Сообщений: 2,134

	Выделить несмежные ячейки с помощью Union() 19.10.2012, 17:52. Показов 18599. Ответов 17 Метки нет (Все метки) С помощью Union(Range(Cells(r1,c1),RangeCells(r2,c 2)),.........).Select выделил несмежные диапазоны. А теперь, когда мне надо выделить несколько несмежных ячеек, как быть? Union(Cells(r1,c1),Cells(r2,c2),........ .) и варианты - не работают. Или я перегрелся, или ... 0

Скрипт 5472 / 1150 / 50 Регистрация: 15.09.2012 Сообщений: 3,576
	19.10.2012, 18:10
	Igor_Tr, напишите вашу задачу: что вам нужно сделать. Если задача большая, то приложите ещё и книгу Excel. Всю книгу Excel не выкладывайте, а оставьте столько данных, сколько необходимо, чтобы понять вашу задачу. 0

@Igor_Tr 4377 / 661 / 36 Регистрация: 17.01.2010 Сообщений: 2,134
	19.10.2012, 18:37 [ТС]
	И так всегда за меня будет кто-то что-то....? Да задача простая, как и я сам. Теперь мне нужно выделить несколько несмежных ячеек (кол-во) заранее не известно, адреса плавающие, определяются кодом, для, к примеру, форматирования. Главное - условное форматирование не подходить, критерии тоже плавающие. Добавлено через 7 минут to Казанский. Нет никакой тайны. Создается, по ходу, лист. Не совсем стандартный, но данные в таблицах. Шапка - большая. Нужно отформатировать ячейки (диапазоны) в разных частях шапки. Долбает для каждого диапазона забивать Range/Cells(...).Select, With selection.Border...., With selection.Font..... и т.д. А так собрал для одного типа все в кучу - и готово, для другого - готово. И быстро, и читать легко. Вот и все. Добавлено через 13 минут Прошу извинения за отнятое время. Действительно, Union(Cells(1, 4), Cells(1, 8), Cells(2, 10)).Select работает. Почему не работало раньше - у кого-то глюк. Железо, скорее всего 0

@Igor_Tr 4377 / 661 / 36 Регистрация: 17.01.2010 Сообщений: 2,134
	19.10.2012, 19:20 [ТС]
	To Скрипт.Да, так будет работать, а вот так - Range(Cells(1, 4), Cells(1, 8), Cells(2, 10)).Select - не хочет. А я всегда работаю в R1C1. 0

@Igor_Tr 4377 / 661 / 36 Регистрация: 17.01.2010 Сообщений: 2,134
	19.10.2012, 21:03 [ТС]
	Все так. Можно без With Union(Cells(mRow, genCol + 4), Cells(mRow, genCol + 6), _ Cells(genRow + 4, mCol + 12), Cells(mRow - 5, mCol + 11), _ Cells(mRow, mCol + 10), Cells(mRow, mCol + 12), _ Cells(mRow + 1, mCol + 4)).NumberFormat = "#,##0.00" А это я не понял: "если отключать обновление экрана при работе макроса - то тогда вообще пропадает абсолютно всякий". Смысл чего? Для скорости я всегда применяю Application.ScreenUpdating = False. Боюсь, крыша улетит, если смотреть на мелькание. 0

@Igor_Tr 4377 / 661 / 36 Регистрация: 17.01.2010 Сообщений: 2,134
	19.10.2012, 21:29 [ТС]
	Да Select - это в период отладки, чтоб проверить "а где я был и что говорил..." Я спросил про другое, почему не надо откллючать мелькание. Или я не правильно понял IKKI. 0

@ikki призрак 3266 / 894 / 119 Регистрация: 11.05.2012 Сообщений: 1,702 Записей в блоге: 2
	19.10.2012, 21:33
	ээээ.... покажите мне место, где я сказал, что "мелькание отключать не надо"? 1

@Igor_Tr 4377 / 661 / 36 Регистрация: 17.01.2010 Сообщений: 2,134
	19.10.2012, 23:12 [ТС]
	Ну я ведь написал, "если я правильно понял". И вообще, спасибо Вам за реагирование на мои глупые вопросы!!!! 0

Скрипт 5472 / 1150 / 50 Регистрация: 15.09.2012 Сообщений: 3,576
	20.10.2012, 21:32
	Можно лист создавать и на основе книги-шаблона, в которой будет один лист. 0

@Igor_Tr 4377 / 661 / 36 Регистрация: 17.01.2010 Сообщений: 2,134
	20.10.2012, 23:15 [ТС]
	У меня случай немного другой. Я не програмист, а просто инженер. И очень загруженный. У меня на протяжении какого-то периода собираются какие-то однотипные задачи, которые обычный юзер с "просто" с неплохим знанием Excel решает, при напряженном рабочем дне, за три - четыре дня. Вот я их и автоматизирую когда в краткосрочном отпуске, в глупой командировке или, как сейчай, на больничном. Потом беру модуль на флэшку, сажусь не пеньок с розеткой, подключаю любой попавший под руку ноут, импорт модуля - и вперед. Мне удобно. 0

@ikki призрак 3266 / 894 / 119 Регистрация: 11.05.2012 Сообщений: 1,702 Записей в блоге: 2
	21.10.2012, 00:33
	Igor_Tr, м.б. я чего-то недопонял, но причин отказываться от варианта с листом-шаблоном я и при вашем режиме не вижу подготавливаете сам лист-шаблон и макрос(ы) к нему, затем садидесь на пеньок и добавляете и лист, и макрос(ы) в рабочие файлы коллег. 0

@Igor_Tr 4377 / 661 / 36 Регистрация: 17.01.2010 Сообщений: 2,134
	21.10.2012, 11:08 [ТС]
	Наверное, пока не вижу особой необходимости. Большой документооборот разных форматов. Word (постольку-поскольку), AutoCAD, Excel, AVK, ArchiCAD, PhotoShop и т.д. В этом бардаке вспоминать, где там у меня чего ... Мне как-то проще вытянуть из библиотеки *.bas. А просто для примера - есть у Вас какой-то самый елементарный пример, чтоб понять. Я вообще применяю шаблоны листов только для квитанций оплаты комунальных (заполняются автоматом). Вы что-то в этом духе имеете ввиду? 0