Сдвиг диапазона диаграмм с учетом активного автофильтра

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сдвиг диапазона диаграмм с учетом активного автофильтра (Макросы/Sub)

Sancho

Дата: Среда, 05.10.2016, 20:00 | Сообщение № 1

Группа: Проверенные

Ранг: Обитатель

Сообщений: 279

Репутация: 19 ±

Замечаний: 0% ±

2007, 2010, 2013

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

К сообщению приложен файл: 5621057.xlsb (33.4 Kb)

Сообщение отредактировал Sancho - Среда, 05.10.2016, 20:01

Ответить

Manyasha

Дата: Четверг, 06.10.2016, 14:48 | Сообщение № 2

Группа: Модераторы

Ранг: Старожил

Сообщений: 2198

Репутация: 898 ±

Замечаний: 0% ±

Excel 2010, 2016

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 (35.0 Kb)

ЯД: 410013299366744 WM: R193491431804

Ответить

Sancho

Дата: Четверг, 06.10.2016, 19:33 | Сообщение № 3

Группа: Проверенные

Ранг: Обитатель

Сообщений: 279

Репутация: 19 ±

Замечаний: 0% ±

2007, 2010, 2013

Manyasha, Спасибо ОГРОМНОЕ! hands

Ответить

Страница 1 из 1
1