Assalamualaikum Warahmatullahi Wabarakatuh
Pada kesempatan kali ini saya akan membagikan cara membuat formulir VBA pada Microsoft Excel

Langkah pertama buka Microsoft Excel > ALT+F11 maka akan muncul Visual Basic

Selanjutnya klik Insert pilih UserForm

Maka akan muncul halaman seperti ini ^^

Selanjutnya kita akan mendesain formulir pada UseeForm dengan menggunakkan Toolbox. Aturlah sesuai dengan formulir yang akan kita buat.

Disini saya akan membuat formulir Pengisian data pegawai. Dan setiap Control yang kita gunakan memiliki propertis yang harus kita ubah sesuai yang kita inginkan. Misalnya pada Label 1 Caption kita ubah dengan " Entry Data Pegawai" begitu selanjutnya.

Setelah membuat formulir maka kita akan memasukkan code untuk menjalankan UserForm ini, dengan cara View > Code

isikan dengan Coding di bawah ini

'perintah untuk menambah data

'private sub CBOJenisKelamin_change()

Private Sub userform_initialize()

With CBOJenisKelamin

.AddItem "laki - laki"

.AddItem "Perempuan"

With CBOAgama

.AddItem "islam"

.AddItem "Kristen Protestan"

.AddItem "Kristen Katolik"

.AddItem "hindu"

.AddItem "budha"

End With

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("datapegawai")

'menemukan baris kosong pada database

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

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

'mencopy data ke database

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

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

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

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

ws.Cells(iRow, 5).Value = Me.CBOJenisKelamin.Value

ws.Cells(iRow, 6).Value = Me.CBOAgama.Value

ws.Cells(iRow, 7).Value = Me.TextPangkat.Value

ws.Cells(iRow, 8).Value = Me.Textgolongan.Value

ws.Cells(iRow, 9).Value = Me.Textjabatan.Value

ws.Cells(iRow, 10).Value = Me.Textalamat.Value

'untuk menghapus data dari form ketika tambah data

Me.TextNIPP.Value = ""

Me.TextNamaa.Value = ""

Me.Texttgllahir.Value = ""

Me.Texttempatlahir.Value = ""

Me.CBOJenisKelamin.Value = ""

Me.CBOAgama.Value = ""

Me.TextPangkat.Value = ""

Me.Textgolongan.Value = ""

Me.Textjabatan.Value = ""

Me.Textalamat.Value = ""

Me.TextNIPP.SetFocus

End Sub

Private Sub User_QueryClose(Cancel As Integer, _

closemode As Integer)

If closemode = vbFormControlMenu Then

Cancel = True

MsgBox "KALAU MAU KELUAR HARUS MENEKAN TOMBOL SELESAI"

End If

End Sub

Jika Coding telah di isikan kita dapat menjalankan progra dengan Run Program

Selanjutnya tinggal kita isi formulir yang kita inginkan dan akan muncul pada Sheet Microsoft Excel

Terima Kasih
Wassalamualaikum Warahmatullahi Wabarakatuh
#KarenaBerbagiTakPernahRugi

Membuat VBA Macro Sederhana pada Microsoft Excel 2010

Assalamualaikum Warahmatullahi Wabarakatuh.
Pada kesempatan kali ini saya akan membagi apa yang telah saya pelajari tentang membuat VBA Macro pada Microsoft Excel
1. Tahap Pertama Buka Aplikasi Microsoft Excel
2. Buka Tab Developer pilih Visual Basic
    Jika Tab Developer belum tersedia klik File > Options > Customize Ribbon > Pada Main Tab         ceklis Developer > Ok.
    Atau cara tercepat tinggal ketik ALT+F11 :)
Setelah VBA sudah terbuka maka akan tampil tampilan seperti ini :

3. Langkah selanjutnya, klik kanan pada sheet1 > View Code

Maka Akan mucul tampilan

selanjutnya isikan kode di bawah ini pada visual basic

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("A1") = 1 Then
Range("B1") = "Satu"
Range("A1").Interior.ColorIndex = 6
ElseIf Range("A1") = 2 Then
Range("B1") = "Dua"
Range("A1").Interior.ColorIndex = 5
ElseIf Range("A1") = 3 Then
Range("B1") = "Tiga"
Range("A1").Interior.ColorIndex = 3
ElseIf Range("C1") = 4 Then
Range("D1") = "Empat"
Range("C1").Interior.ColorIndex = 2
ElseIf Range("C1") = 5 Then
Range("D1") = "Lima"
Range("C1").Interior.ColorIndex = 1
ElseIf Range("C1") = 6 Then
Range("D1") = "Enam"
Range("C1").Interior.ColorIndex = 10
End If
End Sub

Maka akan muncul

Angka 4 dapat di ubah dengan 1,2,3,4,5, atau 6 sesuai dengan keinginan, dan warnanya akan berubah sesuai dengan kode yang kita masukkan pada code VBA.

Sekian penjelasan singkat dari saya, semoga hal ini dapat bermanfaat bagi orang banyak. 

Wassallamualaikum Warahmatullahi Wabarakatuh.

#KarenaBerbagiTakPernahRugi

Beberapa Latihan Pada Excel

Assalamualaikum Warahmatullahi Wabarakatuh.
Pada kesempatan kali ini saya akan membagi sedikit latihan saya di mata kuliah Aplikasi Komputer 2. Semoga bermanfaat :)

1. Membuat Kartu Hasil Studi

Untuk Hasil Lengkapnya klik >> KHS <<

2. Membuat dan Memecah NIP Pegawai dan Menetukan Gaji

Untuk Hasil Lengkapnya Klik >> NIP DAN GAJI <<


Terima Kasih
Wassalamualaikum Warahmatullahi Wabarakatuh
#KarenaBerbagiTakPernahRugi

Cara Membuat Chart pada Microsoft Excel 2010

Assalamualaikum Warahmatullahi Wabarakatuh
Pada kesempatan kali ini saya akan membagi cara membuat chart pada microsoft excel.

1. Tahap pertama buka Microsoft Excel 2010
2. Masukkan data yang akan di masukkan :

3. Blok data yang akan di ubah menjadi chart

4. Pilih Insert

5. Pada Grup Chart Pilih Bar

6. Pilih Bar sesuai yang kita butuhkan

7. Untuk memberikan nama pada Chart, klik Chart yang kita pilih, (disini saya menggunakan bar).Pada Chart Tool pilih Layout > Chart Title > Centered Overlay Title/ Above Chart (sesuai yang di inginkan ) Kemudian Ganti Judul sesuai yang di butuhkan.

8. Kita juga dapat menggunakan beberapa tampilan pada chart seperti tergantung dengan data yang di butuhkan dan jenis chart yang di gunakan.

Untuk hasil yang lebih lengka bisa kunjungi link di bawah ini
Cara Membuat Chart


Terima Kasih
Wassalamualaikum Warahmaullahi Wabarakatuh.
#KarenaBerbagiTakPernahRugi

-_-

sebenarnya alasan terBESAR buat blog ini adalah TUGAS SEKOLAH 
tapi saya coba untuk memanfaatkan blog ini disamping dari sebuah TUGAS !