Aplikasi Penanaman Investasi Tanah Menggunakan VBA Excel

VBA atau yang disebut dengan Microsoft Visual Basic for Applications adalah sebuah turunan bahasa pemograman Visual Basic dengan bahasa pemograman(Visual Basic) yang memudahkan user untuk mendesain dan membangun program Visual Basic dalam aplikasi utama Microsoft Office. Kegunaan VBA adalah mengotomatisasi pekerjaan. Pekerjaan yang dimaksud adalah pekerjaan yang dilakukan secara berulang-ulang dan pekerjaan yang kompleks.

Sumber : https://id.wikipedia.org/wiki/Visual_Basic_for_Applications

Sugi Smart Solution menyediakan salah satu contoh Aplikasi VBA di  Microsoft Excel yang dapat dipelajari dengan mudah bagi semua orang. Contoh aplikasinya dapat anda download disini.

Pertama, silahkan buka aplikasinya, dan lihat penjelasan di bawah ini. Sebelumnya, pastikan Macro di Microsoft Excel, tidak disable.

Cara mengaktifkan Macro di Microsoft Office 2010, ( File ->Options -> Trust Center -> Trust Center Settings ). Pilih Macro Settings, Pilih Enable All Macros

 

Sheet MENU ( Menampilkan Menu Utama )

Dibawah ini terdapat 3 tombol yang mengandung VBA. Untuk melihat VBA Scriptnya, Klik kanan pada masing-masing tombol, Klik Assign Macro dan Pilih Edit

A. Tombol Tambah Investasi Tanah digunakan untuk masuk ke Sheet NEW 

VBA Script           : Sheets("NEW").Select

B. Tombol Pembayaran Investasi digunakan untuk masuk ke Sheet PAY

VBA Script           : Sheets("PAY").Select

C. Tombol Keluar Aplikasi digunakan untuk Keluar dari Aplikasi

VBA Script           : Application.Quit

Sheet NEW ( Form Tambah Investasi Tanah )

Sheet ini digunakan untuk membentuk sheet baru yang di copy dari Sheet Template dengan nama sheet yang diinput pada form.  Untuk lebih jelasnya lagi, silahkan klik kanan pada button, Assign Macro, Edit

A. Tombol Simpan

Tombol ini digunakan untuk membentuk sheet baru Investasi Tanah.

VBA Script :

Dim nil As String

    If Range("F6").Value = "" Or Range("F8").Value = "" Or Range("F10").Value = "" Then

        MsgBox "Data harus diisi dengan lengkap !"

        End

    Else

        nil = Range("F6").Text

        Sheets.Add.Name = nil

        Sheets(nil).Move After:=Sheets("PAY")

        Sheets("TEMPLATE").Visible = True

        Sheets("TEMPLATE").Select

        Cells.Select

        Selection.Copy

        Sheets(nil).Select

        Cells.Select

        ActiveSheet.Paste

        Range("C3").Value = Sheets("NEW").Range("F8").Value

        Range("A1").Value = "TANAH " & UCase(nil)

        Range("A2").Value = Sheets("NEW").Range("F10").Value & "%"

        Sheets("TEMPLATE").Visible = False

        Sheets("NEW").Select

       

        For x = 1 To 1000

            If Cells(x, 15) = "" Then

                Cells(x, 15) = nil

                Exit For

            End If

        Next

        reset

        MsgBox "Berhasil !"

    End If

B. Tombol Reset

Tombol ini digunakan untuk menghapus inputan pada isian form.

VBA Script :           Range("F6").ClearContents
                                Range("F8").ClearContents
                                Range("F10").ClearContents

Sheet PAY ( Form Pembayaran Investasi )

Sheet ini digunakan untuk menyimpan data pembayaran investasi tanah pada sheet tanah yang dipilih.

Note : VBA Script tidak hanya dapat digunakan pada tombol saja, namun pada perubahan nilai di Range juga, VBA Script dapat digunakan.

Berikut adalah contohnya, Jika pada Range F8 atau Pada Isian Pembayaran Tanah terisi, maka secara otomatis isian Bunga dan Lama Hari akan terkalkulasi sendiri.

Untuk melihat scriptnya, masuk ke VBA, lalu pilih Sheet3(PAY)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Range("F8") <> "" Then

        nil = Range("F8").Value

        For p = 9 To 1000

            If Sheets(nil).Cells(9, 1) = "" Then

                selisih = 0

                Range("F14").Value = selisih

                Range("F12").Value = Sheets(nil).Range("C4")

                Exit For

            ElseIf Sheets(nil).Cells(p, 1) = "" Then

                selisih = Range("F6").Value - Sheets(nil).Cells(p - 1, 2)

                Range("F14").Value = selisih

                Range("F12").Value = Sheets(nil).Range("C4") * selisih

                Exit For

            End If

        Next p

    End If

End Sub

A. TOMBOL RESET

Tombol ini digunakan menghapus data isian pada form

    Range("F8").ClearContents
    Range("F10").ClearContents
    Range("F12").ClearContents
    Range("F14").ClearContents

B. TOMBOL SIMPAN

Tombol ini digunakan untuk menyimpan data pembayaran investasi ke sheet tanah yang dipilih

    hit = Range("F8")
    If Range("F8").Value = "" Or Range("F10").Value = "" Then
        MsgBox "Data harus diisi dengan lengkap !"
        End
    Else
    Sheets(hit).Select
    For p = 9 To 6000
        If Cells(p, 1) = "" Then
            If p = 9 Then
                  Cells(p, 1) = 1
            Else
                  Cells(p, 1) = Cells(p - 1, 1) + 1
            End If
            Cells(p, 2) = Sheets("PAY").Range("F6").Value
            Cells(p, 3) = Sheets("PAY").Range("F10").Value
            Cells(p, 4) = Sheets("PAY").Range("F12").Value
            Cells(p, 5) = Sheets("PAY").Range("F14").Value
            Cells(p, 6) = Sheets("PAY").Range("F10").Value + Sheets("PAY").Range("F12").Value
            Exit For
        End If
    Next p   
    Sheets("PAY").Select
    Range("F8").ClearContents
    Range("F10").ClearContents
    Range("F12").ClearContents
    Range("F14").ClearContents
    MsgBox "Berhasil !"
    End If

Sheet TEMPLATE ( Form Template untuk template Investasi Tanah )

Untuk memunculkan Sheet Template , klik kanan pada salah satu tab sheet, lalu klik unhide. Sheet Template ini jangan dihapus