Ada pertanyaan? Masuk ke Forum atau klik di sini..!

Hi Kliners,

(tutorial ini untuk menjawab pertanyaan via email dari sdr. Hendra Tangerang)

Hyperlink, di siapkan oleh excel untuk memudahkan akses infomasi tertentu dalam file lain bisa pada satu document itu sendiri atau document/ file lain yang berlainan extentionnya seperti excel terhadap word atau power point. Hyperlink ini bisa juga mengakses halaman web.

Markiprak, mari kita praktek langsung! Persiapkanlah sheet dengan Insert Shape seperti gambar dibawah!.

Hyperlink1

Empat Shape tersebut akan mewaikili hyperlink untuk setiap sheet dengan nama yang sama dengan shape-shape tersebut. Kemudian lakukan langkah klik kanan pada shape yang bertuliskan IDENTITAS! Kemudian pilih Hyperlink dan pada kotak berikutnya pilih "Place in This document" pada kotak Link to:. Dan terakhir klik IDENTITAS pada kotak Or select a place in this document:. Uraian langkah diperjelas dengan gambar dibawah:

Hyperlink4

Setelah anda klik OK, Hyperlink sudah berfungsi. Lakukan pengetest-an dengan klik kiri pada shape IDENTITAS! Indikasi fungsi Hyperlink ditandai dengan gambar tangan menunjuk saat kursor mouse diatas shape tersebut.

Nah satu langkah kecil lagi, untuk kembali ke Sheet home persiapkankan sheet KEMBALI pada setiap sheet tujuan seperti pada gambar dibawah. Dan lakukan insert Hyperlink seperti langkah-langkah diatas untuk fungsi kembali ke sheet home.

Hyperlink5

Selamat Mencoba

Have a nice weekend

@rd  ' o ' /

Artikel sejenis


0
By: FUAD On: Saturday, 16 May 2015

Mohon bantuannya untuk menganalisa koding berikut ini. mungkin ada yg salah dalam koding tersebut. Karena setelah data terisi, kemudin klik tombol Tambah, muncul pemberitahuan Compile Error, dan syntax error. Kemudian baris

Private Sub CMDTMBH_Click()

Dim iRow As Long

Dim ws As Worksheet

Set ws = Worksheets(“PARTSDATA”)

‘menemukan baris kosong pada database

iRow = ws.Cells(Rows.Count, 1) _

.End(xlUp).Offset(1, 0).Row

‘check untuk sebuah kode

If Trim(Me.tkode.Value) = “” Then

Me.tkode.SetFocus

MsgBox “Masukan Kode Barang”

Exit Sub

End If

‘copy data ke database

ws.Cells(iRow, 1).Value = Me.tkode.Value

ws.Cells(iRow, 2).Value = Me.tnama.Value

ws.Cells(iRow, 3).Value = Me.tsatuan.Value

ws.Cells(iRow, 4).Value = Me.tharga.Value

‘clear Data

Me.tkode.Value = “”

Me.tnama.Value = “”

Me.tsatuan.Value = “”

Me.tharga.Value = “”

Me.tkode.SetFocus

End Sub

Private Sub CMDTTP_Click()

Unload Me

End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, _

CloseMode As Integer)

If CloseMode = vbFormControlMenu Then

Cancel = True

MsgBox “MAKE TOMBOL ATUH KANG!”

End If

End Sub

Mohon pencerahannya