Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Разбить текст в ячейке на 3 ячейки с частями этого текста / 17 сообщений из 17, страница 1 из 1
15.04.2010, 12:12
    #36580201
svetoch_zorga
svetoch_zorga
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Разбить текст в ячейке на 3 ячейки с частями этого текста
Надо ФИО разбить на три ячейки, без пробелов...
помогите плиз...

Вот нашел код на форуме, но он не работает и по моему здесь не подходит "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:13
    #36580203
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Разбить текст в ячейке на 3 ячейки с частями этого текста
svetoch_zorgaпо моему здесь не подходит "vbTab"

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

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

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

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

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


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

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

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

засуньте Ваше предложение в код пожалуйста...
... не знаю как пользоваться
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.04.2010, 12:41
    #36580304
Игорь Горбонос
Игорь Горбонос
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Разбить текст в ячейке на 3 ячейки с частями этого текста
Код: 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:47
    #36580324
Игорь Горбонос
Игорь Горбонос
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Разбить текст в ячейке на 3 ячейки с частями этого текста
А счастье было и так возможно:
Код: 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, 13:52
    #36580522
svetoch_zorga
svetoch_zorga
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Разбить текст в ячейке на 3 ячейки с частями этого текста
Игорь Горбонос, спасибо!
счастьЕсть!


Код: 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, 14:04
    #36580560
svetoch_zorga
svetoch_zorga
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Разбить текст в ячейке на 3 ячейки с частями этого текста
вставьте еще и
Код: plaintext
UCase
плиз, чтобы в "B1", "C1" и "D1" были буквы в верхнем регистре...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.04.2010, 14:16
    #36580611
svetoch_zorga
svetoch_zorga
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Разбить текст в ячейке на 3 ячейки с частями этого текста
так, не криво?...

Код: 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:28
    #36580646
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Разбить текст в ячейке на 3 ячейки с частями этого текста
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:43
    #36580697
Hugo121
Hugo121
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Разбить текст в ячейке на 3 ячейки с частями этого текста
Код: 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:56
    #36580742
svetoch_zorga
svetoch_zorga
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Разбить текст в ячейке на 3 ячейки с частями этого текста
Hugo121, Antonariy премного БЛАГОдарен!

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


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