Pak Kid, Saya coba script di bawah ini dan berhasil :
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) On Error Resume Next If Left(Target.Value, 2) = "\\" Then ActiveWorkbook.FollowHyperlink Address:=Target.Value, NewWindow:=True End If End Sub Tapi setelah saya melakukan script yang sama di kertas kerja yang sesungguhnya, kenapa kotak dialog di bawah ini jadi muncul dua kali ya Pak ? [image: image.png] 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 >>> >>> >> >
