VBA Excel: Как разделить выделенный диапазон на области?

@dimabk · Регистрация: 08.07.2017

Студворк — интернет-сервис помощи студентам

Добрый день!
Поискал, погуглил но что то не нашел нужного. Возможно с ключевыми словами не угадал. Поэтому обращаюсь к вам.
Хочу сделать автоформат таблицы по своим параметрам. Сейчас основной тупик в том как разделить выделенный диапазон на области, т.е. область данных (значения, формулы и т.д.), область заголовка (одна или более строк), область подписей (обычно слева построчно), область итога по строкам, область итога по столбцам.
Хотелось бы знать адреса всех этих областей и манипулировать ими уже как мне нужно.
Начинаю с CurrentRegion

Visual Basic

Sub Test()
Dim rng as Range
'Выделяем текущую область
Set rng = Activecell.CurrentRegion
rng.Select
End Sub

Подпись таблицы тоже захватывается, ее надо убрать из выделенного диапазона.
Конечно можно создать форму и вставить туда элемент управления RefEdit несколько штук и все области повыделять, но это долго и не интересно.
Прошу вашей помощи)
Файл во вложении как пример.

@Vlad999 · 17.07.2017, 12:15

например так.

Visual Basic

Dim rng As Range, dannye As Range
Set rng = Cells(3, 1).CurrentRegion
rng.Select
Set dannye = rng.Offset(3, 2).Resize(rng.Rows.Count - 4, rng.Columns.Count - 3)
dannye.Select

@dimabk · 17.07.2017, 13:22 **[ТС]**

Сообщение от Vlad999

например так.

Visual Basic

Dim rng As Range, dannye As Range
Set rng = Cells(3, 1).CurrentRegion
rng.Select
Set dannye = rng.Offset(3, 2).Resize(rng.Rows.Count - 4, rng.Columns.Count - 3)
dannye.Select

)) спасибо за ироничный ответ) смешно))
Эта таблица как пример. Необходимая таблица может быть разных размеров с разным количеством столбцов подписей и строк заголовков. Нужен код который будет адаптирован под любые условия. Мне хотя бы натолкнуть на мысль и я пойму как сделать, но пока что то никак.

@kalbasiatka · 17.07.2017, 22:13

Сообщение от dimabk

спасибо за ироничный ответ

Вы бы свой ироничный вопрос почитали сначала. Ваш код присваивает переменной rng объект - диапазон ячеек. Это просто ячейки с их свойствами, никаких "область данных", "область заголовка" и прочей мути у них нет и они об этом не знают.

@dimabk · 17.07.2017, 23:30 **[ТС]**

Сообщение от kalbasiatka

Вы бы свой ироничный вопрос почитали сначала. Ваш код присваивает переменной rng объект - диапазон ячеек. Это просто ячейки с их свойствами, никаких "область данных", "область заголовка" и прочей мути у них нет и они об этом не знают.

Уважаемый не надо видеть в моей просьбе какую то иронию. Я понимаю что это объект и он не содержит уже готовых областей. Я просто выразил желание как можно в выделенном диапазоне определить отдельные области, либо тексту либо по значениям, разные зацепки могут быть. Полноценный ответ найти у меня не получается, поэтому и спрашиваю совета у знатоков. Я не начинающий, и все о чем вы говорите прекрасно знаю.

@kalbasiatka · 18.07.2017, 07:15

ответ:

Сообщение от dimabk

либо тексту либо по значениям

У диапазона можно определить крайние границы от них плясать rng.Rows.Count / Columns.Count.
Есть поиск либо циклом пройтись по массиву и найти нужные строки. Если, конечно знаете, что нужно искать.
Если нужны только значения можно использовать массив.
А вот это

Сообщение от dimabk

Я не начинающий

с этим

Сообщение от dimabk

Полноценный ответ найти у меня не получается

не вяжется что-то.

@nodirstein · 18.07.2017, 15:27

Вы об этом?

Test Areas (1).rar

@dimabk · 19.07.2017, 13:05 **[ТС]**

Ну да. Так. Только Вы привязали к конкретной ячейке. Количество строк в заголовке разное может быть. Я вышел из ситуации так. Просто нужно встать в левую верхнюю ячейку в области значений и от нее плясать. Все что слева это подписи строк, все что выше это заголовок и т.д. Дальше можно через userform сделать уточнение правильности определения областей и т.д. В общем спасибо. Дальше уже самому можно.
Спасибо за правильное понимание моего вопроса и за макрос.

@kalbasiatka 414 / 262 / 82 Регистрация: 27.10.2012 Сообщений: 860
	17.07.2017, 22:13	4
	Сообщение от dimabk спасибо за ироничный ответ Вы бы свой ироничный вопрос почитали сначала. Ваш код присваивает переменной rng объект - диапазон ячеек. Это просто ячейки с их свойствами, никаких "область данных", "область заголовка" и прочей мути у них нет и они об этом не знают. 0

@dimabk 0 / 0 / 0 Регистрация: 08.07.2017 Сообщений: 7
	17.07.2017, 23:30 [ТС]	5
	Сообщение от kalbasiatka Вы бы свой ироничный вопрос почитали сначала. Ваш код присваивает переменной rng объект - диапазон ячеек. Это просто ячейки с их свойствами, никаких "область данных", "область заголовка" и прочей мути у них нет и они об этом не знают. Уважаемый не надо видеть в моей просьбе какую то иронию. Я понимаю что это объект и он не содержит уже готовых областей. Я просто выразил желание как можно в выделенном диапазоне определить отдельные области, либо тексту либо по значениям, разные зацепки могут быть. Полноценный ответ найти у меня не получается, поэтому и спрашиваю совета у знатоков. Я не начинающий, и все о чем вы говорите прекрасно знаю. 0

@kalbasiatka 414 / 262 / 82 Регистрация: 27.10.2012 Сообщений: 860
	18.07.2017, 07:15	6
	ответ: Сообщение от dimabk либо тексту либо по значениям У диапазона можно определить крайние границы от них плясать rng.Rows.Count / Columns.Count. Есть поиск либо циклом пройтись по массиву и найти нужные строки. Если, конечно знаете, что нужно искать. Если нужны только значения можно использовать массив. А вот это Сообщение от dimabk Я не начинающий с этим Сообщение от dimabk Полноценный ответ найти у меня не получается не вяжется что-то. 0

@nodirstein 31 / 31 / 8 Регистрация: 12.04.2015 Сообщений: 79
	18.07.2017, 15:27	7
	Сообщение было отмечено dimabk как решение Решение Вы об этом? Test Areas (1).rar 0

@dimabk 0 / 0 / 0 Регистрация: 08.07.2017 Сообщений: 7
	19.07.2017, 13:05 [ТС]	8
	Ну да. Так. Только Вы привязали к конкретной ячейке. Количество строк в заголовке разное может быть. Я вышел из ситуации так. Просто нужно встать в левую верхнюю ячейку в области значений и от нее плясать. Все что слева это подписи строк, все что выше это заголовок и т.д. Дальше можно через userform сделать уточнение правильности определения областей и т.д. В общем спасибо. Дальше уже самому можно. Спасибо за правильное понимание моего вопроса и за макрос. 0

Опции темы

VBA Excel: Как разделить выделенный диапазон на области?

Решение