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

Вход

Регистрация

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

 

= Мир MS Excel/Разбить текст макросом на руские и английские - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Разбить текст макросом на руские и английские (Макросы/Sub)
Разбить текст макросом на руские и английские
roman527 Дата: Пятница, 05.02.2016, 12:29 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Здравствуйте, у меня есть готовый макрос но он заточен разбивать когда сначала идут английские и потом русские слова... а когда русские и английские -уже не работает. Мне нужно чтоб он разбил
Вафельница Magio MG-390
Весы детские напольные MG-303
Сковорода con brio 26 см
Весы кухонные MAGIO MG-292
Весы кухонные MAGIO MG-293
Весы кухонные MAGIO MG-294

на рускую и анг часть... макрос приложил к сообщению. заранее спасибо.
[moder]Чем этот вопрос отличается от Вашей прошлой темы?
Вы еще там не ответили.[/moder]
К сообщению приложен файл: _-.xls(38Kb)


Сообщение отредактировал SLAVICK - Пятница, 05.02.2016, 12:39
 
Ответить
СообщениеЗдравствуйте, у меня есть готовый макрос но он заточен разбивать когда сначала идут английские и потом русские слова... а когда русские и английские -уже не работает. Мне нужно чтоб он разбил
Вафельница Magio MG-390
Весы детские напольные MG-303
Сковорода con brio 26 см
Весы кухонные MAGIO MG-292
Весы кухонные MAGIO MG-293
Весы кухонные MAGIO MG-294

на рускую и анг часть... макрос приложил к сообщению. заранее спасибо.
[moder]Чем этот вопрос отличается от Вашей прошлой темы?
Вы еще там не ответили.[/moder]

Автор - roman527
Дата добавления - 05.02.2016 в 12:29
Wasilich Дата: Пятница, 05.02.2016, 14:50 | Сообщение № 2
Группа: Друзья
Ранг: Ветеран
Сообщений: 872
Репутация: 221 ±
Замечаний: 0% ±

2003
И опять -
а когда русские и английские -уже не работает
а в примере сначала английские потом русские. :) В прошлой же теме пост №4 почитайте. Что там не понятно? Всего то, найти в макросе значок > и заменить его на <. Он там один "оденёхонек". :D

ЗЫ Некоторые символы в русском тексте будут определены как англ. текст. Чуть изменил определение. В примере.
К сообщению приложен файл: roman527.xls(34Kb)


Сообщение отредактировал Wasilic - Пятница, 05.02.2016, 15:10
 
Ответить
СообщениеИ опять -
а когда русские и английские -уже не работает
а в примере сначала английские потом русские. :) В прошлой же теме пост №4 почитайте. Что там не понятно? Всего то, найти в макросе значок > и заменить его на <. Он там один "оденёхонек". :D

ЗЫ Некоторые символы в русском тексте будут определены как англ. текст. Чуть изменил определение. В примере.

Автор - Wasilich
Дата добавления - 05.02.2016 в 14:50
sv2014 Дата: Пятница, 05.02.2016, 15:24 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 156
Репутация: 37 ±
Замечаний: 0% ±

Excel 2013
roman527, вариант для сообщения1 функции zzz1 и zzz2

[vba]
Код
Function zzz1$(t$)
Dim i%
For i = 1 To Len(t)
If UCase(Mid(t, i, 1)) Like "[A-Z]" Then zzz1 = Left(t, i - 1): Exit For
Next
End Function
[/vba]
[vba]
Код
Function zzz2$(t$)
Dim i%
For i = 1 To Len(t)
If UCase(Mid(t, i, 1)) Like "[A-Z]" Then zzz2 = Mid(t, i): Exit For
Next
End Function
[/vba]
К сообщению приложен файл: example_7_02_20.xls(37Kb)
 
Ответить
Сообщениеroman527, вариант для сообщения1 функции zzz1 и zzz2

[vba]
Код
Function zzz1$(t$)
Dim i%
For i = 1 To Len(t)
If UCase(Mid(t, i, 1)) Like "[A-Z]" Then zzz1 = Left(t, i - 1): Exit For
Next
End Function
[/vba]
[vba]
Код
Function zzz2$(t$)
Dim i%
For i = 1 To Len(t)
If UCase(Mid(t, i, 1)) Like "[A-Z]" Then zzz2 = Mid(t, i): Exit For
Next
End Function
[/vba]

Автор - sv2014
Дата добавления - 05.02.2016 в 15:24
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Разбить текст макросом на руские и английские (Макросы/Sub)
Страница 1 из 11
Поиск:

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