D. Script Macro (VBA Excel)
Click Modul dan masukkan Script berikut untuk mengaktifkan imput data dari FormImput ke Database ! dan copas script berikut :
Dari uraian di atas belum cukup untuk menjalankan aplikasi tersebut di atas, dalam proses penyimpanan nilai hasil nilai hasil ulangan harian/ evaluasi membutuhkan rumus-rumus macro. Oleh karena itu ada beberapa tombol yang dapat difungsikan dengan baik setelah dilengkapi dengan rumus macro. Tombol yang dilengkapi dengan rumus macro antara lain : Start, Simpan, Remidial, Cetak, Exit, Imput Data dari FormImput ke Database, dan tombol untuk menutup dan membuka lembar kerja (sheet).
Ada beberapa tombol yang digunakan pada beberapa lembar kerja, oleh karena itu. buatlah satu tombol terlebih dulu dan uji coba, apabila aktif, maka dapat dicopy ke lembar kerja lainnya yang membutuhkan. Karena terlalu panjang, maka kita bahas satu persatu agar tidak membingungkan.
Ada beberapa tombol yang digunakan pada beberapa lembar kerja, oleh karena itu. buatlah satu tombol terlebih dulu dan uji coba, apabila aktif, maka dapat dicopy ke lembar kerja lainnya yang membutuhkan. Karena terlalu panjang, maka kita bahas satu persatu agar tidak membingungkan.
1. Cara mengimput data dari FormImput ke dalam Database.
Sebelum menuliskan script VBA terlebih dulu kita siapkan sheet FormImput ( lihat bagian Bagian 3) dan sheet Database (lihat Bagian 8). Agar pekerjaan tidak sia-sia maka perlu memahami terlebih dulu cara penulisan script VBA yang benar, caranya: Click Developer - Visual Basic - VBAProject(EvaluasiDitigal.xlsm. - Insert Module. Sampai dengan ini maka akan terbuka halaman VBA seperti gambar berikut :
Sub
MasukanData()
Dim
NamaSiswa As String
Dim Kelas,
NoAbsen, Nilai, Analisis As String
'PILIH SHEET
Sheets("FormImput").Select
NamaSiswa =
Range("C3").Text
Kelas =
Range("C4").Text
NoAbsen =
Range("C5").Text
Nilai =
Range("C6").Text
PG1 = Range("C7").Text
PG2 =
Range("C8").Text
PG3 =
Range("C9").Text
PG4 =
Range("C10").Text
PG5 =
Range("C11").Text
PG6 =
Range("C12").Text
PG7 =
Range("C13").Text
PG8 =
Range("C14").Text
PG9 =
Range("C15").Text
PG10 =
Range("C16").Text
PG11 =
Range("C17").Text
PG12 =
Range("C18").Text
PG13 =
Range("C19").Text
PG14 =
Range("C20").Text
PG15 =
Range("C21").Text
PG16 =
Range("C22").Text
PG17 =
Range("C23").Text
PG18 =
Range("C24").Text
PG19 =
Range("C25").Text
PG20 =
Range("C26").Text
'MASUKAN
DATA
Sheets("Database").Select
jumlahData = Range("AI6").Value
Rows(jumlahData + 2 & ":"
& jumlahData + 1).Select
Selection.Copy
Rows(jumlahData + 3 & ":"
& jumlahData + 1).Select
Selection.Copy
Rows(jumlahData + 4 & ":"
& jumlahData + 1).Select
Selection.Copy
Rows(jumlahData + 5 & ":"
& jumlahData + 1).Select
Selection.Copy
Rows(jumlahData + 6 & ":"
& jumlahData + 1).Select
Selection.Copy
Rows(jumlahData + 7 & ":"
& jumlahData + 1).Select
Selection.Copy
Rows(jumlahData + 8 & ":"
& jumlahData + 1).Select
Selection.Copy
Rows(jumlahData + 9 & ":"
& jumlahData + 1).Select
Selection.Copy
Rows(jumlahData + 10 & ":"
& jumlahData + 1).Select
Selection.Copy
Rows(jumlahData + 11 & ":"
& jumlahData + 1).Select
Selection.Copy
Rows(jumlahData + 12 & ":"
& jumlahData + 1).Select
Selection.Copy
Rows(jumlahData + 13 & ":"
& jumlahData + 1).Select
Selection.Copy
Rows(jumlahData + 14 & ":"
& jumlahData + 1).Select
Selection.Copy
Rows(jumlahData + 15 & ":"
& jumlahData + 1).Select
Selection.Copy
Rows(jumlahData + 16 & ":"
& jumlahData + 1).Select
Selection.Copy
Rows(jumlahData + 17 & ":"
& jumlahData + 1).Select
Selection.Copy
Rows(jumlahData + 18 & ":"
& jumlahData + 1).Select
Selection.Copy
Rows(jumlahData + 19 & ":"
& jumlahData + 1).Select
Selection.Copy
Rows(jumlahData + 20 & ":"
& jumlahData + 1).Select
Selection.Copy
Rows(jumlahData + 21 & ":"
& jumlahData + 1).Select
Selection.Copy
Rows(jumlahData + 22 & ":"
& jumlahData + 1).Select
Selection.Copy
Rows(jumlahData + 23 & ":"
& jumlahData + 1).Select
Selection.Copy
Rows(jumlahData + 24 & ":"
& jumlahData + 1).Select
Selection.Copy
Rows(jumlahData + 25 & ":"
& jumlahData + 1).Select
Selection.Copy
Rows(jumlahData + 26 & ":"
& jumlahData + 1).Select
ActiveSheet.Paste
Application.CutCopyMode = False
'Masukan
data
Range("B" & jumlahData +
7).Select
ActiveCell.FormulaR1C1 = NamaSiswa
Range("C" & jumlahData +
7).Select
ActiveCell.FormulaR1C1 = Kelas
Range("D" & jumlahData +
7).Select
ActiveCell.FormulaR1C1 = NoAbsen
Range("E" & jumlahData +
7).Select
ActiveCell.FormulaR1C1 = Nilai
Range("K" & jumlahData +
7).Select
ActiveCell.FormulaR1C1 = PG1
Range("L" & jumlahData +
7).Select
ActiveCell.FormulaR1C1 = PG2
Range("M" & jumlahData +
7).Select
ActiveCell.FormulaR1C1 = PG3
Range("N" & jumlahData +
7).Select
ActiveCell.FormulaR1C1 = PG4
Range("O" & jumlahData +
7).Select
ActiveCell.FormulaR1C1 = PG5
Range("P" & jumlahData +
7).Select
ActiveCell.FormulaR1C1 = PG6
Range("Q" & jumlahData +
7).Select
ActiveCell.FormulaR1C1 = PG7
Range("R" & jumlahData +
7).Select
ActiveCell.FormulaR1C1 = PG8
Range("S" & jumlahData +
7).Select
ActiveCell.FormulaR1C1 = PG9
Range("T" & jumlahData +
7).Select
ActiveCell.FormulaR1C1 = PG10
Range("U" & jumlahData +
7).Select
ActiveCell.FormulaR1C1 = PG11
Range("V" & jumlahData +
7).Select
ActiveCell.FormulaR1C1 = PG12
Range("W" & jumlahData +
7).Select
ActiveCell.FormulaR1C1 = PG13
Range("X" & jumlahData +
7).Select
ActiveCell.FormulaR1C1 = PG14
Range("Y" & jumlahData +
7).Select
ActiveCell.FormulaR1C1 = PG15
Range("Z" & jumlahData +
7).Select
ActiveCell.FormulaR1C1 = PG16
Range("AA" & jumlahData +
7).Select
ActiveCell.FormulaR1C1 = PG17
Range("AB" & jumlahData +
7).Select
ActiveCell.FormulaR1C1 = PG18
Range("AC" & jumlahData +
7).Select
ActiveCell.FormulaR1C1 = PG19
Range("AD" & jumlahData +
7).Select
ActiveCell.FormulaR1C1 = PG20
End Sub
Script tersebut akan bekerja apabila tombol simpan diaktifkan. Untuk menguji script tersebut masukkan data pada daftar isian yang terdapat pada sheet FormImput, kemudian klik tombol Simpan. (tombol simpan akan dibahas pada Evaluasi Digital selanjutnya ................. NEXT.
0 Comments