Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
VBA-Динамически изменяемый диапазон, Задание изменяемого диапазона с помощью средств VBA
 
#1
11.04.2025 11:26:45
Здравствуйте уважаемые!

Задача следующая: Мучаю макрос, дошел до сегмента, где в умной таблице выделяются разные диапазоны данных. Допустим A2:A10, следующий будет соответственно с A11:A26, потом A27:A42 и т.д. Но каждый раз эти диапазоны будут разные. Так вот, как сделать, чтобы он делал это сам, не спотыкаясь. То есть встаём в ячейку A2, зажимаем клавиши Ctrl+Shift+"стрелка вниз", он автоматом выделят нужный нам диапазон, до следующей строки с данными, потом нажимаем сочетание клавиш Ctrl+D, чтобы заполнить его данными из первой начальной строки "2000.10 Служба механизации Управление". Со следующей строки пойдет уже другой диапазон и т.д. с которым нужно проделать то же самое, то бишь заполнить данными из второй строки "3000.10 Служба ИТ Управление" и т.д.
 
 
 
#2
11.04.2025 11:40:31
Установите фильтр в строку 5, отфильтруйте по светло зеленному цвету, в соседнем столбце в верхнюю ячейку вставьте ссылку на ячейку с наименованием раздела, протяните вниз. Снимите фильтр, выделите диапазон, далее по ИНСТРУКЦИИ
 
 
 
#3
11.04.2025 11:46:08
Это умная таблица, тут нельзя поставить фильтр в любую строку, кроме первой.
 
 
 
#4
11.04.2025 11:50:26
Цитата
Levanton написал:
Это умная таблица, тут нельзя поставить фильтр в любую строку, кроме первой
Если Вам нужно заполнить лист "Исходный лист (6)" то переходите сразу к ссылке из сообщения №2, там есть и макрос и как это сделать без макроса
Изменено: Msi2102 - 11.04.2025 11:50:55
 
 
 
#5
23.04.2025 07:00:47
Да, макрос есть, но в нем прописаны конкретные адреса диапазонов, а они будут каждый раз разные. Как быть
 
 
 
#6
23.04.2025 07:23:51
Может так будет достаточно?
Код
Sub Fill0Indent()
Dim iCl As Range
Application.ScreenUpdating = False
With Worksheets("Исходный лист (6)").ListObjects("Таблица2").ListColumns(1).DataBodyRange
  For Each iCl In .Cells
    If iCl.Offset(, 1).IndentLevel = 0 Then
      iCl = iCl.Offset(, 1)
    Else
      iCl = iCl.Offset(-1)
    End If
    iCl.IndentLevel = 0
  Next
End With
Application.ScreenUpdating = True
End Sub
Согласие есть продукт при полном непротивлении сторон
 
 
 
Страницы: 1
Читают тему
Наверх