Maksudnya, Combobox3 berubah-ubah isi LIST-nya
sesuai Jenis yg ditampilkan oleh Combobox1 ?
sedangkan kesamaan JENIS itu diindikasikan dengan
format warna interior cell ybs ??
Kalok benar begitu; di UserForm's MODULE, perlu ditambah sebuah prosedur spt ini
Private Sub ComboBox1_Change(
Dim i As Integer
ComboBox3.Clear
With ComboBox1
If .ListIndex > -1 Then
Rhs = Sheets("data").Cells(.ListIndex + 1, 1).Interior.
For i = 1 To 12 ' dgn konstanta 12 ini data di sheet data dianggap = tidak berkembang
If Sheets("data").Cells(i, 3).Interior.
ComboBox3.AddItem Sheets("data").Cells(i, 3)
End If
Next i
End If
End With
End Sub
hormat kami,
siti
2009/7/16 Pasci, Ade Aries <ade.aries.pasci@
>
> Dear Pakar Excel,
> Mohon Pencerahannya yach...
>
> 1. Di Sheet data ada banyak data. Tapi datanya sesuai dengan
> warnanya. akan di ambil datanya berdasarkan colom dalam sheet.
> 2. Tapi listing untuk membatasi pengambilannya dalam
> Combobox gimana ya?
>
> saat : Lengan panjang (di klik)
> khusus data lengan panjang aja yg keluar sesuai warnanya. begitu
> seterusnya.
> 1. Lengan panjang (biru) =>
> Pollo (biru)
> Boss (biru)
> Number 61 (biru)
> Alisan (biru)
> 2. Lengan pendek (kuning)
> => Nike (kuning)
> Adidas (kuning)
> Reebox (kuning)
> 3. Celana panjang (pink) =>
> Lee (pink)
>
> BMW (pink)
> 4. Celana pendek (hijau) =>
> The North Face (hijau)
>
> Codoray (hijau)
>
> The color (hijau)
>
>
> Terima kasih,
| XL-mania, berjuang untuk rakyat, pancen oyeeee, LANJUTKAN! |
| 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 |
+-------------------------------------------------------------------+
Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Daily Digest | Switch format to Traditional
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe
Nenhum comentário:
Postar um comentário