Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Активация combobox при открытии книги
 
Подскажите пожалуйста. Требуется при открытии книги помещать курсор в ComboBox1 и его очистка или выделение содержимого. Поиском не нашёл похожего
Изменено: Dobepman - 5 Ноя 2018 17:33:01
 
Цитата
Dobepman написал: при открытии книги
Это сами.
Цитата
Dobepman написал: помещать курсор в ComboBox1 и его очистка
Как понял:
Код
With [ComboBox1]
    .Activate
    .Object.Text = ""
End With
Вместо "[ComboBox1]" можно использовать:
Код
ActiveWorkbook.Sheet("Лист1").Shapes("ComboBox1").DrawingObject
или
Код
ThisWorkbook.Sheet("Лист1").Shapes("ComboBox1").DrawingObject

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
Все работает, но оказалось не удобно. Как прописать что бы текст выделялся но не удалялся? Подскажите пожалуйста
 
Код
    With [ComboBox1]
        .Activate
        With .Object
            .SelStart = 0
            .SelLength = Len(.Text)
        End With '.Object
    End With

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
Цитата
Dobepman написал:
книги помещать курсор в ComboBox1
используйте
Код
ThisWorkbook.Sheet("Лист1").Shapes("ComboBox1").setfocus
 
JayBhagavan, спасибо ответ подошел
Страницы: 1
Читают тему (гостей: 1)
Наверх