Вызов функции макроса из личной книги

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Вызов функции макроса из личной книги (Формулы)

Vlad250

Дата: Воскресенье, 05.01.2014, 23:23 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 5

Репутация: 0 ±

Замечаний: 40% ±

Excel 2007

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

сам макрос:
[vba]

Код

Function Translit(ByVal txt As String) As String
iRussian$ = "абвгдеёжзийклмнопрстуфхцчшщъыьэюя"
iTranslit = Array("", "a", "b", "v", "g", "d", "e", "yo", "jh", "z", "i", "y", "k", _
"l", "m", "n", "o", "p", "r", "s", "t", "u", "f", "h", "z", "ch", _
"sh", "shz", "`", "i", "'", "e", "yu", "ya")
For iCount% = 1 To 33
txt = Replace(txt, Mid(iRussian$, iCount%, 1), iTranslit(iCount%), , , vbTextCompare)
Next
Translit$ = txt
End Function

[/vba]

[vba]

Код

Sub ПримерИспользованияФункцииTranslit()
txt = "проверка работы транслита"
newtxt = Translit(txt) ' результат = строка "proverka rabot'y translita"
MsgBox "Строка """ & txt & """" & vbNewLine & "преобразована в строку """ _
& newtxt & """", vbInformation, "Результат обработки"
End Sub

[/vba]
Можно ли сделать, чтобы функция translit работала во всех вновь открытых файлах? Нигде не смог найти решение
[admin]
Тема закрыта. Причина: Нарушение правил, пп. 2, 3, 5 r[/admin]

К сообщению приложен файл: 5367811.png (52.6 Kb)

Сообщение отредактировал Serge_007 - Воскресенье, 05.01.2014, 23:32

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Вызов функции макроса из личной книги (Формулы)

Страница 1 из 1
1