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

Вход

Регистрация

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

 

= Мир MS Excel/Посимвольное чтение из ячейки - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Посимвольное чтение из ячейки (Посимвольное чтение из ячейки)
Посимвольное чтение из ячейки
yegorus Дата: Воскресенье, 17.11.2013, 21:28 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Здравствуйте. Тут скорее всего нужен макрос, вряд ли найдется формула. Нужен макрос, который читает по-символьно строку из ячейки А1 и записывает каждый символ в другие ячейки по порядку. Пожалуйста, будьте добры, помогите с задачей :)
 
Ответить
СообщениеЗдравствуйте. Тут скорее всего нужен макрос, вряд ли найдется формула. Нужен макрос, который читает по-символьно строку из ячейки А1 и записывает каждый символ в другие ячейки по порядку. Пожалуйста, будьте добры, помогите с задачей :)
Автор - yegorus
Дата добавления - 17.11.2013 в 21:28
Nic70y Дата: Воскресенье, 17.11.2013, 21:31 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 9050
Репутация: 2383 ±
Замечаний: 0% ±

Excel 2010
Ну прям сразу макрос вправо от ячейки:
Код
=ПСТР($A$1;СТОЛБЕЦ(A1);1)
вниз от ячейки
Код
=ПСТР($A$1;СТРОКА(A1);1)

ЮMoney 41001841029809
 
Ответить
СообщениеНу прям сразу макрос вправо от ячейки:
Код
=ПСТР($A$1;СТОЛБЕЦ(A1);1)
вниз от ячейки
Код
=ПСТР($A$1;СТРОКА(A1);1)
Автор - Nic70y
Дата добавления - 17.11.2013 в 21:31
ikki Дата: Воскресенье, 17.11.2013, 21:48 | Сообщение № 3
Группа: Друзья
Ранг: Старожил
Сообщений: 1906
Репутация: 504 ±
Замечаний: 0% ±

Excel 2003, 2010
у макросов тоже есть преимущества yes
[vba]
Код
Sub t()
     s = [a1].Text
     For i = 1 To Len(s)
         ActiveCell.Offset(i - 1, 0).Value = Mid(s, i, 1)
     Next
End Sub
[/vba]

пс. для записи по столбцам - изменить на Offset(0,i - 1)

помощь по Excel и VBA
ikki@fxmail.ru, icq 592842413, skype alex.ikki
 
Ответить
Сообщениеу макросов тоже есть преимущества yes
[vba]
Код
Sub t()
     s = [a1].Text
     For i = 1 To Len(s)
         ActiveCell.Offset(i - 1, 0).Value = Mid(s, i, 1)
     Next
End Sub
[/vba]

пс. для записи по столбцам - изменить на Offset(0,i - 1)
Автор - ikki
Дата добавления - 17.11.2013 в 21:48
KuklP Дата: Воскресенье, 17.11.2013, 21:56 | Сообщение № 4
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
И свою выложу:
[vba]
Код
Function StrToArr(i$)
     StrToArr = Split(Format$(i, Trim$(Replace$(Space$(Len(i)), " ", "@ "))))
End Function
[/vba]
К сообщению приложен файл: String_To_Array.xls (32.0 Kb)

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
СообщениеИ свою выложу:
[vba]
Код
Function StrToArr(i$)
     StrToArr = Split(Format$(i, Trim$(Replace$(Space$(Len(i)), " ", "@ "))))
End Function
[/vba]
Автор - KuklP
Дата добавления - 17.11.2013 в 21:56
Nic70y Дата: Воскресенье, 17.11.2013, 22:01 | Сообщение № 5
Группа: Друзья
Ранг: Экселист
Сообщений: 9050
Репутация: 2383 ±
Замечаний: 0% ±

Excel 2010
[offtop]Хулиганы %) "Вопросы по Excel"[/offtop]
[moder]Да ваще, блин, сборище маньяков.
_Boroda_

ЮMoney 41001841029809
 
Ответить
Сообщение[offtop]Хулиганы %) "Вопросы по Excel"[/offtop]
[moder]Да ваще, блин, сборище маньяков.
_Boroda_
Автор - Nic70y
Дата добавления - 17.11.2013 в 22:01
KuklP Дата: Воскресенье, 17.11.2013, 22:03 | Сообщение № 6
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
И то правда...

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
СообщениеИ то правда...
Автор - KuklP
Дата добавления - 17.11.2013 в 22:03
ikki Дата: Воскресенье, 17.11.2013, 22:06 | Сообщение № 7
Группа: Друзья
Ранг: Старожил
Сообщений: 1906
Репутация: 504 ±
Замечаний: 0% ±

Excel 2003, 2010
им скучно, чо!...

но есть и отмаза:
Цитата Nic70y, 17.11.2013 в 22:01, в сообщении № 5
"Вопросы по Excel"

Цитата yegorus, 17.11.2013 в 21:28, в сообщении № 1
скорее всего нужен макрос

помощь по Excel и VBA
ikki@fxmail.ru, icq 592842413, skype alex.ikki
 
Ответить
Сообщениеим скучно, чо!...

но есть и отмаза:
Цитата Nic70y, 17.11.2013 в 22:01, в сообщении № 5
"Вопросы по Excel"

Цитата yegorus, 17.11.2013 в 21:28, в сообщении № 1
скорее всего нужен макрос
Автор - ikki
Дата добавления - 17.11.2013 в 22:06
Nic70y Дата: Воскресенье, 17.11.2013, 22:19 | Сообщение № 8
Группа: Друзья
Ранг: Экселист
Сообщений: 9050
Репутация: 2383 ±
Замечаний: 0% ±

Excel 2010
Цитата ikki, 17.11.2013 в 22:06, в сообщении № 7
но есть и отмаза:
ТС тоже хулиган :)

ЮMoney 41001841029809
 
Ответить
Сообщение
Цитата ikki, 17.11.2013 в 22:06, в сообщении № 7
но есть и отмаза:
ТС тоже хулиган :)
Автор - Nic70y
Дата добавления - 17.11.2013 в 22:19
yegorus Дата: Воскресенье, 17.11.2013, 22:29 | Сообщение № 9
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Господа, большое спасибо.

З.Ы. Думал, ответа только завтра ждать, а тут закидали. Благодарю :)
 
Ответить
СообщениеГоспода, большое спасибо.

З.Ы. Думал, ответа только завтра ждать, а тут закидали. Благодарю :)
Автор - yegorus
Дата добавления - 17.11.2013 в 22:29
RAN Дата: Воскресенье, 17.11.2013, 22:34 | Сообщение № 10
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Они не господа. Они фулюганы. :D

Особлоиво этот, KuklP.
Во наворочал!

Хоч за поллитрой идти...

Быть или не быть, вот в чем загвоздка!

Сообщение отредактировал RAN - Воскресенье, 17.11.2013, 22:37
 
Ответить
СообщениеОни не господа. Они фулюганы. :D

Особлоиво этот, KuklP.
Во наворочал!

Хоч за поллитрой идти...
Автор - RAN
Дата добавления - 17.11.2013 в 22:34
ikki Дата: Воскресенье, 17.11.2013, 23:06 | Сообщение № 11
Группа: Друзья
Ранг: Старожил
Сообщений: 1906
Репутация: 504 ±
Замечаний: 0% ±

Excel 2003, 2010
Цитата RAN, 17.11.2013 в 22:34, в сообщении № 10
Они не господа. Они фулюганы.
зависть - это плохо! :p

помощь по Excel и VBA
ikki@fxmail.ru, icq 592842413, skype alex.ikki
 
Ответить
Сообщение
Цитата RAN, 17.11.2013 в 22:34, в сообщении № 10
Они не господа. Они фулюганы.
зависть - это плохо! :p
Автор - ikki
Дата добавления - 17.11.2013 в 23:06
RAN Дата: Воскресенье, 17.11.2013, 23:14 | Сообщение № 12
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
и спросила киска
что такое хорошо,
а что такое :p ???

PS Сижу, завидую...
Вот бы мне такое наворочать..

Быть или не быть, вот в чем загвоздка!

Сообщение отредактировал RAN - Воскресенье, 17.11.2013, 23:18
 
Ответить
Сообщениеи спросила киска
что такое хорошо,
а что такое :p ???

PS Сижу, завидую...
Вот бы мне такое наворочать..
Автор - RAN
Дата добавления - 17.11.2013 в 23:14
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Посимвольное чтение из ячейки (Посимвольное чтение из ячейки)
  • Страница 1 из 1
  • 1
Поиск:

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