Terima kasih banyak Pak Kid untuk bantuannya. Saya akan coba lagi Pak
On Sun, Jul 28, 2019 at 1:27 AM 'Mr. Kid' [email protected] [belajar-excel] <[email protected]> wrote: > > > script dasarnya : > thisworkbook.followhyperlink "http://bunyiurlnya"; > kalau mau dibuka di new window : > thisworkbook.followhyperlink "http://bunyiurlnya",newwindow:=true > > Syaratnya : > bunyiurl harus valid, karena kalau tidak valid akan menghasilkan error > > Kalau tidak mau muncul error (di script apapun dalam programming), pakai > trap error. > di vb/vba bisa pakai ini : > on error resume next > baru perintahnya disini... > > Segitu aja udah cukup, gak usah cek seperti contoh script yang entah dapet > dari mana tuh script..... aneh scriptnya. > > > Pasang script itu di prosedur event yang sesuai.... > Tahu event kan ? iya, kalau user ngelakuin apapun, akan muncul event > (kegiatan) yang akan dilakukan di vba. > Contoh : kalau user double click berarri akan ada event before double > click. kalau user ngganti nilai, akan ada event change, dsb. > Kalau user ngeklik itu kan biasanya di excel akan terjadi perpindahan > cells. Ini namanya event selection change. Jadi, pasang tuh script di event > ini. > > Udah... gitu aja udah bisa jalan... targetnya cuma bisa buka url sama gak > muncul error kan.. > > kalau urusan yang lainnya, seperti jadi lemot dan sebagainya, yang > diperhatikan bukan caranya bikin url, tapi caranya bikin prosedur (walaupun > bukan untuk buka url) yang robust. > yang ini urusannya panjang... > > Gak ada cara lain untuk buka url yang ada di pivot, lha semuanya dianggap > tulisan biasa ajah sama pivot table. > > > > > On Fri, Jul 26, 2019 at 6:17 PM Stephen Saputro [email protected] > [belajar-excel] <[email protected]> wrote: > >> >> >> Selamat Pagi Pak Kid, dan semua Pakar Excel, >> >> Adakah yang bisa membantu untuk menyempurnakan script untuk masalah saya >> di bawah ini ? saya sudah coba tapi saya tetap belum bisa. >> atau apakah ada cara lain selain VBA agar hyperlink di pivot bisa di klik >> ? >> >> >> >> Terima kasih untuk bantuannya. >> >> Salam >> SS >> >> On Thu, Feb 21, 2019 at 2:46 PM Stephen Saputro <[email protected]> >> wrote: >> >>> Pak Kid, >>> >>> Terima kasih untuk clue nya. Akan coba saya cerna dulu ya Pak.. >>> >>> >>> Regards >>> Adi >>> >>> On Thu, Feb 21, 2019 at 1:49 PM 'Mr. Kid' [email protected] >>> [belajar-excel] <[email protected]> wrote: >>> >>>> >>>> >>>> harus tahu nama field yang berisi teks url nya >>>> supaya bisa membatasi kerja event di area field itu saja. >>>> pakai error trap juga, supaya gak ribet harus periksa apakah cells yang >>>> ditunjuk berisi url atau sekadar teks biasa. >>>> >>>> Regards, >>>> Kid >>>> >>>> >>>> On Wed, Feb 20, 2019 at 12:10 PM Stephen Saputro >>>> [email protected] [belajar-excel] <[email protected]> >>>> wrote: >>>> >>>>> >>>>> >>>>> Dear Teman2 Milis, >>>>> >>>>> Mohon dapat di bantu kasus saya, Saya sedang membuat pivot, yang di >>>>> dalamnya ada hyperlink yang jika di klik akan membuka suatu document. >>>>> Untuk >>>>> mengaktivkan hyperlink di pivot, saya menggunakan script di bawah ini : >>>>> >>>>> >>>>> ------------------------------------------------------------------------------------------------------------------------------------------------ >>>>> Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal >>>>> Target As Range) >>>>> >>>>> Dim ptc As PivotTable, Value As Variant, Rng As Range >>>>> For Each ptc In Worksheets(Sh.Name).PivotTables >>>>> If Not Intersect(Target, Range(ptc....TableRange1.Address)) Is Nothing >>>>> Then >>>>> If Left(Target.Value, 2) = "\\" Then >>>>> ActiveWorkbook.FollowHyperlink Address:=Target.Value, NewWindow:=True >>>>> End If >>>>> End If >>>>> Next ptc >>>>> End Sub >>>>> >>>>> >>>>> ------------------------------------------------------------------------------------------------------------------------------------------------- >>>>> >>>>> Hanya saja ada beberapa masalah yang saya hadapi. >>>>> >>>>> 1. ketika saya melakukan select range di pivot, maka yang muncul >>>>> adalah seperti ini : >>>>> >>>>> Select range >>>>> [image: image.png] >>>>> >>>>> Message 1 >>>>> [image: image.png] >>>>> >>>>> 2.. Waktu hyperlink di klik, akan keluar Ok or Cancel, dan waktu >>>>> cancel di klik, maka yang muncul adalah seperti ini : >>>>> >>>>> [image: image.png] >>>>> >>>>> Message 2 >>>>> [image: image.png] >>>>> >>>>> Mohon bantuan teman teman semuanya, bagaimana agar cara nya >>>>> menghilangkan error ini agar message 1 dan juga message 2 tidak muncul >>>>> lagi >>>>> >>>>> >>>>> Terima kasih >>>>> >>>>> >
