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.
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.
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.
Source : http://harisaryono.com/2012/09/mengambil-link-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.
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.
Source : http://harisaryono.com/2012/09/mengambil-link-excel/
0 comments:
Post a Comment