[belajar-excel] Digest Number 4805

Milis Belajar Microsoft Excel Group

1 Message

Digest #4805

1a

Re: Hyperlink di Pivot menggunakan VBA by "Mr. Kid" nmkid.family@ymail.com

Message

1a

Re: Hyperlink di Pivot menggunakan VBA

Sat Jul 27, 2019 11:27 am (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

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 stephensaputro@gmail.com
[belajar-excel] <belajar-excel@yahoogroups.com> 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 <stephensaputro@gmail.com>
> 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' mr.nmkid@gmail.com
>> [belajar-excel] <belajar-excel@yahoogroups.com> 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
>>> stephensaputro@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com>
>>> 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) = "\&#92;" 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
>>>>
>>>>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (5) . Top ^

============================================================
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
bergabung ke milis (subscribe), kirim mail kosong ke: belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke: belajar-excel@yahoogroups.com
berkunjung ke web milis : http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran : http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di : http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe), kirim mail kosong ke : belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------

Visit Your Group

• Privacy • Unsubscribe • Terms of Use