Yuk Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Код: Sub ChangeHyperLink() Dim sFrom As String Dim sTo As String   sFrom = "google.com" sTo = "yandex.ru"   For Each h In ActiveSheet.Hyperlinks     h.Address = Replace(h.Address, sFrom, sTo) Next End Sub Всего записей: 1182 | Зарегистр. 02-07-2001 | Отправлено: 20:27 19-12-2006

На первую страницу • к этому сообщению • к последнему сообщению

Компьютерный форум Ru.Board » Компьютеры » Программы » Microsoft Excel FAQ (часть 2)

Widok (17-05-2007 19:48): лимит страниц. продолжаем здесь

Переход по форумам  Закладки   » Компьютеры Цифровое изображение Программы Microsoft Windows UNIX Другие OS Hardware В помощь сисадмину Прикладное программирование Игры Форумные игры   » Интернет Web-программирование В помощь вебмастеру Графика Хостинг Зацените-ка!   » Тематические Ikonboard v.2 Ikonboard v.3 Invision Board Другие форумы PHP-Nuke и другие порталы Мобила   » Общие Спорт Флейм Темы по региональным встречам Музыка и Кино Юмор Литература и Живопись   » Ru.Board Новости Помощь по форуму   » Андеграунд eBookz Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование