Menampilkan Halaman Url Hasil Pencarian Di Excel

Posted by Z2 Campaign

» Minggu, 03 Mei 2015

Dear Sahabat ExcelPriv.

Tutorial Kita Hari Ini Yaitu Bagaimana Cara Menampilkan Web Page Dari Sebuah URL Hasil Pencarian Di Excel Memanfaatkan Embad Microsoft Web Browser. Lihat Gambar Berikut:

So... Mari Kita Mulai. langkah2nya sebagai berikut:

1. Buka Workbook Baru, Pada Tab Developer Pilih Insert, lalu More Controls, lalu pilih Microsoft Web Browser, dan tempatkan di dalam sheet yang terbuka

2. Tambahkan 2 Buah Command Button Active X yaitu saru untuk mencari atau untuk mengeksekusi url web dan yamg satu lagi untuk memprevius .

3. Tuliskan Sourch code berikut untuk CommanButton Pencarian atau kalo saya captionnya di rubah drngan nama cari dan name dirubah dengan tcari, Sourchnya

Private Sub tcari_Click()
    Dim Lurl As Object
    Set Lurl = Range("E2")     '<- Cell yang berisi url
    WebBrowser1.Navigate (Lurl)    '<- untuk menampilkan eksekusi url yang mau dicari
End Sub

4. Untuk CommandButton yang kedua yaitu untuk memprevius alamat url pencarian kita rubah captionnya Jadi Prev. dan Name tprev

Private Sub tprev_Click()
    Call Sheets("sheet1").WebBrowser1.GoBack '<-buat kembali kepencarian sebelumnya
End Sub

4. lihat hasilnya dan savenya jamgan lupa pake xlm atau sejenisnya yang bisa membuka file macro, dan kalo untuk melihat kembali setelah workbook anda di tutup jangan lupa di enable macro supaya code vba yang di tulis diatas tadi bisa berjalan dengan baik.
Penampakan Codenya

Sekian Tutorial Kali Ini Mudahmudahan Bisa Membantu Anda. Dan Anda Dapat Mendownload Contoh Filenya DISINI