Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

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

 

= Мир 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

Может есть кто сможет сделать, понимаю, что должно быть легко, оба скрипта рабочие, надо просто чтобы первый был встроен во второй.
 
Ответить
СообщениеНужно вот это:

[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

Может есть кто сможет сделать, понимаю, что должно быть легко, оба скрипта рабочие, надо просто чтобы первый был встроен во второй.
Автор - Garik
Дата добавления - 13.12.2013 в 12:41
Мир MS Excel » Работа и общение » Работа / Фриланс » Объединить макрос и функцию (Объединить макрос и функцию)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!