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

Вход

Регистрация

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

 

= Мир MS Excel/Как сделать появление курсора в TextBoxе при его активизации - Мир MS Excel

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

Excel 2007
Подскажите пожалуйста.
При двойном щелчке у меня выводится TextBox1, но курсора в нем нет.
Как сделать чтобы он уже был, чтобы не нажимать мышкой ещё раз.
К сообщению приложен файл: TextBox.xlsm(19Kb)
 
Ответить
СообщениеПодскажите пожалуйста.
При двойном щелчке у меня выводится TextBox1, но курсора в нем нет.
Как сделать чтобы он уже был, чтобы не нажимать мышкой ещё раз.

Автор - AndreyK
Дата добавления - 19.02.2016 в 11:52
Manyasha Дата: Пятница, 19.02.2016, 12:43 | Сообщение № 2
Группа: Модераторы
Ранг: Старожил
Сообщений: 1589
Репутация: 669 ±
Замечаний: 0% ±

Excel 2007, 2010
AndreyK, методом Activate. Но сначала, нужно выйти из режима редактирования ячейки:
[vba]
Код
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True
    With TextBox1
        .Visible = True
        .Value = Cells(ActiveCell.Row, 1).Value
        .Top = ActiveCell.Top
        .Height = ActiveCell.Height + 3
        .Left = ActiveCell.Left
        .Width = ActiveCell.Width  ' + 55
        .Activate
     End With
End Sub
[/vba]


marinamorozova_box@mail.ru
ЯД: 410013299366744 WM: R193491431804
 
Ответить
СообщениеAndreyK, методом Activate. Но сначала, нужно выйти из режима редактирования ячейки:
[vba]
Код
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True
    With TextBox1
        .Visible = True
        .Value = Cells(ActiveCell.Row, 1).Value
        .Top = ActiveCell.Top
        .Height = ActiveCell.Height + 3
        .Left = ActiveCell.Left
        .Width = ActiveCell.Width  ' + 55
        .Activate
     End With
End Sub
[/vba]

Автор - Manyasha
Дата добавления - 19.02.2016 в 12:43
AndreyK Дата: Пятница, 19.02.2016, 12:54 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Manyasha, Большое Вам спасибо. Работает так как я хотел. Тема закрыта.
 
Ответить
СообщениеManyasha, Большое Вам спасибо. Работает так как я хотел. Тема закрыта.

Автор - AndreyK
Дата добавления - 19.02.2016 в 12:54
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как сделать появление курсора в TextBoxе при его активизации (Макросы/Sub)
Страница 1 из 11
Поиск:

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