Выделить последнюю строку умной таблицы.

Пользователь

Сообщений: 110 Регистрация: 27.06.2017

20.01.2019 21:48:52

Добрый вечер!

Собственно сама проблема описана в теме.
Пытаюсь выделить ее так:

Код
ThisWorkbook.Worksheets("MB").ListObjects("tech_vis").DataBodyRange.Row(ListRows.Count).Select

Поправьте пожалуйста.

Пользователь

Сообщений: 14576 Регистрация: 01.01.1970

20.01.2019 22:09:59

достаточно было исправить штук 40-60 опечаток и Ваш код заработал

Код
With ActiveSheet.ListObjects("tech_vis") .ListRows(.ListRows.Count).Range.Select End With

Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!

Пользователь

Сообщений: 110 Регистрация: 27.06.2017

20.01.2019 22:17:51

Сам отвечу на свой вопрос :

Код
ThisWorkbook.Worksheets("MB").ListObjects("tech_vis").ListRows(ThisWorkbook.Worksheets("MB").ListObjects("tech_vis").ListRows.Count).Range.Select

tsutse Пользователь Сообщений: 110 Регистрация: 27.06.2017	#4 20.01.2019 22:18:23 Спасибо!

Ігор Гончаренко Пользователь Сообщений: 14576 Регистрация: 01.01.1970	#5 20.01.2019 22:28:48 а Вы разницы не видите почему? дело не в with. а дело в правильном обращении к свойствам обьектов. все слова у Вас в коде правильные но абсолютно очевидно что Вы не знаете а каком порядке их расставить. Ваш код имеет к попытке отметить последнюю строку в таблице, такое же отношение как в старом анекдоте слухи о громадном выигрыше Абрама -- Изя, Вы слышали Абрам выиграл в лотерею огромную сумму денег! -- да слышал. только не в лотерею, а в карты... и не выиграл, а проиграл Изменено: Ігор Гончаренко - 20.01.2019 22:29:06 Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!