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

    cara setting pppoe client

    Cara Setting PPPoE Client di TP Link WR840n dengan Mudah

    0
    Cara Setting PPPoE Client - Pada artikel sebelumnya saya sudah memberikan tutorial bagaimana Cara Setting PPPoE Server di Mikrotik. Pada tutorial berikutnya, kita akan mengaplikasikan pppoe kepada...

    Apa itu Staking Crypto dan Bagaimana Cara Melakukan Staking

    0
    Apa itu Staking Crypto - Akhir-akhir ini staking crypto banyak sekali menjadi pembicaraan buah bibir di kalangan investor crypto. Mungkin masih banyak dari para investor...

    Cara Setting PPPoE Server di Mikrotik

    0
    Cara Setting PPPoE Server - Pada tutorial sebelumnya kita telah belajar tentang bagaimana Cara Setting Hotspot Voucher di Mikrotik. Kali ini, saya akan melanjutkan sesi tutorial...
    Cara Setting Hotspot

    Cara Setting Hotspot Voucher di Mikrotik

    0
    Cara Setting Hotspot Voucher - Pada tutorial sebelumnya, kita sudah membahas apa itu mikrotik dan bagaimana cara melakukan konfigurasi dasar agar mikrotik kita bisa terhubung dengan internet. Router...
    konfigurasi dasar mikrotik

    Konfigurasi Dasar Mikrotik

    0
    Konfigurasi Dasar Mikrotik - Pada artikel sebelumnya, kita telah mengetahui Apa itu Mikrotik dan Fungsinya. Untuk kesempatan kali ini, kita akan mencoba melakukan konfigurasi dasar pada...

    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!