1. solusi dengan makro:
Private Sub Worksheet_Change(ByVal Target As Range)
' hapsari / sept 6, 2011
'=======================
If Target.Address = "$O$25" Then
If Len(Target.Value) > 0 Then
Dim dTabel As Range, Hasil As Range
Dim i As Long, n As Long, c As Integer
Target.CurrentRegion.Offset(2, 0).ClearContents
Set dTabel = Range("D9").CurrentRegion.Offset(2, 0)
Set dTabel = dTabel.Resize(dTabel.Rows.Count - 2, 1)
Set Hasil = Range("P26")
If WorksheetFunction.CountIf(Range("F8:I8"), Target.Offset(0, -1)) _
Then c = WorksheetFunction.Match(Target.Offset(0, -1), Range("F8:I8"), 0) + 2
For i = 1 To dTabel.Rows.Count
If dTabel(i, 1) = Target Then
n = n + 1
Hasil(n, 1) = dTabel(i, 2)
Hasil(n, 2) = dTabel(i, c)
End If
Next i
End If
End If
End Sub
(2)
Solusi dengan formula, dengan syarat Class ditulis lengkap
(mengikuti kaidah database) dan SORTED
array formula multi hasil
=OFFSET($E$8,MATCH(O8,$D$9:$D$26,0), 0, COUNTIF($D$9:$D$26,O8), 1)
array formula multi hasil
=OFFSET($E$8,MATCH(O8,$D$9:$D$26,0), MATCH(N8,$F$8:$I$8,0), COUNTIF($D$9:$D$26,O8), 1)
2011/9/6 Subkhan Zaeni <subkhan.zaeni@id.panasonic.com>
Dear Pakar Excel dan Excel mania
Terima kasih sebelumnya kepada Bu CTV dan Mr Kid yang telah membantu pertanyaan saya sebelumnya.
Mohon bantuannya sekali lagi untuk pemecahan hasil dan validasi
Dari contoh sya sebelumnya antara type dan kelas part penamaannya tidak jauh berbeda…( typical)
Type A Kelas A1, A2, A3 dst
Type B Kelas B1, B2 dst
mohon pencerahaanya apabila type dan kelas penamaannya tidak sama… contoh terlampir
sya sudah mencoba formula dari Bu CTV dan Mr Kid namun hasilnya tidak muncul
Terima kasih
Best regards,
Subkhan Zaeni
__._,_.___
+-:: XL-mania ::::::::::::::::::::----------------------------------+
| selamat idul fitri, mohon maaf lahir dan batin... |
| www.linkedin.com/company/xl-mania |
| ayo pesan buku "mengapa boss benci chart anda" :D :D :D |
+-------------------------------------------------------------------+
| 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 |
+-------------------------------------------------------------------+
| selamat idul fitri, mohon maaf lahir dan batin... |
| www.linkedin.com/company/xl-mania |
| ayo pesan buku "mengapa boss benci chart anda" :D :D :D |
+-------------------------------------------------------------------+
| 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
.
__,_._,___
Nenhum comentário:
Postar um comentário