Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
После очистки данных с листа активировать ячейку A1, Vba
 
#1
18.08.2022 08:04:58
Приветствую
Вопрос простой. Хотел бы уточнить. Возможно ли в макросе активировать ячейку без активации листа?
Код
Sub Очистка()
    Sheets("Лист1").Cells.Clear
    Sheets("Лист1").Activate
    Range("a1").Select

    Sheets("Лист2").Cells.Clear
    Sheets("Лист2").Activate
    Range("n1").Select
'    Sheets("Лист2").Range("n1").Select
End Sub
НА МЯСО В ПРОФИЛЕ
 
 
 
#2
18.08.2022 08:14:11
Михаил Л,
согласно статье Дмитрия это невозможно
Изменено: evgeniygeo - 18.08.2022 08:14:42
 
 
 
#3
18.08.2022 08:26:46
evgeniygeo, спасибо
Раз по-другому нельзя - буду делать как описано в статье
НА МЯСО В ПРОФИЛЕ
 
 
 
#4
18.08.2022 09:29:52
Цитата
Михаил Л: Возможно ли в макросе активировать ячейку без активации листа?
скажем так: активная ячейка не может находится на НЕактивном листе и обоих объектов - всегда по одному в любой момент времени. Но писать активацию листа не нужно — при активации ячейки это происходит само.
Для перехода к диапазону я использую Application.GoTo Cells()
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
 
 
 
#5
18.08.2022 09:37:46
Jack Famous, В целом задача такая стоит:
1. Очистить данные на листе
2. После работы макроса я копирую данные с 1с, активирую нужный лист и вставляю данные. При этом нужно чтобы левый верхний угол у вставленного диапазона был, например, в N1
НА МЯСО В ПРОФИЛЕ
 
 
 
#6
18.08.2022 09:52:57
Михаил Л, это уже копирование из буфера, а не внутри Excel — совсем другая тема
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
 
 
 
#7
18.08.2022 09:53:05
Работает)
Jack Famous, спасибо)
Код
Application.Goto Sheets("Лист2").Range("n1")
НА МЯСО В ПРОФИЛЕ
 
 
 
#8
18.08.2022 09:56:17
Михаил Л, пожалуйста
Код
Sheets("Лист2").Range("n1").Select
Sheets("Лист2").Range("n1").Activate
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
 
 
 
#9
18.08.2022 10:13:44
Цитата
Jack Famous написал:
Sheets("Лист2").Range("n1").Select
Sheets("Лист2").Range("n1").Activate
Это не работает. Да и не надо, раз есть Application.Goto
НА МЯСО В ПРОФИЛЕ
 
 
 
Страницы: 1
Наверх