dampak buruk teknologi

dampak buruk teknologi

Jumat, 20 Agustus 2010

mengubah angka menjadi huruf di Microsoft Excel 2007

buat temen-temen yang bekerja terkait perhitungan uang di excel pasti males ketika disuruh merevisi hasil perhitungannya, apalagi kalo revisi itu merubah angka akhir di penjumlahan, kita harus merubah lagi huruf dari bilangan tersebut.
contoh aplikasi excel yang membutuhkan perubahan bilangan ke huruf:
nah berikut cara untuk merubah angka menjadi huruf secara otomatis, so kita tidak perlu merubah huruf secara manual.
Langkah 1 :
masuk ke microsoft excel, lihat pada quick access tollbar apakah sudah tersedia  tollbar developernya
seperti tampak pada bulatan merah di atas, bila belum coba klik kanan pada ribbon quick access tollbar dan pilih customize quick access tollbar, setela itu klik menu popular dan centang pada show developer tab in the ribbon

setelah tollbar developernya muncul pilih aplikasi macro didalamnya atau tekan Alt+F8.....
setelah aplikasi macro dah aktif muncul identifikasi nama macronya,


untuk percobaan isi aja dengan terbilang1 kemudian klik create, setelah create di klik maka muncul aplikasi microsoft visual basic, di sinilah kita masukkan script agar aplikasi tersebut dapat berjalan.
contoh script untuk mengubah angka ke huruf :

Public Function terbilang(x As Currency)
    Dim triliun As Currency
    Dim milyar As Currency
    Dim juta As Currency
    Dim ribu As Currency
    Dim satu As Currency
    Dim sen As Currency
    Dim baca As String
    If x > 1000000000000# Then
       terbilang = "< di atas satu triliun rupiah >"
       Exit Function
    End If
    'Jika x adalah 0, maka dibaca sebagai 0
    If x = 0 Then
       baca = angka(0, 1)
    Else
       'Memisahkan bagian untuk triliun, milyar, juta, ribu, rupiah, dan sen
       triliun = Int(x * 0.001 ^ 4)
       milyar = Int((x - triliun * 1000 ^ 4) * 0.001 ^ 3)
       juta = Int((x - triliun * 1000 ^ 4 - milyar * 1000 ^ 3) / 1000 ^ 2)
       ribu = Int((x - triliun * 1000 ^ 4 - milyar * 1000 ^ 3 - juta * 1000 ^ 2) / 1000)
       satu = Int(x - triliun * 1000 ^ 4 - milyar * 1000 ^ 3 - juta * 1000 ^ 2 - ribu * 1000)
       sen = Int((x - Int(x)) * 100)
       'Baca bagian triliun dan ditambah akhiran triliun
       If triliun > 0 Then
          baca = ratus(triliun, 5) + "triliun "
       End If
       'Baca bagian milyar dan ditambah akhiran milyar
       If milyar > 0 Then
          baca = ratus(milyar, 4) + "milyar "
       End If
       'Baca bagian juta dan ditambah akhiran juta
       If juta > 0 Then
          baca = baca + ratus(juta, 3) + "juta "
       End If
       'Baca bagian ribu dan ditambah akhiran ribu
       If ribu > 0 Then
          baca = baca + ratus(ribu, 2) + "ribu "
       End If
       'Baca bagian rupiah dan ditambah akhiran rupiah
       If satu > 0 Then
          baca = baca + ratus(satu, 1) + "rupiah "
       Else
          baca = baca + "rupiah"
       End If
       'Baca bagian sen dan ditambah akhiran sen
       If sen > 0 Then
          baca = baca + ratus(sen, 0) + "sen"
       End If
    End If
    terbilang = UCase(Left(baca, 1)) & LCase(Mid(baca, 2))
End Function

Function ratus(x As Currency, Posisi As Integer) As String
    Dim a100 As Integer, a10 As Integer, a1 As Integer
    Dim baca As String
    a100 = Int(x * 0.01)
    a10 = Int((x - a100 * 100) * 0.1)
    a1 = Int(x - a100 * 100 - a10 * 10)
    'Baca Bagian Ratus
    If a100 = 1 Then
       baca = "Seratus "
    Else
       If a100 > 0 Then
          baca = angka(a100, Posisi) + "ratus "
       End If
    End If
    'Baca Bagian Puluh dan Satuan
    If a10 = 1 Then
       baca = baca + angka(a10 * 10 + a1, Posisi)
    Else
       If a10 > 0 Then
          baca = baca + angka(a10, Posisi) + "puluh "
       End If
       If a1 > 0 Then
          baca = baca + angka(a1, Posisi)
       End If
    End If
    ratus = baca
End Function

Function angka(x As Integer, Posisi As Integer)
    Select Case x
        Case 0: angka = "Nol"
        Case 1:
            If Posisi <= 1 Or Posisi > 2 Then
               angka = "Satu "
            Else
               angka = "Se"
            End If
        Case 2: angka = "Dua "
        Case 3: angka = "Tiga "
        Case 4: angka = "Empat "
        Case 5: angka = "Lima "
        Case 6: angka = "Enam "
        Case 7: angka = "Tujuh "
        Case 8: angka = "Delapan "
        Case 9: angka = "Sembilan "
        Case 10: angka = "Sepuluh "
        Case 11: angka = "Sebelas "
        Case 12: angka = "Duabelas "
        Case 13: angka = "Tigabelas "
        Case 14: angka = "Empatbelas "
        Case 15: angka = "Limabelas "
        Case 16: angka = "Enambelas "
        Case 17: angka = "Tujuhbelas "
        Case 18: angka = "Delapanbelas "
        Case 19: angka = "Sembilanbelas "
    End Select
End Function


 copy paste  script di atas kemudian paste dibwah end sub dari terbilang1


kemudian run aplikasi tersebut atau tekan F5
kemudian kembali ke microsoft excelnya, bila kita ingin mamakai aplikasi tersebut tinggal kita ketik formulanya:

=terbilang1()       

 keterangan :
() diisi dengan cell yang berisi angka yang kita inginkan untuk dirubah menjadi huruf



selamat mencoba yah, oh ya sript bisa dirubah-rubah kok sesuai ma yang kamu inginkan.........

gak bisa mudik

waduh tiket Kereta dah habis semua!!!!!!!!buat yang balik n mudik dah habis semua!!!!mau naek bis pasti macet, mau naek pesawat waduh males harus ke jakarta dulu dan ditambah takut ketinggian juga dah mending gak usah.
yah pilihannya cuma tinggal dua, tetep di indramayu sambil ngajuib lembur ke bos or mudik ke purwokerto, ke rumah calon bini. padahal gw dah kangen banget mau godain keponakan tercinta
yach mau gimana lagi........miss u my little nephew......muach

Senin, 16 Agustus 2010

wah selsai upacara mang enak nyantai sambil nunggu buka puasa entar....yang artinya!bobok seharian brur....hahahahaha
jadi inget td pagi bangun n mandi bis tu mw masang dasi gak tau cara buat simpulnya, jadi nyesel kenapa krn gw buka simpulnya yah....dengan sigap nyalai komputer n browsing cara buat simpul dasi, apa sih yg gak da inet!!!dari simpul perfect sampai simpul kuda ada, ni salah satu contohnya
dah siap dasinya langsung dah meluncur ke lapangan bola, yup karena upacaranya di lapangan bola, cuaca cerah n panas, mendung yg diharapkan gak da yang mampir....bener2 cuaca yang cerah!!!upacara mah gitu2 aja dari dulu, dari jaman TK ampe skr isinya ya pengibaran bendera, pidato, nyanyi n berdoa, gak da yang namanya dangdutan (itu mah acara kampanye kali).

Jumat, 13 Agustus 2010

FIRST TIME....

facebook dah membosankan....seandainya gak da Chatnya pasti dah ane tinggalin dari dulu. mau maen twitter males juga....ah nyoba ngeblog ja ah......hehehehe siapa tau bisa buat buku kayak raditya dika nanti nya :nohope (beuh mau ngetik ja susah, gak da ide yg keluar!!!)so, blog ni diharapkan bisa jadi septictank ane buat buang masalah, cobaan n tok*i hehehehe biar gak jadi stress seperti orang2 di DPR sana......
oh ya minta doanya ya biar blog ni bisa trus eksis...ane bisa ngisi postingan dengan teratur ( sehari sekali, sebulan or setahun sekali juga gak mama, yg penting teratur ihiihi), rencananya sih blog ni ni bakal berisi tumpahan hati n sekalian juga ilmu yg ane punya biar seluruh manusia bisa pintar seperti ane, pinter berbohong, pinter mencuri dan sebagainya hehehehe.
so prend moga2 ane juga gak lupa password blog ni (seperti nasib2 site yg ane ikutin lainnya) see u next topic bro n sis!!!!
selamat menjalankan ibadah puasa
ps:ternyata gak semua setan dirantai dineraka lho!!!!!!
ni disebelah ane ada 1!!!!kkkkkkkkaaaaaaaabbbbbuurrrrrrrr..........................................................................