Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / количество значений по фильтру в Экселе / 12 сообщений из 12, страница 1 из 1
30.12.2010, 15:58
    #37042804
03
03
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
количество значений по фильтру в Экселе
Отображаются по фильтру строки.
Как программно определить количество отфильтрованных строк или номера строк ???
Заранее спасибо.
...
Рейтинг: 0 / 0
30.12.2010, 16:50
    #37042902
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
31.12.2010, 08:29
    #37043414
03
03
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
количество значений по фильтру в Экселе
sergeyvg,

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

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

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

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

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

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

p/s/ сам ошибся :
Код: plaintext
А нефиг бездумно копипастом заниматься. Голова не только, чтобы в нее есть 
, сам исправил...
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / количество значений по фильтру в Экселе / 12 сообщений из 12, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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