Excel ссылка на заливку ячейки
Как скопировать только один цвет с заливкой в диапазон в Excel?
В некоторых случаях вам может потребоваться скопировать цвет заливки ячейки только в ячейки диапазона, но нет опции вставки, которая может помочь вам вставить только цвет заливки ячейки в Excel. Вы можете подумать о том, чтобы найти тот же цвет из списка цветов заливки, но если цвет не может быть найден напрямую, как вы можете это сделать? Здесь я расскажу о некоторых приемах, позволяющих быстро скопировать только цвет ячейки и вставить его в диапазон в Excel.
Быстро копируйте цвет фона ячейки только в диапазон с помощью копирования форматирования ячейки
Вкладка Office позволяет редактировать и просматривать в Office с вкладками и значительно упрощает работу .
- Повторное использование чего угодно: Добавляйте наиболее часто используемые или сложные формулы, диаграммы и все остальное в избранное и быстро используйте их в будущем.
- Более 20 текстовых функций: Извлечь число из текстовой строки; Извлечь или удалить часть текстов; Преобразование чисел и валют в английские слова.
- Инструменты слияния : Несколько книг и листов в одну; Объединить несколько ячеек / строк / столбцов без потери данных; Объедините повторяющиеся строки и сумму.
- Разделить инструменты : Разделение данных на несколько листов в зависимости от ценности; Из одной книги в несколько файлов Excel, PDF или CSV; От одного столбца к нескольким столбцам.
- Вставить пропуск Скрытые / отфильтрованные строки; Подсчет и сумма по цвету фона ; Отправляйте персонализированные электронные письма нескольким получателям массово.
- Суперфильтр: Создавайте расширенные схемы фильтров и применяйте их к любым листам; Сортировать по неделям, дням, периодичности и др .; Фильтр жирным шрифтом, формулы, комментарий .
- Более 300 мощных функций; Работает с Office 2007-2019 и 365; Поддерживает все языки; Простое развертывание на вашем предприятии или в организации.
Скопируйте цвет фона ячейки только в диапазон с помощью VBA
Удивительный! Использование эффективных вкладок в Excel, таких как Chrome, Firefox и Safari!
Экономьте 50% своего времени и сокращайте тысячи щелчков мышью каждый день!
В Excel вы можете использовать только код VBA для копирования только цвета заливки ячейки.
Перед запуском VBA вы должны знать номер цвета, который вам нужно скопировать в списке цветов.
1. Нажмите Alt + F11 , чтобы открыть Microsoft Visual Basic для приложений окна, а затем нажмите Вставить > Модули, затем вставьте ниже VBA в новое окно модуля.
VBA: скопируйте только цвет с заливкой одной ячейки.
Функции: В VBA вы можете изменить диапазон ячеек по мере необходимости Диапазон ("D1: F6"). Interior.ColorIndex = i .
2. Нажмите F5 ключ для запуска этого VBA. Затем в появившемся диалоговом окне введите в него относительное количество цветов. Смотрите скриншот:
3. Нажмите OK. Ассортимент пополнился 17-м цветом.
Но с этим VBA вы можете использовать только цвет из списка цветов, если цвет вне списка, он не может работать. Итак, перейдем к другому действенному методу.
Быстро копируйте цвет фона ячейки только в диапазон с помощью копирования форматирования ячейки
Работы С Нами Kutools for ExcelАвтора Копировать форматирование ячеек Каким бы ни был цвет, с его помощью можно быстро скопировать только его и вставить в другие ячейки.
Бесплатная установка Kutools for Excel, а затем выполните следующие действия:
1. Выберите ячейку, в которой нужно скопировать цвет заливки, нажмите Кутулс > Формат > Копировать форматирование ячеек. Смотрите скриншот:
2. в Копировать форматирование ячеек диалог, проверьте Цвет / оттенок салона только. Смотрите скриншот:
3. Нажмите Ok, и выберите ячейки, в которые нужно вставить этот цвет. Смотрите скриншот:
4. Нажмите OK. Выбранный диапазон закрашен тем же цветом.
С помощью функции «Копировать форматирование ячейки» вы также можете скопировать все форматирование ячейки, скопировать только цвет шрифта ячейки и так далее.
Все очень просто. Хотим, чтобы ячейка меняла свой цвет (заливка, шрифт, жирный-курсив, рамки и т.д.) если выполняется определенное условие. Отрицательный баланс заливать красным, а положительный - зеленым. Крупных клиентов делать полужирным синим шрифтом, а мелких - серым курсивом. Просроченные заказы выделять красным, а доставленные вовремя - зеленым. И так далее - насколько фантазии хватит.
Чтобы сделать подобное, выделите ячейки, которые должны автоматически менять свой цвет, и выберите в меню Формат - Условное форматирование (Format - Conditional formatting) .
В открывшемся окне можно задать условия и, нажав затем кнопку Формат (Format) , параметры форматирования ячейки, если условие выполняется. В этом примере отличники и хорошисты заливаются зеленым, троечники - желтым, а неуспевающие - красным цветом:
Кнопка А также>> (Add) позволяет добавить дополнительные условия. В Excel 2003 их количество ограничено тремя, в Excel 2007 и более новых версиях - бесконечно.
Если вы задали для диапазона ячеек критерии условного форматирования, то больше не сможете отформатировать эти ячейки вручную. Чтобы вернуть себе эту возможность надо удалить условия при помощи кнопки Удалить (Delete) в нижней части окна.
Другой, гораздо более мощный и красивый вариант применения условного форматирования - это возможность проверять не значение выделенных ячеек, а заданную формулу:
Если заданная формула верна (возвращает значение ИСТИНА), то срабатывает нужный формат. В этом случае можно задавать на порядок более сложные проверки с использованием функций и, кроме того, проверять одни ячейки, а форматировать - другие.
Выделение цветом всей строки
Главный нюанс заключается в знаке доллара ($) перед буквой столбца в адресе - он фиксирует столбец, оставляя незафиксированной ссылку на строку - проверяемые значения берутся из столбца С, по очереди из каждой последующей строки:
Выделение максимальных и минимальных значений
Ну, здесь все достаточно очевидно - проверяем, равно ли значение ячейки максимальному или минимальному по диапазону - и заливаем соответствующим цветом:
В англоязычной версии это функции MIN и MAX, соответственно.
Выделение всех значений больше(меньше) среднего
Аналогично предыдущему примеру, но используется функция СРЗНАЧ (AVERAGE) для вычисления среднего:
Скрытие ячеек с ошибками
Чтобы скрыть ячейки, где образуется ошибка, можно использовать условное форматирование, чтобы сделать цвет шрифта в ячейке белым (цвет фона ячейки) и функцию ЕОШ (ISERROR) , которая выдает значения ИСТИНА или ЛОЖЬ в зависимости от того, содержит данная ячейка ошибку или нет:
Скрытие данных при печати
Аналогично предыдущему примеру можно использовать условное форматирование, чтобы скрывать содержимое некоторых ячеек, например, при печати - делать цвет шрифта белым, если содержимое определенной ячейки имеет заданное значение ("да", "нет"):
Заливка недопустимых значений
Сочетая условное форматирование с функцией СЧЁТЕСЛИ (COUNTIF) , которая выдает количество найденных значений в диапазоне, можно подсвечивать, например, ячейки с недопустимыми или нежелательными значениями:
Проверка дат и сроков
Поскольку даты в Excel представляют собой те же числа (один день = 1), то можно легко использовать условное форматирование для проверки сроков выполнения задач. Например, для выделения просроченных элементов красным, а тех, что предстоят в ближайшую неделю - желтым:
Счастливые обладатели последних версий Excel 2007-2010 получили в свое распоряжение гораздо более мощные средства условного форматирования - заливку ячеек цветовыми градиентами, миниграфики и значки:
Вот такое форматирование для таблицы сделано, буквально, за пару-тройку щелчков мышью. :)
При работе с таблицами первоочередное значение имеют выводимые в ней значения. Но немаловажной составляющей является также и её оформление. Некоторые пользователи считают это второстепенным фактором и не обращают на него особого внимания. А зря, ведь красиво оформленная таблица является важным условием для лучшего её восприятия и понимания пользователями. Особенно большую роль в этом играет визуализация данных. Например, с помощью инструментов визуализации можно окрасить ячейки таблицы в зависимости от их содержимого. Давайте узнаем, как это можно сделать в программе Excel.
Процедура изменения цвета ячеек в зависимости от содержимого
Конечно, всегда приятно иметь хорошо оформленную таблицу, в которой ячейки в зависимости от содержимого, окрашиваются в разные цвета. Но особенно актуальна данная возможность для больших таблиц, содержащих значительный массив данных. В этом случае заливка цветом ячеек значительно облегчит пользователям ориентирование в этом огромном количестве информации, так как она, можно сказать, будет уже структурированной.
Элементы листа можно попытаться раскрасить вручную, но опять же, если таблица большая, то это займет значительное количество времени. К тому же, в таком массиве данных человеческий фактор может сыграть свою роль и будут допущены ошибки. Не говоря уже о том, что таблица может быть динамической и данные в ней периодически изменяются, причем массово. В этом случае вручную менять цвет вообще становится нереально.
Но выход существует. Для ячеек, которые содержат динамические (изменяющиеся) значения применяется условное форматирование, а для статистических данных можно использовать инструмент «Найти и заменить».
Способ 1: условное форматирование
С помощью условного форматирования можно задать определенные границы значений, при которых ячейки будут окрашиваться в тот или иной цвет. Окрашивание будет проводиться автоматически. В случае, если значение ячейки, вследствие изменения выйдет за пределы границы, то автоматически произойдет перекрашивание данного элемента листа.
Посмотрим, как этот способ работает на конкретном примере. Имеем таблицу доходов предприятия, в которой данные разбиты помесячно. Нам нужно выделить разными цветами те элементы, в которых величина доходов менее 400000 рублей, от 400000 до 500000 рублей и превышает 500000 рублей.
-
Выделяем столбец, в котором находится информация по доходам предприятия. Затем перемещаемся во вкладку «Главная». Щелкаем по кнопке «Условное форматирование», которая располагается на ленте в блоке инструментов «Стили». В открывшемся списке выбираем пункт «Управления правилами…».
Кроме того, можно использовать условное форматирование несколько по-другому для окраски элементов листа цветом.
-
Для этого после того, как из Диспетчера правил мы переходим в окно создания форматирования, то остаемся в разделе «Форматировать все ячейки на основании их значений». В поле «Цвет» можно выбрать тот цвет, оттенками которого будут заливаться элементы листа. Затем следует нажать на кнопку «OK».
Способ 2: использование инструмента «Найти и выделить»
Если в таблице находятся статические данные, которые не планируется со временем изменять, то можно воспользоваться инструментом для изменения цвета ячеек по их содержимому под названием «Найти и выделить». Указанный инструмент позволит отыскать заданные значения и изменить цвет в этих ячейках на нужный пользователю. Но следует учесть, что при изменении содержимого в элементах листа, цвет автоматически изменяться не будет, а останется прежним. Для того, чтобы сменить цвет на актуальный, придется повторять процедуру заново. Поэтому данный способ не является оптимальным для таблиц с динамическим содержимым.
Посмотрим, как это работает на конкретном примере, для которого возьмем все ту же таблицу дохода предприятия.
-
Выделяем столбец с данными, которые следует отформатировать цветом. Затем переходим во вкладку «Главная» и жмем на кнопку «Найти и выделить», которая размещена на ленте в блоке инструментов «Редактирование». В открывшемся списке кликаем по пункту «Найти».
Но существует возможность поступить несколько по-другому, что нам даст тот же результат. Можно в строке поиска задать следующий шаблон «3. ». Знак вопроса означает любой символ. Таким образом, программа будет искать все шестизначные числа, которые начинаются с цифры «3». То есть, в выдачу поиска попадут значения в диапазоне 300000 – 400000, что нам и требуется. Если бы в таблице были числа меньше 300000 или меньше 200000, то для каждого диапазона в сотню тысяч поиск пришлось бы производить отдельно.
Как видим, существует два способа окрасить ячейки в зависимости от числовых значений, которые в них находятся: с помощью условного форматирования и с использованием инструмента «Найти и заменить». Первый способ более прогрессивный, так как позволяет более четко задать условия, по которым будут выделяться элементы листа. К тому же, при условном форматировании цвет элемента автоматически меняется, в случае изменения содержимого в ней, чего второй способ делать не может. Впрочем, заливку ячеек в зависимости от значения путем применения инструмента «Найти и заменить» тоже вполне можно использовать, но только в статических таблицах.
Мы рады, что смогли помочь Вам в решении проблемы.
Отблагодарите автора, поделитесь статьей в социальных сетях.
Опишите, что у вас не получилось. Наши специалисты постараются ответить максимально быстро.
В Excel вы можете заливать разные цвета фона, чтобы выделить важное значение, но пытались ли вы когда-нибудь найти ячейки, содержащие один и тот же цвет, и сразу заменить их другим цветом в Excel?
The utility Select Cells with Format of Kutools for Excel can help you quickly select all cells with the same formatting or certain formatting based on a specific cell, and then apply other formatting to them as you need.
Kutools for Excel: with more than 200 handy Excel add-ins, free to try with no limitation in 60 days. Download and free trial Now!
Найти и заменить цвет заливки с помощью функции поиска и замены
Чтобы найти ячейки с одинаковым цветом заливки и заменить их другим цветом, который вам нравится, функция «Найти и заменить» в Excel может помочь вам завершить эту работу. Пожалуйста, сделайте следующее:
1. Выберите ячейки диапазона, которые вы хотите найти, и замените цвет заливки.
2, нажмите Ctrl + H для открытия Найти и заменить диалоговое окно, см. снимок экрана:
3. Затем нажмите Опции >> кнопку, чтобы развернуть Найти и заменить диалоговое окно, в развернутом диалоговом окне щелкните Формат Кроме того, Найти то, что раздел и выберите Выбрать формат из ячейки из выпадающего списка см. снимок экрана:
4. Затем щелкните, чтобы выбрать одну ячейку, содержащую цвет, который вы хотите заменить, после выбора цвета ячейки, затем щелкните Формат Кроме того, Заменить , и выберите Формат из выпадающего списка, см. снимок экрана:
5. В выскочившем Заменить формат диалоговом окне выберите один понравившийся цвет под Заполнять вкладку, см. снимок экрана:
6. Затем нажмите OK вернуться к Найти и заменить диалоговое окно, нажмите Заменить все кнопку, чтобы заменить цвет сразу, и появится окно с подсказкой, чтобы напомнить вам количество замен, см. снимок экрана:
7. Затем нажмите OK и закрыть Найти и заменить вы увидите, что ячейки с указанным вами цветом заливки были заменены другим цветом.
Найти и заменить цвет заливки с помощью Kutools for Excel
Если вас интересуют другие решения для этой задачи, я могу представить вам удобный инструмент - Kutools for Excel, С его Выбрать ячейки с форматом Утилита, вы можете быстро выделить все ячейки с одинаковым форматированием с определенной ячейкой.
После установки Kutools for Excel, пожалуйста, сделайте так:
1. Выберите диапазон данных, который вы хотите использовать.
2. Нажмите Кутулс > Выберите > Выбрать ячейки с форматом, см. снимок экрана:
3. В Выбрать ячейки с форматом диалоговое окно, нажмите Выбрать формат из ячейки кнопку, см. снимок экрана:
4. Затем выберите ячейку, содержащую цвет, который вы хотите заменить в Выбрать ячейки с форматом диалог, см. снимок экрана:
5. Затем нажмите OK, все атрибуты выбранной ячейки были перечислены в диалоговом окне, и только отметьте Цвет фона под Заполнять вариант, см. снимок экрана:
6, Затем нажмите Ok, сразу же выбираются все ячейки, заполненные этим цветом, затем щелкните Главная > Цвет заливкии выберите один цвет, который вы хотите, и цвет выбранных ячеек был заменен, как показано на следующем снимке экрана:
Демо: найти и заменить цвет заливки с помощью Kutools for Excel
Kutools for Excel: с более чем 300 удобными надстройками Excel, которые можно попробовать бесплатно без ограничений в течение 30 дней. Загрузите и бесплатную пробную версию прямо сейчас!
Знаете ли вы, используя Microsoft Excel, как автоматически связать цвет ячейки с другим? Эта статья покажет вам, как этого добиться.
Автоматически связывать цвет ячейки с другим с помощью кода VBA
Предположим, вы хотите связать цвет заливки ячейки A1 с C1, при изменении цвета заливки A1 цвет C1 автоматически изменится на тот же. Пожалуйста, сделайте следующее.
1. Щелкните правой кнопкой мыши вкладку листа, в которой необходимо связать цвет ячейки с другим цветом, а затем щелкните Просмотреть код из контекстного меню.
2. В дебюте Microsoft Visual Basic для приложений окна, скопируйте и вставьте приведенный ниже код VBA в Код: окно.
Код VBA: автоматическая привязка цвета ячейки к другому в Excel
Внимание: вы можете изменить ссылку на ячейки в коде по своему усмотрению.
3. Продолжайте нажимать другой + Q ключи одновременно, чтобы закрыть Microsoft Visual Basic для приложений окно.
С этого момента при изменении цвета заливки ячейки A1 цвет заливки ячейки C1 будет автоматически изменен на тот же цвет.
Лучшие инструменты для работы в офисе
Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%
- Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма .
- Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон .
- Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы . Предотвращение дублирования ячеек; Сравнить диапазоны .
- Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор .
- Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули , Флажки и многое другое .
- Извлечь текст , Добавить текст, Удалить по позиции, Удалить пробел ; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии .
- Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом .
- Комбинируйте книги и рабочие листы ; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов ; Пакетное преобразование xls, xlsx и PDF . Pivot Table Grouping by week number, day of week and more. Show Unlocked, Locked Cells by different colors; Highlight Cells That Have Formula/Name . -->
- Более 300 мощных функций . Поддерживает Office / Excel 2007-2019 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint , Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
да, я хотел бы знать, как отразить цвет на другом листе. У меня есть формула в обоих полях, но я хотел бы, чтобы цвет одного из них отражал цвет на основном листе, когда он меняется. т. е. лист с датами обучения составляется через 30 дней, и поле становится красным; соответствующее поле на основном листе, поле с «X» также становится красным.
Привет Марио,
Предположим, вы хотите связать цвет ячейки A1 на текущем листе с диапазоном B1: J19 на листе 2, примените приведенный ниже код VBA. После изменения цвета заливки A1 щелкните другую ячейку на текущем листе, чтобы активировать код.
Private Sub Worksheet_SelectionChange (ByVal Target As Range)
Dim xRg как диапазон
Dim xStrAddress как строка
xStrAddress = "Лист2!$B$1:$J$19"
Установите xRg = Application.Range(xStrAddress)
xRg.Interior.Color = Me.Range("A1").Interior.Color
End Sub
Это сработало. Как это будет работать, если у вас есть изменения A1 на Sheet1, которые происходят с B1 на Sheet2, но также изменения A2 на Sheet1 происходят с B2 на Sheet2?
Привет Может ли кто-нибудь помочь с вышеуказанным вопросом как можно скорее, я очень нуждаюсь в этом, и у меня мало времени.
Здравствуйте,
Приведенный ниже код VBA может помочь вам решить проблему. Спасибо за ваш комментарий.
Private Sub Worksheet_SelectionChange (ByVal Target As Range)
Dim xRg как диапазон
Dim xStrAddress как строка
xStrAddress = "Лист2!$B$1"
Установите xRg = Application.Range(xStrAddress)
xRg.Interior.Color = Me.Range("A1").Interior.Color
xStrAddress = "Лист2!$B$2"
Установите xRg = Application.Range(xStrAddress)
xRg.Interior.Color = Me.Range("A2").Interior.Color
xStrAddress = "Лист2!$B$3"
Установите xRg = Application.Range(xStrAddress)
xRg.Interior.Color = Me.Range("A3").Interior.Color
End Sub
К сожалению, это не сработало для меня. Мне интересно, потому что исходная ячейка представляет собой список с правилом условного форматирования для изменения цвета фона в зависимости от того, какой параметр выбран в списке.
Привет Аманда,
Этот код не работает для цвета заливки, назначенного правилом условного форматирования. Приносим извинения за доставленные неудобства.
Можно ли связать цвет из одного диапазона на одном листе с другим диапазоном того же размера на другом листе? Например, у меня чередуются цвета через каждые пару строк, и я хочу, чтобы эта цветовая схема копировалась на другой лист.
Привет Чарльз,
Приведенный ниже код может оказать вам услугу. Если вы хотите связать цвет из диапазона A1: A19 на Листе 1 с тем же диапазоном «A1: A19» на Листе 2, скопируйте код в окно «Код» Листа 1, после чего щелкните любую ячейку на Листе 1, чтобы активировать код. Надеюсь, я смогу помочь. Спасибо за ваш комментарий.
Private Sub Worksheet_SelectionChange (ByVal Target As Range)
Dim xRg как диапазон
Dim xStrAddress как строка
xStrAddress = "Лист2!$A$1:$A$19"
Установите xRg = Application.Range(xStrAddress)
xRg.Interior.Color = Me.Range("A1:A19").Interior.Color
End Sub
Здравствуйте,
этот код работает, если я ссылаюсь на одну ячейку, но если я ввожу диапазон, диапазон на листе 2 становится черным вместо того, чтобы справляться с внутренним цветом.
есть идеи, почему это может происходить?
Привет, Джо,
Извините за ошибку. Попробуйте этот код:
Private Sub Worksheet_SelectionChange (ByVal Target As Range)
Dim xRg как диапазон
Dim xCRg как диапазон
Dim xStrAddress как строка
Dim xFNum как целое число
xStrAddress = "Лист2!$A$1:$A$10"
Установите xRg = Application.Range(xStrAddress)
Установите xCRg = Me.Range("$A$1:$A$10")
On Error Resume Next
Для xFNum = 1 To xRg.Count
xRg.Item(xFNum).Interior.Color = xCRg.Item(xFNum).Interior.Color
Далее
End Sub
Привет, Кристалл!
Как будет выглядеть один и тот же код, если я хочу, чтобы он одновременно копировался и на Лист2, и на Лист3?
это не работает для меня. диапазон ячеек может не совпадать на обоих листах. Можете ли вы помочь советом, что делать или как настроить код, пожалуйста?
Привет ЛГ,
Есть две строки, которые вы можете изменить: диапазон "$А$1:$А$10" восьмой строки и "Лист2!$A$1:$A$10" шестой строки, которые указывают, что вы свяжете цвет заливки диапазона A1: A10 на рабочем листе (предположим, Лист1, и код должен быть добавлен в это окно кода листа) в тот же диапазон в Sheet2.
Вы можете указать два разных диапазона по мере необходимости. И, пожалуйста, убедитесь, что имя листа, которое вы вводите в шестой строке, является существующим именем листа.
Я использую это для создания узоров плетения. Я хотел бы иметь несколько наборов групп, поэтому мне нужно изменить только одну ячейку, чтобы увидеть, что произойдет в моем шаблоне. Он работал от ячейки a1 до c1, но когда я попытался добавить новый набор a2 в c1, этого не произошло. Я могу неправильно понять, но я скопировал ту же формулу под первой и изменил ссылки на ячейки. В этом проблема? Есть ли другой способ?
Это сработало для меня при вставке ссылки на второй лист, но мне пришлось внести модификацию, я покажу модификацию ниже, чтобы вы могли увидеть первую версию Crystal, а затем мою с модификацией, которая работала, когда мне нужно было включить два набора вместо этого. одного. Это то, что Кристал дал Джоуи после того, как он сказал, что целевая дальность стала черной, когда он попробовал это:
Private Sub Worksheet_SelectionChange (Цель ByVal как диапазон)
Dim xRg как диапазон
Dim xCRg как диапазон
Dim xStrAddress как строка
Dim xFNum как целое число
xStrAddress = "Лист2!$A$1:$A$10"
Установите xRg = Application.Range(xStrAddress)
Установите xCRg = Me.Range("$A$1:$A$10")
On Error Resume Next
Для xFNum = 1 To xRg.Count
xRg.Item(xFNum).Interior.Color = xCRg.Item(xFNum).Interior.Color
Далее
Конец сабвуфера
Мой мод, который работал для включения двух наборов (например, ссылок на разные столбцы или строки или что у вас есть), должен был включать эту часть:
При ошибке Возобновить Далее
Для xFNum = 1 To xRg.Count
xRg.Item(xFNum).Interior.Color = xCRg.Item(xFNum).Interior.Color
Следующий
после каждого моего "сета"
Итак, без изменения наборов образцов, которые дал Crystal, чтобы они отличались друг от друга (что, вероятно, будет вашим, если вы пытаетесь ссылаться на разные строки и т. д.), это будет выглядеть так:
Private Sub Worksheet_SelectionChange (Цель ByVal как диапазон)
Dim xRg как диапазон
Dim xCRg как диапазон
Dim xStrAddress как строка
Dim xFNum как целое число
xStrAddress = "Лист2!$A$1:$A$10"
Установите xRg = Application.Range(xStrAddress)
Установите xCRg = Me.Range("$A$1:$A$10") При ошибке Возобновить Далее
Для xFNum = 1 To xRg.Count
xRg.Item(xFNum).Interior.Color = xCRg.Item(xFNum).Interior.Color
Далее
xStrAddress = "Лист2!$A$1:$A$10"
Установите xRg = Application.Range(xStrAddress)
Установите xCRg = Me.Range("$A$1:$A$10")
On Error Resume Next
Для xFNum = 1 To xRg.Count
xRg.Item(xFNum).Interior.Color = xCRg.Item(xFNum).Interior.Color
Далее
End Sub
со строками 6-8 и 13-15, являющимися "наборами" а строки 9-12 и 16-19 представляют собой код, который должен повторяться после каждого сета.
Я надеюсь, что это имеет смысл, потому что я ничего не знаю об этом, я просто нашел способ скопировать то, что было здесь перечислено, и это сработало. В первый раз, когда я попытался иметь два набора, подключившись к коду как есть, первый набор сделал ячейки черными, а второй набор сработал и окрасил целевые ячейки в правильный цвет. Я, наконец, понял, что для работы каждому набору нужен код строки 9-12 после него. Этот мод позволял (в моем случае) переносить соответствующие цвета из двух разных столбцов на исходном листе в соответствующие ячейки в заданном диапазоне на целевом листе.
Читайте также: