Mengambil Link Excel

Posted by

Kalau anda mempaste link alamat web kedalam Excel, otomatis excel akan menganggapnya sebagai link. Warnanya menjadi biru, dan kalau mouse anda letakkan diatasnya, muncul tanda “tangan” yang menunjukkan bahwa alamat tersebut bisa diklik.
paste_link_di_Excel-
Kalau anda sama penasarannya dengan saya, maka anda ingin mengetahui link yang tersimpan di sel itu tanpa harus mengklik satu satu. Cara manual adalah dengan mengklik kanan sel yang diinginkan, kemudian pilih Edit-Hyperlink.
edit_hyperlink_secara_manua
Tapi ini terlalu repot. Lebih baik memakai fungsi. Fungsinya adalah sebagai berikut:
Function HyperLinkText(pRange As Range) As String
   Dim ST1 As String
   Dim ST2 As String
   If pRange.Hyperlinks.count = 0 Then
      Exit Function
   End If
   ST1 = pRange.Hyperlinks(1).Address
   ST2 = pRange.Hyperlinks(1).SubAddress
   If ST2 <> "" Then
       ST1 = "[" & ST1 & "]" & ST2
   End If
   HyperLinkText = ST1
End Function
Dengan mengkopi atau menulis ulang fungsi diatas, kemudian mempastenya di Module excel (Developers/Visual Basic/ lalu add new module dan pastekan fungsi diatas), anda bisa memanggil fungsi HyperLinkText di sheet manapun.
penggunaan-fungsi-Hyperlink

Source : http://harisaryono.com/2012/09/mengambil-link-excel/


DR.CB
MS. Office TutorialUpdated at : March 30, 2013

0 comments:

Post a Comment