Наши преимущества

Глобальный скрипт в excel

O

openx

Гость
Привет всем, необходимо впихнуть в ексель глобальный скрипт

Sub СделатьСсылки()
i = 7
While Range("K" + Trim(Str(i))) <> Nil
ActiveSheet.Hyperlinks.Add Anchor:=Range("K" + Trim(Str(i))), Address:=TextToDisplay
i = i + 1
Wend
End Sub


Как это можно провернуть?
 
Верх