Как разбить содержимое одной ячейки на несколько? - Microsoft Office Excel - Страница 2

tiko · 20.02.2011, 21:22

Цитата:

Сообщение от Hugo121

Сперва преобразуйте число в 10-значную строку, потом разбивайте.

Это как? Если не секрет.

Hugo121 · 20.02.2011, 21:37

Не секрет - добавьте слева 10 пробелов, потом возьмите 10 знаков справа.
Можно использовать формат ячейки и брать [a1].text например, если макросом.
Вариантов много.
Да, в итоговые пустые ячейки, чтоб не помещать пробелы, обрабатывайте значения с помощью Trim().
Ну а если делать макросом, то это вообще лишнее, есть StrReverse(): Наоборот = StrReverse(Текст)
А вообще без Вашего примера это всё пустая болтовня...

tiko · 20.02.2011, 22:24

Вложил файлик с более подробным описанием сути вопроса. Спасибо за помощь.

Hugo121 · 21.02.2011, 00:09

Запустите на активном листе с данными при курсоре на нужной строке:

Код:

Sub InsertPoJaceikam()
Dim str1 As String, str2 As String, i As Long, ii As Long

str1 = StrReverse(Cells(Selection.Row, 1))
str2 = StrReverse(Cells(Selection.Row, 2))
Лист2.Cells.ClearContents

For i = 1 To Len(str1)
Лист2.Cells(2, 23 - ii) = Mid(str1, i, 1): ii = ii + 2
Next

For i = 1 To Len(str2)
Лист2.Cells(4, 11 - i) = Mid(str2, i, 1)
Next

End Sub

Тут правда нет "защиты от дурака" - это если цифр будет больше, чем отведённых ячеек, то будет ошибка.
Можно дополнительно сперва проверить длину строк и выругаться, если нужно.

doober · 21.02.2011, 00:48

Что то новое в применении теории вероятности,решил и свой вариант приложить.
Кликаем по ячейкам столбца А

tiko · 21.02.2011, 08:44

Спасибо народ. Попрбую - отпишусь.

Hugo121 · 21.02.2011, 09:07

Я руководствовался "сделать так чтоб заполнение этих ячеек начиналось с конца и если чисел не хватает то первые ячейки должны оставаться пустыми" - именно поэтому используется StrReverse()

tiko · 22.02.2011, 18:40

Hugo121. Большое спасибо, адаптировал под свои нужды, все супер.
Doober. Спасибо, но для меня пока слишком круто.

IgorGO · 22.02.2011, 19:06

есть подозрение, что заполняется новый бланк "податкової накладної"...
я все формулами заполнил... без проблем. номер и дату накладной, номер и дату договора, номер платника податку, номер свидетельства, телефон и пр.

tiko · 22.02.2011, 20:31

Цитата:

Сообщение от IgorGO

есть подозрение, что заполняется новый бланк "податкової накладної"...
я все формулами заполнил... без проблем. номер и дату накладной, номер и дату договора, номер платника податку, номер свидетельства, телефон и пр.

Угадали. Если не жалко можно выложить.

20.02.2011, 21:37	#12
Hugo121 Старожил Регистрация: 11.05.2010 Сообщений: 5,166	Не секрет - добавьте слева 10 пробелов, потом возьмите 10 знаков справа. Можно использовать формат ячейки и брать [a1].text например, если макросом. Вариантов много. Да, в итоговые пустые ячейки, чтоб не помещать пробелы, обрабатывайте значения с помощью Trim(). Ну а если делать макросом, то это вообще лишнее, есть StrReverse(): Наоборот = StrReverse(Текст) А вообще без Вашего примера это всё пустая болтовня... webmoney: E265281470651 Z422237915069 R418926282008 Последний раз редактировалось Hugo121; 20.02.2011 в 21:43.

21.02.2011, 00:09	#14
Hugo121 Старожил Регистрация: 11.05.2010 Сообщений: 5,166	Запустите на активном листе с данными при курсоре на нужной строке: Код: `Sub InsertPoJaceikam() Dim str1 As String, str2 As String, i As Long, ii As Long str1 = StrReverse(Cells(Selection.Row, 1)) str2 = StrReverse(Cells(Selection.Row, 2)) Лист2.Cells.ClearContents For i = 1 To Len(str1) Лист2.Cells(2, 23 - ii) = Mid(str1, i, 1): ii = ii + 2 Next For i = 1 To Len(str2) Лист2.Cells(4, 11 - i) = Mid(str2, i, 1) Next End Sub` Тут правда нет "защиты от дурака" - это если цифр будет больше, чем отведённых ячеек, то будет ошибка. Можно дополнительно сперва проверить длину строк и выругаться, если нужно. webmoney: E265281470651 Z422237915069 R418926282008 Последний раз редактировалось Hugo121; 21.02.2011 в 00:30. Причина: Добавил Лист2.Cells.ClearContents

21.02.2011, 09:07	#17
Hugo121 Старожил Регистрация: 11.05.2010 Сообщений: 5,166	Я руководствовался "сделать так чтоб заполнение этих ячеек начиналось с конца и если чисел не хватает то первые ячейки должны оставаться пустыми" - именно поэтому используется StrReverse() webmoney: E265281470651 Z422237915069 R418926282008

22.02.2011, 19:06	#19
IgorGO Новичок СтарожилДжуниор Регистрация: 05.02.2008 Сообщений: 9,487	есть подозрение, что заполняется новый бланк "податкової накладної"... я все формулами заполнил... без проблем. номер и дату накладной, номер и дату договора, номер платника податку, номер свидетельства, телефон и пр. Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
как разбить данные из одной ячейки по 4-м отдельным ячейкам?	lench	Microsoft Office Excel	12	12.01.2012 08:20
Как подогнать содержимое ячейки по высоте	ПУГВ	HTML и CSS	4	28.03.2009 18:19
Как разделить число и текст в одной ячейки на две ячейки.	neboskreb	Microsoft Office Excel	2	15.04.2008 19:39
как разбить текстовую ячейку на отдельные ячейки?	zetrix	Microsoft Office Excel	0	31.10.2006 07:46

21.02.2011, 08:44	#16
tiko Регистрация: 17.01.2011 Сообщений: 6	Спасибо народ. Попрбую - отпишусь.

22.02.2011, 18:40	#18
tiko Регистрация: 17.01.2011 Сообщений: 6	Hugo121. Большое спасибо, адаптировал под свои нужды, все супер. Doober. Спасибо, но для меня пока слишком круто.