Автозаполнение в каждый квадратик - отдельная буква - Страница 2

Старая форма входа

Страница 2 из 2 « 1 2
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Автозаполнение в каждый квадратик - отдельная буква (Макросы/Sub)

Автозаполнение в каждый квадратик - отдельная буква

Shaxislam

Дата: Воскресенье, 22.11.2015, 20:24 | Сообщение № 21

Группа: Пользователи

Ранг: Новичок

Сообщений: 33

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Все работает по отдельности, но объединение две команды не получилось
[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]

Сообщение отредактировал Shaxislam - Воскресенье, 22.11.2015, 20:25

Ответить

Kuzmich

Дата: Воскресенье, 22.11.2015, 21:10 | Сообщение № 22

Группа: Проверенные

Ранг: Ветеран

Сообщений: 711

Репутация: 156 ±

Замечаний: 0% ±

Excel 2003

У вас нет имени ФИО
Зачем при вводе ФИО пробелы перед и после ФИО
[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]