не подскажите как сделать если в таблице два или более значения повторяются выделять их одним цветом! Если другие два или более значения повторяются выделять их другим цветом! и т.д. для каждой группы значений свой цвет!
не подскажите как сделать если в таблице два или более значения повторяются выделять их одним цветом! Если другие два или более значения повторяются выделять их другим цветом! и т.д. для каждой группы значений свой цвет!БИТ
отлично спасибки единственное не подскажите через какую вкладку добавлять кнопки?
и можно ли немного изменить макрос чтобы он охватывал конкретный заданный диапозон и поставить событие при изменении содержимого любой ячейки в данном диапозоне подсвечивание автоматом перерисовыволось?
отлично спасибки единственное не подскажите через какую вкладку добавлять кнопки?
и можно ли немного изменить макрос чтобы он охватывал конкретный заданный диапозон и поставить событие при изменении содержимого любой ячейки в данном диапозоне подсвечивание автоматом перерисовыволось?БИТ
Сообщение отредактировал БИТ - Суббота, 14.11.2015, 15:27
И если можно показать какая часть кода отвечает за определенный выделенный диапозон! И какая часть кода отвечает за наступление события (если значения в одной ячейке в заданном диапозоне поменяется то заново запускается макрос и снова подсвечиваются соответствующие значения)?
И если можно показать какая часть кода отвечает за определенный выделенный диапозон! И какая часть кода отвечает за наступление события (если значения в одной ячейке в заданном диапозоне поменяется то заново запускается макрос и снова подсвечиваются соответствующие значения)?БИТ
И какая часть кода отвечает за наступление события
Добавил в модуль листа на изменение. [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next Set changeCell = Target Application.ScreenUpdating = False Run "DuplicatesColoring" Run "ВыделитьДубликатыРазнымиЦветами" Application.ScreenUpdating = True End Sub
И какая часть кода отвечает за наступление события
Добавил в модуль листа на изменение. [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next Set changeCell = Target Application.ScreenUpdating = False Run "DuplicatesColoring" Run "ВыделитьДубликатыРазнымиЦветами" Application.ScreenUpdating = True End Sub
Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next Set changeCell = Target Application.ScreenUpdating = False Run "DuplicatesColoring" Run "ВыделитьДубликатыРазнымиЦветами" Application.ScreenUpdating = True End Sub
[/vba]
В модуль листа . Вот держите.
зы А что это у вас за диапазон такой: Range("am532:b0781") ? (два раза верно :Range("am532:bo781"), а один раз Range("am532:b0781"))
Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next Set changeCell = Target Application.ScreenUpdating = False Run "DuplicatesColoring" Run "ВыделитьДубликатыРазнымиЦветами" Application.ScreenUpdating = True End Sub
[/vba]
В модуль листа . Вот держите.
зы А что это у вас за диапазон такой: Range("am532:b0781") ? (два раза верно :Range("am532:bo781"), а один раз Range("am532:b0781")) SLAVICK
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
.
