TUTORIAL PENGERJAAN MICROSOFT EXCEL VBA

Ms. Excel tidak hanya mampu melakukan operasi perhitungan yang menggunakan rumus saja tetapi, bisa juga melaksankan operasi logika menggunakan bahasa pemprograman dengan menggunakan fitur VBA. Sebagai contoh nih ane kasih tutoriaal sederhana penggunaan VBA di Excel.

1.  Buka Microsoft Excel lalu tekan Alt+F11 sebagai cara singkat menuju ke Microsoft Virtual Basic for Aplications , hasilnya akan terlihat seperti ini :

2. Kemudian klik insert dan pilih user form, kemudian klik kanan dan pilih view code, hasilnya akan telihat seperti ini :

3. Lalu pilih pada sheet 1, kemudian isikan beberapa kode sebagai berikut :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Range("A1") = 1 Then

   Range("B1") = "Satu"

   Range("A1").Interior.ColorIndex = 5

ElseIf Range("A1") = 2 Then

   Range("B1") = "Dua"

   Range("A1").Interior.ColorIndex = 4

ElseIf Range("A1") = 3 Then

  Range("B1") = "Tiga"

  Range("A1").Interior.ColorIndex = 3

End If

End Sub

Apabila ada kesalahan, otomatis tulisan akan berubah warna menjadi merah.

Hasilnya akan terlihat seperti ini :

 

5. Kemudian klik run, dan mengetes berhasil atau tidak temen2 bisa coba ketikkan angka 1 di cell A1, lalu enter. Hasilnya akan seperti dibawah ini:

Itulah tutorial sederhana tentang VBA, terima kasih gengs atas kunjungannya.

Read More »

Add Comment

TUTORIAL MEMBUAT APLIKASI FORM DENGAN MICROSOFT VIRTUAL BASIC for APPLICATIONS

 

1. Buka Microsoft Excel, lalu ganti nama sheet satu menjadi “PART DATA”, lalu tekan Alt+F11 untuk menuju ke Microsoft Virtual Basic for Aplications , hasilnya akan terlihat seperti ini :


 2. kemudian klik insert dan pilih user form , hasil nya akan terlihat seperti ini :


 3. Kemudian, atur pada lembar kerja menjadi seperti ini. Tambahkan “Labels” untuk menuliskan kode barang, nama barang dsb melalui toolbox. Untuk kotak isian kode, nama, harga barang kita gunakan “Textbox” sedangkan satuan barang kita gunakan “Combobox”. Tombol perintah dapat di masukkan dengan menambah “CommandButton”.


Jangan lupa ganti yang ditandai ini ya. Misal (Name) label Kode Barang menjadi textkode dll. Sesuaikan juga (Name) tiap label dan commandbutton ke kode yang akan kita masukkan ke view code.

4. Lalu klik kanan pada form,  pilih view code, kemudian isikan beberapa kode berikut :

Private Sub Label2_Click()

End Sub

'Private Sub Cbosatuan_Change()

Private Sub UserForm_Initialize()

With Cbosatuan

    .AddItem "Unit"

    .AddItem "Set"

    .AddItem "Pack"

    .AddItem "Kg"

    .AddItem "Meter"

    .AddItem "Liter"

End With

End Sub

Private Sub CMDSELESAI_Click()

Unload Me

End Sub

Private Sub CMDTAMBAH_Click()

Dim iRow As Long

Dim ws As Worksheet

Set ws = Worksheets("PART DATA")

'untuk menemukan baris kosong pada database

iRow = ws.Cells(Rows.Count, 1) _

.End(xlUp).Offset(1, 0).Row

'untuk mengecek sebuah kode barang

'IfTrim(Me.Textkode.Value)= "" Then

'untuk mengkopy data ke database

ws.Cells(iRow, 1).Value = Me.Textkode.Value

ws.Cells(iRow, 2).Value = Me.Textnama.Value

ws.Cells(iRow, 3).Value = Me.Cbosatuan.Value

ws.Cells(iRow, 4).Value = Me.Textharga.Value

'untuk membersikan form sebelum di tambahkan data baru

Me.Textkode.Value = ""

Me.Textnama.Value = ""

Me.Cbosatuan.Value = ""

Me.Textharga.Value = ""

Me.Textkode.SetFocus

End Sub

Private Sub Texthargabarang_Click()

End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

If CloseMode = vbFormControlMenu Then

Cancel = True

MsgBox "Oy Apodio, Klik SELESAI tu naa"

End If

End Sub

Hasilnya akan seperti ini :

 

5. Kemudian klik run,  hasilnya akan terlihat seperti ini :

 

6. Lalu atur pada ms excel menjadi seperti ini :

 

7. Kemudian pada shape klik kanan , dan pilh assign macro, hasinya akan terlihat seperti ini :

 

8. Lalu pilih edit, dan masukkan kode sebagai berikut :

 

9. Lalu klik run untuk menjalankan aplikasi, dan hasilnya akan menjadi seperti ini :

 

SEKIAN dari saya semoga bermanfaat

 

 

Read More »

Add Comment