Re: ]] XL-mania [[ memotong kata dalam kalimat

 

daripada pusing mikirin formula kepanjangan;

alternatif lain:  pakai fungsi buatan dalam negeri

=LeftKata(A3,B3)

tinggal menularkan ke cells dibawahnya

' coding UDF nya, kira kira spt ini

Function LeftKata(Kalimat As String, N As Integer)

   'siti Vi // Junn 14, 2011 / XL-mania case

   Dim ArrK, i As Integer

   Kalimat = WorksheetFunction.Trim(Replace(Kalimat, "  ", " "))

   ArrK = Split(Kalimat, " ")

   If N > UBound(ArrK) + 1 Then N = UBound(ArrK) + 1

   For i = 1 To N

      LeftKata = LeftKata & " " & ArrK(i - 1)

   Next

End Function

2011/6/14 Pietroli Foe <pietrolifoe@yahoo.com>

Mohon pencerahan bagaimana jurusnya jika ingin memotong beberapa kata dalam satu kalimat 

sekaligus menghilangkan kelebihan spasi yang ada.

Contoh terlampir

terima kasih

Salam

Piet

__._,_.___

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

Messages in this topic (2)

Recent Activity:

• New Members 83

Visit Your Group

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| maaf baru moderate sekarang... momods kurang tidur berhari-hari   |
| jadi budak kantoooOOooorrr...                                     |
| 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

.

__,_._,___