Здравствуйте! Наконец-то мой первый, вручную написанный макрос) Естественно он "комом".
Суть: выделил ячейку, нажал кнопку, в вышедшем окошке ввел ссылку, ссылка привязалась. Трудность: ссылка копируется в формате "ххх", т.е. сразу с " по бокам. В итоге, чтобы макрос работал нужно вручную удалять эти скобки в начале и конце. Что я делаю не так? [vba]
Код
Sub Вставить_ссылку() ' Вставить_ссылку Макрос Dim ssilka As Variant ssilka = InputBox("Введите ссылку, удалив скобки в начале и конце") If ssilka = "" Then ' нажали отмену Else ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _ ssilka End If End Sub
[/vba]
P.S.: макрос нужен, т.к. стандартные методы вызывают дикие лаги - папки, на которые ссылаюсь, находятся на сетевом диске и Excel каждый раз разворачивает весь путь в итоговую папку с 3тыс+ папок.
Здравствуйте! Наконец-то мой первый, вручную написанный макрос) Естественно он "комом".
Суть: выделил ячейку, нажал кнопку, в вышедшем окошке ввел ссылку, ссылка привязалась. Трудность: ссылка копируется в формате "ххх", т.е. сразу с " по бокам. В итоге, чтобы макрос работал нужно вручную удалять эти скобки в начале и конце. Что я делаю не так? [vba]
Код
Sub Вставить_ссылку() ' Вставить_ссылку Макрос Dim ssilka As Variant ssilka = InputBox("Введите ссылку, удалив скобки в начале и конце") If ssilka = "" Then ' нажали отмену Else ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _ ssilka End If End Sub
[/vba]
P.S.: макрос нужен, т.к. стандартные методы вызывают дикие лаги - папки, на которые ссылаюсь, находятся на сетевом диске и Excel каждый раз разворачивает весь путь в итоговую папку с 3тыс+ папок.ceHnau
Пример ссылки в файле: "C:\Program Files" Чтобы макрос пахал, в InputBox нужно ввести: C:\Program Files Т.е. без кавычек/скобок - " При этом в Windows ссылки/путь всегда с этими кавычками копирует.
Пример ссылки в файле: "C:\Program Files" Чтобы макрос пахал, в InputBox нужно ввести: C:\Program Files Т.е. без кавычек/скобок - " При этом в Windows ссылки/путь всегда с этими кавычками копирует.ceHnau
Sub Вставить_ссылку() ' Вставить_ссылку Макрос Dim ssilka As String ssilka = WorksheetFunction.Substitute(InputBox("Введите ссылку"), """", "") If ssilka = "" Then ' нажали отмену Else ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=ssilka End If End Sub
[/vba]
[vba]
Код
Sub Вставить_ссылку() ' Вставить_ссылку Макрос Dim ssilka As String ssilka = WorksheetFunction.Substitute(InputBox("Введите ссылку"), """", "") If ssilka = "" Then ' нажали отмену Else ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=ssilka End If End Sub
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
