ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Разбить текст в ячейке на 3 ячейки с частями этого текста
17 сообщений из 17, страница 1 из 1
Разбить текст в ячейке на 3 ячейки с частями этого текста
    #36580201
Фотография svetoch_zorga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
svetoch_zorga
Участник
Надо ФИО разбить на три ячейки, без пробелов...
помогите плиз...

Вот нашел код на форуме, но он не работает и по моему здесь не подходит "vbTab"
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Option Explicit
Sub h()
 Dim strABC() As String
    strABC = Split(Range("A2"), vbTab)
    Range("B2") = strABC( 0 )
    Range("B3") = strABC( 1 )
    Range("B4") = strABC( 2 )
End Sub
...
Рейтинг: 0 / 0
15.04.2010, 12:12
| Ответить | Цитировать | Написать  
Разбить текст в ячейке на 3 ячейки с частями этого текста
    #36580203
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
svetoch_zorgaпо моему здесь не подходит "vbTab"

вы сами и ответили на свой вопрос
...
Рейтинг: 0 / 0
15.04.2010, 12:13
| Ответить | Цитировать | Написать  
Разбить текст в ячейке на 3 ячейки с частями этого текста
    #36580234
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
svetoch_zorga,

может пробел?
...
Рейтинг: 0 / 0
15.04.2010, 12:22
| Ответить | Цитировать | Написать  
Разбить текст в ячейке на 3 ячейки с частями этого текста
    #36580242
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
Игорь Горбонос,

И с Trim() 'ом результата перед присвоением ячейкам

блин! шож так кнопки путаются
...
Рейтинг: 0 / 0
15.04.2010, 12:23
| Ответить | Цитировать | Написать  
Разбить текст в ячейке на 3 ячейки с частями этого текста
    #36580280
Фотография svetoch_zorga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
svetoch_zorga
Участник
Игорь Горбоносsvetoch_zorga,

может пробел?


да пробел! найти не могу...
:)
...
Рейтинг: 0 / 0
15.04.2010, 12:32
| Ответить | Цитировать | Написать  
Разбить текст в ячейке на 3 ячейки с частями этого текста
    #36580284
Фотография svetoch_zorga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
svetoch_zorga
Участник
Игорь ГорбоносИгорь Горбонос,

И с Trim() 'ом результата перед присвоением ячейкам

блин! шож так кнопки путаются

засуньте Ваше предложение в код пожалуйста...
... не знаю как пользоваться
...
Рейтинг: 0 / 0
15.04.2010, 12:34
| Ответить | Цитировать | Написать  
Разбить текст в ячейке на 3 ячейки с частями этого текста
    #36580304
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Option Explicit
Sub h()
 Dim strABC() As String
    strABC = Split(Range("A2"), " ")
    Range("B2") = Trim(strABC( 0 ))
    Range("B3") = Trim(strABC( 1 ))
    Range("B4") = Trim(strABC( 2 ))
End Sub
...
Рейтинг: 0 / 0
15.04.2010, 12:41
| Ответить | Цитировать | Написать  
Разбить текст в ячейке на 3 ячейки с частями этого текста
    #36580324
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
А счастье было и так возможно:
Код: plaintext
strABC = Split(Range("A2"), Chr( 20 ))
И так:
Код: plaintext
strABC = Split(Range("A2"), Chr(Asc(" ")))
И вот так:
Код: plaintext
strABC = Split(Range("A2"), Space( 1 ))
И ...... Эх! (с) Русское радио
...
Рейтинг: 0 / 0
15.04.2010, 12:47
| Ответить | Цитировать | Написать  
Разбить текст в ячейке на 3 ячейки с частями этого текста
    #36580522
Фотография svetoch_zorga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
svetoch_zorga
Участник
Игорь Горбонос, спасибо!
счастьЕсть!


Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Option Explicit
Sub h()
 Dim strABC() As String
    strABC = Split(Range("A1"), Chr(Asc(" ")))
    Range("B1") = Trim(strABC( 0 ))
    Range("C1") = Trim(strABC( 1 ))
    Range("D1") = Trim(strABC( 2 ))
End Sub
...
Рейтинг: 0 / 0
15.04.2010, 13:52
| Ответить | Цитировать | Написать  
Разбить текст в ячейке на 3 ячейки с частями этого текста
    #36580560
Фотография svetoch_zorga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
svetoch_zorga
Участник
вставьте еще и
Код: plaintext
UCase
плиз, чтобы в "B1", "C1" и "D1" были буквы в верхнем регистре...
...
Рейтинг: 0 / 0
15.04.2010, 14:04
| Ответить | Цитировать | Написать  
Разбить текст в ячейке на 3 ячейки с частями этого текста
    #36580611
Фотография svetoch_zorga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
svetoch_zorga
Участник
так, не криво?...

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Option Explicit
Sub h()
 Dim strABC() As String
    strABC = Split(Range("A1"), Chr(Asc(" ")))
    Range("B1") = Trim(strABC( 0 ))
    Cells( 1 ,  2 ) = UCase(Trim(Cells( 1 ,  2 )))
    Range("C1") = Trim(strABC( 1 ))
    Cells( 1 ,  3 ) = UCase(Trim(Cells( 1 ,  3 )))
    Range("D1") = Trim(strABC( 2 ))
    Cells( 1 ,  4 ) = UCase(Trim(Cells( 1 ,  4 )))
End Sub
...
Рейтинг: 0 / 0
15.04.2010, 14:16
| Ответить | Цитировать | Написать  
Разбить текст в ячейке на 3 ячейки с частями этого текста
    #36580646
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
svetoch_zorgaИгорь Горбонос, спасибо!
счастьЕсть!


Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Option Explicit
Sub h()
 Dim strABC() As String
    strABC = Split(Range("A1"), Chr(Asc(" ")))
    Range("B1") = Trim(strABC( 0 ))
    Range("C1") = Trim(strABC( 1 ))
    Range("D1") = Trim(strABC( 2 ))
End Sub
Зато логики нет.
Разбиваем пробелом же, откуда пробелы возьмутся в результирующем массиве, чем там Trim'у заняться? Его нужно использовать в начале: Split(Trim(Range("A1")).
И эту ересь зачем повторять: Chr(Asc(" "))? Игорь так шутит.
svetoch_zorgaтак, не криво?...Угу, это самый кривой из предложенных вариантов.
...
Рейтинг: 0 / 0
15.04.2010, 14:28
| Ответить | Цитировать | Написать  
Разбить текст в ячейке на 3 ячейки с частями этого текста
    #36580697
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hugo121
Гость
Код: plaintext
1.
2.
3.
4.
5.
6.
Sub h()
 Dim strABC() As String
    strABC = Split(Trim(Range("A2")), " ")
    Range("B2") = UCase(strABC( 0 ))
    Range("B3") = UCase(strABC( 1 ))
    Range("B4") = UCase(strABC( 2 ))
End Sub
...
Рейтинг: 0 / 0
15.04.2010, 14:43
| Ответить | Цитировать | Написать  
Разбить текст в ячейке на 3 ячейки с частями этого текста
    #36580742
Фотография svetoch_zorga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
svetoch_zorga
Участник
Hugo121, Antonariy премного БЛАГОдарен!

Игорь Горбонос... шутник :)
...
Рейтинг: 0 / 0
15.04.2010, 14:56
| Ответить | Цитировать | Написать  
Разбить текст в ячейке на 3 ячейки с частями этого текста
    #36580748
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hugo121
Гость
svetoch_zorga,
Покороче так должно сработать, если больше нигде из массива оригинальное написание тянуть не надо:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Sub h()
 Dim strABC() As String
    strABC = Split(UCase(Trim(Range("A2"))), " ")
    Range("B2") = strABC( 0 )
    Range("B3") = strABC( 1 )
    Range("B4") = strABC( 2 )
End Sub
...
Рейтинг: 0 / 0
15.04.2010, 14:58
| Ответить | Цитировать | Написать  
Разбить текст в ячейке на 3 ячейки с частями этого текста
    #36580947
Фотография svetoch_zorga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
svetoch_zorga
Участник
Hugo121svetoch_zorga,
Покороче так должно сработать, если больше нигде из массива оригинальное написание тянуть не надо:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Sub h()
 Dim strABC() As String
    strABC = Split(UCase(Trim(Range("A2"))), " ")
    Range("B2") = strABC( 0 )
    Range("B3") = strABC( 1 )
    Range("B4") = strABC( 2 )
End Sub


Спасибо!!! заработалооо!!!!
...
Рейтинг: 0 / 0
15.04.2010, 16:38
| Ответить | Цитировать | Написать  
Разбить текст в ячейке на 3 ячейки с частями этого текста
    #36580968
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
Код: plaintext
strABC = Split(UCase(Trim(Range("A2").Text)), " ")
Не люблю полагаться на свойства по умолчанию
...
Рейтинг: 0 / 0
15.04.2010, 16:46
| Ответить | Цитировать | Написать  
17 сообщений из 17, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Разбить текст в ячейке на 3 ячейки с частями этого текста
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]