Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Координаты предыдущего выбора (ранее выбранная ячейка) - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Координаты предыдущего выбора (ранее выбранная ячейка) (Макросы/Sub)
Координаты предыдущего выбора (ранее выбранная ячейка)
w00t Дата: Среда, 09.03.2016, 13:44 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 126
Репутация: 3 ±
Замечаний: 0% ±

Помогите, пожалуйста немного доработать код для следующей цели:

при попытке выделить запрещенный к редактированию диапазон - возвратить пользователя туда, откуда пришел. Т.е. чтобы не D6 выбиралась, а прежнй range selection пользователя (одна ячейка им была выбрана или группа ячеек).

Сейчас код на листе

[vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A4:C" & Rows.Count)) Is Nothing Then Exit Sub
If [B2] = "$$$" Then Exit Sub
Range("D6").Select
End Sub
[/vba]

Спасибо.
 
Ответить
СообщениеПомогите, пожалуйста немного доработать код для следующей цели:

при попытке выделить запрещенный к редактированию диапазон - возвратить пользователя туда, откуда пришел. Т.е. чтобы не D6 выбиралась, а прежнй range selection пользователя (одна ячейка им была выбрана или группа ячеек).

Сейчас код на листе

[vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A4:C" & Rows.Count)) Is Nothing Then Exit Sub
If [B2] = "$$$" Then Exit Sub
Range("D6").Select
End Sub
[/vba]

Спасибо.

Автор - w00t
Дата добавления - 09.03.2016 в 13:44
Manyasha Дата: Среда, 09.03.2016, 14:26 | Сообщение № 2
Группа: Модераторы
Ранг: Старожил
Сообщений: 1590
Репутация: 669 ±
Замечаний: 0% ±

Excel 2007, 2010
w00t, так пойдет?
[vba]
Код
Dim addr
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("A4:C" & Rows.Count)) Is Nothing Then
        If [b2] <> "$$$" Then If addr <> "" Then Range(addr).Select
    End If
    addr = Selection.Address
End Sub
[/vba]


marinamorozova_box@mail.ru
ЯД: 410013299366744 WM: R193491431804
 
Ответить
Сообщениеw00t, так пойдет?
[vba]
Код
Dim addr
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("A4:C" & Rows.Count)) Is Nothing Then
        If [b2] <> "$$$" Then If addr <> "" Then Range(addr).Select
    End If
    addr = Selection.Address
End Sub
[/vba]

Автор - Manyasha
Дата добавления - 09.03.2016 в 14:26
w00t Дата: Среда, 09.03.2016, 14:42 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 126
Репутация: 3 ±
Замечаний: 0% ±

Ага, оно самое, спасибо.
 
Ответить
СообщениеАга, оно самое, спасибо.

Автор - w00t
Дата добавления - 09.03.2016 в 14:42
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Координаты предыдущего выбора (ранее выбранная ячейка) (Макросы/Sub)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2016 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!