RSS

Menambahkan Fungsi Huruf Besar pada Awal Kalimat

15 Mar

Beberapa hari ini disibukkan dengan banyaknya permintaan kuitansi yang harus dibuat karena kemarin melakukan banyak kegiatan. Nah, dari unit Keuangan minta, klo bisa pakai fungsi ” terbilang ” di Excel huruf pertamanya dibuat besar, misalnya : satu juta lima ratus rupiah menjadi Satu juta lima ratus rupiah (jadi huruf yang besar/kapital hanya di awal kalimat saja).

Aku pikir fungsi itu kan sudah ada di Excel, setelah coba pakai fungsi lower, upper, proper, ternyata ndak sesuai yang diharapkan. Setelah bertanya kepada mbah Google, terjawablah, gini caranya :

1. Harus sudah punya fungsi terbilang (cari saja di internet, banyak sekali yang punya)

2. Tambahkan fungsi berikut di baris paling atas :

Public Function HurufBesar(ByVal Rupiah As String) As String
If Len(Rupiah) > 0 Then Mid$(Rupiah, 1, 1) = UCase$(Mid$(Rupiah, 1, 1))
If Len(Rupiah) > 1 Then Mid$(Rupiah, 2) = LCase$(Mid$(Rupiah, 2))
HurufBesar = Rupiah
End Function

3. Pada fungsi terbilang tambahkan ini :

If IsNeg = True Then
Terbilang = “minus ” & Rupiah & Sen
Else
Terbilang = HurufBesar(Rupiah & Sen)
End If

Gambar 1 :

gb_1

Gambar 2 :

gb_2

Klo sudah silakan dicoba, pastinya huruf pertama pada kalimat tersebut saja yang berubah menjadi huruf besar. Diambil dari banyak sumber di internet. Terima Kasih.

About these ads
 
Tinggalkan komentar

Posted by pada Maret 15, 2013 in Komputer

 

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Logout / Ubah )

Twitter picture

You are commenting using your Twitter account. Logout / Ubah )

Facebook photo

You are commenting using your Facebook account. Logout / Ubah )

Google+ photo

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

 
Ikuti

Get every new post delivered to your Inbox.

%d bloggers like this: