Свойство .Range для умной таблицы. Обращение по названию столбца

@Medison1 · Регистрация: 04.03.2012

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

Добрый день.
На листе имеется умная таблица с заголовками.
При работе с ней макросами, я обращаюсь к ней так:

Visual Basic

WTName = "UT"
Set WS = ThisWorkbook.Worksheets("Лист1")
Set WT = WS.ListObjects(WTName)
WT.Range(i1, 3)

Последняя строка, мне не нравится, т.к. при добавлении столбца в начало таблицы. Формула "поедет". Т.к. нужно будет брать уже 4ый столбец и т.д.
Можно ли строку задавать переменной, а столбец задавать так как он назван в самой таблице? Чтобы не быть привязанным к порядку столбцов в таблице.

Что-то вроде:

Visual Basic

1	WT.Range(i1, WTName & "[Столбец3]")

@Dinoxromniy · 10.03.2018, 08:09

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

WT.Range(i1, WTName & "[Столбец3]")

Полагаю, range возвращает обычный диапазон, для которого доступно свойство cells. Не очень понял, что такое i3 - если это число, равное номеру строки, то код будет (например, что-бы выделить ячейку)

Код

WT.Range(WTName & "[Столбец3]").Cells(i1,1).Select

или

Код

WT.Range(WTName & "[Столбец3]").Rows.Item(i1).Select

@ji2n · 10.03.2018, 12:31

Так формула не "поедет" :

Visual Basic

1
2
3

Dim R As Range
'...
Set R =WT.Range(i1, 3)

Иными словами R -становится указателем на на искомый диапазон.
Дальше просто работаем с ней как заблагорассудится

@Medison1 · 10.03.2018, 12:51 **[ТС]**

Dinoxromniy,
Хорошие варианты визуально, но по какой-то причине не работают.
Ошибка: #5 invalid procedure call or argument

Пробовал еще так:

Visual Basic

1	WT.Range(WTName & "[Столбец3]",i1)

Ошибка: #13 Type mismatch

Вот этот вариант оказался рабочим. Не нужно было писать перед этим "WT."

Visual Basic

1	String1 = Range(WTName & "[Столбец3]").Cells(i1,1)

ji2n,
Спасибо. Но немного не то. В данном случае искомый диапазон зависит от константы "3". А мне необходимо уйти от этой константы к названию столбца умной таблицы. Т.к. столбцы могут изменять порядок и в какой-то момент нужный столбец будет к примеру не 3им, а 4ым или 5ым и т.д.

@Казанский · 10.03.2018, 13:31

Medison1, весь столбец (включая заголовок и ячейку из строки итогов)

Visual Basic

1	wt.listcolumns("заголовок_столбца").range

Только столбец с данными например так

Visual Basic

1	wt.ListColumns("заголовок_столбца").DataBodyRange

Хорошая шпаргалка по тому, как обращаться к разным частям умной таблицы: https://www.thespreadsheetguru... cel-tables

@Dinoxromniy · 10.03.2018, 13:57

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

по какой-то причине не работают.

Да, разумеется в обоих случаях должно быть WS вместо WT. Тут обращение происходит со стороны листа рабочей книги, а не через саму умную таблицу (последний случай смотрите у Казанский).

@Dinoxromniy Динохромный 1396 / 761 / 282 Регистрация: 22.12.2015 Сообщений: 2,381
	10.03.2018, 08:09	2
	Сообщение было отмечено Medison1 как решение Решение Сообщение от Medison1 WT.Range(i1, WTName & "[Столбец3]") Полагаю, range возвращает обычный диапазон, для которого доступно свойство cells. Не очень понял, что такое i3 - если это число, равное номеру строки, то код будет (например, что-бы выделить ячейку) Код WT.Range(WTName & "[Столбец3]").Cells(i1,1).Select или Код WT.Range(WTName & "[Столбец3]").Rows.Item(i1).Select 1

@Dinoxromniy Динохромный 1396 / 761 / 282 Регистрация: 22.12.2015 Сообщений: 2,381
	10.03.2018, 13:57	6
	Сообщение от Medison1 по какой-то причине не работают. Да, разумеется в обоих случаях должно быть WS вместо WT. Тут обращение происходит со стороны листа рабочей книги, а не через саму умную таблицу (последний случай смотрите у Казанский). 0

Свойство .Range для умной таблицы. Обращение по названию столбца

Решение