ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Условное форматирование данных на листе
5 сообщений из 5, страница 1 из 1
Условное форматирование данных на листе
    #39457279
RegisteredUser
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
RegisteredUser
Гость
Коллеги!

Есть с виду тривиальная задача:

На лист грузятся данные из PowerQuery.
Получается таблица с разнородными данными (текст, даты, цифровые значения, пустые ячейки)

Нужно:
После загрузки данных подсветить ячейки со значением более 999 (>=999)

Пробовал условное форматирование, но почему то проскакивает и текст.
Подскажите плиз че делать.
В принципе устроит макрос, который юзер сможет запускать руками.
Можно даже не морочится на условном форматировании.
...
Рейтинг: 0 / 0
22.05.2017, 13:05
| Ответить | Цитировать | Написать  
Условное форматирование данных на листе
    #39457361
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
RegisteredUserВ принципе устроит макрос, который юзер сможет запускать руками.
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
Sub Красить()
Dim OneCell As Range
For Each OneCell In ActiveSheet.UsedRange
    If Val(OneCell.Value) >= 900 Then
        OneCell.Interior.Color = 65535
    End If
Next
End Sub
...
Рейтинг: 0 / 0
22.05.2017, 14:15
| Ответить | Цитировать | Написать  
Условное форматирование данных на листе
    #39457517
RegisteredUser
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
RegisteredUser
Гость
Akina,

Воистину ВСЕ ГЕНИАЛЬНОЕ ПРОСТО!
спасибо
я тут затрахался уже с этим условным форматированием

на всякий случай покажу что я наваял, НО эта падла отказывается работать на локали заказчика
даже перевод формул на его язык не проходит

буду юзать ваш подход

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Sub ThousandFormatting(ByVal Target As Range)

Dim FirstCell As String: FirstCell = Replace(Target.Cells(1, 1).AddressLocal, "$", "")
    
    With Target.FormatConditions
        .Delete
        .Add Type:=xlExpression, Formula1:="=AND(ISNUMBER(" & FirstCell & "), " & FirstCell & ">999)"
        With Target.FormatConditions(1)
            .Font.Bold = True
            .Font.Color = vbRed 
            .NumberFormat = "### ### ##0"
            .StopIfTrue = False
        End With
    End With
End Sub
...
Рейтинг: 0 / 0
22.05.2017, 16:10
| Ответить | Цитировать | Написать  
Условное форматирование данных на листе
    #39457547
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
В моём коде есть одна пакость - значение типа "999ZZZ" тоже будет покрашено. Если это нежелательно - нужны дополнительные проверки.
...
Рейтинг: 0 / 0
22.05.2017, 16:45
| Ответить | Цитировать | Написать  
Условное форматирование данных на листе
    #39457561
RegisteredUser
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
RegisteredUser
Гость
Akina,

Ну, с этим я уж поборюсь...
Спасибо. Код работает быстро и эффективно.
...
Рейтинг: 0 / 0
22.05.2017, 17:07
| Ответить | Цитировать | Написать  
5 сообщений из 5, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Условное форматирование данных на листе
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]