Re: ]] XL-mania [[ Menjabarkan data ke bawah

 

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 Sub

Cara menjalankannya cukup double click mouse di sel mana saja dalam Sheet1

Mungkin bisa disempurnakan oleh para Master.

Salam,

Hendrik Karnadi

---

From: huda <hudadebono@gmail.com>
To: xl-mania <xl-mania@yahoogroups.com>
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

__._,_.___

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (3)

Recent Activity:

• New Members 53

Visit Your Group

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Delay pada posting disebabkan sibuknya momods dan leletnya        |
| koneksi dengan ind***t. bwakakakaka....
+-------------------------------------------------------------------+
| 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.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              |
+-------------------------------------------------------------------+

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

.

__,_._,___