Выделение ячейки, которая была выделена перед запуском.

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Выделение ячейки, которая была выделена перед запуском. (Макросы/Sub)

rotten41

Дата: Вторник, 14.03.2017, 03:20 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 169

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Доброе утро, знатоки эксель.
Помогите разобраться в непростом вопросе.

Макрос в книге - перемещается между разными листами и ячейками, выделяя их одну за другой.
Как заставить макрос в конце - выделить ту ячейку того листа, которая была выделена на момент начала работы макроса?

К сообщению приложен файл: 3586.xls (38.0 Kb)

Сообщение отредактировал rotten41 - Вторник, 14.03.2017, 03:22

Ответить

buchlotnik

Дата: Вторник, 14.03.2017, 07:22 | Сообщение № 2

Группа: Заблокированные

Ранг: Участник клуба

Сообщений: 3442

Репутация: 929 ±

Замечаний: 20% ±

2010, 2013, 2016 RUS / ENG

так нужно? [vba]

Код

Sub g()
    s = ActiveCell.Parent.Name
    c = ActiveCell.Address
    ' ваш код
    Sheets(s).Activate
    Range(c).Select
End Sub

[/vba]

Ответить

K-SerJC

Дата: Вторник, 14.03.2017, 07:39 | Сообщение № 3

Группа: Проверенные

Ранг: Обитатель

Сообщений: 487

Репутация: 86 ±

Замечаний: 0% ±

Excel 2013

так?
[vba]

Код

Public RGst As String, SHst As String

Sub Макрос2()
ЭтаКнига.SHst = ActiveSheet.Name
ЭтаКнига.RGst = ActiveCell.Address
    Range("F11").Select
    Sheets("Лист2").Select
    Range("D30").Select
    Sheets("Лист3").Select
    Range("E20").Select
ThisWorkbook.Sheets(ЭтаКнига.SHst).Select
ThisWorkbook.Sheets(ЭтаКнига.SHst).Range(ЭтаКнига.RGst).Select
End Sub

[/vba]