Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/SpecialCells для одной ячейки - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » SpecialCells для одной ячейки (Макросы/Sub)
SpecialCells для одной ячейки
StoTisteg Дата: Пятница, 30.11.2018, 22:26 | Сообщение № 1
Группа: Авторы
Ранг: Старожил
Сообщений: 1100
Репутация: 97 ±
Замечаний: 0% ±

Excel 2010
Коллеги, вот мне тут недавно понадобилось проверить, все ли ячейки в колонке рядом с заведомо заполненной до конца заполнены. Ну я, как паинька, пишу код[vba]
Код
Dim rws As Integer, rwf As Integer

rws=Cells(Rows.Count,1).End(xlUp).Row
rwf=Cells(Rows.Count,2).End(xlUp).Row
With Range(Cells(rws,2),Cells(rwf,2))
If .SpecialCells(xlCellTypeConstants).Count=.Count
[/vba]и с удивлением обнаруживаю, что если rws=rwf (то есть диапазон содержит одну ячейку), то .SpecialCells(xlCellTypeConstants).Count возвращает то же, что UsedRange.SpecialCells(xlCellTypeConstants).Count, то есть для SpecialCells одна ячейка равна UsedRange. Как это обойти - понятно, но непонятно, какого чёрта??


Интуитивно понятный код - это когда интуитивно понятно, что это код.
 
Ответить
СообщениеКоллеги, вот мне тут недавно понадобилось проверить, все ли ячейки в колонке рядом с заведомо заполненной до конца заполнены. Ну я, как паинька, пишу код[vba]
Код
Dim rws As Integer, rwf As Integer

rws=Cells(Rows.Count,1).End(xlUp).Row
rwf=Cells(Rows.Count,2).End(xlUp).Row
With Range(Cells(rws,2),Cells(rwf,2))
If .SpecialCells(xlCellTypeConstants).Count=.Count
[/vba]и с удивлением обнаруживаю, что если rws=rwf (то есть диапазон содержит одну ячейку), то .SpecialCells(xlCellTypeConstants).Count возвращает то же, что UsedRange.SpecialCells(xlCellTypeConstants).Count, то есть для SpecialCells одна ячейка равна UsedRange. Как это обойти - понятно, но непонятно, какого чёрта??

Автор - StoTisteg
Дата добавления - 30.11.2018 в 22:26
krosav4ig Дата: Суббота, 01.12.2018, 00:20 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 1734
Репутация: 728 ±
Замечаний: 0% ±

Excel 2007,2010,2013
StoTisteg, для одной ячейки SpecialCells работает так же, как и F5>Выделить, и как поиск и замена


(_)Õvõ(_)
 
Ответить
СообщениеStoTisteg, для одной ячейки SpecialCells работает так же, как и F5>Выделить, и как поиск и замена

Автор - krosav4ig
Дата добавления - 01.12.2018 в 00:20
Мир MS Excel » Вопросы и решения » Вопросы по VBA » SpecialCells для одной ячейки (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2018 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!