Как сделать появление курсора в TextBoxе при его активизации

Вход

Регистрация

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

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

Старая форма входа

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как сделать появление курсора в TextBoxе при его активизации (Макросы/Sub)

Как сделать появление курсора в TextBoxе при его активизации

AndreyK

Дата: Пятница, 19.02.2016, 11:52 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

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

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

Excel 2007

Подскажите пожалуйста.
При двойном щелчке у меня выводится TextBox1, но курсора в нем нет.
Как сделать чтобы он уже был, чтобы не нажимать мышкой ещё раз.

К сообщению приложен файл: TextBox.xlsm (18.5 Kb)

Ответить

Manyasha

Дата: Пятница, 19.02.2016, 12:43 | Сообщение № 2

Группа: Модераторы

Ранг: Старожил

Сообщений: 2198

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

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

Excel 2010, 2016

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]

ЯД: 410013299366744 WM: R193491431804

Ответить

AndreyK

Дата: Пятница, 19.02.2016, 12:54 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

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

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

Excel 2007

Manyasha, Большое Вам спасибо. Работает так как я хотел. Тема закрыта.

Ответить

Страница 1 из 1
1