Помощник
 |
Сообщение сайта
|
 Как в Excel удалить все русские символы? |
LebedevStr
|
Сообщение
#1
|
||
|
Аналитика наше все  
 Группа: Active User Сообщений: 780 Регистрация: 24.10.2010 Из: Warszawa Поблагодарили: 99 раз Репутация:  32 
 |
|
||
 |
|
||
|
Mark29
|
 13.9.2013, 0:04;
Ответить: Mark29
Сообщение
#2
|
 Бывалый Группа: User Сообщений: 470 Регистрация: 5.5.2011 Из: город большого яйца :) Поблагодарили: 200 раз Репутация: 88
|
Знаю как найти русс буквы в англ тексте, и наоборот
 А удалять уже ручками по ходу 
-------------------- |
|
|
|
|
maverick
|
13.9.2013, 1:22;
Ответить: maverick
Сообщение
#3
|
 Бывалый Группа: User Сообщений: 252 Регистрация: 3.6.2013 Из: далека Поблагодарили: 178 раз Репутация: 40
|
LebedevStr, вот есть такая функция:
Function Del_Rus(sStr As String) Dim li As Long For li = 192 To 255 sStr = Replace(sStr, Chr(li), "") Next li sStr = Replace(sStr, Chr(168), "") sStr = Replace(sStr, Chr(184), "") Del_Rus = sStr End Function Создаете стандартный модуль, вместо Sub/End Sub копируете код, а потом в поле выбора функции выбираете "Определенные пользователем" - Del_Rus Использовать можно =Del_Rus(A1), где A1 - ссылка на ячейку из которой нужно удалить русские символы. -------------------- |
|
|
|
|
LebedevStr
|
Сообщение
#4
|
|
Аналитика наше все
Группа: Active User Сообщений: 780 Регистрация: 24.10.2010 Из: Warszawa Поблагодарили: 99 раз Репутация: 32
|
maverick, подскажите пожалуйста куда вообще жать
не могу сообразить .
|
|
|
|
|
Mark29
|
16.9.2013, 20:12;
Ответить: Mark29
Сообщение
#5
|
|
Бывалый Группа: User Сообщений: 470 Регистрация: 5.5.2011 Из: город большого яйца :) Поблагодарили: 200 раз Репутация: 88
|
Вкладка "Разработчик" - кнопка "Visual Basik". Откроется редактор VBA и там заменить код в открывшемся окне Module1
А вообще, не тот форум вы выбрали для таких вопросов Вам сюда _http://www.planetaexcel.ru/forum/
-------------------- |
|
|
|
|
maverick
|
16.9.2013, 20:13;
Ответить: maverick
Сообщение
#6
|
|
Бывалый Группа: User Сообщений: 252 Регистрация: 3.6.2013 Из: далека Поблагодарили: 178 раз Репутация: 40
|
LebedevStr,
1) нажимаем Alt+F11, открывается VBA редактор. 2) Слева, в окошке VBAProject щелкаем правой кнопкой, выбираем Insert-Module 3) В появившемся поле вставляем код, который я давал 4) Закрываем редактор VBA 5) Теперь, к примеру, у Вас есть столбик ячеек с текстом, в котором скрываются русские символы. Устанавливаем курсор в удобном месте, нажимаем кнопочку вставки функции, выбираем в разделе "Определенные пользователем" нашу функцию Del_Rus 6) Вводим в параметрах функции ссылку на ячейку с обрабатываемым текстом, протягиваем на весь диапазон. 7) Profit
-------------------- |
|
|
|
|
Mark29
|
16.9.2013, 20:30;
Ответить: Mark29
Сообщение
#7
|
|
Бывалый Группа: User Сообщений: 470 Регистрация: 5.5.2011 Из: город большого яйца :) Поблагодарили: 200 раз Репутация: 88
|
maverick, фигня получается.
Скопировал вашу функцию, скопировал ваш текст сообщения выше в эксель - запустил функцию - во всех ячейках стало значение "ноль" Удаляет все? И что оно ищет? ))) -------------------- |
|
|
|
|
maverick
|
16.9.2013, 20:43;
Ответить: maverick
Сообщение
#8
|
|
Бывалый Группа: User Сообщений: 252 Регистрация: 3.6.2013 Из: далека Поблагодарили: 178 раз Репутация: 40
|
(Mark29 @ 16.9.2013, 18:30)  фигня получается. У меня все работает. Только что попробовал сделать примерчик: 
-------------------- |
|
|
|
|
LebedevStr
|
Сообщение
#9
|
|
Аналитика наше все
Группа: Active User Сообщений: 780 Регистрация: 24.10.2010 Из: Warszawa Поблагодарили: 99 раз Репутация: 32
|
maverick, я что-то не так делаю
    Саму функция сохранил (CTRL+S) до применения... UPD Забыл закрыть редактор VBA! Работает! Спасибо! Вопрос, как добавить спец. символы в фильтр? Например !@#$%^&*()- !"№;%:?*()- Спасибо
Сообщение отредактировал LebedevStr - 17.9.2013, 23:25 |
|
|
|
|
maverick
|
18.9.2013, 1:01;
Ответить: maverick
Сообщение
#10
|
|
Бывалый Группа: User Сообщений: 252 Регистрация: 3.6.2013 Из: далека Поблагодарили: 178 раз Репутация: 40
|
(LebedevStr @ 17.9.2013, 21:17) Вопрос, как добавить спец. символы в фильтр? Например !@#$%^&*()- !"№;%:?*()- Просто добавьте после строк sStr = Replace(sStr, Chr(168), "") sStr = Replace(sStr, Chr(184), "") строки поиска нужного символа. Например, чтобы фильтровать !@#, нужно вставить строчки sStr = Replace(sStr, Chr(33), "") sStr = Replace(sStr, Chr(35), "") sStr = Replace(sStr, Chr(64), "") Ну, а остальные коды можете посмотреть, к примеру здесь. -------------------- |
|
|
|
|
|
Похожие темы
| Тема | Ответов | Автор | Просмотров | Последний ответ | |
|---|---|---|---|---|---|
 |
QIWI кажется все? | 109 | Silverspam | 17492 | 15.4.2024, 9:11 автор: Alekser |
 |
Как вывести деньги в Украине с заблокированного Юмани ? | 28 | freeax | 4587 | 12.4.2024, 1:22 автор: PostMan1 |
|
Как вы отдыхаете от работы за компом | 148 | adw-kupon.ru | 19664 | 8.4.2024, 10:37 автор: Skyworker |
|
Как вы бросили работу и перешли на заработок с сайтов? | 18 | uahomka | 3073 | 5.4.2024, 5:53 автор: Skyworker |
|
Как бездомные хранят деньги? | 81 | metvekot | 13630 | 31.3.2024, 12:44 автор: Boymaster |
|
Текстовая версия | Сейчас: 17.4.2024, 0:58 |
