Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 30.03.2017, 13:43   #1
Red_Garry
Пользователь
 
Регистрация: 03.10.2010
Сообщений: 55
По умолчанию Как присвоить переменной имя таблицы? (Excel2010)

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

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

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

Спасибо!
Red_Garry вне форума Ответить с цитированием
Старый 30.03.2017, 14:03   #2
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

пробуйте:
Код:
  TblNm = "Часть1"
  ColNm = "Нормы"
  Set c = activesheet.ListObjects(TblNm).ListColumns(ColNm).Find(Z, LookAt:=xlWhole)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума Ответить с цитированием
Старый 30.03.2017, 15:48   #3
Red_Garry
Пользователь
 
Регистрация: 03.10.2010
Сообщений: 55
По умолчанию

Не работает.... Ошибка и код в файле
Изображения
Тип файла: jpg error.JPG (47.7 Кб, 49 просмотров)
Red_Garry вне форума Ответить с цитированием
Старый 30.03.2017, 16:05   #4
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

а так:
Set c = activesheet.ListObjects(TblNm).List Columns(ColNm).Range.Find(Z, LookAt:=xlWhole)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума Ответить с цитированием
Старый 30.03.2017, 16:26   #5
Red_Garry
Пользователь
 
Регистрация: 03.10.2010
Сообщений: 55
По умолчанию

РА-БО-ТА-ЕТ!!!!!!!! Ура!!! Спасибо!!!!!!!!
Red_Garry вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как присвоить значение сроки таблицы переменной? Женя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