Привет всем, необходимо впихнуть в ексель глобальный скрипт
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
Как это можно провернуть?
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
Как это можно провернуть?