ReSQL.ru
     
powered by simpleCommunicator - 2.0.55     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / количество значений по фильтру в Экселе
12 сообщений из 12, страница 1 из 1
количество значений по фильтру в Экселе
    #37042804
03
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
03
Гость
Отображаются по фильтру строки.
Как программно определить количество отфильтрованных строк или номера строк ???
Заранее спасибо.
...
Рейтинг: 0 / 0
30.12.2010, 15:58
| Ответить | Цитировать | Написать  
количество значений по фильтру в Экселе
    #37042902
sergeyvg
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sergeyvg
Гость
что-то вроде такого
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Sub test()
Set rng = ActiveSheet.AutoFilter.Range
Set rngrow = Nothing
On Error Resume Next
Set rngrow = Intersect(rng, rng.Offset( 1 ,  0 )).SpecialCells(xlVisible).EntireRow
On Error GoTo  0 
If Not (rngrow Is Nothing) Then MsgBox (rngrow.Address)
End Sub
...
Рейтинг: 0 / 0
30.12.2010, 16:50
| Ответить | Цитировать | Написать  
количество значений по фильтру в Экселе
    #37043414
03
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
03
Гость
sergeyvg,

Спасибоооооо.
С Новым Годом !!!!
...
Рейтинг: 0 / 0
31.12.2010, 08:29
| Ответить | Цитировать | Написать  
количество значений по фильтру в Экселе
    #37043464
Фотография Stepler
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stepler
Участник
sergeyvg,

А как вытянуть текст сообщения в переменную, что бы определить количества знаков в сообщении?
Благодарю
...
Рейтинг: 0 / 0
31.12.2010, 10:08
| Ответить | Цитировать | Написать  
количество значений по фильтру в Экселе
    #37043467
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Какого сообщения?
...
Рейтинг: 0 / 0
31.12.2010, 10:10
| Ответить | Цитировать | Написать  
количество значений по фильтру в Экселе
    #37043506
Фотография Stepler
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stepler
Участник
Shocker.ProКакого сообщения?
MsgBox
...
Рейтинг: 0 / 0
31.12.2010, 10:47
| Ответить | Цитировать | Написать  
количество значений по фильтру в Экселе
    #37043524
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
SteplerShocker.ProКакого сообщения?
MsgBoxзачем вам вытягивать текст сообщения в переменную? Чем вас не устраивает
Код: plaintext
?Len(rngrow.Address)
не плодите сущностей, в том числе в своих вопросах. Оккам рулит.
...
Рейтинг: 0 / 0
31.12.2010, 10:58
| Ответить | Цитировать | Написать  
количество значений по фильтру в Экселе
    #37043532
03
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
03
Гость
Shocker.Pro,

надо определить не сколько всего знаков, а сколько запятых...
...
Рейтинг: 0 / 0
31.12.2010, 11:03
| Ответить | Цитировать | Написать  
количество значений по фильтру в Экселе
    #37043536
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
03надо определить не сколько всего знаков, а сколько запятых...
Код: plaintext
?Len(rngrow.Address)-Replace(rngrow.Address, ",", "")
...
Рейтинг: 0 / 0
31.12.2010, 11:05
| Ответить | Цитировать | Написать  
количество значений по фильтру в Экселе
    #37043545
03
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
03
Гость
Shocker.Pro,

что-то не работает:
если нет "," то "пусто" - хорошо, если есть "," = все равно "пусто"
...
Рейтинг: 0 / 0
31.12.2010, 11:17
| Ответить | Цитировать | Написать  
количество значений по фильтру в Экселе
    #37043546
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
03что-то не работает:
если нет "," то "пусто" - хорошо, если есть "," = все равно "пусто"
А нефиг бездумно копипастом заниматься. Голова не только, чтобы в нее есть

Код: plaintext
?Len(rngrow.Address)-Len(Replace(rngrow.Address, ",", ""))
...
Рейтинг: 0 / 0
31.12.2010, 11:18
| Ответить | Цитировать | Написать  
количество значений по фильтру в Экселе
    #37043558
03
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
03
Гость
Shocker.Pro,

О, то что доктор прописал. Спасибо за помощь
С наступающим!!!

p/s/ сам ошибся :
Код: plaintext
А нефиг бездумно копипастом заниматься. Голова не только, чтобы в нее есть
, сам исправил...
...
Рейтинг: 0 / 0
31.12.2010, 11:24
| Ответить | Цитировать | Написать  
12 сообщений из 12, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / количество значений по фильтру в Экселе
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=37043467&tid=2159106]:
 0ms
get settings:
 13ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 33ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 48ms
get tp. blocked users:
 1ms
others: 341ms
total:  469ms
созд. / загр.: 469ms
x
x
Закрыть


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