powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Транслитерация в Excel
18 сообщений из 18, страница 1 из 1
Транслитерация в Excel
    #32862383
Чук_И_Гек
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Уважаемые коллеги!

Поделитесь, пожалуйста, ссылкой на макрос, выполняющий транслитерацию в Excel: rus->lat.
...
Рейтинг: 0 / 0
Транслитерация в Excel
    #32862470
Чук_И_Гек
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Все-таки пришлось самому написать.
...
Рейтинг: 0 / 0
Транслитерация в Excel
    #33373085
uvelik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Делись.
...
Рейтинг: 0 / 0
Транслитерация в Excel
    #33373191
AleksMed
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Транслитераций может быть несколько.
...
Рейтинг: 0 / 0
Транслитерация в Excel
    #33373284
AleksMed
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Это не на VBA, а на Фоксе, но думаю идея замены символов и подстрок понятна.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
PARA w
w=CHRT(w,'ъЪьЬ','')
w=CHRT(w,'абвгдеёзийклмнопрстуфъыэ','abvgdeeziiklmnoprstuf"ye')
w=CHRT(w,'АБВГДЕЁЗИЙКЛМНОПРСТУФЪЫЭ','ABVGDEEZIIKLMNOPRSTUF"YE')
w=STRT(STRT(STRT(STRT(STRT(STRT(STRT(STRT(CHRT(w,"ь","'"),'ж','zh'),'х','kh'),'ц','ts'),'ч','ch'),'ш','sh'),'щ','shch'),'ю','iu'),'я','ia')
w=STRT(STRT(STRT(STRT(STRT(STRT(STRT(STRT(CHRT(w,"Ь","'"),'Ж','ZH'),'Х','KH'),'Ц','TS'),'Ч','CH'),'Ш','SH'),'Щ','SHCH'),'Ю','IU'),'Я','YA')
RETU w

Ф-ции: CHRT() - замена символа в строке; STRT() - замена подстроки в строке
...
Рейтинг: 0 / 0
Транслитерация в Excel
    #33373342
воблин
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
а чей-то в Серпухове - украинские буквы теперь транслитерируют?
...
Рейтинг: 0 / 0
Транслитерация в Excel
    #33373369
AleksMed
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
воблина чей-то в Серпухове - украинские буквы теперь транслитерируют?
Ну тогда и про Москву бы написАл. :)
Транслитерация, по-моему, всегда была с национального языка в латиницу.
...
Рейтинг: 0 / 0
Транслитерация в Excel
    #33373662
MX -- ALEX
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
AleksMedЭто не на VBA, а на Фоксе, но думаю идея замены символов и подстрок понятна.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
PARA w
w=CHRT(w,'ъЪьЬ','')
w=CHRT(w,'абвгдеёзийклмнопрстуфъыэ','abvgdeeziiklmnoprstuf"ye')
w=CHRT(w,'АБВГДЕЁЗИЙКЛМНОПРСТУФЪЫЭ','ABVGDEEZIIKLMNOPRSTUF"YE')
w=STRT(STRT(STRT(STRT(STRT(STRT(STRT(STRT(CHRT(w,"ь","'"),'ж','zh'),'х','kh'),'ц','ts'),'ч','ch'),'ш','sh'),'щ','shch'),'ю','iu'),'я','ia')
w=STRT(STRT(STRT(STRT(STRT(STRT(STRT(STRT(CHRT(w,"Ь","'"),'Ж','ZH'),'Х','KH'),'Ц','TS'),'Ч','CH'),'Ш','SH'),'Щ','SHCH'),'Ю','IU'),'Я','YA')
RETU w

Ф-ции: CHRT() - замена символа в строке; STRT() - замена подстроки в строке
а как в VB - VBA называется соответств функция ?
w=CHRT(w,'абвгдеёзийклмнопрстуфъыэ','abvgdeeziiklmnoprstuf"ye')
...
Рейтинг: 0 / 0
Транслитерация в Excel
    #33373682
AleksMed
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Вроде как REPLACE()
...
Рейтинг: 0 / 0
Транслитерация в Excel
    #33373709
та не
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
AleksMedВроде как REPLACE()
та не, ни риплэйс.

нема в вба такой фунгции.
по виду это то, что нужно искать по слову dhTranslate на соседних форумах
...
Рейтинг: 0 / 0
Транслитерация в Excel
    #33373764
AleksMed
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
та не AleksMedВроде как REPLACE()
та не, ни риплэйс.

нема в вба такой фунгции.
по виду это то, что нужно искать по слову dhTranslate на соседних форумах

А это по вашему откуда? :)
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
Replace Function
      

Description

Returns a string in which a specified substring has been replaced with another substring a specified number of times.

Syntax

Replace(expression, find, replace[, start[, count[, compare]]])

The Replace function syntax has these named arguments:

Part Description 
expression Required. String expression containing substring to replace. 
find Required. Substring being searched for. 
replace Required. Replacement substring. 
start Optional. Position within expression where substring search is to begin. If omitted,  1  is assumed. 
count Optional. Number of substring substitutions to perform. If omitted, the default value is – 1 , which means make all possible substitutions. 
compare Optional. Numeric value indicating the kind of comparison to use when evaluating substrings. See Settings section for values. 



Settings

The compare argument can have the following values:

Constant Value Description 
vbUseCompareOption – 1  Performs a comparison using the setting of the Option Compare statement. 
vbBinaryCompare  0  Performs a binary comparison. 
vbTextCompare  1  Performs a textual comparison. 
vbDatabaseCompare  2  Microsoft Access only. Performs a comparison based on information in your database. 



Return Values

Replace returns the following values:

If Replace returns 
expression is zero-length Zero-length string ("") 
expression is Null An error. 
find is zero-length Copy of expression. 
replace is zero-length Copy of expression with all occurences of find removed. 
start > Len(expression) Zero-length string. 
count is  0  Copy of expression. 



Remarks

The return value of the Replace function is a string, with substitutions made, that begins at the position specified by start and and concludes at the end of the expression string. It is not a copy of the original string from start to finish.
Код: plaintext
Код: plaintext
...
Рейтинг: 0 / 0
Транслитерация в Excel
    #33373821
та не
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
2 AleksMed
какое это имеет отношение к вопросу и ответу?

ты не торопись читалки подбрасывать.
...
Рейтинг: 0 / 0
Транслитерация в Excel
    #33373865
AleksMed
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
та не2 AleksMed
какое это имеет отношение к вопросу и ответу?

ты не торопись читалки подбрасывать.
А ты свой пост предыдущий перечитай и расскажи, что нужно было на него ответить. То ли ф-ции REPLACE() в VBA нет, то ли ф-ция транлитерации отсутствует. (без обид)
...
Рейтинг: 0 / 0
Транслитерация в Excel
    #33373885
uvelik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Может у кого есть обратная транслитерация на русский. Лучше VB.
С русского проще, там только один символ.
...
Рейтинг: 0 / 0
Транслитерация в Excel
    #33373899
та не
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
AleksMed та не2 AleksMed
какое это имеет отношение к вопросу и ответу?

ты не торопись читалки подбрасывать.
А ты свой пост предыдущий перечитай и расскажи, что нужно было на него ответить. То ли ф-ции REPLACE() в VBA нет, то ли ф-ция транлитерации отсутствует. (без обид)

- replace есть
- ф-ция транлитерации отсутствует

кроме того ответ на вопрос:
автора как в VB - VBA называется соответств функция ?
w=CHRT(w,'абвгдеёзийклмнопрстуфъыэ','abvgdeeziiklmnoprstuf"ye')

звучит так:
авторнема в вба такой фунгции.
по виду это то, что нужно искать по слову dhTranslate на соседних форумах
зы
без обид.
...
Рейтинг: 0 / 0
Транслитерация в Excel
    #33373912
AleksMed
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
...
Рейтинг: 0 / 0
Период между сообщениями больше года.
Транслитерация в Excel
    #36315013
СашаЦЦЦ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
ребята.. а зачем все так сложно...
1) заходите на сайт translit.ru
2) копируете столбец с екселя
3) нажимаете кнопку - "Транслит"
4) скопировать обратно в ексель ))
...
Рейтинг: 0 / 0
Период между сообщениями больше года.
Транслитерация в Excel
    #37719552
Delightman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
СашаЦЦЦ,

да ты же гений!!!!!
...
Рейтинг: 0 / 0
18 сообщений из 18, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Транслитерация в Excel
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]