kalau boleh dengan makro (dan syarat Dobel-Klik itu diganti Klik saja /event SelectionChange)
soalnya DoubleKlik pada cell sudah terpakai untuk mengaktifkan FormulaBar; atau jika
cell berisi formula, ditampakkan formula nya
mungkin seperti ini ( lihat worbook lampiran)
---kutipan isi module sheet1---
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'coded by: siti Vi / on: 9 Dec 2010
Dim kriteria As String, dTabel As Range, dHasil As Range
Dim r As Long, n As Long
Set dTabel = Range("dTabel")
Set dHasil = Range("N9")
If Target.Cells.Count = 1 Then
kriteria = Trim(Target(0, 1).Text)
dHasil.CurrentRegion.Offset(1, 0).ClearContents
If Target.Address = "$J$10" Or Target.Address = "$J$13" Or Target.Address = "$J$16" Then
For n = 1 To dTabel.Rows.Count
If Trim(dTabel(n, 3)) = kriteria Then
r = r + 1
dTabel(n, 1).Resize(1, 3).Copy dHasil(r, 1)
End If
Next n
End If
End If
End Sub
2010/12/8 rico martin <ajibataku@yahoo.com>
>
> Dear Pakar Excel,
>
> Saya punya case,sesuai dengan data terlampir. Saya punya data di tree summary, jika saya klik data tersebut,
> list yang diinginkan akan dimunculkan ( seperti pada pivot table ), namun data ini ada pada tree summary ( silahkan dilihat di lampiran ).
>
> Mohon bantuannya dan terimakasih
>
> Salam
> Rico
>
| momods mencari penerbit buku yang oke dan muantab.... adakah? |
| ayo silahkan coba lowongan yang momod kirim... |
| 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