Страницы: 1
RSS
Разбитие текста в ячейке для заполнение текстбоксов
 
Добрый вечер.
Имеется два текстбокса для их заполнение информация находится в одной ячейке (пример "1, 2")
Как разбить текст чтоб для первого текстбокса подтянулось значение 1 , а для второго значение 2 (запятая при заполнение текстбокса не нужна).
 
Например:
Код
Option Explicit

Private Sub UserForm_Initialize()
    Dim primer
    primer = "12,25" '<= eto est' eta vasha yacheyka naprimer => primer = Range("A1").Value
    
    With UserForm1
        'Variant 1
        .TextBox1.Text = Split(primer, ",", -1, 1)(0)
        .TextBox2.Text = Split(primer, ",", -1, 1)(1)
        
        'Variant 2
        .TextBox1.Text = Left(primer, InStr(1, primer, ",", 1) - 1)
        .TextBox2.Text = Right(primer, Len(primer) - InStr(1, primer, ",", 1))
        
        'Variant 3
        .TextBox1.Text = Val(primer)
        .TextBox2.Text = Mid(primer, InStr(1, primer, ",", 1) + 1, Len(primer) - InStr(1, primer, ",", 1))
        
        'Variant 4
        primer = Split(primer, ",", -1, 1)
        .TextBox1.Text = primer(0)
        .TextBox2.Text = primer(1)
        
        'itd.
    End With
End Sub
Страницы: 1
Наверх