More

    Cara Membuat Fungsi Terbilang Pada Open Office

    Pada artikel kali ini, saya akan mengajarkan bagaimana Cara Membuat Fungsi Terbilang Pada Open Office. Ada beberapa cara yang bisa anda gunakan untuk membuat fungsi terbilang pada open office. Salah satunya yaitu anda bisa menggunakan add in number to text. Namun, cara tersebut menurut saya kurang bagus hasil terbilangnya.

    Nah, pada kali ini saya akan menggunakan cara lain untuk membuat kalimat terbilang pada open office.

     

     

    Cara Membuat Fungsi Terbilang Pada Open Office

    1. Buka software OpenOffice. Jika belum ada, silahkan download terlebih dahulu Download
    2. Klik Tools – Macros – Organize Macros – OpenOffice Basicmembuat fungsi terbilang
    3. Lalu klik Newmembuat fungsi terbilang
    4. Hapus semua kode yang ada pada windows yang terbuka.membuat fungsi terbilang
    5. Lalu copy paste kode terbilang dibawah ini.
      Function Kekata(Bilangan as double) As String
          Dim angka as variant
      
          angka = Array("","satu","dua","tiga","empat","lima","enam",_
          "tujuh","delapan","sembilan","sepuluh","sebelas")
      
          Bilangan = abs(Fix(Bilangan))
      
          If Bilangan<12 Then
              Kekata = " " & angka(Bilangan)
          Elseif Bilangan<20 Then
              Kekata = Kekata(Bilangan - 10) & " belas"
          Elseif Bilangan<100 Then
              Kekata = Kekata(Fix(Bilangan/10)) & " puluh" & Kekata(Bilangan mod 10)
          Elseif Bilangan<200 Then
              Kekata = " seratus" & Kekata(Bilangan mod 100)
          Elseif Bilangan<1000 Then
              Kekata = Kekata(Fix(Bilangan/100)) & " ratus" & Kekata(Bilangan mod 100)
          Elseif Bilangan<2000 Then
              Kekata = " seribu" & Kekata(Bilangan mod 1000)
          Elseif Bilangan<1000000 Then
              Kekata = Kekata(Fix(Bilangan/1000)) & " ribu" & Kekata(Bilangan mod 1000)
          Elseif Bilangan<1000000000 Then
              Kekata = Kekata(Fix(Bilangan/1000000)) & " juta" &_
              Kekata(Bilangan- (Fix(Bilangan/1000000)*1000000))
          Elseif Bilangan<1000000000000 Then
              Kekata = Kekata(Fix(Bilangan/1000000000)) & " milyar" &_
              Kekata(Bilangan- (Fix(Bilangan/1000000000)*1000000000))
          Elseif Bilangan<1000000000000000 Then
              Kekata = Kekata(Fix(Bilangan/1000000000000)) & " trilyun" &_
              Kekata(Bilangan- (Fix(Bilangan/1000000000000)*1000000000000))
          Else
              Kekata = "Error! Input Tidak Dapat Diproses."
          EndIf
      
      End Function
      
      
      Function Terbilang(Bilangan as Double, Optional Style as Integer) as String
          Dim temp as String
      
          If Bilangan<0 Then
              temp = "minus " & trim(kekata(Bilangan))
          Else
            temp = trim(kekata(Bilangan))
          EndIf
      
          If Style=1 Then
            Terbilang = ucase(temp)
          ElseIf Style=2 Then                     
            Terbilang = lcase(temp)
          ElseIf Style=3 Then                     
            kata = split(temp)
            l = LBound(kata)       
            u = UBound(kata)
            For i=l to u
      
            kata(i) =  ucase(mid(kata(i),1,1)) & mid(kata(i),2)
      
            Next i
      
            Terbilang = join(kata())
      
          Else                 
            Terbilang = ucase(mid(temp,1,1)) & mid(temp,2)
          EndIf
      
      End Function
      
      

       

    6. Lalu klik Save

    Formula Terbilang

    Formula basic untuk membuat kalimat terbilang:

    =terbilang(cell)

     

    Untuk menambahkan kata “Rupiah” pada kalimat terbilang, anda bisa menggunakan formula berikut.

    =PROPER(TERBILANG(D7)&" Rupiah")

    Fungsi proper disini adalah untuk membuat huruf kapital disetiap kata.terbilang open office

    Itulah tutorial cara mengubah angka menjadi menjadi huruf / membuat kalimat terbilang berdasarkan angka.

    Jika anda mengalami kendala, silahkan tinggalkan komentar dibawah ini.

    Free $100
    Deal

    Daftar menggunakan link di pojok kanan atas, minimal top up $25 usd. Maka dalam waktu 30 hari setelah registrasi anda akan mendapatkan credit $100 gratis dari vultr untuk mencoba layanan mereka.

    More Less
    Doesn't expire

    Recent Articles

    apa itu mirkotik

    Apa itu Mikrotik dan Fungsinya

    0
    Apa itu mikrotik? - Untuk beberapa orang yang biasa berkecimpung di dunia jaringan, mungkin sudah tidak asing lagi dengan yang namanya Mikrotik. Alat tersebut biasa ada...
    aplikasi belajar online

    Moodle, Aplikasi Belajar Online Gratis

    0
    Aplikasi Belajar Online - Saat ini membuat aplikasi pembelajaran online sangatlah mudah. Banyak sekali platform yang bisa anda gunakan untuk pembelajaran online, salah satunya...
    cara install mikrotik CHR

    Cara Install Mikrotik CHR (Cloud Host Router) pada Centos 8

    0
    Cara Install Mikrotik CHR - Mikrotik seringkali diperlukan ketika mengelola sebuah network secara fisik atau virtual. Saat ini, Mikrotik tersedia dalam versi cloud yang bernama Mikrotik CHR. Sistem operasi...
    upgrade windows 11

    Cara Upgrade Windows 11 Gratis!

    0
    Pada tanggal 5 Oktober 2021, microsoft telah resmi meluncurkan generasi windowsnya yaitu windows 11. Dengan serangkaian fitur baru, Windows 11 diklaim akan menyajikan pengalaman menggunakan...
    tips memilih isp

    Tips Memilih ISP Untuk Kebutuhan Internet Anda

    0
    Dalam memilih ISP kita perlu mempertimbangkan beberapa hal, diantaranya ialah budget. Namun, selain itu tentunya kita perlu memilih isp yang cocok dengan kita. Memilih ISP...

    Related Articles

    Leave A Reply

    Please enter your comment!
    Please enter your name here

    This site uses Akismet to reduce spam. Learn how your comment data is processed.

    Dapatkan konten terbaik dari kami!