Re: ]] XL-mania [[ Merubah Huruf

 

Anda punya banyak kalimat di mana semua hurufnya = Huruf CAPITAL /
(UpperCase) atau semua hurufnya = huruf kecil (lowerCase), atau..
Upper/Lower-Casenya tidak beraturan..

Truzz... anda ingin mengubah banyak kalimat tsb menjadi "Proper";
yaitu semua Huruf Pertama = UpperCase; selain itu semua huruf = LowerCase.

Tetapi anda ingin agar KATA-KATA tertentu tetap ditulis sebagai UpperCase 
Yang dimaksud dengan kata-kata tertentu tsb biasanya berupa singkatan, misal :
RS, PT, CV, RUP, RSU, SH, SE, PRJ, DLLAJR,
POLRI, TNI, RRI, TVRI, SCTV, RCTI, DKI, DIY,
KDRT, CLBK (=cinta lama belon kelar)  dst..

contoh

"AKU BERPISAH DI TERAS RSPAD GATOT SUBROTO"
/ "aku berpisah di teras rspad gatot subroto"
ingin diubah menjadi
"Aku Berpisah Di Teras RSPAD Gatot Subroto"
dengan RSPAD ingin ditulis sebagai huruf Capital SEMUA

Seandainya anda punya atau MAU membuat daftar kata-kata yg anda inginkan

mendapat perlakuan istimewa seperti itu, maka kita dapat dengan mudah memenuhi

keinginan tsb

Cara paling mudah kita buat sendiri sebuah fungsi khusus

Dlm workbook lampiran; kita membuat fungsi khusus yg bernama

Special Proper.

sintaks nya  =SpecialProper(Text,RangeBerisiDaftarKata)

'------------
' listing prosedur fungsi

Function SpecialProper(Str As String, Daftar As Range) As String
' siti Vi // 12 Agu 2010 / devoted to XL-mania
' fungsi seperti PROPER tetapi mengabaikan Daftar Kata tertentu
Dim Txt As String     '= String penampung kata
Dim StrArr As Variant '= Array Kata ex Str (Data kalimat)
Dim i As Integer      '= pencacah (counter) Loop I
Dim n As Integer      '= pencacah Loop II

StrArr = Split(Str, " ")
For i = 0 To UBound(StrArr)
For n = 1 To Daftar.Rows.Count

UCase(StrArr(i)) = Daftar(n) Then

StrArr(i) = UCase(StrArr(i))
Exit For
Else
StrArr(i) = WorksheetFunction.Proper(StrArr(i))
End If

Next n

Next i

For i = 0 To UBound(StrArr)

Txt = Txt & StrArr(i) & " "
Next i
SpecialProper = Trim(Txt)
End Function

'-------------

2010/8/12 STDEV(i) <setiyowati.devi@gmail.com>

> biasanya 'orang-orang' pakai fungsi PROPER
> misal tulis di B1  =PROPER(A1)
> hanya saja "PT"  menjadi "Pt"
>
> misalnya  khusus "PT"  jika  di"PROPER" tetap PT
> rumyus nya  menjadi seperti ini
> =SUBSTITUTE(PROPER(A1);"Pt";"PT")
>
> repotnya kalau anda punya kata "khusus" yang buanyak sekaleee..
> (tapi tentu masih bisa dicari caranya),
> tunggu sajah para fakar turun tangan...
>
>
> 2010/8/10 anwar <anwar.tarigan@katarina.co.id>
>>
>> Dear all members,
>> Saya mempunyai masalah dengan excel, mohon untuk members yang
>> dapat menolong memberikan solusinya.
>>
>> Contoh :
>> PT SUASANA TENANG
>> Bagaimana cara merubahnya dengan menggunakan excel supaya menjadi
>> PT Suasana Tenang.
>>
>> Contoh lain terlampir diexcel.
>>
>> Member,
>> AT

__._,_.___

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

Messages in this topic (8)

Recent Activity:

• New Members 92

Visit Your Group

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| selamat menunaikan ibadah puasa... walau perut lapar, tanya excel |
| jalan terus... malu bertanya telat pulang kantor :D :D :D         |
| 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

.

__,_._,___