Все работает по отдельности, но объединение две команды не получилось [vba]
Код
Private Sub CommandButton1_Click() [ФИО] = Me.TextBox1 [гр] = Me.TextBox2 End Sub
Private Sub FIO() Dim i As Integer Dim j As Integer Dim FIO Range("ФИО").ClearContents FIO = Split(Me.TextBox1.Text, " ") If UBound(FIO) >= 2 Then For i = 0 To UBound(FIO) For j = 1 To Len(FIO(z)) Cells(4 + 2 * j, i) = Mid(FIO(j), i, 1) Next Next End If End Sub
Private Sub GR() Dim i As Integer Dim j As Integer Dim GR Range("гр").ClearContents GR = Split(Me.TextBox2.Text, "-") If UBound(GR) >= 1 Then For j = 0 To UBound(GR) For i = 1 To Len(GR(j)) Cells(10, i + 2 + 5 * j) = Mid(GR(j), i, 1) Next Next End If End Sub
[/vba]
Все работает по отдельности, но объединение две команды не получилось [vba]
Код
Private Sub CommandButton1_Click() [ФИО] = Me.TextBox1 [гр] = Me.TextBox2 End Sub
Private Sub FIO() Dim i As Integer Dim j As Integer Dim FIO Range("ФИО").ClearContents FIO = Split(Me.TextBox1.Text, " ") If UBound(FIO) >= 2 Then For i = 0 To UBound(FIO) For j = 1 To Len(FIO(z)) Cells(4 + 2 * j, i) = Mid(FIO(j), i, 1) Next Next End If End Sub
Private Sub GR() Dim i As Integer Dim j As Integer Dim GR Range("гр").ClearContents GR = Split(Me.TextBox2.Text, "-") If UBound(GR) >= 1 Then For j = 0 To UBound(GR) For i = 1 To Len(GR(j)) Cells(10, i + 2 + 5 * j) = Mid(GR(j), i, 1) Next Next End If End Sub
У вас нет имени ФИО Зачем при вводе ФИО пробелы перед и после ФИО [vba]
Код
Private Sub CommandButton1_Click() Dim i As Integer Dim j As Integer Dim FIO Range("Фамилия").ClearContents Range("Имя").ClearContents Range("отчество").ClearContents FIO = Split(Me.TextBox1.Text, " ") If UBound(FIO) <= 2 Then For j = 0 To UBound(FIO) For i = 1 To Len(FIO(j)) Cells(4 + 2 * j, i) = Mid(FIO(j), i, 1) Next Next End If Dim GR Range("День").ClearContents Range("месяц").ClearContents Range("год").ClearContents GR = Split(Me.TextBox2.Text, "-") If UBound(GR) >= 1 Then For j = 0 To UBound(GR) For i = 1 To Len(GR(j)) Cells(10, i + 2 + 5 * j) = Mid(GR(j), i, 1) Next Next End If End Sub
[/vba]
У вас нет имени ФИО Зачем при вводе ФИО пробелы перед и после ФИО [vba]
Код
Private Sub CommandButton1_Click() Dim i As Integer Dim j As Integer Dim FIO Range("Фамилия").ClearContents Range("Имя").ClearContents Range("отчество").ClearContents FIO = Split(Me.TextBox1.Text, " ") If UBound(FIO) <= 2 Then For j = 0 To UBound(FIO) For i = 1 To Len(FIO(j)) Cells(4 + 2 * j, i) = Mid(FIO(j), i, 1) Next Next End If Dim GR Range("День").ClearContents Range("месяц").ClearContents Range("год").ClearContents GR = Split(Me.TextBox2.Text, "-") If UBound(GR) >= 1 Then For j = 0 To UBound(GR) For i = 1 To Len(GR(j)) Cells(10, i + 2 + 5 * j) = Mid(GR(j), i, 1) Next Next End If End Sub
Хочу сказать огромное спасибо всем участникам форума и , особенно Wasilic и Kuzmich, за помощь в формализации документа. Очень помогли ваши советы!
Хочу сказать огромное спасибо всем участникам форума и , особенно Wasilic и Kuzmich, за помощь в формализации документа. Очень помогли ваши советы!Shaxislam