Разложение слова в ячейки по буквам автоматически

@boomrest · Регистрация: 01.09.2011

Author24 — интернет-сервис помощи студентам

Возможно ли сделать так, чтобы при заполнении Ф.И.О. на Лист1 (Иванов Пётр Сергеевич) автоматом заполнялись ячейки на Лист2 по буквам, как в примере (вложение)?
Спасибо!

@Казанский · 26.11.2015, 11:56

boomrest,

Код

=ПРОПИСН(ПСТР(Лист1!$A$3;(СТОЛБЕЦ()-19)/4;1))
=ПРОПИСН(ПСТР(Лист1!$B$3&" "&Лист1!$C$3;(СТОЛБЕЦ()-19)/4;1))

@snipe · 26.11.2015, 12:09

в модуль листа1

Visual Basic

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Or Target.Column = 2 Or Target.Column = 3 Then
For i = 1 To 35
Sheets("Лист2").Cells(13, 23 + (i - 1) * 4) = ""
Sheets("Лист2").Cells(15, 23 + (i - 1) * 4) = ""
Next i
For i = 1 To Len(Cells(Target.Row, 1))
Sheets("Лист2").Cells(13, 23 + (i - 1) * 4) = Mid(Cells(Target.Row, 1), i, 1)
Next i
For i = 1 To Len(Cells(Target.Row, 2) & " " & Cells(Target.Row, 3))
Sheets("Лист2").Cells(15, 23 + (i - 1) * 4) = Mid(Cells(Target.Row, 2) & " " & Cells(Target.Row, 3), i, 1)
Next i
End If
End Sub

@boomrest · 26.11.2015, 13:07 **[ТС]**

Ой, спасибо!
Только вот выражение

Код

СТОЛБЕЦ()-19)/4

не совсем понятно, это мы из номера столбца вычитаем 19 и делим на 4?
А почему 19 и почему 4?

@snipe · 26.11.2015, 13:13

4 - потому что у вас заполняется каждая 4 ячейка
(если честно я не всегда понимал необходимость объединения ячеек)
19 - это сдвиг т.к. первая ячейка вашей формы располагается в столбце W (т.е. в 23 столбце) вот отсюда все эти танцы с бубном что у Казанский, что у меня

@boomrest · 26.11.2015, 13:17 **[ТС]**

snipe,
спасибо и вам. Только я с макросами не особо дружу.
И у Казанского код по-компактнее...

@Vlad999 · 26.11.2015, 13:20

4 это шаг между ячейками с формулами (буквами) у вас 1 буква в 23 столбце, 2 в 27 и т.д. 27-23=4
у вас первая ячейка с нужной буквой (первой) в столбце 23 нам нужно с помощью арифметических действий получить 1 для первой буквы для второй 2:
=(23-19)/4=4/4=1
=(27-19)/4=8/4=2 и т.д.

@boomrest · 26.11.2015, 13:57 **[ТС]**

Ок, теперь всё понятно

@boomrest 10 / 10 / 3 Регистрация: 01.09.2011 Сообщений: 92
	26.11.2015, 13:07 [ТС]	4
	Ой, спасибо! Только вот выражение Код СТОЛБЕЦ()-19)/4 не совсем понятно, это мы из номера столбца вычитаем 19 и делим на 4? А почему 19 и почему 4? 0

@snipe 4064 / 1445 / 399 Регистрация: 07.08.2013 Сообщений: 3,617
	26.11.2015, 13:13	5
	4 - потому что у вас заполняется каждая 4 ячейка (если честно я не всегда понимал необходимость объединения ячеек) 19 - это сдвиг т.к. первая ячейка вашей формы располагается в столбце W (т.е. в 23 столбце) вот отсюда все эти танцы с бубном что у Казанский, что у меня 0

@boomrest 10 / 10 / 3 Регистрация: 01.09.2011 Сообщений: 92
	26.11.2015, 13:17 [ТС]	6
	snipe, спасибо и вам. Только я с макросами не особо дружу. И у Казанского код по-компактнее... 0

@Vlad999 3897 / 2302 / 776 Регистрация: 02.11.2012 Сообщений: 6,119
	26.11.2015, 13:20	7
	4 это шаг между ячейками с формулами (буквами) у вас 1 буква в 23 столбце, 2 в 27 и т.д. 27-23=4 у вас первая ячейка с нужной буквой (первой) в столбце 23 нам нужно с помощью арифметических действий получить 1 для первой буквы для второй 2: =(23-19)/4=4/4=1 =(27-19)/4=8/4=2 и т.д. 1

@boomrest 10 / 10 / 3 Регистрация: 01.09.2011 Сообщений: 92
	26.11.2015, 13:57 [ТС]	8
	Ок, теперь всё понятно 0

Разложение слова в ячейки по буквам автоматически

Решение