Tinggal ditemplokin ke worksheet event Worksheet_BeforeDoubleClick,
Sheet1:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$B$2" Then
Target.Offset(1).Activate
GoToPdfPage
End If
End Sub
Module1:
Sub GoToPdfPage()
Dim IE As Object, x As String, y As Integer
x = "E:\Folder\File.pdf" 'Ganti dengan alamat file
y = 3 'ke hal 3
On Error Resume Next
Set IE = CreateObject("InternetExplorer.Application")
IE.Navigate x & "#Page=" & y
IE.Visible = True
On Error GoTo 0
End Sub
File terlampir
>semoga bermanfaat
Sheet1:
Private Sub Worksheet_BeforeDou
If Target.Address = "$B$2" Then
Target.Offset(
GoToPdfPage
End If
End Sub
Module1:
Sub GoToPdfPage(
Dim IE As Object, x As String, y As Integer
x = "E:\Folder\File.
y = 3 'ke hal 3
On Error Resume Next
Set IE = CreateObject(
IE.Navigate x & "#Page=" & y
IE.Visible = True
On Error GoTo 0
End Sub
File terlampir
>semoga bermanfaat
From: "denny_4milanisti@
To: XL-mania@yahoogroup
Sent: Wed, May 5, 2010 2:02:44 PM
Subject: Re: ]] XL-mania [[ vba code hyperlink from excel 2007 to pdf
Dear all xl-mania member...
Pertanyaan tambahan
Kalo saya ingin membuat hyperlink dari cell saja tanpa object shape,dll. Contohnya di cell B1 saya ketik "link" dan mau saya hyperlink ke halaman tertentu file pdf dengan tambahan vba code bisa tidak ya?
Mohon bantuannya master-master
Terimakasih
Sent from my BlackBerry®
powered by Sinyal Kuat INDOSAT
From: anton suryadi <summonery@yahoo. com>
Date: Mon, 3 May 2010 09:05:46 +0800 (SGT)
To: <XL-mania@yahoogroup s.com>
Subject: Re: ]] XL-mania [[ vba code hyperlink from excel 2007 to pdf
ADA,
Sub GoToPdfPage( )
Dim IE As Object, x As String, y As Long
x = "E:\Folder\File. pdf" 'Ganti dengan alamat file
y = 11 'ke hal 11
Set IE = CreateObject( "InternetExplore r.Application" )
IE.Navigate x & "#Page=" & y
IE.Visible = True
End Sub
>semoga bermanfaat
From: denny_4milanisti <denny_4milanisti@ yahoo.com>
To: XL-mania@yahoogroup s.com
Sent: Fri, April 30, 2010 7:06:14 PM
Subject: ]] XL-mania [[ vba code hyperlink from excel 2007 to pdf
Sub GoToPdfPage( )
Dim IE As Object, x As String, y As Long
x = "E:\Folder\File. pdf" 'Ganti dengan alamat file
y = 11 'ke hal 11
Set IE = CreateObject( "InternetExplore r.Application" )
IE.Navigate x & "#Page=" & y
IE.Visible = True
End Sub
>semoga bermanfaat
From: denny_4milanisti <denny_4milanisti@ yahoo.com>
To: XL-mania@yahoogroup s.com
Sent: Fri, April 30, 2010 7:06:14 PM
Subject: ]] XL-mania [[ vba code hyperlink from excel 2007 to pdf
Dear master-master excel.....
Mohon bantuannya dong,ada yang tau gak vba codenya hyperlink dari excel 2007 ke file pdf. Hyperlink ini langsung merujuk ke halaman tertentu pada file pdf yang di hubungkan.
Terimakasih
salam
denny
__._,_.___
+-:: XL-mania ::::::::::::::::::::----------------------------------+
| uaaaaa... mau game maeeemoooooooo.... |
| http://www.facebook.com/group.php?gid=37671048001&ref=mf |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message, melecehkan, tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan winzip jika perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/ |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau... |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html |
+-------------------------------------------------------------------+
| Message lama ada di : |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id] |
| http://www.mail-archive.com/xl-mania@yahoogroups.com |
+-------------------------------------------------------------------+
| uaaaaa... mau game maeeemoooooooo.... |
| http://www.facebook.com/group.php?gid=37671048001&ref=mf |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message, melecehkan, tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan winzip jika perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/ |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau... |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html |
+-------------------------------------------------------------------+
| Message lama ada di : |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id] |
| http://www.mail-archive.com/xl-mania@yahoogroups.com |
+-------------------------------------------------------------------+
.
__,_._,___
Nenhum comentário:
Postar um comentário