Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

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

Старая форма входа
  • Страница 1 из 2
  • 1
  • 2
  • »
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Автозаполнение в каждый квадратик - отдельная буква (Макросы/Sub)
Автозаполнение в каждый квадратик - отдельная буква
Shaxislam Дата: Суббота, 21.11.2015, 11:14 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 33
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Здравствуйте! 3-й день пытаюсь создать макрос, не получается.

Заранее благодарю
К сообщению приложен файл: 0487449.xlsm (18.5 Kb)


Сообщение отредактировал Shaxislam - Суббота, 21.11.2015, 11:14
 
Ответить
СообщениеЗдравствуйте! 3-й день пытаюсь создать макрос, не получается.

Заранее благодарю
Автор - Shaxislam
Дата добавления - 21.11.2015 в 11:14
Kuzmich Дата: Суббота, 21.11.2015, 11:43 | Сообщение № 2
Группа: Проверенные
Ранг: Ветеран
Сообщений: 711
Репутация: 156 ±
Замечаний: 0% ±

Excel 2003
Попробуйте цикл по длине слова в TextBox1 Mid(Stroka, i, 1)
 
Ответить
СообщениеПопробуйте цикл по длине слова в 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
Дата добавления - 21.11.2015 в 11:49
Pelena Дата: Суббота, 21.11.2015, 12:04 | Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 19185
Репутация: 4420 ±
Замечаний: ±

Excel 365 & Mac Excel
Shaxislam, посмотрите эту тему, в частности файл из 14-го поста

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеShaxislam, посмотрите эту тему, в частности файл из 14-го поста
Автор - Pelena
Дата добавления - 21.11.2015 в 12:04
Kuzmich Дата: Суббота, 21.11.2015, 12:11 | Сообщение № 5
Группа: Проверенные
Ранг: Ветеран
Сообщений: 711
Репутация: 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
Дата добавления - 21.11.2015 в 12:11
Shaxislam Дата: Суббота, 21.11.2015, 12:20 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 33
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Pelena, не помогает, чтобы не использовал форму для заполнения
Kuzmich, а не поставить ли пример


Сообщение отредактировал Shaxislam - Суббота, 21.11.2015, 12:31
 
Ответить
СообщениеPelena, не помогает, чтобы не использовал форму для заполнения
Kuzmich, а не поставить ли пример
Автор - Shaxislam
Дата добавления - 21.11.2015 в 12:20
alex77755 Дата: Суббота, 21.11.2015, 13:47 | Сообщение № 7
Группа: Проверенные
Ранг: Обитатель
Сообщений: 362
Репутация: 64 ±
Замечаний: 0% ±

Без формы. Вводи в первую букву фамилии всю фамилию и нажимай ввод
К сообщению приложен файл: __.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
Дата добавления - 21.11.2015 в 16:45
Kuzmich Дата: Суббота, 21.11.2015, 17:19 | Сообщение № 9
Группа: Проверенные
Ранг: Ветеран
Сообщений: 711
Репутация: 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
Дата добавления - 21.11.2015 в 17:19
Shaxislam Дата: Суббота, 21.11.2015, 17:46 | Сообщение № 10
Группа: Пользователи
Ранг: Новичок
Сообщений: 33
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Kuzmich, работает, Спасибо всем за внимание
 
Ответить
СообщениеKuzmich, работает, Спасибо всем за внимание
Автор - Shaxislam
Дата добавления - 21.11.2015 в 17:46
Kuzmich Дата: Суббота, 21.11.2015, 17:50 | Сообщение № 11
Группа: Проверенные
Ранг: Ветеран
Сообщений: 711
Репутация: 156 ±
Замечаний: 0% ±

Excel 2003
А как же дата, национальность, адрес? Сами допилите?
В каком формате вводится в форму дата?
 
Ответить
СообщениеА как же дата, национальность, адрес? Сами допилите?
В каком формате вводится в форму дата?
Автор - Kuzmich
Дата добавления - 21.11.2015 в 17:50
Wasilich Дата: Воскресенье, 22.11.2015, 11:52 | Сообщение № 12
Группа: Друзья
Ранг: Старожил
Сообщений: 1232
Репутация: 326 ±
Замечаний: 0% ±

2003
А если без формы?
К сообщению приложен файл: Shaxislam.xls (46.5 Kb)
 
Ответить
СообщениеА если без формы?
Автор - Wasilich
Дата добавления - 22.11.2015 в 11:52
Shaxislam Дата: Воскресенье, 22.11.2015, 17:24 | Сообщение № 13
Группа: Пользователи
Ранг: Новичок
Сообщений: 33
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Wasilic, спасибо, но было бы неплохо с формы.
Kuzmich, я не смог писать код остальных, если вы знаете покажите пожалуйста
 
Ответить
СообщениеWasilic, спасибо, но было бы неплохо с формы.
Kuzmich, я не смог писать код остальных, если вы знаете покажите пожалуйста
Автор - Shaxislam
Дата добавления - 22.11.2015 в 17:24
Kuzmich Дата: Воскресенье, 22.11.2015, 17:31 | Сообщение № 14
Группа: Проверенные
Ранг: Ветеран
Сообщений: 711
Репутация: 156 ±
Замечаний: 0% ±

Excel 2003
Я спрашивал
В каком формате вводится в форму дата?
 
Ответить
СообщениеЯ спрашивал
В каком формате вводится в форму дата?
Автор - Kuzmich
Дата добавления - 22.11.2015 в 17:31
RAN Дата: Воскресенье, 22.11.2015, 17:40 | Сообщение № 15
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Цитата Kuzmich, 22.11.2015 в 17:31, в сообщении № 14
В каком формате вводится в форму дата?

В текстовом. yes

Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение
Цитата Kuzmich, 22.11.2015 в 17:31, в сообщении № 14
В каком формате вводится в форму дата?

В текстовом. yes
Автор - 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
Репутация: 1163 ±
Замечаний: 0% ±

2010
Цитата Shaxislam, 22.11.2015 в 17:44, в сообщении № 16
не, в числовым форматам

Увы, но в TextBox на форме такое не возможно!

Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение
Цитата Shaxislam, 22.11.2015 в 17:44, в сообщении № 16
не, в числовым форматам

Увы, но в TextBox на форме такое не возможно!
Автор - RAN
Дата добавления - 22.11.2015 в 17:49
Shaxislam Дата: Воскресенье, 22.11.2015, 17:54 | Сообщение № 18
Группа: Пользователи
Ранг: Новичок
Сообщений: 33
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
пример
К сообщению приложен файл: 0231312.xlsm (21.5 Kb)
 
Ответить
Сообщениепример
Автор - Shaxislam
Дата добавления - 22.11.2015 в 17:54
Kuzmich Дата: Воскресенье, 22.11.2015, 18:12 | Сообщение № 19
Группа: Проверенные
Ранг: Ветеран
Сообщений: 711
Репутация: 156 ±
Замечаний: 0% ±

Excel 2003
Я имел ввиду формат ввода в форму 22.11.2015
 
Ответить
СообщениеЯ имел ввиду формат ввода в форму 22.11.2015
Автор - Kuzmich
Дата добавления - 22.11.2015 в 18:12
Kuzmich Дата: Воскресенье, 22.11.2015, 18:59 | Сообщение № 20
Группа: Проверенные
Ранг: Ветеран
Сообщений: 711
Репутация: 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
Дата добавления - 22.11.2015 в 18:59
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Автозаполнение в каждый квадратик - отдельная буква (Макросы/Sub)
  • Страница 1 из 2
  • 1
  • 2
  • »
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!