Автозаполнение в каждый квадратик - отдельная буква
Shaxislam
Дата: Суббота, 21.11.2015, 11:14 |
Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 33
Репутация:
0
±
Замечаний:
0% ±
Excel 2013
Здравствуйте! 3-й день пытаюсь создать макрос, не получается. Заранее благодарю
Здравствуйте! 3-й день пытаюсь создать макрос, не получается. Заранее благодарю Shaxislam
Сообщение отредактировал Shaxislam - Суббота, 21.11.2015, 11:14
Ответить
Сообщение Здравствуйте! 3-й день пытаюсь создать макрос, не получается. Заранее благодарю Автор - Shaxislam Дата добавления - 21.11.2015 в 11:14
Kuzmich
Дата: Суббота, 21.11.2015, 11:43 |
Сообщение № 2
Группа: Проверенные
Ранг: Ветеран
Сообщений: 712
Репутация:
156
±
Замечаний:
0% ±
Excel 2003
Попробуйте цикл по длине слова в TextBox1 Mid(Stroka, i, 1)
Попробуйте цикл по длине слова в TextBox1 Mid(Stroka, i, 1) Kuzmich
Ответить
Сообщение Попробуйте цикл по длине слова в TextBox1 Mid(Stroka, i, 1) Автор - Kuzmich Дата добавления - 21.11.2015 в 11:43
Shaxislam
Дата: Суббота, 21.11.2015, 11:49 |
Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 33
Репутация:
0
±
Замечаний:
0% ±
Excel 2013
Kuzmich, не получается, я новичок по VBA
Kuzmich, не получается, я новичок по VBA Shaxislam
Ответить
Сообщение Kuzmich, не получается, я новичок по VBA Автор - Shaxislam Дата добавления - 21.11.2015 в 11:49
Pelena
Дата: Суббота, 21.11.2015, 12:04 |
Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 19195
Репутация:
4423
±
Замечаний:
±
Excel 365 & Mac Excel
Shaxislam , посмотрите эту тему , в частности файл из 14-го поста
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816
Ответить
Сообщение Shaxislam , посмотрите эту тему , в частности файл из 14-го постаАвтор - Pelena Дата добавления - 21.11.2015 в 12:04
Kuzmich
Дата: Суббота, 21.11.2015, 12:11 |
Сообщение № 5
Группа: Проверенные
Ранг: Ветеран
Сообщений: 712
Репутация:
156
±
Замечаний:
0% ±
Excel 2003
Например для фамилии [vba]Код
Private Sub CommandButton1_Click() Dim i As Integer For i = 1 To Len(Me.TextBox1.Text) Cells(4, i) = Mid(Me.TextBox1.Text, i, 1) Next End Sub
[/vba]
Например для фамилии [vba]Код
Private Sub CommandButton1_Click() Dim i As Integer For i = 1 To Len(Me.TextBox1.Text) Cells(4, i) = Mid(Me.TextBox1.Text, i, 1) Next End Sub
[/vba] Kuzmich
Ответить
Сообщение Например для фамилии [vba]Код
Private Sub CommandButton1_Click() Dim i As Integer For i = 1 To Len(Me.TextBox1.Text) Cells(4, i) = Mid(Me.TextBox1.Text, i, 1) Next End Sub
[/vba] Автор - Kuzmich Дата добавления - 21.11.2015 в 12:11
Shaxislam
Дата: Суббота, 21.11.2015, 12:20 |
Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 33
Репутация:
0
±
Замечаний:
0% ±
Excel 2013
Pelena, не помогает, чтобы не использовал форму для заполнения Kuzmich, а не поставить ли пример
Pelena, не помогает, чтобы не использовал форму для заполнения Kuzmich, а не поставить ли пример Shaxislam
Сообщение отредактировал Shaxislam - Суббота, 21.11.2015, 12:31
Ответить
Сообщение Pelena, не помогает, чтобы не использовал форму для заполнения Kuzmich, а не поставить ли пример Автор - Shaxislam Дата добавления - 21.11.2015 в 12:20
alex77755
Дата: Суббота, 21.11.2015, 13:47 |
Сообщение № 7
Группа: Проверенные
Ранг: Обитатель
Сообщений: 362
Репутация:
64
±
Замечаний:
0% ±
Без формы. Вводи в первую букву фамилии всю фамилию и нажимай ввод
Без формы. Вводи в первую букву фамилии всю фамилию и нажимай ввод alex77755
К сообщению приложен файл:
__.rar
(15.8 Kb)
Могу помочь в VB6, VBA Alex77755@mail.ru
Ответить
Сообщение Без формы. Вводи в первую букву фамилии всю фамилию и нажимай ввод Автор - alex77755 Дата добавления - 21.11.2015 в 13:47
Shaxislam
Дата: Суббота, 21.11.2015, 16:45 |
Сообщение № 8
Группа: Пользователи
Ранг: Новичок
Сообщений: 33
Репутация:
0
±
Замечаний:
0% ±
Excel 2013
alex77755, Спасибо, Кто-то может помочь писать код формы?
alex77755, Спасибо, Кто-то может помочь писать код формы? Shaxislam
Ответить
Сообщение alex77755, Спасибо, Кто-то может помочь писать код формы? Автор - Shaxislam Дата добавления - 21.11.2015 в 16:45
Kuzmich
Дата: Суббота, 21.11.2015, 17:19 |
Сообщение № 9
Группа: Проверенные
Ранг: Ветеран
Сообщений: 712
Репутация:
156
±
Замечаний:
0% ±
Excel 2003
У вас в форме есть кнопочка Записать Так вот код для ФИО перенесите в код формы [vba]Код
Private Sub CommandButton1_Click() Dim i As Integer Dim j As Integer Dim FIO Range("A4:AD4").ClearContents Range("A6:AD6").ClearContents Range("A8:AD8").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 End Sub
[/vba]
У вас в форме есть кнопочка Записать Так вот код для ФИО перенесите в код формы [vba]Код
Private Sub CommandButton1_Click() Dim i As Integer Dim j As Integer Dim FIO Range("A4:AD4").ClearContents Range("A6:AD6").ClearContents Range("A8:AD8").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 End Sub
[/vba] Kuzmich
Ответить
Сообщение У вас в форме есть кнопочка Записать Так вот код для ФИО перенесите в код формы [vba]Код
Private Sub CommandButton1_Click() Dim i As Integer Dim j As Integer Dim FIO Range("A4:AD4").ClearContents Range("A6:AD6").ClearContents Range("A8:AD8").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 End Sub
[/vba] Автор - Kuzmich Дата добавления - 21.11.2015 в 17:19
Shaxislam
Дата: Суббота, 21.11.2015, 17:46 |
Сообщение № 10
Группа: Пользователи
Ранг: Новичок
Сообщений: 33
Репутация:
0
±
Замечаний:
0% ±
Excel 2013
Kuzmich, работает, Спасибо всем за внимание
Kuzmich, работает, Спасибо всем за внимание Shaxislam
Ответить
Сообщение Kuzmich, работает, Спасибо всем за внимание Автор - Shaxislam Дата добавления - 21.11.2015 в 17:46
Kuzmich
Дата: Суббота, 21.11.2015, 17:50 |
Сообщение № 11
Группа: Проверенные
Ранг: Ветеран
Сообщений: 712
Репутация:
156
±
Замечаний:
0% ±
Excel 2003
А как же дата, национальность, адрес? Сами допилите? В каком формате вводится в форму дата?
А как же дата, национальность, адрес? Сами допилите? В каком формате вводится в форму дата? Kuzmich
Ответить
Сообщение А как же дата, национальность, адрес? Сами допилите? В каком формате вводится в форму дата? Автор - Kuzmich Дата добавления - 21.11.2015 в 17:50
Wasilich
Дата: Воскресенье, 22.11.2015, 11:52 |
Сообщение № 12
Группа: Друзья
Ранг: Старожил
Сообщений: 1232
Репутация:
326
±
Замечаний:
0% ±
2003
А если без формы?
Ответить
Сообщение А если без формы? Автор - Wasilich Дата добавления - 22.11.2015 в 11:52
Shaxislam
Дата: Воскресенье, 22.11.2015, 17:24 |
Сообщение № 13
Группа: Пользователи
Ранг: Новичок
Сообщений: 33
Репутация:
0
±
Замечаний:
0% ±
Excel 2013
Wasilic, спасибо, но было бы неплохо с формы. Kuzmich, я не смог писать код остальных, если вы знаете покажите пожалуйста
Wasilic, спасибо, но было бы неплохо с формы. Kuzmich, я не смог писать код остальных, если вы знаете покажите пожалуйста Shaxislam
Ответить
Сообщение Wasilic, спасибо, но было бы неплохо с формы. Kuzmich, я не смог писать код остальных, если вы знаете покажите пожалуйста Автор - Shaxislam Дата добавления - 22.11.2015 в 17:24
Kuzmich
Дата: Воскресенье, 22.11.2015, 17:31 |
Сообщение № 14
Группа: Проверенные
Ранг: Ветеран
Сообщений: 712
Репутация:
156
±
Замечаний:
0% ±
Excel 2003
Я спрашивал В каком формате вводится в форму дата?
Я спрашивал В каком формате вводится в форму дата? Kuzmich
Ответить
Сообщение Я спрашивал В каком формате вводится в форму дата? Автор - Kuzmich Дата добавления - 22.11.2015 в 17:31
RAN
Дата: Воскресенье, 22.11.2015, 17:40 |
Сообщение № 15
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
В каком формате вводится в форму дата?
В текстовом.
В каком формате вводится в форму дата?
В текстовом. RAN
Быть или не быть, вот в чем загвоздка!
Ответить
Сообщение В каком формате вводится в форму дата?
В текстовом. Автор - RAN Дата добавления - 22.11.2015 в 17:40
Shaxislam
Дата: Воскресенье, 22.11.2015, 17:44 |
Сообщение № 16
Группа: Пользователи
Ранг: Новичок
Сообщений: 33
Репутация:
0
±
Замечаний:
0% ±
Excel 2013
не, в числовым форматам
Ответить
Сообщение не, в числовым форматам Автор - Shaxislam Дата добавления - 22.11.2015 в 17:44
RAN
Дата: Воскресенье, 22.11.2015, 17:49 |
Сообщение № 17
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Увы, но в TextBox на форме такое не возможно!
Увы, но в TextBox на форме такое не возможно!RAN
Быть или не быть, вот в чем загвоздка!
Ответить
Сообщение Увы, но в TextBox на форме такое не возможно!Автор - RAN Дата добавления - 22.11.2015 в 17:49
Shaxislam
Дата: Воскресенье, 22.11.2015, 17:54 |
Сообщение № 18
Группа: Пользователи
Ранг: Новичок
Сообщений: 33
Репутация:
0
±
Замечаний:
0% ±
Excel 2013
пример
Ответить
Сообщение пример Автор - Shaxislam Дата добавления - 22.11.2015 в 17:54
Kuzmich
Дата: Воскресенье, 22.11.2015, 18:12 |
Сообщение № 19
Группа: Проверенные
Ранг: Ветеран
Сообщений: 712
Репутация:
156
±
Замечаний:
0% ±
Excel 2003
Я имел ввиду формат ввода в форму 22.11.2015
Я имел ввиду формат ввода в форму 22.11.2015 Kuzmich
Ответить
Сообщение Я имел ввиду формат ввода в форму 22.11.2015 Автор - Kuzmich Дата добавления - 22.11.2015 в 18:12
Kuzmich
Дата: Воскресенье, 22.11.2015, 18:59 |
Сообщение № 20
Группа: Проверенные
Ранг: Ветеран
Сообщений: 712
Репутация:
156
±
Замечаний:
0% ±
Excel 2003
Если как в примере, то [vba]Код
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
[/vba]
Если как в примере, то [vba]Код
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
[/vba] Kuzmich
Ответить
Сообщение Если как в примере, то [vba]Код
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
[/vba] Автор - Kuzmich Дата добавления - 22.11.2015 в 18:59