Mungkin udf pada file terlampir sedikit beda dan lebih panjang dengan usulan mbak Siti.
UDF PotongTeks dibangun untuk mampu wrap text dalam sebuah cell dengan panjang maksimal tertentu per potongannya (alias meng-multi line-kan pada batas maksimal), dan mampu menghitung cacah jumlah baris hasil.
UDF tidak mampu memotong kata sesuai EYD. hahahaha....
Regards.
Kid.
sebetulnya...
karea sudah ada formula sakti dari mas kid; maka solusi berikut ini
menjadi gag-penting lagee
"kita" tetap ngeyel kirim; dengah harapan untuk dilihat-lihat saja lah
1 solusi dengan meu Edit > Fill > Justify
misal di kolom B di cell B2 tertulis datanya
di B1 kita tulis "ruller" sbb
'12345678901234567890123456789012345678901234567890
kemudian B1 itu diformat FONT = COURIER NEW
yaitu font yg width-nya fixed (semua karakter punya width yg sama)
begitu juga area range dimana hasil akan dituliskan
(misal B1:B1000)
kemudian kolom B kita atur lebarnya agar pas dengan lebar data di B1 itu
("habis itu"...) kita select B2 lalu selection kita lebarkan ke bawah
beberapa baris yg kira kira menampung hasil Fill-Justifying-nya
lebih baik kelebihan daripada kurang...
("habis itu"...) klik menu > Edit > Fill >> Justify
dan lihat apa yang terjadi... (mungkin ini termasuk hasil yg super dan mulia)
seperti muridnya Oom Mario Teguh
2 dengam FORMULA array
( sudah dicontohkan oleh Mr Kid )
Mohon dicoba pula =LEFT(E15,D15-1)
tetapi kolom D berisi formula helper (lihat lampiran)
Pelanggan Daily-Digest atau No-Mail/Web-Only bisa mengunduh sendiri
di sinih: http://www.box.net/shared/gq6aymcs2k
3. dengan formula berbantu UDF
=WrapFormula(B22,50)
jika fungsi WrapFormula diberlakukan tanpa argument ke 3 (Index)
maka dia harus di enter sebagai Array Formula yg ditulis sekaligus
pada beberapa cells sekolom
=WrapFormula(B22,50,1)
=WrapFormula(B22,50,2)
Di enter secara individual ( cell satu = formula biasa)
argument ke 3 (dlm contoh 2 dan 3) adalah "index hasil ke"
So misalnya hasilnya 6 baris dua formula tsb menghasilkan
hasil (penggalan kalimat) ke 2 dan ke 3.
Oiya argument ke 2 harus berisi angka bulat positip, (dlm contoh = 50)
dia adalah max banyaknya character per sekali tekuk.
Coding UDF nya ndak "macem-macem" (hanya 1 macem saja) spt ini
Function WrapFormula(S As String, _
L As Integer, Optional idx As Integer = 0)
'--siti Vi / jurangmangu, 24 jan 2011
Dim TxArr(), Txt As String
Dim m As Integer, n As Integer
Dim i As Integer, j As Integer
S = Trim(S) & " "
i = 1
Txt = Mid(S, 1, 51)
Do While i < Len(S)
For j = L + 1 To 1 Step -1
Txt = Mid(S, i, L + 1)
If Mid(Txt, j, 1) = " " Then
n = n + 1
ReDim Preserve TxArr(1 To n)
TxArr(n) = Left(Txt, j - 1)
i = i + j
Exit For
End If
Next j
Loop
If idx = 0 Then
WrapFormula = WorksheetFunction.Transpose(TxArr)
Else
WrapFormula = TxArr(idx)
End If
End Function> Para Master XL-Mania,
>
> Mohon bantuannya untuk kasus berikut :
> Bagaimana memisahkan kalimat yang puanjang menjadi beberapa sel,
> dengan batasan max karakter tiap sel 50. tapi tidak berantakan.
>
> Regard,
> Alex
>
| "if you are the most valuable assets, you will show up on the |
| balance sheet..." - oNo Wiqe |
| 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 |
+-------------------------------------------------------------------+
Nenhum comentário:
Postar um comentário