coba dengan UDF,
hanya dengan mengetik:
=nama1(B2) untuk "nama jadian 1"
atau
=nama2(B2) untuk "nama jadian 2"
nama jadian 1:
Function nama1(y As Range)
'anton suryadi 14/Des/2010
Z = Split(y)
For i = 0 To UBound(Z)
If i < 2 Then
t = t & Z(i) & " "
Else
t = t & Left(Z(i), 1) & " "
End If
Next i
nama1 = Trim(t)
End Function
nama jadian 2:
Function nama2(m As Range)
'anton suryadi 14/Des/2010
w = Split(m)
If UBound(w) = 1 Then
nama2 = w(0) & " " & Left(w(1), 1)
Exit Function
ElseIf UBound(w) = 2 Then
nama2 = w(0) & " " & Left(w(1), 1) & ". " & w(2)
Exit Function
End If
For j = 0 To UBound(w)
If j = 0 Or j = UBound(w) Then
p = p & w(j) & " "
Else
p = p & Left(w(j), 1) & ". "
End If
Next j
nama2 = Trim(p)
End Function
File terlampir
>semoga bermanfaat
From: Bocah Ganteng <mas_ighoz@yahoo.co.id>
To: XL-mania@yahoogroups.com
Sent: Fri, December 10, 2010 12:38:15 PM
Subject: ]] XL-mania [[ Nama Jadian I-Ghoz
| Sahabat XL-Mania... Kadang nama kita terdiri dari beberapa kata dan kadang pula menjadi merepotkan. Untuk itu mohon pencerahan formula apa yang harus dimasukkan pada kolom jadian di file terlampir. Terimakasih solusinya (semoga bahasa awam saya dapat diterima) I-Ghoz |
__._,_.___
+-:: XL-mania ::::::::::::::::::::----------------------------------+
| sOrRy dOrRy j3K... m0m0dS LaGi HeC-tiC... waQaQaQa... |
| 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 |
+-------------------------------------------------------------------+
| sOrRy dOrRy j3K... m0m0dS LaGi HeC-tiC... waQaQaQa... |
| 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
.
__,_._,___
Nenhum comentário:
Postar um comentário