Выделение текста в textbox

[konstantin1990]

Сообщение от The_Prist

Что именно не работает? Процедура не выполняется? Или выполняется, но текст не выделяется?

Получается, что процедура не выполняется. Ошибок нет, выделения нет. И еще такой вопрос, я буду признателен если мне кто нибудь даст ответ: Как ограничить количество строк в Listbox, у меня такой listbox находится на форме dataapt и называется RW??? как сделать так чтобы количество строк было не больше 12, а в идеале что бы было равно количеству строк содержимого?

[The_Prist]

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

TextBox1.SelStart = 0
TextBox1.SelLength = Len(TextBox1.Text)
TextBox1.SetFocus

В принципе надо подумать над вопросом, т.к. при активном Текстбоксе выделение текста не работает. Только если делать это по нажатии кнопки.
Вот, наваял обходными путями, но зато работает:

'в модуль формы
Private Sub TextBox1_Enter()
    Set objTxtb = TextBox1
    Application.OnTime Now, "SelTxt"
End Sub
'в стандартный модуль
Public objTxtb As Object
Sub SelTxt()
    If objTxtb.Text = "" Then Exit Sub
    objTxtb.SetFocus
    objTxtb.SelStart = 0
    objTxtb.SelLength = objTxtb.TextLength
End Sub

По второму вопросу: можно лишь догадываться как Вы эти значения в ЛистБокс заносите. Если через указание диапазона - вычисляйте последнюю строку и передавайте. А вообще все свои вопросы в одной теме задавать не принято. Если только они не связаны логически в переделах одной темы.

[konstantin1990]

Сообщение от The_Prist

.....но зато работает:

По второму вопросу: Если только они не связаны логически в переделах одной темы.

Спасибо большое, работает!!! действительно работает и буду применять!!! По второму вопросу, да заносятся через диапазон. Я не являюсь программистом, и знания по информатике у меня 1 семестр института. А вот по работе надо написать небольшое программное обеспечение. Мне не очень удобно задавать, как мне кажется сложные вопросы для меня, и являющиеся простыми для вас. Поэтому спросил у вас в этой теме, чтобы если что не создавать новую. В Инете ничего толкового не нашел, или не так ставил вопрос!!! но все равно, спасибо Богу, что есть такие форумы и такие люди как Вы которые терпят чайников!!!

П.С. я на форуме недавно зарегестрировался, но обращаюсь сюда и создаю темы только когда в полном тупике.

[The_Prist]

По заполнению: Динамические именованные диапазоны
Как определить последнюю ячейку на листе через VBA?
Но информации мало для того, чтобы дать точный ответ.
На будущее: разные вопросы - разные темы. Так в последствии другим будет проще найти нужный ответ.