Range.Address Property (Excel) / Microsoft Office

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Range.Address Property (Excel)

6 сообщений из 6, страница 1 из 1

Range.Address Property (Excel)

#39142220

RegisteredUser

Гость

Фрагмент макроса

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.

Dim Result As Range, Filtered As Range

        On Error Resume Next

        Set Filtered = ActiveSheet.Range(ActiveSheet.Cells(rowStart, colStart), ActiveSheet.Cells(maxRow, Range("rgColMedic").Column)).SpecialCells(xlVisible)
        
        If (Filtered Is Nothing = False) Then
            Filtered.Sort Key1:=Range("rgColLastNm"), Order1:=xlAscending, _
                            Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
                            Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, _
                            DataOption2:=xlSortNormal, DataOption3:=xlSortNormal

          End If

на листе все фильтруется и сортируется правильно
НО
Debug.Print Filtered.Address
Результат: $A$11:$K$24,$A$26:$K$28,....,$A$179:$K$190,$A$192:$K$193

выдает неполный результат

$A$11:$K$24,$A$26:$K$28,....,$A$179:$K$190,$A$192:$K$193....,$A$255:$K$255

мне бы хотелось понять почему так?
и как мне точно получить полный список отсортированных адресов?

...

Рейтинг:

0 / 0

05.01.2016, 01:56

| Ответить | Цитировать | Написать

Range.Address Property (Excel)

#39142223

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Вроде как есть ограничение на длину адреса (вроде 255 символов).
Видимо, придется использовать цикл.

...

Рейтинг:

0 / 0

05.01.2016, 02:13

| Ответить | Цитировать | Написать

Range.Address Property (Excel)

#39142263

Bobgos

Гость

Shocker.Pro,

На кой ляд в отладчика видеть адреса? Читать их не будете ведь. Или не доверяет екселевскому фильтру?

...

Рейтинг:

0 / 0

05.01.2016, 08:31

| Ответить | Цитировать | Написать

Range.Address Property (Excel)

#39142265

RegisteredUser

Гость

есть одна особенность....

мне надо каким-то образом сохранить то, что было отфильтровано,
чтобы ПОТОМ пробежаться по Row в цикле.

в общем надо сохранить состояние фильтрации....
думал, что как раз вот Address мне и поможет, а тут такая засада...

че делать-то теперь?

...

Рейтинг:

0 / 0

05.01.2016, 08:41

| Ответить | Цитировать | Написать

Range.Address Property (Excel)

#39142301

Казанский

Гость

RegisteredUserмне надо каким-то образом сохранить то, что было отфильтровано,
чтобы ПОТОМ пробежаться по Row в циклеСохраните в переменной :)

Код: vbnet

1.
2.
3.
4.
5.
6.

Dim filteredRange As Range, oneRow As Range
  Set filteredRange = ActiveSheet.AutoFilter.Range.SpecialCells(xlCellTypeVisible)
  Cells.AutoFilter 'снять фильтр
  For Each oneRow In filteredRange.Rows
    oneRow.Select  'например
  Next

...

Рейтинг:

0 / 0

05.01.2016, 11:28

| Ответить | Цитировать | Написать

Range.Address Property (Excel)

#39142349

RegisteredUser

Гость

йопта))) шайтананама)))
пасиба... затупил...

...

Рейтинг:

0 / 0

05.01.2016, 13:38

| Ответить | Цитировать | Написать

6 сообщений из 6, страница 1 из 1

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Range.Address Property (Excel)

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=61&fpage=39&tid=2173231]:	0ms
get settings:	10ms
get forum list:	12ms
check forum access:	3ms
check topic access:	3ms
track hit:	35ms
get topic data:	9ms
get forum data:	2ms
get page messages:	34ms
get tp. blocked users:	1ms
others:	292ms

total:	401ms