Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Программирование под Windows > Visual Basic
Перезагрузить страницу Работа с результатами поиска в Excel
Ответ
 
Опции темы Опции просмотра
  (#16 (permalink)) Старый
pashulka pashulka вне форума
Member
 
Сообщений: 1,872
Сказал(а) спасибо: 2
Поблагодарили 57 раз(а) в 53 сообщениях
Регистрация: 11.03.2005
По умолчанию 22.02.2016, 23:35

Если после выбора нужной "строки" в окне поиска, зачем-то повторно кликнуть правой или левой кнопкой мышки (даже не двигая мышку), то таки да, фокус вернётся к окну поиска.

В VB нет, но в VBA for Excel есть.

VB Код:
MsgBox [COUNTBLANK(A1:A100)] 'Если стиль ссылок - A1
MsgBox Evaluate("COUNTBLANK(A1:A100)") 'Аналогично
MsgBox Evaluate(Application.ConvertFormula("COUNTBLANK(A1:A100)", xlA1, Application.ReferenceStyle)) 'Универсально
MsgBox Application.CountBlank([A1:A100])
MsgBox WorksheetFunction.CountBlank([A1:A100])
Ответить с цитированием
Пользователь сказал cпасибо:
Egorro (22.02.2016)
  (#17 (permalink)) Старый
Egorro Egorro вне форума
Специалист
 
Аватар для Egorro
 
Сообщений: 13,078
Сказал(а) спасибо: 402
Поблагодарили 2,128 раз(а) в 2,056 сообщениях
Регистрация: 06.01.2011
Адрес: Чубаксары
По умолчанию 22.02.2016, 23:42

Цитата:
Сообщение от pashulka Посмотреть сообщение
Если после выбора нужной "строки" в окне поиска, зачем-то повторно кликнуть правой или левой кнопкой мышки (даже не двигая мышку), то таки да, фокус вернётся к окну поиска.
С двойным кликом понятно, я его теперь использую для подсветки позиции при прокрутке результатов)) А когда приходится много раз подряд кликать по разным позициям в этом окошке, не получается каждый раз следить за тем, чтобы движение мыши завершилось на 15000% и только потом уже кликать по абсолютно точно неподвижной))) Видимо, в такие моменты и получается сбой фокуса - сейчас пробовал, но специально такую "случайность" повторить довольно сложно, видимо нужно именно на автомате действовать. Привыкну, в любом случае еще раз благодарю за помощь и потраченное время))
Ответить с цитированием
  (#18 (permalink)) Старый
pashulka pashulka вне форума
Member
 
Сообщений: 1,872
Сказал(а) спасибо: 2
Поблагодарили 57 раз(а) в 53 сообщениях
Регистрация: 11.03.2005
По умолчанию 26.02.2016, 00:52

Egorro, Если рабочий лист не "пустой", то в принципе можно и так :

VB Код:
Dim iSource As Range
Set iSource = Intersect(ActiveSheet.UsedRange.EntireRow, Columns(1))

If iSource.Count - Application.CountA(iSource) > 0 Then
   iSource.SpecialCells(xlBlanks).EntireRow.Delete
End If

или так :

VB Код:
With Intersect(ActiveSheet.UsedRange.EntireRow, Columns(1))
     If .Count - Application.CountA(.Cells) > 0 _
     Then .SpecialCells(xlBlanks).EntireRow.Delete
End With
Ответить с цитированием
Пользователь сказал cпасибо:
Egorro (26.02.2016)
  (#19 (permalink)) Старый
Egorro Egorro вне форума
Специалист
 
Аватар для Egorro
 
Сообщений: 13,078
Сказал(а) спасибо: 402
Поблагодарили 2,128 раз(а) в 2,056 сообщениях
Регистрация: 06.01.2011
Адрес: Чубаксары
По умолчанию 26.02.2016, 01:18

Цитата:
Сообщение от pashulka Посмотреть сообщение
Egorro, Если рабочий лист не "пустой", то в принципе можно и так :

VB Код:
Dim iSource As Range
Set iSource = Intersect(ActiveSheet.UsedRange.EntireRow, Columns(1))

If iSource.Count - Application.CountA(iSource) > 0 Then
   iSource.SpecialCells(xlBlanks).EntireRow.Delete
End If

или так :

VB Код:
With Intersect(ActiveSheet.UsedRange.EntireRow, Columns(1))
     If .Count - Application.CountA(.Cells) > 0 _
     Then .SpecialCells(xlBlanks).EntireRow.Delete
End With
Спасибо, но предыдущий вариант вроде работает хорошо, да этот макрос и больше вспомогательную роль играет - просто подчистка обработанного))
Меня все же больше продолжает напрягать эта фокусировка - такое ощущение, что тут еще и общая глючность экселя проявляется: сегодня был определенный промежуток, когда не удавалось добиться противоположного: двойным кликом или движением мыши при нажатой кнопке подсветить именно результат в окне поиска (чтобы прокрутить ниже и не сбиться, до какого места просмотрено) - срабатывал только фокус на рабочем окне, хотя выделение после кликов никак не изменялось))
Ответить с цитированием
  (#20 (permalink)) Старый
pashulka pashulka вне форума
Member
 
Сообщений: 1,872
Сказал(а) спасибо: 2
Поблагодарили 57 раз(а) в 53 сообщениях
Регистрация: 11.03.2005
По умолчанию 26.02.2016, 21:52

Как вариант, можно создать собственное диалоговое окно, где выделение найденной ячейки будет осуществляться, например, после двойного клика. В общем, чем меньше возможностей поиска Вы используете, тем проще будет создать упрощённую версию.
Ответить с цитированием
Пользователь сказал cпасибо:
Egorro (26.02.2016)
Ads.
  (#21 (permalink)) Старый
Egorro Egorro вне форума
Специалист
 
Аватар для Egorro
 
Сообщений: 13,078
Сказал(а) спасибо: 402
Поблагодарили 2,128 раз(а) в 2,056 сообщениях
Регистрация: 06.01.2011
Адрес: Чубаксары
По умолчанию 26.02.2016, 22:29

Цитата:
Сообщение от pashulka Посмотреть сообщение
Как вариант, можно создать собственное диалоговое окно, где выделение найденной ячейки будет осуществляться, например, после двойного клика. В общем, чем меньше возможностей поиска Вы используете, тем проще будет создать упрощённую версию.
Об этом я когда-то думал, но с нуля сделать нужное окно у меня знаний тупо не хватит)) Пытался в инете найти хотя бы какой-то образец, чтобы попытаться перепилить под свои нужды - безуспешно, да и не очень понятно было, что именно искать)))
Ответить с цитированием
Ads
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Работа механизма поиска с возвратом в VIP MosAic Prolog 6 12.01.2016 10:41
Работа с библиотекой dll в Excel samsaa Visual Basic 0 14.06.2011 22:52
Работа с таблицами в Excel dkrat Вопросы начинающих программистов 2 12.10.2010 20:50
Работа с файлами в Word & Excel 0mega Вопросы начинающих программистов 1 13.10.2009 15:09
EXCEL РАБОТА С ИНФОРМАЦИЕЙ Rumen Разное 0 27.07.2008 12:15
Работа с Combobox в Excel =Lio= Visual Basic 3 25.08.2007 16:33
Excel. Создание и работа с БД Mypppka Visual Basic 1 10.08.2006 12:48
работа с winsock в VBA Excel muntyan Visual Basic 10 13.02.2006 21:41
Работа с Excel через OLE denism C++ Builder 3 07.08.2005 21:05
Организация поиска по столбам в Excel DeusEx C++ Builder 4 01.06.2004 08:19
Работа с исправлениями в Excel marsad Visual Basic 0 07.04.2004 18:06
Работа с Excel но без MFC Anonymous Visual C++ 2 18.11.2003 06:15



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов