Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Условное форматирование данных на листе / 5 сообщений из 5, страница 1 из 1
22.05.2017, 13:05
    #39457279
RegisteredUser
RegisteredUser
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Условное форматирование данных на листе
Коллеги!

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

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

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

Пробовал условное форматирование, но почему то проскакивает и текст.
Подскажите плиз че делать.
В принципе устроит макрос, который юзер сможет запускать руками.
Можно даже не морочится на условном форматировании.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.05.2017, 14:15
    #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, 16:10
    #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:45
    #39457547
Akina
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Условное форматирование данных на листе
В моём коде есть одна пакость - значение типа "999ZZZ" тоже будет покрашено. Если это нежелательно - нужны дополнительные проверки.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.05.2017, 17:07
    #39457561
RegisteredUser
RegisteredUser
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Условное форматирование данных на листе
Akina,

Ну, с этим я уж поборюсь...
Спасибо. Код работает быстро и эффективно.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Условное форматирование данных на листе / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 492ms
Закрыть
start [/forum/topic.php?fid=61&tablet=1&tid=2172687]:
 0ms
get settings:
 8ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 66ms
get topic data:
 13ms
get forum data:
 2ms
get page messages:
 42ms
get tp. blocked users:
 1ms
others: 340ms
total:  492ms
x
x
Закрыть


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