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 > > >
