Workbook CONTOH nya mana ? 'Gak bawa ?
Kalau begitu, anda datang sebagai pendekar bertangan-kosong, hehe he
Para penjawab diSURUH "kerja-bhakti" dulu membuatkan workbooknya ..
baru kemudian membuat solusinya... kacian deh pananggap....
Misal kita punya book dengan 724 sheets bernama Sheet1, Sheet2 dst;
nama-nama sheet itu kita tulis di semua Sheet di Kolom H mulai H2 ke bawah.
Cell-cell berisi data nama sheets itulah yg akan dijadikan "HYERLINK"
Klik Cellnya (atau aktifkan cell nya dengan cara apapun, dengan mouse mapun
tanpa mouse mengarahkan cell-pointer ke salah satu Cell "HYPERLINK") maka
Nama sheet yg ada di cell tsb walaupun semula dlm kondisi HIDDEN akan di-
UNHIDE sambil di-AKTIFKAN
Sheet tempat anda mengKlik HYPERLINK tadi akan dibuat HIDDEN (kecuali Sheet1,
karena Sheet1 yg kita anggap KEPALA ROMBONGAN para-Sheets nya).
Lagi pula suatu workbook tidak dapat di HIDE SEMUA Sheetsnya, paling tidak
harus ada 1 sheet yg statusnya visible.
Hyperlink ASLI sepertinya tidak dapat diatur-atur agar berperilaku seperti itu,
maka sebagai gantinya kita rekayasa dengan pemrograman VBA
Prosedur ini ditulis di Module ThisWorkbook, memanfaatkan EVENT Sheet_Selection_Change
Private Sub Workbook_SheetSelectionChange( _
ByVal Sh As Object, ByVal Target As Range)
' Ontoseno / for XL-mania Case #20103
'------------------------------------
If Target.Cells.Count = 1 Then
If Target.Column = 8 Then
If Target.Row > 1 Then
If Target.Row < 11 Then
If Sheets(Target.Value).Name <> "" Then
If ActiveSheet.Name <> "Sheet1" Then
ActiveSheet.Visible = False
End If
Sheets(Target.Value).Visible = True
Sheets(Target.Value).Activate
End If
End If
End If
ElseIf Target.Address = "$D$2" Then
Dim sht As Worksheet
For Each sht In Me.Worksheets
sht.Visible = True
Next
End If
End If
End Sub
' ===================================
' kalau ingin lebih keren coba file mbak siti
' Sheets Manager.xls / yg dapat diunduh di sini:
'----------------------------------------------
o'Seno
2012/3/19 pharianj <pharianj@yahoo.co.id>
>
> Dear XL-mania,
> Mohon bantuannya cara membuat rumusan link antar sheet (hiden sheet) dalam satu file di excell 2003, dimana jika diklik linknya maka sheet yang terhide akan terbuka, kemudian bila diklik tombol "home"(atau sejenisnya) maka sheet tersebut akan terhide kembali dan tampilan kembali ke sheet awal.
> Mohon bantuannya sangat ya ..
>
> Thx,
> Paruli@n'H
2012/3/19 pharianj <pharianj@yahoo.co.id>
>
> Dear XL-mania,
> Mohon bantuannya cara membuat rumusan link antar sheet (hiden sheet) dalam satu file di excell 2003, dimana jika diklik linknya maka sheet yang terhide akan terbuka, kemudian bila diklik tombol "home"(atau sejenisnya) maka sheet tersebut akan terhide kembali dan tampilan kembali ke sheet awal.
> Mohon bantuannya sangat ya ..
>
> Thx,
> Paruli@n'H
__._,_.___
+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Delay pada posting disebabkan sibuknya momods dan leletnya |
| koneksi dengan ind***t. bwakakakaka....
+-------------------------------------------------------------------+
| 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.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 |
+-------------------------------------------------------------------+
| Delay pada posting disebabkan sibuknya momods dan leletnya |
| koneksi dengan ind***t. bwakakakaka....
+-------------------------------------------------------------------+
| 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.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