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.

    Recent Articles

    apa itu dns

    Apa itu DNS ? Dan Fungsinya

    0
    Apa itu DNS? - DNS (Domain Name System) adalah sebuah sistem yang bertugas menyimpan semua informasi data domain dalam jaringan. Dengan adanya DNS, domain...
    apa itu olt

    Apa itu OLT ? Serta Fungsinya Dalam Jaringan

    0
    Apa itu olt ? OLT (Optical Line Termination) adalah perangkat keras yang berfungsi sebagai titik akhir (end-point) dari layanan jaringan optik pasif (Passive Optical...
    template voucher

    Template Voucher Untuk Mixradius

    0
    Template Voucher Untuk Mixradius - Pasti kalian bosen kan dengan template voucher default mixradius? tenang. kali ini saya akan memberikan template untuk voucher mixradius kamu agar...
    port game mikrotik

    Daftar Port Game Online Mikrotik Terbaru

    2
    Daftar port game online dibawah ini bisa digunakan untuk membuat rule agar koneksi ke game online tersebut bisa lancar, bisa juga untuk memisahkan antara...
    cara blokir windows update

    Cara Blokir Windows Update di Mikrotik Terbaru

    0
    Cara Blokir Windows Update di Mikrotik - Meskipun fitur windows update ini baik untuk komputer kita, kadang kala ada waktu dimana windows update ini sangat...

    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!