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

    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...
    cara install varnish

    Cara Install dan Konfigurasi Varnish dengan Nginx di Ubuntu 20.04

    1
    Cara install varnish - Apa itu varnish cache ? Varnish adalah sebuah aplikasi open source HTTP reverse proxy yang seringkali disebut juga sebagai HTTP accelerator atau...
    membuat fungsi terbilang

    Cara Membuat Fungsi Terbilang Pada Open Office

    0
    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...
    pengenalan templates

    Tutorial Django Bahasa Indonesia #6: Pengenalan Templates

    0
    Pada artikel sebelumnya kita sudah belajar mengenai routing di django #5 . Dimana, pada tutorial tersebut kita sudah bagaimana cara menampilkan "Hello World" pada...

    Tutorial Django Bahasa Indonesia #5: URL Routing Django

    0
    Pada tutorial kali ini, kita akan membahas tentang URL routing yang ada di django. URL Routing ini berfungsi untuk mengalihkan halaman, dari satu halaman...

    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!