Русский текст английскими буквами

@nickpaeh · Регистрация: 22.09.2016

Студворк — интернет-сервис помощи студентам

День добрый!
Ищу макрос, который переделает Русский текст, набранный английскими буквами в нормальный текст.

Чтото типа этого, только макрос. http://planetcalc.ru/1713/

Спасибо.

Добавлено через 4 минуты
P.S. Попробовал переделать макрос транслита... почти работает, но результат выдается крякозябрами, чтото с кодировкой...

@AlexM · 11.11.2016, 14:09

Функция

Visual Basic
1
2
3
4
5
6
7
8
9
Function En_Ru(iStr As String) As String
Dim En, Ru, i As Long
En = Array("`", "q", "w", "e", "r", "t", "y", "u", "i", "o", "p", "[", "]", "a", "s", "d", "f", "g", "h", "j", "k", "l", ";", "'", "z", "x", "c", "v", "b", "n", "m", ",", ".", "/", "~", "@", "#", "$", "^", "&", "Q", "W", "E", "R", "T", "Y", "U", "I", "O", "P", "{", "}", "A", "S", "D", "F", "G", "H", "J", "K", "L", ":", """", "|", "Z", "X", "C", "V", "B", "N", "M", "<", ">", "?")
Ru = Array("ё", "й", "ц", "у", "к", "е", "н", "г", "ш", "щ", "з", "х", "ъ", "ф", "ы", "в", "а", "п", "р", "о", "л", "д", "ж", "э", "я", "ч", "с", "м", "и", "т", "ь", "б", "ю", ".", "Ё", """", "№", ";", ":", "?", "Й", "Ц", "У", "К", "Е", "Н", "Г", "Ш", "Щ", "З", "Х", "Ъ", "Ф", "Ы", "В", "А", "П", "Р", "О", "Л", "Д", "Ж", "Э", "/", "Я", "Ч", "С", "М", "И", "Т", "Ь", "Б", "Ю", ",")
For i = 0 To UBound(En)
    iStr = Replace(iStr, En(i), Ru(i))
Next i
En_Ru = iStr
End Function

@nickpaeh · 11.11.2016, 14:21 **[ТС]**

Спасибо, но с кодировкой проблемы.
Вот, что получаю: Čłó ģąźšīń, źīņīšūé ļåšåäåėąåņ Šóńńźčé ņåźńņ, ķąįšąķķūé ąķćėčéńźčģč įóźāąģč ā ķīšģąėüķūé ņåźńņ.

@AlexM · 11.11.2016, 14:25

А если в head вставить
<meta http-equiv="Content-Type" content="text/html; charset=windows-1251">

@nickpaeh · 11.11.2016, 14:29 **[ТС]**

была бы это html страница, так бы и сделал.

@AlexM · 11.11.2016, 14:32

В вопросе вы html показали.
В Excelе работает.

@nickpaeh · 11.11.2016, 14:35 **[ТС]**

В вами приложенном файле, у меня получаются иероглифы. Надо кудато вставить кодировку...

@AlexM · 11.11.2016, 14:40

Как получается у меня
Какая операционная система ПК?

@nickpaeh · 11.11.2016, 15:53 **[ТС]**

Windows 7

Добавлено через 1 час 5 минут
Впрочем, вопрос снимается, так как это уже с виндой лажа, разберусь. Спасибо за ответ.

@Казанский · 11.11.2016, 19:41

nickpaeh, у Вас Windows не русский, поэтому надо использовать Unicode. Смотрите
Русская кодировка в Excel
Кодировка Литовского языка

Новые блоги и статьи Все статьи Все блоги /
Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .	Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Programma_Boinc 01.01.2026 Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Сочетание глобально распределённой вычислительной мощности и инновационных. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .
Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .

@nickpaeh 1 / 1 / 0 Регистрация: 22.09.2016 Сообщений: 55

	Русский текст английскими буквами 11.11.2016, 12:10. Показов 2377. Ответов 9 Метки нет (Все метки) День добрый! Ищу макрос, который переделает Русский текст, набранный английскими буквами в нормальный текст. Чтото типа этого, только макрос. http://planetcalc.ru/1713/ Спасибо. Добавлено через 4 минуты P.S. Попробовал переделать макрос транслита... почти работает, но результат выдается крякозябрами, чтото с кодировкой... 0

@nickpaeh 1 / 1 / 0 Регистрация: 22.09.2016 Сообщений: 55
	11.11.2016, 14:21 [ТС]
	Спасибо, но с кодировкой проблемы. Вот, что получаю: Čłó ģąźšīń, źīņīšūé ļåšåäåėąåņ Šóńńźčé ņåźńņ, ķąįšąķķūé ąķćėčéńźčģč įóźāąģč ā ķīšģąėüķūé ņåźńņ. 0

@AlexM 2904 / 1718 / 705 Регистрация: 04.09.2015 Сообщений: 3,445
	11.11.2016, 14:25
	А если в head вставить <meta http-equiv="Content-Type" content="text/html; charset=windows-1251"> 0

@nickpaeh 1 / 1 / 0 Регистрация: 22.09.2016 Сообщений: 55
	11.11.2016, 14:29 [ТС]
	была бы это html страница, так бы и сделал. 0

@AlexM 2904 / 1718 / 705 Регистрация: 04.09.2015 Сообщений: 3,445
	11.11.2016, 14:32
	В вопросе вы html показали. В Excelе работает. 0

@nickpaeh 1 / 1 / 0 Регистрация: 22.09.2016 Сообщений: 55
	11.11.2016, 14:35 [ТС]
	В вами приложенном файле, у меня получаются иероглифы. Надо кудато вставить кодировку... 0

@AlexM 2904 / 1718 / 705 Регистрация: 04.09.2015 Сообщений: 3,445
	11.11.2016, 14:40
	Как получается у меня Какая операционная система ПК? Миниатюры 0

@nickpaeh 1 / 1 / 0 Регистрация: 22.09.2016 Сообщений: 55
	11.11.2016, 15:53 [ТС]
	Windows 7 Добавлено через 1 час 5 минут Впрочем, вопрос снимается, так как это уже с виндой лажа, разберусь. Спасибо за ответ. 0

@Казанский 15155 / 6428 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	11.11.2016, 19:41
	nickpaeh, у Вас Windows не русский, поэтому надо использовать Unicode. Смотрите Русская кодировка в Excel Кодировка Литовского языка 0