Объединить макрос и функцию

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/Объединить макрос и функцию - Мир MS Excel

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

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

Мир MS Excel » Работа и общение » Работа / Фриланс » Объединить макрос и функцию (Объединить макрос и функцию)

Объединить макрос и функцию

Garik

Дата: Пятница, 13.12.2013, 12:41 | Сообщение № 1

Группа: Гости

Нужно вот это:

[vba][code]

Function RussianStringToURLEncode(ByVal txt As String) As String
For i = 1 To Len(txt)
l = Mid(txt, i, 1)
Select Case AscW(l)
Case Is > 256: t = "%" & Hex(AscW(l) \ 64 + 192) & "%" & Hex(8 * 16 + AscW(l) Mod 64)
Case 32: t = "+"
Case Else: t = l
End Select
RussianStringToURLEncode = RussianStringToURLEncode & t
Next
End Function

[/code][/vba]

Вставить в это:

https://github.com/mevoronin/ExcelMacroses/blob/master/GAtags.bas

Может есть кто сможет сделать, понимаю, что должно быть легко, оба скрипта рабочие, надо просто чтобы первый был встроен во второй.

Ответить

Мир MS Excel » Работа и общение » Работа / Фриланс » Объединить макрос и функцию (Объединить макрос и функцию)

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