Anything started from reading
RSS icon Email icon Home icon
Pencarian Akurat berorientasi domain dan website Indonesia. Cobalah !!
 
  • Macro Excel untuk pembuatan hasil UAN dan UASBN

    Posted on June 15th, 2010 mdin No comments

    Penulisan hasil UASBN dan UAN menggunakan komputer dapat dilakukan dengan mudah menggunakan bantuan Macro Excel. Di bawah script lengkap macro excel yang dapat digunakan pada MS Office 2003 da Open Office.

    Jika ingin lebih cepat dengan mendowload file yang ada pada download, maka tinggal dijalankan sudah aktif. Yang perlu diedit tentu format pembuatan tabelnya.

    Berikut kode lengkap:

    Function toword(ByVal MyNumber)

    Dim Temp

    Dim Number, Cents

    Dim DecimalPlace, Count

    ReDim Place(9) As String

    ‘ Convert MyNumber to a string, trimming extra spaces.

    MyNumber = Trim(Str(MyNumber))

    ‘ Find decimal place.

    DecimalPlace = InStr(MyNumber, “.”)

    ‘ If we find decimal place…

    If DecimalPlace > 0 Then

    ‘ Convert cents

    Temp = Left(Mid(MyNumber, DecimalPlace + 1) & “00”, 2)

    Cents = ConvertTens(Temp)

    ‘ Strip off cents from remainder to convert.

    MyNumber = Trim(Left(MyNumber, DecimalPlace – 1))

    End If

    Count = 1

    Do While MyNumber <> “”

    ‘ Convert last 3 digits of MyNumber to English Number.

    Temp = ConvertHundreds(Right(MyNumber, 3))

    If Temp <> “” Then Number = Temp & Place(Count) & Number

    If Len(MyNumber) > 3 Then

    ‘ Remove last 3 converted digits from MyNumber.

    MyNumber = Left(MyNumber, Len(MyNumber) – 3)

    Else

    MyNumber = “”

    End If

    Count = Count + 1

    Loop

    ‘ Clean up number.

    Select Case Number

    Case “”

    Number = “”

    Case “Satu”

    Number = “Satu ”

    Case Else

    Number = Number

    End Select

    ‘ Clean up cents.

    Select Case Cents

    Case “”

    Cents = ” koma Nol”

    Case “Satu”

    Cents = ” koma Satu”

    Case Else

    Cents = ” koma ” & Cents

    End Select

    toword = Number & Cents

    End Function
    Private Function ConvertHundreds(ByVal MyNumber)

    Dim Result As String

    ‘ Exit if there is nothing to convert.

    If Val(MyNumber) = 0 Then Exit Function

    ‘ Append leading zeros to number.

    MyNumber = Right(“000″ & MyNumber, 3)

    ‘ Do we have a hundreds place digit to convert?

    If Left(MyNumber, 1) <> “0” Then

    Result = ConvertDigit(Left(MyNumber, 1)) & ” ”

    End If

    ‘ Do we have a tens place digit to convert?

    If Mid(MyNumber, 2, 1) <> ” ” Then

    Result = Result & ConvertTens(Mid(MyNumber, 2))

    Else

    ‘ If not, then convert the ones place digit.

    End If

    ConvertHundreds = Trim(Result)

    End Function


    :: Baca selengkapnya/Read more… »

  • Tutorial Macro Excel (VBA)

    Posted on April 15th, 2010 mdin No comments

    Tutorial on Excel Macros (VBA): With macros in Excel you will save a lot of time and do a lot more. Learn the skill and get a better paying job.

    Excel Macros (VBA) Tutorial : Step by step even with no programming background you will learn what you need to accomplish small miracles with macros and business data in Excel.

    Excel VBA. FREE Excel VBA Code & Excel Macro Help : Excel VBA: Excel VBA Macros. Free help on Excel Macros, from VBA to Custom Functions and more.

    Excel VBA tutorial : This website provides free Excel VBA tutorial to help anyone to master VBA programming instantly.

    Writing Your First VBA Function in Excel : Writing Your First VBA Function in Excel. Tip Contributed by Martin Green.Martin Green, Office Tips is a freelance Access and Excel trainer and developer

    Mathtools.net : Excel/VBA : Add over 1200 Excel VBA examples directly into the Microsoft Excel Visual Basic Editor.

    TechBookReport Excel VBA Tutorial : TechBookReport – Excel Visual Basic (VBA) tutorial.

    Quick Excel Chart VBA Examples : The use of VBA in Microsoft Excel charting is a topic that would fill a large volume.

  • Macro Excel untuk Penulisan Rapot SD-SMP-SMA

    Posted on February 17th, 2010 mdin 5 comments

    Pada suatu waktu ditanya oleh seseorang tentang menggunakan Excel untuk membuat rapot sekolah. Yang diinginkan yaitu mengubah angka menjadi kata, misal angka 89,08 menjadi Delapan Sembilan koma Nol Delapan.

    Dari pembuatan macro sebelumnya yaitu mengubah angka menjadi kalimat untuk kebutuhan keuangan seperti dari posting sebelumnya dengan judul Macro Excel: Membuat fungsi terbilang, kemudian mencoba modifikasi beberapa saat maka dapatlah kami bagikan kepada pembaca seperti pada kode dibawah. Kode asli saya ambil dari Macro Excel: Number to Word conversion for various purpose in English. Sumber utama dari www.ozgrid.com.


    :: Baca selengkapnya/Read more… »

  • Macro Excel: Number to Word conversion for various purpose in English

    Posted on December 29th, 2009 webadm 2 comments

    The use ms excel to complete office work or personal work is often required to change a number into words. Here are examples of programs VBA (Visual Basic Application) that can be added to your sheet as a function that can be used at any time with ease.
    There are notes on the writing of symbols, for example if the number of money units will need to be replaced by the reference number. Units can be changed be anything as you want, for example U.S. currency with the dollar, the currency in Indonesia Rupiah, the Japanese currency to yen, and so on. In addition to the currency can also be changed with another unit for example: Kilogram to load, Meter for distance, etc..

    ==================== start of script ========================


    :: Baca selengkapnya/Read more… »

  • Macro Excel: Membuat fungsi terbilang

    Posted on August 23rd, 2009 me 12 comments

    Pengguna MS Excel yang sering menggunakannya untuk hitung keuangan, mungkin sangat ingin dari hasil yang diperoleh ada tambahan kalimat yang menyebutkan jumlah hasil perhitungan. Misal hasil perhitungan: Rp 1.000.000,- , muncul kalimat: Satu Juta Rupiah.

    Dibawah kami bantu untuk merealisasikan keinginan tersebut. Kode ini saya peroleh dari internet yang ditujukan untuk pengguna openoffice. Setelah saya tes di Excel ternyata dapat berfungsi dengan baik.

    Pekerjaan mengubah dari angka menjadi kalimat seperti diatas disebut FUNGSI TERBILANG. Fungsi terbilang akan tercatat dalam daftar function di excel dalam kelompok user defined, artinya fungsi yang dibuat oleh pengguna.

    Ok kita mulai ya…

    Langkah 1: Buka Workbook Excel.

    Buka Book baru

    Buka Book baru

    Langkah 2: Buka Visual Basic Application Editor. Alt+F11 atau melalui menu menu Tools.

    Membuka VBA Editor di Excel

    Membuka VBA Editor di Excel

    Hasil membuka VBA editor seperti gambar dibawah.

    VBA Editor telah aktif

    VBA Editor telah aktif

    Langkah 3: Membuka MODUL baru.

    Membuka Modul Baru

    Membuka Modul Baru

    Hasil insert modul, akan tersedia modul yang siap dipakai.

    Modul baru siap dipakai

    Modul baru siap dipakai

    Langkah 4: Mengisi Modul dengan script Fungsi berikut, dengan copy dan paste ke dalam modul.

    Function TeksKeAngka(ByVal n As Double) As String
    Dim sSatuan()
    Dim s As String
    sSatuan() = Array("nol", "satu", "dua", "tiga", "empat", "lima", "enam", "tujuh", "delapan", "sembilan", "sepuluh", "sebelas", "dua belas", "tiga belas", "empat belas", "lima belas", "enam belas", "tujuh belas", "delapan belas", "sembilan belas", "dua puluh")
    s = ""
    If n > 999 and n < 200 Then
    s = "seribu"
    n = n MOD 1000
    If n = 0 Then
    TeksKeAngka = s
    Exit Function
    End If
    s = s & " "
    End If
    If n > 199 Then
    s = s & sSatuan(Fix(n / 100)) & " ratus"
    n = n MOD 100
    If n = 0 Then
    TeksKeAngka = s
    Exit Function
    End If
    s = s & " "
    End If
    If n > 99 and n < 200 Then
    s = "seratus"
    n = n MOD 100
    If n = 0 Then
    TeksKeAngka = s
    Exit Function
    End If
    s = s & " "
    End If
    If n > 20 and n < 100 Then
    s = s & sSatuan(Fix(n / 10)) & " puluh"
    n = n MOD 10
    If n = 0 Then
    TeksKeAngka = s
    Exit Function
    End If
    s = s & " "
    End If
    TeksKeAngka = s & sSatuan(n)
    End Function

    Function Terbilang(ByVal n) As String
    Dim sBil()
    sBil = Array( "", "ribu", "juta", "milyar", "triliun", "quadriliun")
    Dim i As Integer
    Dim iInt As Integer
    Dim s As String
    Dim dInt As Double
    dInt = Fix(n)
    If (dInt < 2000) Then
    Terbilang = TeksKeAngka(CInt(dInt))
    Exit Function
    End If
    i = 0
    s = ""
    Do While dInt > 0
    iInt = CInt(dInt - Fix(dInt / 1000) * 1000)
    If iInt <> 0 Then
    If Len(s) > 0 Then s = " " & s
    s = TeksKeAngka(iInt) & " " & sBil(i) & s
    End If
    i = i + 1
    dInt = Fix(dInt / 1000)
    Loop
    Terbilang = s
    End Function

    Copy script Fungsi Terbilang Ke Modul

    Copy script Fungsi Terbilang Ke Modul

    Langkah 5:  Tes fungsi di Worksheet Excel.

    Melakukan tes fungsi terbilang

    Melakukan tes fungsi terbilang

    Hasil testing seperti dibawah.

    Hasil fungsi Terbilang bekerja dengan baik

    Hasil fungsi Terbilang bekerja dengan baik

    Langkah 6: SIMPAN BOOK tersebut, dan gunakan book tersebut jika akan digunakan untuk aktifitas perhitungan. Karena Fungsi HANYA melekat atau akan aktif pada workbook tersebut, bukan pada aplikasi MS Excel secara permanen. Atau jika Anda sudah memiliki workbook yang sudah ada hasil hitungan dan ingin ditambahi fungsi terbilang bisa mengikuti langkah 1-6.

    Selesai. Selamat mencoba.

    Dan silakan dicoba file excelnya yang saya buat.