maaf, masih meneruskan case ini..
workbook lampiran posting 13 jul 2010 belum mengantisipasi
**jika ada penambahan data (misal nama pulau dan Kota bertambah)
**jika data tidak disort ByPulau & ByKota
workbook lampiran pada posting ini (ctv_Temperatur dan Humidity(V2)
berusaha mengantisipasi perkembangan tabel sumber; sehingga Items
pada kedua ListBox maupun kedua Chart yg tergambar tidak terlalu nguawurr...
di versi ini, tabel dinamisnya tidak lagi dibuat dengan formula OFFSAID seperti
sebelumnya, tetapi dibuat dengan makro, setiap kali ListBox Kota diganti pilihannya
Private Sub ListBox2_Click(
'membuat tabel dinamis
Dim i As Long, r As Integer, Pulaus As Range
Set DynTblA = Sheet1.Range("S1")
Set DynTblB = Sheet1.Range("X1")
Set Pulaus = Range(Range("A1"), Range("A1").End(xlDown)
DynTblA.CurrentRegi
DynTblB.CurrentRegi
DynTblA(1, 1) = "Kota"
DynTblA(1, 2) = "Tgl"
DynTblA(1, 3) = "Suhu Udara"
DynTblB(1, 1) = "Kota"
DynTblB(1, 2) = "Tgl"
DynTblB(1, 3) = "Kelembaban"
r = 1
For i = 1 To Pulaus.Rows.
If Pulaus(i, 2) = ListBox2.Value Then
r = r + 1
DynTblA(r, 1) = Pulaus(i, 2)
DynTblA(r, 2) = Pulaus(i, 3)
DynTblA(r, 3) = Pulaus(i, 4)
DynTblB(r, 1) = Pulaus(i, 2)
DynTblB(r, 2) = Pulaus(i, 3)
DynTblB(r, 3) = Pulaus(i, 5)
End If
Next i
DynTblA.CurrentRegi
DynTblB.CurrentRegi
End Sub
Akan halnya dua Listbox
* agar ListBox1 terisi Daftar-Uniq PULAU
kita pakai cara sederhana Kolom A1:A33 di -AdvanceFilter > UniqRecordOnly
hasilnya diletakkan misalnya di cel AF2:AF3
Property ListFillRange milik ListBox1 diisi = "AF2:AF3"
ini dapat dilakukan tanpa pemrograman, karena anda hanya perlu menampakkan
kotak proterty siObject, cari property ListFillRange lalu isikan alamat range ybs.
(cara ini masih kurang baik, karena jika data sumber berubah / misalnya bertambah dgn
PULAU baru; range AF2:AF3 tidak bisa otomatis mengikuti data sumber; di tulisan /
posting terpisah kita akan coba membuat semuanya otomatis mengikuti data sumber)
2010/7/9 Reza <jaxcom@gmail.com >
Dear senior XL,
Mohon bantuannya untuk dapat menampilkan multiple charts secara dinamis dari serangkaian data terlampir.
Idenya adalah, memilih "Pulau" dari List Box1 dan secara otomatis List Box2 menampilkan "Kota" berdasarkan "Pulau" terpilih dan selanjutnya chart "Suhu udara" dan "Kelembaban" akan tampil berdasarkan pilihan. Diinginkan pilihan bisa lebih dari 1 (multiple).
Terima kasih.
| 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