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

Вход

Регистрация

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

 

= Мир MS Excel/Сдвиг диапазона диаграмм с учетом активного автофильтра - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сдвиг диапазона диаграмм с учетом активного автофильтра (Макросы/Sub)
Сдвиг диапазона диаграмм с учетом активного автофильтра
Sancho Дата: Среда, 05.10.2016, 20:00 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 88
Репутация: 0 ±
Замечаний: 0% ±

2007, 2010, 2013
Всем привет!
Продолжаю тему http://www.excelworld.ru/forum/10-30618-1 . Коллеги посмотрев мой файл ворчат, им подавай еще и сдвиг диапазона диаграмм с учетом активного автофильтра. Здесь я уже и не знаю с чего начать даже, подскажите пожалуйста. Как заставить значения переменных двигаться на количество скрытых автофильтром, или вручную строк?
Ну и если попадутся неправильные решения в коде файла примера, подскажите пожалуйста, где я не прав или не логичен. Учиться на своих ошибках всегда лучше.
К сообщению приложен файл: 5621057.xlsb(33Kb)


Сообщение отредактировал Sancho - Среда, 05.10.2016, 20:01
 
Ответить
СообщениеВсем привет!
Продолжаю тему http://www.excelworld.ru/forum/10-30618-1 . Коллеги посмотрев мой файл ворчат, им подавай еще и сдвиг диапазона диаграмм с учетом активного автофильтра. Здесь я уже и не знаю с чего начать даже, подскажите пожалуйста. Как заставить значения переменных двигаться на количество скрытых автофильтром, или вручную строк?
Ну и если попадутся неправильные решения в коде файла примера, подскажите пожалуйста, где я не прав или не логичен. Учиться на своих ошибках всегда лучше.

Автор - Sancho
Дата добавления - 05.10.2016 в 20:00
Manyasha Дата: Четверг, 06.10.2016, 14:48 | Сообщение № 2
Группа: Модераторы
Ранг: Старожил
Сообщений: 1587
Репутация: 669 ±
Замечаний: 0% ±

Excel 2007, 2010
Sancho, здравствуйте.
Посмотрите такой вариант:
задаем массив видимых строк:
[vba]
Код
    Dim nRows(), realData As Range, n&
    Set realData = Intersect(Лист10.UsedRange, Лист10.Columns(3).SpecialCells(xlCellTypeVisible))
    n = 0
    ReDim nRows(realData.Cells.Count - 1)
    For Each cell In realData.Cells
        nRows(n) = cell.Row
        n = n + 1
    Next cell
[/vba]
А при указании ряда, в номер строки пишем nRows(r1 - 1) вместо r1
[vba]
Код
Лист10.Cells(nRows(r1 - 1), c1 - i + 1)
[/vba]
К сообщению приложен файл: 5621057-1.xlsb(35Kb)


marinamorozova_box@mail.ru
ЯД: 410013299366744 WM: R193491431804
 
Ответить
СообщениеSancho, здравствуйте.
Посмотрите такой вариант:
задаем массив видимых строк:
[vba]
Код
    Dim nRows(), realData As Range, n&
    Set realData = Intersect(Лист10.UsedRange, Лист10.Columns(3).SpecialCells(xlCellTypeVisible))
    n = 0
    ReDim nRows(realData.Cells.Count - 1)
    For Each cell In realData.Cells
        nRows(n) = cell.Row
        n = n + 1
    Next cell
[/vba]
А при указании ряда, в номер строки пишем nRows(r1 - 1) вместо r1
[vba]
Код
Лист10.Cells(nRows(r1 - 1), c1 - i + 1)
[/vba]

Автор - Manyasha
Дата добавления - 06.10.2016 в 14:48
Sancho Дата: Четверг, 06.10.2016, 19:33 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 88
Репутация: 0 ±
Замечаний: 0% ±

2007, 2010, 2013
Manyasha, Спасибо ОГРОМНОЕ! hands
 
Ответить
СообщениеManyasha, Спасибо ОГРОМНОЕ! hands

Автор - Sancho
Дата добавления - 06.10.2016 в 19:33
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сдвиг диапазона диаграмм с учетом активного автофильтра (Макросы/Sub)
Страница 1 из 11
Поиск:

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