Beberapa temans menanyakan :
"bgmana modifikasinya agar Litsbox mampu memilih lebih dari satu
items (Multi Select ); dan kemudian items yg dipilih (Nama Sheets)
itu dibuat VISIBLE
Berikut ini coding makronya pada module UserForm1
(terutama pada dua prosedur event Innitialize dan ListBox_Change
Untuk mendeteksi item mana yg dipilih kita dapat menggunakan
property Selected(Index)
Karena item yg ter-select bisa lebih dari satu, kita merabanya
melalui looping. (For n = 0 To ListBox1.ListCount - 1)
'----------------------
Private Sub UserForm_Initialize()
'stdev(i) / rev 10 jul 2010
Dim sht
ListBox1.Clear
ListBox1.MultiSelect = fmMultiSelectExtended
For Each sht In ThisWorkbook.Worksheets
If Not sht.Name = "KODOK" Then
ListBox1.AddItem sht.Name
End If
Next
End Sub
Private Sub ListBox1_Change()
Application.ScreenUpdating = 0
HideAllSheets
Dim n As Integer
For n = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(n) = True Then
Worksheets(ListBox1.List(n)).Visible = -1
Worksheets(ListBox1.List(n)).Activate
End If
Next
Application.ScreenUpdating = 1
End Sub
'----------------------
Jika property MultiSelect milik ListBox di-Set = fmMultiSelectExtended
maka cara user memilih item mengikuti cara windows, yaitu digunakannya
kombinasi tombol Ctrl atau Shift + MousePointer
Lengkapnya ada di workbook lampiran
2010/7/2 STDEV(i) <setiyowati.devi@gmail.com>
>
> '==Module nilik UserForm1
> ' di dalam UserForm1 dibuat 1 ListBox (ListBox1)
>
> Private Sub ListBox1_Change()
> HideAllSheets
> Worksheets(ListBox1.Value).Visible = -1
> Worksheets(ListBox1.Value).Activate
> End Sub
>
> Private Sub UserForm_Activate()
> Dim sht
> For Each sht In ThisWorkbook.Worksheets
> If Not sht.Name = "KODOK" Then
> ListBox1.AddItem sht.Name
> End If
> Next
> End Sub
>
>
> Efek yg diharapkan dengan adanya makroh tsb adalah
> 1- jika worbook dibuka: kondisi semua sheets (kecuali si "KODOK") dibuat VERY HIDDEN
> 2- Jika tombol yg ada di sheet KODOK di ceklik > akan ada DialogBox "Select and Activate Sheet"
> di dalamnya ada ListBox yg berisi daftar nama sheets
> 3- Jika Nama Sheet (dlm ListBox) di select, maka sheet yg terkait di VISIBLEkan
> (Sheet lain = tetap di VERY HIDDEN kan)
> 4- Jika memilih sheet dlm listbox sambik di DOUBLE KLIK,
> selain efek no.3 juga akan menutup DialogBox (UserForm1)
>
| jangan lupa sebelum bertanya, cek dulu www.XL-mania.com dan |
| http://tech.groups.yahoo.com/group/XL-mania/messages |
| 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