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

Поделитесь, пожалуйста, ссылкой на макрос, выполняющий транслитерацию в Excel: rus->lat.
...
Рейтинг: 0 / 0
13.01.2005, 09:52
    #32862470
Чук_И_Гек
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Транслитерация в Excel
Все-таки пришлось самому написать.
...
Рейтинг: 0 / 0
11.11.2005, 11:39
    #33373085
uvelik
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Транслитерация в Excel
Делись.
...
Рейтинг: 0 / 0
11.11.2005, 12:07
    #33373191
AleksMed
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Транслитерация в Excel
Транслитераций может быть несколько.
...
Рейтинг: 0 / 0
11.11.2005, 12:27
    #33373284
AleksMed
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Транслитерация в Excel
Это не на 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
11.11.2005, 12:37
    #33373342
воблин
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Транслитерация в Excel
а чей-то в Серпухове - украинские буквы теперь транслитерируют?
...
Рейтинг: 0 / 0
11.11.2005, 12:43
    #33373369
AleksMed
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Транслитерация в Excel
воблина чей-то в Серпухове - украинские буквы теперь транслитерируют?
Ну тогда и про Москву бы написАл. :)
Транслитерация, по-моему, всегда была с национального языка в латиницу.
...
Рейтинг: 0 / 0
11.11.2005, 13:57
    #33373662
MX -- ALEX
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Транслитерация в Excel
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
11.11.2005, 14:03
    #33373682
AleksMed
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Транслитерация в Excel
Вроде как REPLACE()
...
Рейтинг: 0 / 0
11.11.2005, 14:10
    #33373709
та не
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Транслитерация в Excel
AleksMedВроде как REPLACE()
та не, ни риплэйс.

нема в вба такой фунгции.
по виду это то, что нужно искать по слову dhTranslate на соседних форумах
...
Рейтинг: 0 / 0
11.11.2005, 14:28
    #33373764
AleksMed
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Транслитерация в Excel
та не 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
11.11.2005, 14:43
    #33373821
та не
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Транслитерация в Excel
2 AleksMed
какое это имеет отношение к вопросу и ответу?

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

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

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

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

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

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

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


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