Tecnologia, programação e muito Visual FoxPro.

quarta-feira, 14 de julho de 2010

Re: ]] XL-mania [[ aplikasi list box untuk tampilan chart secara dinamis

 

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).xls)
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.CurrentRegion.ClearContents
   DynTblB.CurrentRegion.ClearContents
   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.Count
      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.CurrentRegion.Name = "DynTblA"
   DynTblB.CurrentRegion.Name = "DynTblb"
End Sub



2010/7/13 STDEV(i) <setiyowati.devi@gmail.com>

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.


__._,_.___
Recent Activity:
+-:: XL-mania ::::::::::::::::::::----------------------------------+
| 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              |
+-------------------------------------------------------------------+
MARKETPLACE

Stay on top of your group activity without leaving the page you're on - Get the Yahoo! Toolbar now.


Get great advice about dogs and cats. Visit the Dog & Cat Answers Center.


Hobbies & Activities Zone: Find others who share your passions! Explore new interests.

.

__,_._,___

Nenhum comentário:

Arquivo do blog