Добрый день! Пример такой: Есть таблица exl в которой исполнитель работы берет номер для протокола (столбец А). Оформляет его и сохраняет в папку «D:\Протоколы» в формате pdf с именем идентичным протоколу. Нужно что бы макрос при следующем открытии exl находил в папке «Протоколы» файл pdf с именем как в столбце А и создавал гиперссылку напротив в столбце F. Т.е. Иванов открыл таблицу что бы взять номер для протокола (номер 1), ввел данные в графах дата, организация и исполнитель; закрыл таблицу; оформил протокол и сохранил его в папку "протоколы" в формате PDF с именем "1". Когда Петров открыл таблицу что бы взять номер для своего протокола, в столбце "Протоколы" на против Иванова появилась ссылка на его протокол 1. Спасибо!
Добрый день! Пример такой: Есть таблица exl в которой исполнитель работы берет номер для протокола (столбец А). Оформляет его и сохраняет в папку «D:\Протоколы» в формате pdf с именем идентичным протоколу. Нужно что бы макрос при следующем открытии exl находил в папке «Протоколы» файл pdf с именем как в столбце А и создавал гиперссылку напротив в столбце F. Т.е. Иванов открыл таблицу что бы взять номер для протокола (номер 1), ввел данные в графах дата, организация и исполнитель; закрыл таблицу; оформил протокол и сохранил его в папку "протоколы" в формате PDF с именем "1". Когда Петров открыл таблицу что бы взять номер для своего протокола, в столбце "Протоколы" на против Иванова появилась ссылка на его протокол 1. Спасибо!ortan
Private Sub Workbook_Open() Dim f$, c As Range Const sPath$ = "D:\Протоколы\" For Each c In Лист1.[F2].Resize([D1].End(xlDown).Row - 1).Cells If c.Hyperlinks.Count = 0 Then f = sPath & c(, -4) & ".pdf" If Len(Dir$(f)) Then c.Hyperlinks.Add c, f, , , "Протокол" End If Next End Sub
[/vba]
можно так [vba]
Код
Private Sub Workbook_Open() Dim f$, c As Range Const sPath$ = "D:\Протоколы\" For Each c In Лист1.[F2].Resize([D1].End(xlDown).Row - 1).Cells If c.Hyperlinks.Count = 0 Then f = sPath & c(, -4) & ".pdf" If Len(Dir$(f)) Then c.Hyperlinks.Add c, f, , , "Протокол" End If Next End Sub
KSV, еще раз помогите пожалуйста подправить макрос под новую таблицу, никак не хочет работать. Ссылки должны появляться в графе примечание, но не появляются.
KSV, еще раз помогите пожалуйста подправить макрос под новую таблицу, никак не хочет работать. Ссылки должны появляться в графе примечание, но не появляются.ortan
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
