Как скопировать цвет ячейки в excel
Здравствуйте. Начну с примера с формулами: создавая в первой ячейке формулу, например, "=1+2", а затем копирую эту ячейку, в новой мы получим ту же формулу. Однако при копирование, нажав на новую ячейку ПКМ и выбрав вставить значения, мы скопируем лишь конечный результат этой формулы. Теперь вопрос: можно ли проделать подобное с заливкой ячейки, созданной при помощи условного форматирования? При попытке применить у себя тот же метод что и с формулой. но вместо "вставки значения" - "вставить форматирование", выходило, что копировалась не сама заливка, а усл.фор-е из копируемой области. Есть ли способ получить желаемый результат?
Здравствуйте. Начну с примера с формулами: создавая в первой ячейке формулу, например, "=1+2", а затем копирую эту ячейку, в новой мы получим ту же формулу. Однако при копирование, нажав на новую ячейку ПКМ и выбрав вставить значения, мы скопируем лишь конечный результат этой формулы. Теперь вопрос: можно ли проделать подобное с заливкой ячейки, созданной при помощи условного форматирования? При попытке применить у себя тот же метод что и с формулой. но вместо "вставки значения" - "вставить форматирование", выходило, что копировалась не сама заливка, а усл.фор-е из копируемой области. Есть ли способ получить желаемый результат? ZetMenChavo
Pelena, Добрый день. Первый раз работал с Экселевским макросом, но вроде получилось воспользоваться вашим вариантом, хотя у тех ячеек, в которых были гиперссылки формулой, ещё и форматирование текста изменилось, пришлось остальное в ручную доделывать.
А есть ли способы без участия макросов?
Pelena, Добрый день. Первый раз работал с Экселевским макросом, но вроде получилось воспользоваться вашим вариантом, хотя у тех ячеек, в которых были гиперссылки формулой, ещё и форматирование текста изменилось, пришлось остальное в ручную доделывать.
А есть ли способы без участия макросов? ZetMenChavo
Я обычно применяю для этого кисточку - ФОРМАТ ПО ОБРАЗЦУ!
И всё отлично работает. Exel сама меняет формулы УФ в новых ячейках!
Я обычно применяю для этого кисточку - ФОРМАТ ПО ОБРАЗЦУ!
И всё отлично работает. Exel сама меняет формулы УФ в новых ячейках! Юрий_Ф
То, что мы делаем, завораживает!
Кстати! Я не могу всем нравиться! И это взаимно!
Юрий_Ф, вы не поняли, как раз так как вы предложили мне и НЕ надо. При вашем способе копируется именно УФ, а не итоговая заливка.
Юрий_Ф, вы не поняли, как раз так как вы предложили мне и НЕ надо. При вашем способе копируется именно УФ, а не итоговая заливка. ZetMenChavo
Я тогда не понял, зачем вообще всё? Удалите УФ, залейте нужным цветом, а потом той же кисточкой!
Или я опять вас не понял?
Я тогда не понял, зачем вообще всё? Удалите УФ, залейте нужным цветом, а потом той же кисточкой!
Или я опять вас не понял? Юрий_Ф
Юрий_Ф, Дело в том что, таблица получается большая, и для удобства навигации использую чередование цветов, которое проще создать при помощи УФ нежели вручную, но поскольку в закрашеваемых ячейках не будут производиться изменения значений то и УФ зависимое от значений в них не нужно в долгосрочной перспективе. Плюс когда на одной ячейке действует несколько УФ с заливкой, то в приоритете форматирование от той УФ что выше в списке, из-за чего приходиться прописывать дополнительные условия в формулах оключающие одну УФ когда ИСТИНА у другой. Но когда первая заливка сделана вручную, а другая УФ, то в приоритете та что из УФ, так что дополнительных условий в формулах можно не прописывать.
Плюс ещё вопрос: это во всех версиях Эксель нельзя сделать в УФ толстую сплошную границу или это мне так повезло?
Юрий_Ф, Дело в том что, таблица получается большая, и для удобства навигации использую чередование цветов, которое проще создать при помощи УФ нежели вручную, но поскольку в закрашеваемых ячейках не будут производиться изменения значений то и УФ зависимое от значений в них не нужно в долгосрочной перспективе. Плюс когда на одной ячейке действует несколько УФ с заливкой, то в приоритете форматирование от той УФ что выше в списке, из-за чего приходиться прописывать дополнительные условия в формулах оключающие одну УФ когда ИСТИНА у другой. Но когда первая заливка сделана вручную, а другая УФ, то в приоритете та что из УФ, так что дополнительных условий в формулах можно не прописывать.
Плюс ещё вопрос: это во всех версиях Эксель нельзя сделать в УФ толстую сплошную границу или это мне так повезло? ZetMenChavo
Как в Excel скопировать только форматирование из одного диапазона в другой?
Если вы хотите скопировать только форматирование ячейки из диапазона, как это сделать быстро? В этом руководстве представлены быстрые сокращения, позволяющие легко копировать только форматирование.
Копировать форматирование только с помощью Kutools for Excel
Копирование форматирования только с помощью Format Painter в Excel
В Excel вы можете копировать форматирование ячеек только с помощью Формат Painter инструмент.
1. Выберите диапазон, содержащий формат ячеек, который вы хотите скопировать. Смотрите скриншот:
2. Применение Формат Painter щелкнув его под Главная вкладку, см. снимок экрана:
3. Выберите пустую ячейку и щелкните по ней, будет вставлено только форматирование ячеек. Смотрите скриншот:
Внимание: Формат Painter также можно копировать форматирование только на другой лист.
Копировать форматирование только с помощью VBA
Следующие макросы также могут помочь вам скопировать только форматирование ячеек.
1. Держать ALT и нажмите F11 на клавиатуре, чтобы открыть Microsoft Visual Basic для приложений окно.
2. Нажмите Вставить > Модули, и скопируйте VBA в модуль.
VBA: копировать только форматирование ячеек:
3. Нажмите Run или нажмите F5 для запуска VBA. На экране отображается диалоговое окно, и вы должны выбрать ячейки, форматирование которых вы хотите скопировать. Смотрите скриншот:
4. Нажмите Ok и другое диалоговое окно отображается для вас, чтобы выбрать ячейку для вставки форматирования. Смотрите скриншот:
6. Нажмите Ok, то форматирование ячеек вставляется в выбранную ячейку. Смотрите скриншот:
Внимание: С помощью этого кода VBA вы можете вставлять только форматирование в другие рабочие листы, которые вы хотите.
Копировать форматирование только с помощью Kutools for Excel
Есть Kutools for Excel установлен, Копировать диапазоны Функция может помочь вам быстро и легко скопировать только форматирование ячеек.
Пожалуйста, примените Копировать диапазоны функция, нажав Кутулс > Копировать диапазоны. Смотрите скриншот:
1. Выделите ячейки, форматирование которых вы хотите скопировать.
2. Нажмите Кутулс > Копировать диапазонs, на экране появится диалог, отметьте Форматы вариант под Специальная вставка, см. снимок экрана:
3. И нажмите ОК. Другой диалог отображается для вас, чтобы выбрать ячейку для вставки результата. Смотрите скриншот:
4. Нажмите Ok, и в выбранную ячейку вставляется только форматирование. Смотрите скриншот:
Внимание: Вы также можете копировать и вставлять форматирование ячеек между двумя электронными таблицами. Если вы хотите скопировать высоту строки и ширину столбца, вы можете проверить Включая высоту строки и Включая ширину столбца коробка в Копировать несколько диапазонов Диалог.
Работы С Нами Kutools for Excel' Копировать диапазоны, вы также можете копировать только значения, формулы или комментарии.
Копировать форматирование только из диапазона
Наконечник.Если вы хотите подсчитать или суммировать ячейки на основе цветов, попробуйте использовать Kutools for Excel's Считать по цвету как показано на следующем снимке экрана. Полная функция без ограничений в течение 30 дней, пожалуйста, скачайте и получите бесплатную пробную версию сейчас.
Как скопировать только один цвет с заливкой в диапазон в 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. Выбранный диапазон закрашен тем же цветом.
С помощью функции «Копировать форматирование ячейки» вы также можете скопировать все форматирование ячейки, скопировать только цвет шрифта ячейки и так далее.
Можно выделить данные в ячейках с помощью кнопки Цвет заливки, чтобы добавить или изменить цвет фона или узор в ячейках. Вот как это сделать:
Выберите ячейки, которые нужно выделить.
Чтобы использовать другой цвет фона для всего таблицы, нажмите кнопку Выбрать все. При этом линии сетки будут скроются, но вы сможете улучшить читаемость, отобразив границы ячеек вокруг всех ячеек.
Щелкните Главная > стрелку рядом с кнопкой Цвет заливки или нажмите клавиши ALT+H, H.
Выберите нужный цвет в группе Цвета темы или Стандартные цвета.
Чтобы использовать дополнительный цвет, выберите команду Другие цвета, а затем в диалоговом окне Цвета выберите нужный цвет.
Совет: Чтобы применить последний выбранный цвет, достаточно нажать кнопку Цвет заливки . Кроме того, в группе Последние цвета доступны до 10 цветов, которые вы выбирали в последнее время.
Применение узора или способов заливки
Если вас не устраивает сплошная заливка цветом, попробуйте применить узор или один из доступных способов заливки.
Выделите ячейку или диапазон ячеек, которые нужно отформатировать.
На вкладке Главная нажмите кнопку вызова диалогового окна Формат ячеек или просто нажмите клавиши CTRL+SHIFT+F.
На вкладке Заливка выберите в разделе Цвет фона нужный цвет.
Чтобы использовать двухцветный узор, выберите цвет в поле Цвет узора, а затем выберите сам узор в поле Узор.
Чтобы создать узор со специальными эффектами, нажмите кнопку Способы заливки и выберите нужные параметры.
Совет: В поле Образец можно просмотреть выбранный фон, узор и способ заливки.
Удаление цвета, узора и способа заливки из ячеек
Чтобы удалить все цвета фона, узоры и способы заливки, просто выделите ячейки. На вкладке Главная нажмите стрелку рядом с кнопкой Цвет заливки и выберите пункт Нет заливки.
Цветная печать ячеек, включая цвет фона, узор и способ заливки
Откройте вкладку Разметка страницы и нажмите кнопку вызова диалогового окна Параметры страницы.
На вкладке Лист в группе Печать снимите флажки черно-белая и черновая.
Примечание: Если цвета на листе не отображаются, возможно, выбран высококонтрастный режим. Если цвета не отображаются при предварительном просмотре, возможно, не выбран цветной принтер.
Если вы хотите выделить текст или числа, чтобы сделать данные более заметными, попробуйте изменить цвет шрифта или добавить цвет фона к ячейке или диапазону ячеек.
Вы ячейка или диапазон ячеек, для которых нужно добавить цвет заливки.
На вкладке Главная нажмите кнопку Цвет заливкии выберите нужный цвет.
Примечание: Эффекты узорной заливки для цветов фона недоступны для Excel в Интернете. Если применить любой из Excel на компьютере, он не будет отображаться в браузере.
Удаление цвета заливки
Если вы решите, что цвет заливки не нужен сразу после его вжатия, просто нажмите кнопку Отменить.
Чтобы позже удалить цвет заливки, вы выберите ячейку или диапазон ячеок, которые вы хотите изменить, и нажмите кнопку Очистить > Очистить форматы.
Дополнительные сведения
Вы всегда можете задать вопрос специалисту Excel Tech Community или попросить помощи в сообществе Answers community.
Знаете ли вы, используя 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 после него. Этот мод позволял (в моем случае) переносить соответствующие цвета из двух разных столбцов на исходном листе в соответствующие ячейки в заданном диапазоне на целевом листе.
Читайте также: