Перевод ячейки на Русский - Microsoft Office Excel

Юнлинг · 19.01.2010, 16:47

Доброго времени Суток!

В ячейках "D:D" набран руский текст английскими буквами. Как преобразовать в русский
Пример в строчке 3 "D3" - английский текст; "H3" - русский
см. вложение.

EducatedFool · 19.01.2010, 16:59

Код:

  Ячейка: H3      Формула  (стиль A1):   =GetRussianText(D3)
                  Формула  (стиль R1C1): =GetRussianText(RC[-4])

Код:

Function GetRussianText(ByVal txt As String) As String
    ru = "йцукенгшщзхъфывапролджэячсмитьбю"
    en = "qwertyuiop[]asdfghjkl;'zxcvbnm,."
    For i = 1 To Len(txt)
        буква = Mid(txt, i, 1): pos = InStr(1, en, буква, vbTextCompare)
        If pos > 0 Then
            GetRussianText = GetRussianText & Mid(ru, pos, 1)
        Else
            GetRussianText = GetRussianText & " "
        End If
    Next
End Function

Пример файла:

Xpoft · 19.01.2010, 17:01

Если данных немного я бы воспользовался программой qip как бы смешно это не звучало(первое что пришло в голову) там есть встроенная функция по клавише ctrl+q делает то что тебе надо... ну или писать макрос соответствия знаков и пусть перегоняет...
О) товарищ EducatedFool как тру программист имеет уже готовое решение)

Юнлинг · 20.01.2010, 07:24

EducatedFool

Спасибо за оперативность!

lleonid · 03.10.2015, 20:53

Есть прайс. Один столбик нужно перевести. Столбиков очень много. Как это сделать в нсколько кликов?.

AleksandrH · 04.10.2015, 17:53

некрофилия какая-то. Топику 5 лет!!!
По сабжу, чем ответ №2 не устраивает?

lleonid · 04.10.2015, 20:02

Цитата:

Сообщение от AleksandrH

некрофилия какая-то. Топику 5 лет!!!
По сабжу, чем ответ №2 не устраивает?

Не понятно как для чайника

RAN. · 04.10.2015, 20:16

Цитата:

Сообщение от lleonid

Не понятно как для чайника

Не, вы не чайник. Я даже слово подобрать не могу.
Достаете две темы, умершие 5 лет назад, задаете в них вопрос, на который не то, что бесплатно, но и за стомульенов в любой валюте ответить не возможно.
И чё?

19.01.2010, 17:01	#3
Xpoft Пользователь Регистрация: 25.11.2009 Сообщений: 55	Если данных немного я бы воспользовался программой qip как бы смешно это не звучало(первое что пришло в голову) там есть встроенная функция по клавише ctrl+q делает то что тебе надо... ну или писать макрос соответствия знаков и пусть перегоняет... О) товарищ EducatedFool как тру программист имеет уже готовое решение) Не бывает сложных задач, бывают сложные решения Последний раз редактировалось Xpoft; 19.01.2010 в 17:02. Причина: наличие нормального ответа)

Опции темы	Поиск в этой теме
Версия для печати Отправить по электронной почте	Поиск в этой теме: Расширенный поиск

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Как решить проблему перевода ОДНОЙ ячейки на русский язык?	Pizza Boy	Microsoft Office Excel	7	03.10.2015 20:54
Закончен перевод документации платформы Google App Engine на русский язык	widgetii	PHP	1	01.08.2008 16:52
перевод на русский	Ensoph	Общие вопросы Delphi	3	19.05.2008 10:09
Как разделить число и текст в одной ячейки на две ячейки.	neboskreb	Microsoft Office Excel	2	15.04.2008 19:39

20.01.2010, 07:24	#4
Юнлинг Форумчанин Регистрация: 17.10.2008 Сообщений: 239	EducatedFool Спасибо за оперативность!

03.10.2015, 20:53	#5
lleonid Пользователь Регистрация: 17.01.2013 Сообщений: 84	Есть прайс. Один столбик нужно перевести. Столбиков очень много. Как это сделать в нсколько кликов?.

04.10.2015, 17:53	#6
AleksandrH Заблокирован Регистрация: 15.02.2010 Сообщений: 148	некрофилия какая-то. Топику 5 лет!!! По сабжу, чем ответ №2 не устраивает?