КАРТА САЙТА
Sibnet.ru
Sibnet.ru

Sibnet.ru — это информационно-развлекательный интернет-проект, ориентированный на широкий круг Сибирского региона.
По данным Rambler Top100, Sibnet.ru является самым популярным порталом в Сибири.

Контакты:
АО "Ринет"
ОГРН 1025402475856
г. Новосибирск, ул. Якушева, д. 37, 3 этаж
отдел рекламы:
(383) 347-10-50, 347-06-78, 347-22-11, 347-03-97

Редакция: (383) 347-86-84

Техподдержка:
help.sibnet.ru
Авторизируйтесь,
чтобы продолжить
Некоторые функции доступны только зарегистрированным пользователям
Неправильный логин или пароль

Внимание! Теперь для входа на форум необходимо вводить единый пароль регистрации сервисов sibnet.ru!

Здравствуйте, гость ( Вход | Регистрация )



 
Ответить в эту темуОткрыть новую тему
> Применить условное форматирование ко всему документу, vba.excel
Macar_stepanich
сообщение 20.4.2023, 21:59
Сообщение #1


я
Group Icon


Группа: Sibnet-club
Сообщений: 277
Регистрация: 9.9.2008
Из: Город Б.
Пользователь №: 48 653



Репутация:   36  


Добрый день!

Буду благодарен за помощь.
Заранее спасибо.

Цель сделать так чтобы к определённому столбцу всегда применялось условное форматирование.
Всегда, то есть при любом действии в excel.

Вот, что удалось наваять:
Код
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Range("B2:B500").Select
    Selection.FormatConditions.AddUniqueValues
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    Selection.FormatConditions(1).DupeUnique = xlDuplicate
    With Selection.FormatConditions(1).Font
        .Color = -16383844
        .TintAndShade = 0
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13551615
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
End Sub

То, что мне надо скрипт выполняет, кроме одного момента: при каждом действии он выделяет диапазон.
Как бы мне в конце выполнения скрипта убирать это выделение диапазона?

Сообщение отредактировал Macar_stepanich - 20.4.2023, 23:08
Пользователь в офлайнеКарточка пользователяОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
Jek
сообщение 21.4.2023, 0:05
Сообщение #2


     
Group Icon


Группа: Супермодераторы
Сообщений: 16 245
Регистрация: 27.9.2007
Из: N44.785780 E37.385650 WEB: https://irc.k-42.ru IRC: irc.sibnet.ru #iclub
Пользователь №: 6 588



Репутация:   1854  


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

Код
Range("A1").Select
Range("A1").ClearContents


» Спасибо сказали: «
Пользователь в офлайнеКарточка пользователяОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
Macar_stepanich
сообщение 21.4.2023, 20:54
Сообщение #3


я
Group Icon


Группа: Sibnet-club
Сообщений: 277
Регистрация: 9.9.2008
Из: Город Б.
Пользователь №: 48 653



Репутация:   36  


Цитата(Jek @ 21.4.2023, 0:05) *

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

Код
Range("A1").Select
Range("A1").ClearContents


Джек, спасибо.
К сожалению, функция не подходит, так как у меня на все про все накладывается защита всех ячеек листа, кроме, оного столбца. И программа зависает.
Пользователь в офлайнеКарточка пользователяОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
Matkn
сообщение 22.4.2023, 7:28
Сообщение #4


Поддерживает разговор
Group Icon


Группа: Пользователи
Сообщений: 229
Регистрация: 13.4.2023
Пользователь №: 579 679



Репутация:   1  


ActiveDocument.Selection.Unselect

P.S. поставил Excel 2003 на одном из компов: решил немного уйти от ленточного стиля современных офисов. Миниатюрные иконки на небольшом экране ноутбука органично смотрятся (как горошины из стручка зелёного горошка smile.gif ):
Прикрепленное изображение


Сообщение отредактировал Matkn - 23.7.2023, 23:35
Пользователь в офлайнеКарточка пользователяОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения

Ответить в эту темуОткрыть новую тему
1 чел. просматривают этот форум (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

Текстовая версия Сейчас: 29.3.2024, 0:36
Редакция: (383) 347-86-84

Техподдержка:
help.sibnet.ru
Размещение рекламы:
тел: (383) 347-06-78, 347-10-50

Правила использования материалов