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.

 
Tinggalkan komentar

Ditulis oleh pada Maret 15, 2013 in Komputer

 

Berikan Balasan

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

Logo WordPress.com

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

Gambar Twitter

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

Foto Facebook

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

Foto Google+

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

Connecting to %s

 
Ikuti

Kirimkan setiap pos baru ke Kotak Masuk Anda.

%d blogger menyukai ini: