Помощник
Как в Excel удалить все русские символы? |
LebedevStr
|
Сообщение
#1
|
||
|
|
||
|
|||
Mark29 |
13.9.2013, 0:04;
Ответить: Mark29
Сообщение
#2
|
|
Знаю как найти русс буквы в англ тексте, и наоборот
А удалять уже ручками по ходу -------------------- |
|
|
maverick |
13.9.2013, 1:22;
Ответить: maverick
Сообщение
#3
|
|
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 - ссылка на ячейку из которой нужно удалить русские символы. -------------------- Самый быстрый и выгодный обменник Webmoney (проверено!) |
|
|
LebedevStr
|
Сообщение
#4
|
|
maverick, подскажите пожалуйста куда вообще жать не могу сообразить .
|
|
|
Mark29 |
16.9.2013, 20:12;
Ответить: Mark29
Сообщение
#5
|
|
Вкладка "Разработчик" - кнопка "Visual Basik". Откроется редактор VBA и там заменить код в открывшемся окне Module1
А вообще, не тот форум вы выбрали для таких вопросов Вам сюда _http://www.planetaexcel.ru/forum/ -------------------- |
|
|
maverick |
16.9.2013, 20:13;
Ответить: maverick
Сообщение
#6
|
|
LebedevStr,
1) нажимаем Alt+F11, открывается VBA редактор. 2) Слева, в окошке VBAProject щелкаем правой кнопкой, выбираем Insert-Module 3) В появившемся поле вставляем код, который я давал 4) Закрываем редактор VBA 5) Теперь, к примеру, у Вас есть столбик ячеек с текстом, в котором скрываются русские символы. Устанавливаем курсор в удобном месте, нажимаем кнопочку вставки функции, выбираем в разделе "Определенные пользователем" нашу функцию Del_Rus 6) Вводим в параметрах функции ссылку на ячейку с обрабатываемым текстом, протягиваем на весь диапазон. 7) Profit -------------------- Самый быстрый и выгодный обменник Webmoney (проверено!) |
|
|
Mark29 |
16.9.2013, 20:30;
Ответить: Mark29
Сообщение
#7
|
|
maverick, фигня получается.
Скопировал вашу функцию, скопировал ваш текст сообщения выше в эксель - запустил функцию - во всех ячейках стало значение "ноль" Удаляет все? И что оно ищет? ))) -------------------- |
|
|
maverick |
16.9.2013, 20:43;
Ответить: maverick
Сообщение
#8
|
|
фигня получается. У меня все работает. Только что попробовал сделать примерчик: -------------------- Самый быстрый и выгодный обменник Webmoney (проверено!) |
|
|
LebedevStr
|
Сообщение
#9
|
|
maverick, я что-то не так делаю
Саму функция сохранил (CTRL+S) до применения... UPD Забыл закрыть редактор VBA! Работает! Спасибо! Вопрос, как добавить спец. символы в фильтр? Например !@#$%^&*()- !"№;%:?*()- Спасибо Сообщение отредактировал LebedevStr - 17.9.2013, 23:25 |
|
|
maverick |
18.9.2013, 1:01;
Ответить: maverick
Сообщение
#10
|
|
Вопрос, как добавить спец. символы в фильтр? Например !@#$%^&*()- !"№;%:?*()- Просто добавьте после строк 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), "") Ну, а остальные коды можете посмотреть, к примеру здесь. -------------------- Самый быстрый и выгодный обменник Webmoney (проверено!) |
|
|
|
Похожие темы
Тема | Ответов | Автор | Просмотров | Последний ответ | |
---|---|---|---|---|---|
Арбитражники, как ведете учет расходов и доходов? | 11 | Boymaster | 1767 | Вчера, 23:35 автор: Boymaster |
|
Как вывести деньги в Украине с заблокированного Юмани ? | 29 | freeax | 4789 | Вчера, 1:19 автор: sergio11 |
|
QIWI кажется все? | 109 | Silverspam | 17530 | 15.4.2024, 9:11 автор: Alekser |
|
Как вы отдыхаете от работы за компом | 148 | adw-kupon.ru | 19684 | 8.4.2024, 10:37 автор: Skyworker |
|
Как вы бросили работу и перешли на заработок с сайтов? | 18 | uahomka | 3090 | 5.4.2024, 5:53 автор: Skyworker |
Текстовая версия | Сейчас: 18.4.2024, 19:06 |