Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Vagur
0 / 0 / 0
Регистрация: 17.12.2015
#1

После активации листа курсор автоматически установить на первую незащищенную ячейку - VBA

29.07.2010, 15:59. Просмотров 1076. Ответов 5
Метки нет (Все метки)

Доброго времени суток !

Вопрос такого плана: есть листы с включеной защитой, на листах ячейки, защита которых включаеться в зависимости от даты. Требуеться, чтобы, после активации листа курсор автоматически становился на первую незащищенную ячейку. Как это сделать ?

С уважением ...
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.07.2010, 15:59
Я подобрал для вас темы с готовыми решениями и ответами на вопрос После активации листа курсор автоматически установить на первую незащищенную ячейку (VBA):

Как скопировать ячейку с неактивного листа без его активации?
Как скопировать ячейку с неактивного листа активной рабочей книги. Не активируя...

Установить курсор в ту же ячейку что и на листе N
Люди добрые помогите. Пол дня бился безуспешно: Sheets("В.2").Select ...

Установить кодом в ячейку функцию листа
Здравствуйте! Будьте любезны, знатоки, подскажите, как в ячейку установить...

Разбить строку, введённую в первую ячейку первого столбца активного листа, на слова
Задали следующее задание: 1я часть: Разбить строку, введённую в первую ячейку...

Разбить строку, введённую в первую ячейку первого столбца активного листа, на слова
Общая часть задания Разбить строку, введённую в первую ячейку первого столбца...

Разбить строку, введённую в первую ячейку первого столбца активного листа, на слова
Помогите-помогите! Пожалуйста.... Нужно разбить строку, введённую в первую...

5
vlth
12 / 12 / 2
Регистрация: 23.03.2010
Сообщений: 635
29.07.2010, 16:26 #2
Visual Basic
1
2
3
4
5
6
Private Sub Worksheet_Activate()
Dim cl As Range
For Each cl In ActiveSheet.Cells
    If Not cl.Locked Then cl.Select: Exit For
Next cl
End Sub
0
Serg61
0 / 0 / 0
Регистрация: 31.01.2008
Сообщений: 72
29.07.2010, 16:30 #3
cells(1,1).select
SendKeys '{TAB}'
0
Vagur
0 / 0 / 0
Регистрация: 17.12.2015
29.07.2010, 16:50 #4
Это то, что надо. Спасибо за оба варианта.
0
vlth
12 / 12 / 2
Регистрация: 23.03.2010
Сообщений: 635
29.07.2010, 16:51 #5
2Serg61:
Если ячейка 'A1' не защищена, то будет выделена другая незащищённая
ячейка, т.е. вторая. Вероятность невелика, но всё же...
0
vlth
12 / 12 / 2
Регистрация: 23.03.2010
Сообщений: 635
29.07.2010, 20:05 #6
Т.е. при исп варианта 2 надо осущ. проверку на защищённость ячейки 'A1':

cells(1,1).select
If selection.Locked Then SendKeys '{TAB}'
0
29.07.2010, 20:05
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.07.2010, 20:05
Привет! Вот еще темы с решениями:

Установить курсор в ячейку так, как если было бы нажато сочетание клавиш Ctrl+Home
Господа программисты, хелп плиз В приложенном файле, при нажатии ctrl+home...

В форме при активации курсор посредине, убрал курсор с формы она должна закрыться
Здравствуйте, чем вспоминать дни прошедшие..., есть форма, (она из Ворда), по...

Копирование значения при после ввода на другой лист в первую пустую ячейку в определенном диапазоне
Добрый вечер! Помогите, пожалуйста, с проблемой. В VBA не силен, но...

Выполнение кода при активации листа. Что не так?
На листе 1 чекбокс CHB_A1 На листе 2 макрос: Sub Worksheet_Activate()...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru