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

Вход

Регистрация

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

 

= Мир MS Excel/Выделение текста в текстбоксе - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Выделение текста в текстбоксе (Макросы/Sub)
Выделение текста в текстбоксе
Сергей13 Дата: Суббота, 19.10.2019, 16:04 | Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 344
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Здравствуйте, ребята!
Скажите, есть ли какой способ выделить весь текст в текстбоксе пару кликами или правым кликом, дабы в дальнейшем скопировать его корректно в ручную.
Нашел данный код но он как-то работает по некой последовательности, первый клик пустой, второй выделение одного слова и третий клик выделение всего текста, то есть начинаешь марзянить по полю объекта улавливая нужный момент выделения.
[vba]
Код
Private Sub Txb0_Enter() 'V  Выделение текста двойным кликом для ручного копирования
    Txb0.SelStart = 0
    Txb0.SelLength = Len(Txb0.Text)
End Sub
[/vba]
К сообщению приложен файл: 3806308.xlsm (12.5 Kb)


Сообщение отредактировал Сергей13 - Суббота, 19.10.2019, 16:04
 
Ответить
СообщениеЗдравствуйте, ребята!
Скажите, есть ли какой способ выделить весь текст в текстбоксе пару кликами или правым кликом, дабы в дальнейшем скопировать его корректно в ручную.
Нашел данный код но он как-то работает по некой последовательности, первый клик пустой, второй выделение одного слова и третий клик выделение всего текста, то есть начинаешь марзянить по полю объекта улавливая нужный момент выделения.
[vba]
Код
Private Sub Txb0_Enter() 'V  Выделение текста двойным кликом для ручного копирования
    Txb0.SelStart = 0
    Txb0.SelLength = Len(Txb0.Text)
End Sub
[/vba]
Автор - Сергей13
Дата добавления - 19.10.2019 в 16:04
Апострофф Дата: Суббота, 19.10.2019, 17:14 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 458
Репутация: 126 ±
Замечаний: 0% ±

Excel 1997
Цитата Сергей13, 19.10.2019 в 16:04, в сообщении № 1 ()
правым кликом

[vba]
Код
Sub Txb0_MouseUp(ByVal B%, ByVal S%, ByVal X!, ByVal Y!)
If B = 2 Then Txb0.SelStart = 0: Txb0.SelLength = Len(Txb0.Text)
End Sub
[/vba]
 
Ответить
Сообщение
Цитата Сергей13, 19.10.2019 в 16:04, в сообщении № 1 ()
правым кликом

[vba]
Код
Sub Txb0_MouseUp(ByVal B%, ByVal S%, ByVal X!, ByVal Y!)
If B = 2 Then Txb0.SelStart = 0: Txb0.SelLength = Len(Txb0.Text)
End Sub
[/vba]
Автор - Апострофф
Дата добавления - 19.10.2019 в 17:14
Сергей13 Дата: Понедельник, 21.10.2019, 01:34 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 344
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Апострофф, Благодарю!
 
Ответить
СообщениеАпострофф, Благодарю!
Автор - Сергей13
Дата добавления - 21.10.2019 в 01:34
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Выделение текста в текстбоксе (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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