Hot Fox: Re: ]] XL-mania [[ Text to Row?

terça-feira, 14 de julho de 2009

Re: ]] XL-mania [[ Text to Row?

cara lain:
sebaiknya di sheet di hilangkan dulu merged-cellsnya
lalu melalui menu View > FormulaBar : jangan tampakkan formla bar
(agar menselect cells yg berisi data besar itu lebih mudah & mudah dilihat
selectionnya)

blok / select: cells yg berisi data yg akan dikonversi
di contoh terlampir = B5:U5
tekan alt + F8
pilih nama makro : TextTopRow
klik tombol RUN

hasil akan ditulis di row di bawah data yg diolah
diberi pembatas beberapa row kosong

'== makaronya seperpti ini ==

Sub ctv_TextToRow()
   Dim col As Integer
   Dim r As Long, n As Long
   Dim k As String, kr As String
   Dim S As String

   For col = 1 To Selection.Columns.Count
      r = 0
      S = Selection(1, col).Value
      For n = 1 To Len(S)
         k = Mid(S, n, 1)
         kr = kr & k

         If k = Chr(10) Then
            r = r + 1
            ActiveCell(5 + r, col) = kr
            kr = ""
         End If
      Next n
   Next col

End Sub

2009/7/14 oyi kresnamurti <kresnamurti@yahoo.co.id>

:)
assalamu'alaikum xl-mania,

ini postingan saya yg pertama, dari member yg bisanya cuma lurking
dowang dan 'mencuri' ilmu dari para suhu disini.

hari ini saya sedang mengkonversi file pdf ke xls, namun ada beberapa
sheet yg kurang sempurna pengkonversiannya sehingga data yg harusnya 33
row digabung menjadi satu. contohnya saya lampirkan di email ini.

saya sudah coba utak-atik namun tidak ketemu juga bagaimana caranya
memisahkan data yang ada dalam satu sel menjadi, misalnya, 33 baris/row.
bila dikonversi dari teks ke kolom ada fungsinya di excel, nah kalau
dari text to row, ada tidak? bila tidak ada, mungkin ada cara pemecahannya?

mohon bantuannya, terima kasih.

--
wassalam,
oyi kresnamurti

__._,_.___

Messages in this topic (5) Reply (via web post) | Start a new topic

Messages

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| 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              |
+-------------------------------------------------------------------+

MARKETPLACE

Mom Power: Discover the community of moms doing more for their families, for the world and for each other