Как присвоить переменной имя таблицы? (Excel2010) - Microsoft Office Excel

Red_Garry · 30.03.2017, 13:43

Здравствуйте!
Макрос в таблице с именем Часть1 в столбце Нормы ищет некий текст из переменной Z

Set c = [Часть1[Нормы]].Find(Z, LookAt:=xlWhole)

Это работает! Проблема в том, что имя таблицы указано явно. Как имя конкретной таблицы (и столбца) заменить на переменную? Какой должен быть формат записи? Необходимо в цикле просматривать десятки таблиц, имена которых присваивать переменной и имя этой переменной должно заменить имя таблицы.

Спасибо!

IgorGO · 30.03.2017, 14:03

пробуйте:

Код:

  TblNm = "Часть1"
  ColNm = "Нормы"
  Set c = activesheet.ListObjects(TblNm).ListColumns(ColNm).Find(Z, LookAt:=xlWhole)

Red_Garry · 30.03.2017, 15:48

Не работает.... Ошибка и код в файле

IgorGO · 30.03.2017, 16:05

а так:
Set c = activesheet.ListObjects(TblNm).List Columns(ColNm).Range.Find(Z, LookAt:=xlWhole)

Red_Garry · 30.03.2017, 16:26

РА-БО-ТА-ЕТ!!!!!!!! Ура!!! Спасибо!!!!!!!!

30.03.2017, 13:43	#1
Red_Garry Пользователь Регистрация: 03.10.2010 Сообщений: 55	Как присвоить переменной имя таблицы? (Excel2010) Здравствуйте! Макрос в таблице с именем Часть1 в столбце Нормы ищет некий текст из переменной Z Set c = [Часть1[Нормы]].Find(Z, LookAt:=xlWhole) Это работает! Проблема в том, что имя таблицы указано явно. Как имя конкретной таблицы (и столбца) заменить на переменную? Какой должен быть формат записи? Необходимо в цикле просматривать десятки таблиц, имена которых присваивать переменной и имя этой переменной должно заменить имя таблицы. Спасибо!

30.03.2017, 14:03	#2
IgorGO Новичок СтарожилДжуниор Регистрация: 05.02.2008 Сообщений: 9,487	пробуйте: Код: `TblNm = "Часть1" ColNm = "Нормы" Set c = activesheet.ListObjects(TblNm).ListColumns(ColNm).Find(Z, LookAt:=xlWhole)` Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете

30.03.2017, 16:05	#4
IgorGO Новичок СтарожилДжуниор Регистрация: 05.02.2008 Сообщений: 9,487	а так: Set c = activesheet.ListObjects(TblNm).List Columns(ColNm).Range.Find(Z, LookAt:=xlWhole) Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Как присвоить значение сроки таблицы переменной?	Женя32	БД в Delphi	5	22.10.2013 20:58
Как присвоить переменной в delphi значение поля из таблицы в SQL	ULR	Помощь студентам	6	05.02.2013 21:33
Как присвоить переменной имя файла	mayonez	Общие вопросы Delphi	3	27.06.2010 13:02
Взять имя переменной из файла и присвоить ей значение	ZaRDaK	Помощь студентам	1	11.11.2009 00:33
Переменной присвоить имя файла	komar73	Microsoft Office Excel	4	26.03.2009 15:20

30.03.2017, 16:26	#5
Red_Garry Пользователь Регистрация: 03.10.2010 Сообщений: 55	РА-БО-ТА-ЕТ!!!!!!!! Ура!!! Спасибо!!!!!!!!