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

Вход

Регистрация

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

 

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

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир 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 (37.5 Kb)


Сообщение отредактировал 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
Группа: Друзья
Ранг: Старожил
Сообщений: 1232
Репутация: 326 ±
Замечаний: 0% ±

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

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


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

ЗЫ Некоторые символы в русском тексте будут определены как англ. текст. Чуть изменил определение. В примере.
Автор - Wasilich
Дата добавления - 05.02.2016 в 14:50
sv2014 Дата: Пятница, 05.02.2016, 15:24 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 226
Репутация: 61 ±
Замечаний: 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 (37.0 Kb)
 
Ответить
Сообщение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 из 1
  • 1
Поиск:

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