Saya coba pakai ilmu para Master yang pernah ada dalam milis ini atau milis
tetangga.
Macronya kira-kira begini:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Dim ArrNames As Variant
ArrNames = Split(Range("A1"), ", ")
For i = 0 To UBound(ArrNames)
s = ArrNames(i)
ActiveCell.Offset(1, 0).Select
ActiveCell = s
Next
End SubCara menjalankannya cukup double click mouse di sel mana saja dalam Sheet1 Mungkin bisa disempurnakan oleh para Master. Salam, Hendrik Karnadi ________________________________ From: huda <[email protected]> To: xl-mania <[email protected]> Sent: Wednesday, 11 April 2012, 10:33 Subject: ]] XL-mania [[ Menjabarkan data ke bawah Dear Para master-master excel Mohon petunjuk untuk menjabarkan data ke bawah. Contoh Kasus: Anggur, Melon, Semangka, Wortel, Jeruk dan dijabarkan ke bawah, sehingga menjadi: Anggur Melon Semangka Wortel Jeruk Atas petunjuknya, kami sampaikan terimakasih Huda
Split Word.xlsb
Description: application/vnd.ms-excel.sheet.binary.macroenabled.12
