Условие: ЕСЛИ ячейка непустая, то ... - как? - Microsoft Office Excel - Страница 2

Watcher_1982 · 14.02.2013, 15:24

Сделав выводы из предыдущих постов вы должны были сообразить что это делается так

Код:

    Dim myRange As Range
    Set myRange = Range("A1:B2")
    myRange.SpecialCells(xlCellTypeConstants).Interior.Color = vbGreen
    myRange.SpecialCells(xlCellTypeFormulas).Interior.Color = vbGreen

myRange это ваш диапазон

blackarrow · 16.02.2013, 22:14

Решил попробовать метод SpecialCells в своей практике. На мой взгляд, для задачи выделения пустых ячеек через myRange.SpecialCells(xlCellTypeBlan ks) этот способ далеко не лучший вариант. Дело в том, что если в myRange пустых ячеек нет - метод вернет ошибку 1004. Да, я понимаю, так решили программисты Майкрософт, но, думаю, сделать для этого случая возвращение Nothing было бы гораздо более человеческим вариантом. Или хотя бы какое-то предупреждение написали в справке по SpecialCells.

14.02.2013, 15:24	#11
Watcher_1982 Пользователь Регистрация: 23.06.2011 Сообщений: 10	Сделав выводы из предыдущих постов вы должны были сообразить что это делается так Код: `Dim myRange As Range Set myRange = Range("A1:B2") myRange.SpecialCells(xlCellTypeConstants).Interior.Color = vbGreen myRange.SpecialCells(xlCellTypeFormulas).Interior.Color = vbGreen` myRange это ваш диапазон

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Работа формулы, только если ячейка содержит 5 цифр	scratik	Microsoft Office Excel	11	21.06.2011 15:27
Присвоение цвета кнопке если на другом листе ячейка становится не пустой	Energetik	Microsoft Office Excel	10	10.03.2011 18:24
Как записать условие меньше или равно функции ЕСЛИ()	Tidus	Microsoft Office Excel	9	18.02.2010 11:05
Условие: Если книга НЕ открыта	ruavia3	Microsoft Office Excel	1	04.02.2010 11:35
Если ячейка пуста, то залить.....	Verbludov	Microsoft Office Word	12	21.10.2009 12:28

16.02.2013, 22:14	#12
blackarrow Пользователь Регистрация: 14.05.2011 Сообщений: 37	Решил попробовать метод SpecialCells в своей практике. На мой взгляд, для задачи выделения пустых ячеек через myRange.SpecialCells(xlCellTypeBlan ks) этот способ далеко не лучший вариант. Дело в том, что если в myRange пустых ячеек нет - метод вернет ошибку 1004. Да, я понимаю, так решили программисты Майкрософт, но, думаю, сделать для этого случая возвращение Nothing было бы гораздо более человеческим вариантом. Или хотя бы какое-то предупреждение написали в справке по SpecialCells.