Új hozzászólás Aktív témák

• #8286 Fire/SOUL/CD félisten opzozi #8285

  Új Válasz 2010-09-27 09:28:44 #8286

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Fire/SOUL/CD

  félisten

  válasz opzozi #8285 üzenetére

  Hali!

  A példa kedvéért A1 : A100 tartományban vannak a linkek. Készítünk egy GetURL függvényt (ALT+F11/Insert menu/Module) a megjelenő ablakba illeszd be ez a kódot

  Function GetURL(My_Range As Range) As String
  
  If My_Range.Hyperlinks.Count > 0 Then
  GetURL = My_Range.Hyperlinks(1).Address
  Else: GetURL = My_Range
  End If
  
  End Function

  Ezt követően B1 cellába meg írd be =GetURL(A1) , majd másold le ameddig szükséges.

  Fire.

Új hozzászólás Aktív témák