Страницы: 1
RSS
UserForm1.show останавливает выполнение процедуры
 
Задача показать форму с выделенным текстом в текстбоксе
Код
Sub showform()
UserForm1.TextBox1.Text = ActiveCell.Text
UserForm1.Show
UserForm1.TextBox1.SetFocus
TextBox1.SelStart = 0
TextBox1.SelLength = Len(Text)
End Sub
на UserForm1.Show процедура останавливается и соответственно тект не выделяется.
Подскажите выход из положения пожалуйста
 
Продолжить код в процедуре UserForm1, которая запускается при открытии формы.  
 
Код
Sub showform()
UserForm1.Show
End Sub
в модуле формы
Код
Private Sub UserForm_Initialize()
UserForm1.TextBox1.Text = ActiveCell.Text
UserForm1.TextBox1.SetFocus
TextBox1.SelStart = 0
TextBox1.SelLength = Len(TextBox1.Text)
End Sub
 
Код
Private Sub UserForm_Activate()
  UserForm1.TextBox1.SetFocus
  TextBox1.SelStart = 0
  TextBox1.SelLength = Len(Text)
End Sub
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
спасибо огромное, это выход
 
учитывайте, что:
Initialize срабатывает единственный раз, при первом обращении к форме
а
Activate - каждый раз, как Вы ее позвали
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
Да, спасибо, я на активацию повесил
Страницы: 1
Наверх