Новости:

Из правил форума: Тема должна отражать суть вопроса, топики типа "help please" будут удаляться!

Главное меню

Гиперссылка на папки с именами ячеек

Автор Blakprizrak, 17.01.2012, 19:47

« назад - далее »

Blakprizrak

Всем доброго времени суток!!!
я в програмировании полный ноль, поэтому прошу вас помочь...
Проблема вот в чем: есть файл Excel со списком(более 3000 наименований) и есть папка в которой созданы подпапки с именами как в столбце D файла Excel, необходимо чтобы список столбца D стал гиперссылками на папки с такими же названиями. Если это реально, помогите пожайлусто, а то я с ума сойду это в ручную делать :o

RAN

Файл с кодом должен быть в корневой папке.
Иначе прописывайте путь в строке "myAddress = "
Sub qqq()
Dim myAddress$, i&
myAddress = ThisWorkbook.Path & "\"
For i = 1 To Cells(Rows.Count, "D").End(xlUp).Row
    ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, "D"), Address:= _
    myAddress & Cells(i, "D")
Next
End Sub

Blakprizrak

Цитата: RAN от 17.01.2012, 23:52
Файл с кодом должен быть в корневой папке.
Иначе прописывайте путь в строке "myAddress = "
Sub qqq()
Dim myAddress$, i&
myAddress = ThisWorkbook.Path & "\"
For i = 1 To Cells(Rows.Count, "D").End(xlUp).Row
    ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, "D"), Address:= _
    myAddress & Cells(i, "D")
Next
End Sub

спасибо большое, работает!!! :D Только вот проблема в том что часть папок находиться в одной папке, а часть в другой, нельзя ли увеличить глубину обрабатываемых папок до 4 или макрос начинал бы делать гиперссылки не с D1, а например с D10 по D350, потом я прописываю путь к следующей папке и указываю диапозон с D351 по D600 и так далее.

RAN


Blakprizrak

Цитата: RAN от 18.01.2012, 11:03
И кто мешает?
For i = 351 to 600
я ж в этом чайник...
то есть я строчку For i = 1 To Cells(Rows.Count, "D").End(xlUp).Row
меняю на For i = 351 to 600 и будет мне счастье????

RAN

Не знаю, счастье или нет, но что-то будет.

Blakprizrak

Цитата: RAN от 18.01.2012, 11:33
Не знаю, счастье или нет, но что-то будет.
Все работает :D :D :D Спасибо огромное!!!!!! А то вручную я бы повеселся...