Новости:

Теперь на форум можно залогиниться / зарегистрироваться с помощью ВКонтакте. Уже существующие пользователи могут связать свою учетную запись с аккаунтом ВКонтакте одним кликом в профиле пользователя http://forum.msexcel.ru/index.php?action=profile;area=account

Главное меню

Диакритические символы польского языка в макросе

Автор smartus, 08.02.2017, 17:04

« назад - далее »

smartus

Уважаемые спациалисты, прошу вашей помощи в следующем вопросе.

Есть файл с перечнем продукции на польском языке, из которого нужно удалить названия категории товара и оставить только наименование. С самим удалением слов вопросов не возникло. Возникла проблема с добавлением в макрос слов с нетипичными символам польского алфавита - Ł,Ź, Ó, Ć и т.д. Если вставить такое слово в макрос, при сохранении символ просто заменяется на обычный, без палочек. Как я понял, такие символы нужно вводить через код Юникода. Но попытки не увенчались успехом. Нашел список кодов Юникода по польскому алфавиту https://unicode-table.com/ru/alphabets/polish/.

Подскажите пожалуйста макрос, который бы заменял в файле эти диакритические символы на обычные, чтобы  далее сформировать макрос на удаление не нужных слов.

Покажите пожалуйста на примере одного символа, как это делается и в каком формате вообще это все нужно прописывать в макрос. Заранее благодарен!

cheshiki1

Sub vvv()
For Each cl In Selection
  For i = 1 To Len(cl)
     m = Chr(Asc(Mid(cl, i, 1))): slovo = slovo & m
  Next
  cl.Value = slovo
  slovo = ""
Next
End Sub

выделите диапазон и запустите макрос. Проверяйте

smartus

Огромное спасибо! все работает как надо! вы как всегда лучшие) :D