Dear siti,
 
Boleh kasih contoh untuk 2 items saja -- kalau nggak keberatan
misal filenya : "daily.xls" di drive "C"
 
sudah saya coba tapi gagal terus,
Bagaimana dengan format controlnya
 
Thanks
Fadjar
 
 
----- Original Message -----
From: siti Vi
Sent: Thursday, April 27, 2006 10:12 PM
Subject: Re: ]] XL-mania [[ Fw: Combo Box

maaf, sebetulnya agak ragu-ragu juga menanggapi problem ini, karena saya belum
tahu persis maksud pertanyaan Fajar.

yg saya tangkap, spt ini:
- ComboBox, di"gambar" di sheet (artinya nanti kita akan bekerja di sheet)
dan ComboBox sudah berhasil diisi 3 item pilihan.

(tugas sebuah comboBox memang cuma menampilkan SATU pilihan dari beberapa
pilihan yg dimilikinya)

- Yang diinginkan:

bila: pilihannya = "Daily"
Diinginkan: Excel membuka file tertentu (di folder mana, apa FileName-nya, Fajar tahu)
saya hanya dapat menduga: mungkin file tsb berekstensi XLS (Excel's Workbook)

bila pilihannya = "Weekly"
Diinginkan: (sama dengan pilihan Daily)

bila pilihanya = "Montly"
Diinginkan: (sama dengan pilihan Daily)

Jadi kayaknya Fajar hanya punya satu keinginan tetapi ingin ditampilkan dalam
3 NAMA pilihan (daily, weekly, monthly)

Sebetulnya pekerjaan membuka file, sungguh telah dibuat demikian gampang oleh
Excel, yaitu melalui menu File > Open, atau bahkan langsung Ikon "Open"
Jika masih terasa sulit, (karena harus mengarahkan ke Folder tertentu yg bukan
Excel-Default-File-Location), kita pun masih dapat memanfaatkan fitur "Favorit" tempat
kita dapat mendaftarkan folder-foler kesayangan kita agar mudah dijangkau.

Meskipun demikian, keinginan tsb tentu dapat dibuat, misalnya dengan
- setiap ada kejadian Pilihan di ComboBox diganti, event ini kita jadikan pemicu
untuk menjalankan "instruksi membuka file"

contoh: prosedur ini ditulis di lembar code, di level sheet, di mana comboBox tsb digambar.

Private Sub ComboBox1_Change()
   If ComboBox1.Value = "Daily" Then
      Workbooks.Open Filename:="L:\XL-Challenge\challange0029.xls"
   ElseIf ComboBox1.Value = "Weekly" Then
      Workbooks.Open Filename:="L:\XL-Challenge\challange0030.xls"
   Else
      Workbooks.Open Filename:="L:\XL-Challenge\challange0031.xls"
   End If
End Sub

pada contoh di atas, tiga pilihan yg ada akan membuka file "challenge" yg sebetulnya saat ini
belum ada.

yg perlu diperhatikan adalah PATH dan NAMA FILE, sesuaikan dengan file yg memang ada
di PC anda.

----- Original Message -----
From: Fadjar
Sent: Wednesday, April 26, 2006 5:11 PM
Subject: ]] XL-mania [[ Fw: Combo Box
 
Bagaimana cara mengaktifkan roll down menu menggunakan Combo Box
1 Apabila pointer saya gerakakkan ke Daily dan klik kiri maka secara
otomatis akan membuka file yang saya tuju dari drive yang sama atau
drive line
2 Begitu juga bila pointer digerakkan ke Weekly dan Monthly
 
 
3 Daily  
 
   
  Weekly    
  Monthly    
 
 
   
Terima kasih
Fadjar


+-:: XL-mania ::::::::::::::::::::----------------------------------+
|                                                                   |
| 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  |
| [EMAIL PROTECTED] atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/           |
+-------------------------------------------------------------------+
| Berikan testimoni Anda tentang XL-mania di :                      |
| http://www.friendster.com/profiles/xlmania                        |
+-------------------------------------------------------------------+




SPONSORED LINKS
Business application software Microsoft excel training Microsoft excel tutorial
Business application development Microsoft excel help Microsoft excel training course


YAHOO! GROUPS LINKS




Kirim email ke