Msi2102, Ваш код работает превосходно, но при попытке применить Ваш код к своему документу, код работает не совсем корректно. В моём документе по нажатию кнопки "Показать все записи" заполняется ListBox1. По клику в ListBox1 заполняется TextBox2 данными из ячеек с листа ранее введёнными через форму, при этом CheckBoxы включаются не соответствуя значению в TextBox2. Если убрать нижеприведённый кусок кода,
Код |
---|
Private Sub TextBox8_Change()
TextBox2.Value = Replace(Application.Trim(TextBox8 & " " & TextBox9 & " " & TextBox10 & " " & TextBox11 & " " & TextBox3), " ", ", ")
End Sub
Private Sub TextBox9_Change()
TextBox2.Value = Replace(Application.Trim(TextBox8 & " " & TextBox9 & " " & TextBox10 & " " & TextBox11 & " " & TextBox3), " ", ", ")
End Sub
Private Sub TextBox10_Change()
TextBox2.Value = Replace(Application.Trim(TextBox8 & " " & TextBox9 & " " & TextBox10 & " " & TextBox11 & " " & TextBox3), " ", ", ")
End Sub
Private Sub TextBox11_Change()
TextBox2.Value = Replace(Application.Trim(TextBox8 & " " & TextBox9 & " " & TextBox10 & " " & TextBox11 & " " & TextBox3), " ", ", ")
End Sub
Private Sub TextBox3_Change()
TextBox2.Value = Replace(Application.Trim(TextBox8 & " " & TextBox9 & " " & TextBox10 & " " & TextBox11 & " " & TextBox3), " ", ", ")
End Sub |
то работает всё изумительно