Sabtu, 04 Juni 2016

Membuat Tanda Warna Pada Cell dengan VBA di Microsoft Excel

1. Pertama buka Microsoft Excel, kemudian klik Tab Developer. Pastikan anda telah mengaktifkan menu Tab Developer.

2. Pada Tab Developer, klik Visual Basic atau dengan menekan tombol Alt + F11.



3. Jendela Visual Basic terbuka, lalu pilih menu View > Code.

4. Kemudian copy kode dibawah ini.

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 = 4
ElseIf Range("A1") = 3 Then
Range("B1") = "Tiga"
Range("A1").Interior.ColorIndex = 3
ElseIf Range("A1") = 4 Then
Range("B1") = "Empat"
Range("A1").Interior.ColorIndex = 5
End If
If Range("C1") = 1 Then
Range("D1") = "Satu"
Range("C1").Interior.ColorIndex = 7
ElseIf Range("C1") = 2 Then
Range("D1") = "Dua"
Range("C1").Interior.ColorIndex = 8
ElseIf Range("C1") = 3 Then
Range("D1") = "Tiga"
Range("C1").Interior.ColorIndex = 9
ElseIf Range("C1") = 4 Then
Range("D1") = "Empat"
Range("C1").Interior.ColorIndex = 5
End If
End Sub



5. Setelah Kode tersebut diisi, klik Run.Kemudian kembali ke jendela Micosoft Excel, pada sheet 1 ketiklah angka 1/2/3/4 untuk melihat perubahan tanda pada cell sheet 1.




Untuk Download Filenya : Click Here

Jumat, 03 Juni 2016

Membuat Formulir Pengisian Data Mahasiswa Dengan VBA Pada Ms. Excel

Langkah - langkah untuk membuat pengisian data mahasiswa dengan VBA pada Ms. Excel :

1. Pertama buka Microsoft Excel, kemudian klik Tab Developer. Pastikan  Microsoft Excel anda telah mengaktifkan menu Tab Developer.


2. Pada Tab Developer, klik Visual Basic atau dengan menekan tombol Alt + F11.


3. Jendela Visual Basic terbuka, kemudian pilih menu Insert  > UserForm, maka tampilan Form VBA terbuka.


Tampilan Form VBA


Toolbox
Toolbox dimana kita bisa meletakkan berbagai kontrol/komponen pada form.

4. Kemudian buatlah Formulir Data Mahasiswa yang dibutuhkan dengan menggunakan menu yang ada pada Toolbox. Berikut contoh Formulir yang telah dibuat.

5. Lalu pilih menu View > Code atau Klik kanan pada form dan pilih View Code untuk melakukan coding program.


6. Masukkan kode pemograman sesuai dengan data yang dibuat.


Berikut kode pemogramannya.

Private Sub UserForm_Initialize()
'Kosongkan data Text Box
TxtNamaLeng.Value = ""
TxtAsDa.Value = ""
TxtProgStud.Value = ""
TxtKls.Value = ""
TxtTmptLhr.Value = ""
TxtAlmt.Value = ""

 'Clear Combo
CmbTgl.Clear
CmbBln.Clear
CmbThn.Clear
CmbJnsKlmn.Clear

 'Isi Program Studi untuk combo Box Program Studi
With TxtProgStud
.AddItem "Diploma I Pajak"
.AddItem "Diploma I Kepabeanan dan Cukai"
End With

 'Isi Tanggal untuk combo Box Tanggal Lahir
With CmbTgl
.AddItem "1"
.AddItem "2"
.AddItem "3"
.AddItem "4"
.AddItem "5"
.AddItem "6"
.AddItem "7"
.AddItem "8"
.AddItem "9"
.AddItem "10"
.AddItem "11"
.AddItem "12"
.AddItem "13"
.AddItem "14"
.AddItem "15"
.AddItem "16"
.AddItem "17"
.AddItem "18"
.AddItem "19"
.AddItem "20"
.AddItem "21"
.AddItem "22"
.AddItem "23"
.AddItem "24"
.AddItem "25"
.AddItem "26"
.AddItem "27"
.AddItem "28"
.AddItem "29"
.AddItem "30"
.AddItem "31"
End With

 'Isi Bulan untuk combo Box Bulan Lahir
With CmbBln
.AddItem "JANUARI"
.AddItem "FEBRUARI"
.AddItem "MARET"
.AddItem "APRIL"
.AddItem "MEI"
.AddItem "JUNI"
.AddItem "JULI"
.AddItem "AGUSTUS"
.AddItem "SEPTEMBER"
.AddItem "OKTOBER"
.AddItem "NOVEMBER"
.AddItem "DESEMBER"
End With

 'Isi Tahun untuk combo Box Tahun Lahir
With CmbThn
.AddItem "1994"
.AddItem "1995"
.AddItem "1996"
.AddItem "1997"
.AddItem "1998"
.AddItem "1999"
End With

 'Isi Jenis Kelamin untuk combo Box Jenis Kelamin
With CmbJnsKlmn
.AddItem "Laki-Laki"
.AddItem "Perempuan"
End With
End Sub

 Private Sub BtnSimpan_Click()

 Dim emptyRow As Long
'aktifkan Sheet1
Sheet1.Activate

 'deteksi baris kosong
emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1

 'Simpan data ke sheet1
Cells(emptyRow, 1).Value = TxtNamaLeng.Value
Cells(emptyRow, 2).Value = TxtAsDa.Value
Cells(emptyRow, 3).Value = TxtProgStud.Value
Cells(emptyRow, 4).Value = TxtKls.Value
Cells(emptyRow, 5).Value = TxtTmptLhr.Value
Cells(emptyRow, 6).Value = CmbTgl.Value & "/" & CmbBln.Value & "/" & CmbThn.Value
Cells(emptyRow, 7).Value = CmbJnsKlmn.Value
Cells(emptyRow, 8).Value = TxtAlmt.Value

 End Sub

 Private Sub cmdBatal_Click()
Unload Me
End Sub
End Sub

7.  Setelah memasukkan kode pemograman, jalankan form tersebut. Klik Run > Run Sub/ UserForm atau dengan menggunakan kunci keyboard F5.


8. Maka tampilan jendela form pada excel akan muncul seperti ini.


9. Kemudian isi data pada form mahasiswa, lalu klik simpan pada form. Maka hasilnya akan seperti ini.


Untuk Download Filenya : Click Here