Re: ]] XL-mania [[ Konversi dari Cell ke Row

 

formulanya sangat singkat

=SplitByCrlf(B3)

ditulis sbg ArrayFormula sekaligus pada 4 cell sekolom,

misal di cell B9:12

 

SPlitByCrLf adalah sebuah FBD atau sering disebut UDF

yg codingnya seperti ini

 

Function SplitByCrlf(Rng As Range) As Variant
   ' SitiVi / memisah SubData basaed-on Chr(10)
   '--------------------------------------------
   Dim Arr, n As Integer
   Arr = Split(Rng, Chr(10))
   For n = 0 To UBound(Arr)
      If n > 0 Then
         If Arr(n) = "" Then Arr(n) = Arr(n - 1)
      End If
   Next
   SplitByCrlf = WorksheetFunction.Transpose(Arr)
End Function

dengan formula biasa (tanpa bantuan UDF) juga bisa...

 

---

----- Original Message -----

From: Eko Darminto

To: XL-mania@yahoogroups.com

Sent: Tuesday, April 13, 2010 3:15 PM

Subject: ]] XL-mania [[ Konversi dari Cell ke Row

Dear Masters, saya punya kasus yang agak unik (menurut gw sih). Kira2 bisa ngga ya konversi dari cell ke row? saya attach kan sample nya.   Thanks, EkoD

 

__._,_.___

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

Messages in this topic (2)

Recent Activity:

• New Members 95

Visit Your Group

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Momods kebanyak meeting :( :( :(                                  |
| 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              |
+-------------------------------------------------------------------+

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

.

__,_._,___