Me-extract hyperlink pada Ms Excel 2003

November 3, 2009

logoExcel_160sq

Mungkin ada saat dimana kita mempunyai sederet cell pada ms-excel dengan hyperlink (misal pada kolom A) dan kita ingin meng-copy hyperlink-nya saja untuk di-paste pada kolom lain atau worksheet lain. Atau mungkin kita meng-copy sederet link text dari website tertentu yang akan digunakan pada website kita dan kita membutuhkan bantuan ms-excel, mungkin ms-word atau notepad, sehingga kita membutuhkan juga untuk meng-copy seluruh hyperling tersebut dan mem-paste pada cell lain. Saya sering melakukan itu karena daripada menuliskan “label” satu persatu lebih baik menggunakan ms-excel, tinggal tarik kebawah ; dan yang sudah disusun trus copy dan paste.

Kembali pada bagaimana meng-extract hyperlink pada ms-axcel, ada 3 cara:

1. Cara manual
Klik kanan mouse pilih edit hyperlink, copy url pada address; tutup dialog box dan paste pada cell yang diinginkan. Ini langkah standar microsoft office.
Tentu saja akan membutuhkan waktu yang sangat lama jika harus melakukan ini berulang-ulang seratus kali misalnya.

2. Menggunakan “macro”
Dengan macro kita dapat melakukan otomasi proses manual tadi. Macro berikut akan meng-copy seluruh hyperlink dan mem-paste pada cell disampingnya.

Buka tools>macro>visual basic editor (Alt+F11)
Pada VBA project klik-klik “this workbook” dan copy – paste code dibawah

Sub ExtractHL()
Dim HL As Hyperlink
For Each HL In ActiveSheet.Hyperlinks
HL.Range.Offset(0, 1).Value = HL.Address
Next
End Sub

Save. Untuk menjalankan tinggal panggil tools>macro>macros (Alt+F8) dan pilih makro yang dibuat klik “run“.
Secara otomatis macro akan meng-extract seluruh hyperlink dan mem-paste pada cell di sampingnya.

3. Menggunakan “user defined function”
Masih menggunakan visual basic editor, tetapi kita menggunakan function yang artinya kita dapat memanggil function tersebut untuk melakukan tugas tertentu.

Buka visual basic editor seperti diatas dan copy – paste code dibawah:

Function GetURL(rng As Range) As String
On Error Resume Next
GetURL = rng.Hyperlinks(1).Address
End Function

Save. Untuk menjalankan, misal hyperlink ada pada cell A1, tuliskan formula

=GetURL(A1)

pada cell dimana kita ingin mem-paste hyperlink tersebut.

(Diambil dari http://excel.tips.net/Pages/T003281_Extracting_URLs_from_Hyperlinks.html)

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: