Ruang Excel

Excel application sharing, knowledge of Microsoft Excel, and visual basic application (vba) for education.

Enjoy You'r Visiting

Monday, May 4, 2020

Cara membuat kode scrip untuk button spin, input nilai, dan hapus

Aktifkan Macro , Apk cetak Label Undangan
Cara membuat kode scrip untuk button spin, input nilai, dan hapus

Sobat Ruang Excel  : Dalam membuat Aplikasi excel aplikasi visual basic  Input Nilai Rapot SMP  semester 1 s/d 5 yang merupakan salah satu ketentuan untuk mendapatkan nilai rerata untuk kejuruan peringkat Sekolah Menengah Pertama (SMP), bapak atau ibu bisa mendesign terlebih dahulu lembar data base siswa, lembar tabel masukan nilai rapot, dan lembar rekap. Khususnya pada sheet input nilai rapot siswa silahkan buat button Spin, Input Nilai, dan Reset All (hapus nilai pada sheet Input nilai rapot). 


Kemudian masukan kode-kode yang akan saya berikan di bawah ini. Lebih jelas simak videonya  Aplikasi Input Rapot SMP/MTs Versi 20.02 Part1   dan  Aplikasi Input Input Rapot SMP/MTs Versi 20.02 Part2 .


Pastikan untuk memulai pembuatan aplikasi ini menu developer sudah muncul di menu ribbon di atas untuk mempermudah kerja masuk ke vba dan  macro , jika belum silahkan  tampilkan Developer di menu ribbon . Setelah kita membuat tombol atau button spin (yang berfungsi untuk menampilkan data siswa secara berurutan) dan salin kode di bawah ini pada modul 1 di aplikasi visual basic.


Sub masukkanData()

Dim jumlahData As Integer

Dim nomor, nis, nama, pai1, pai2, pai3, pai4, pai5, pai6, pai7, pai8, pai9, pai10_

, pkn1, pkn2, pkn3, pkn4, pkn5, pkn6, pkn7, pkn8, pkn9, pkn10 _

, bi1, bi2, bi3, bi4, ​​bi5, bi6, bi7, bi8, bi9, bi10 _

, mtk1, mtk2, mtk3, mtk4, mtk5, mtk6, mtk7, mtk8, mtk9, mtk10 _

, ipa1, ipa2, ipa3, ipa4, ipa5, ipa6, ipa7, ipa8, ipa9, ipa10 _

, ips1, ips2, ips3, ips4, ips5, ips6, ips7, ips8, ips9, ips10 _

, bing1, bing2, bing3, bing4, bing5, bing6, bing7, bing8, bing9, bing10 _

, sbk1, sbk2, sbk3, sbk4, sbk5, sbk6, sbk7, sbk8, sbk9, sbk10 _

, pjok1, pjok2, pjok3, pjok4, pjok5, pjok6, pjok7, pjok8, pjok9, pjok10 _

, pkarya1, pkarya2, pkarya3, pkarya4, pkarya5, pkarya6, pkarya7, pkarya8, pkarya9, pkarya10 _

, bsunda1, bsunda2, bsunda3, bsunda4, bsunda5, bsunda6, bsunda7, bsunda8, bsunda9, bsunda10 

Sebagai Tali

Spreadsheet("Masukan").Pilih

nomor = Range("D3").Teks

nis = Range("D3").Teks

nama = Range("D4").Teks

pai1 = Range("D8").Teks

pai2 = Range("E8").Teks

pai3 = Range("F8").Teks

pai4 = Range("G8").Teks

pai5 = Range("H8").Teks

pai6 = Range("I8").Teks

pai7 = Range("J8").Teks

pai8 = Range("K8").Teks

pai9 = Range("L8").Teks

pai10 = Range("M8").Teks

 

Spreadsheet("Masukan").Pilih

nomor = Range("D3").Teks

nis = Range("D3").Teks

nama = Range("D4").Teks

pkn1 = Range("D9").Teks

pkn2 = Range("E9").Teks

pkn3 = Range("F9").Teks

pkn4 = Range("G9").Teks

pkn5 = Range("H9").Teks

pkn6 = Range("I9").Teks

pkn7 = Range("J9").Teks

pkn8 = Range("K9").Teks

pkn9 = Range("L9").Teks

pkn10 = Range("M9").Teks

 

Spreadsheet("Masukan").Pilih

nomor = Range("D3").Teks

nis = Range("D3").Teks

nama = Range("D4").Teks

bi1 = Range("D10").Teks

bi2 = Range("E10").Teks

bi3 = Range("F10").Teks

bi4 = Range("G10").Teks

bi5 = Range("H10").Teks

bi6 = Range("I10").Teks

bi7 = Range("J10").Teks

bi8 = Range("K10").Teks

bi9 = Range("L10").Teks

bi10 = Range("M10").Teks

 

Spreadsheet("Masukan").Pilih

nomor = Range("D3").Teks

nis = Range("D3").Teks

nama = Range("D4").Teks

mtk1 = Range("D11").Teks

mtk2 = Range("E11").Teks

mtk3 = Range("F11").Teks

mtk4 = Range("G11").Teks

mtk5 = Range("H11").Teks

mtk6 = Range("I11").Teks

mtk7 = Range("J11").Teks

mtk8 = Range("K11").Teks

mtk9 = Range("L11").Teks

mtk10 = Range("M11").Teks

 

Spreadsheet("Masukan").Pilih

nomor = Range("D3").Teks

nis = Range("D3").Teks

nama = Range("D4").Teks

ipa1 = Range("D12").Teks

ipa2 = Range("E12").Teks

ipa3 = Range("F12").Teks

ipa4 = Range("G12").Teks

ipa5 = Range("H12").Teks

ipa6 = Range("I12").Teks

ipa7 = Range("J12").Teks

ipa8 = Range("K12").Teks

ipa9 = Range("L12").Teks

ipa10 = Range("M12").Teks

 

Spreadsheet("Masukan").Pilih

nomor = Range("D3").Teks

nis = Range("D3").Teks

nama = Range("D4").Teks

ips1 = Range("D13").Teks

ips2 = Range("E13").Teks

ips3 = Range("F13").Teks

ips4 = Range("G13").Teks

ips5 = Range("H13").Teks

ips6 = Range("I13").Teks

ips7 = Range("J13").Teks

ips8 = Range("K13").Teks

ips9 = Range("L13").Teks

ips10 = Range("M13").Teks

 

Spreadsheet("Masukan").Pilih

nomor = Range("D3").Teks

nis = Range("D3").Teks

nama = Range("D4").Teks

bing1 = Range("D14").Teks

bing2 = Range("E14").Teks

bing3 = Range("F14").Teks

bing4 = Range("G14").Teks

bing5 = Range("H14").Teks

bing6 = Range("I14").Teks

bing7 = Range("J14").Teks

bing8 = Range("K14").Teks

bing9 = Range("L14").Teks

bing10 = Range("M14").Teks

 

Spreadsheet("Masukan").Pilih

nomor = Range("D3").Teks

nis = Range("D3").Teks

nama = Range("D4").Teks

sbk1 = Range("D15").Teks

sbk2 = Range("E15").Teks

sbk3 = Range("F15").Teks

sbk4 = Range("G15").Teks

sbk5 = Range("H15").Teks

sbk6 = Range("I15").Teks

sbk7 = Range("J15").Teks

sbk8 = Range("K15").Teks

sbk9 = Range("L15").Teks

sbk10 = Range("M15").Teks

 

Spreadsheet("Masukan").Pilih

nomor = Range("D3").Teks

nis = Range("D3").Teks

nama = Range("D4").Teks

pjok1 = Range("D16").Teks

pjok2 = Range("E16").Teks

pjok3 = Range("F16").Teks

pjok4 = Range("G16").Teks

pjok5 = Range("H16").Teks

pjok6 = Range("I16").Teks

pjok7 = Range("J16").Teks

pjok8 = Range("K16").Teks

pjok9 = Range("L16").Teks

pjok10 = Range("M16").Teks

 

Spreadsheet("Masukan").Pilih

nomor = Range("D3").Teks

nis = Range("D3").Teks

nama = Range("D4").Teks

pkarya1 = Range("D17").Teks

pkarya2 = Range("E17").Teks

pkarya3 = Range("F17").Teks

pkarya4 = Range("G17").Teks

pkarya5 = Range("H17").Teks

pkarya6 = Range("I17").Teks

pkarya7 = Range("J17").Teks

pkarya8 = Range("K17").Teks

pkarya9 = Range("L17").Teks

pkarya10 = Range("M17").Teks

 

Spreadsheet("Masukan").Pilih

nomor = Range("D3").Teks

nis = Range("D3").Teks

nama = Range("D4").Teks

bsunda1 = Range("D18").Teks

bsunda2 = Range("E18").Teks

bsunda3 = Range("F18").Teks

bsunda4 = Range("G18").Teks

bsunda5 = Range("H18").Teks

bsunda6 = Range("I18").Teks

bsunda7 = Range("J18").Teks

bsunda8 = Range("K18").Teks

bsunda9 = Range("L18").Teks

bsunda10 = Range("M18").Teks

    Sheets("Rekap").Pilih

    jumlahData = Range("DJ1").Value

    Rows(jumlahData + 2 & ":" & jumlahData + 2). Pilih

    Seleksi.Copy

    Rows(jumlahData + 2 & ":" & jumlahData + 2). Pilih

    ActiveSheet.Paste

    Application.CutCopyMode = Salah

 

    Range("A" & jumlahData + 3).Pilih 'masukkan nomor

    ActiveCell.FormulaR1C1 = jumlahData + 1

    Range("B" & jumlahData + 3).Pilih 'input nis

    ActiveCell.FormulaR1C1 = nis

    Range("C" & jumlahData + 3).Pilih 'input nama

    ActiveCell.FormulaR1C1 = nama

    Range("D" & jumlahData + 3).Pilih 'input pai1

    ActiveCell.FormulaR1C1 = pai1

    Range("E" & jumlahData + 3).Pilih 'input pai2

    ActiveCell.FormulaR1C1 = pai2

    Range("F" & jumlahData + 3).Pilih 'input pai3

    ActiveCell.FormulaR1C1 = pai3

    Range("G" & jumlahData + 3).Pilih 'input pai4

    ActiveCell.FormulaR1C1 = pai4

    Range("H" & jumlahData + 3).Pilih 'input pai5

    ActiveCell.FormulaR1C1 = pai5

    Range("I" & jumlahData + 3).Pilih 'input pai6

    ActiveCell.FormulaR1C1 = pai6

    Range("J" & jumlahData + 3).Pilih 'input pai7

    ActiveCell.FormulaR1C1 = pai7

    Range("K" & jumlahData + 3).Pilih 'input pai8

    ActiveCell.FormulaR1C1 = pai8

    Range("L" & jumlahData + 3).Pilih 'input pai9

    ActiveCell.FormulaR1C1 = pai9

    Range("M" & jumlahData + 3).Pilih 'input pai10

    ActiveCell.FormulaR1C1 = pai10

 

    Range("N" & jumlahData + 3).Pilih 'input pkn1

    ActiveCell.FormulaR1C1 = pkn1

    Range("O" & jumlahData + 3).Pilih 'input pkn2

    ActiveCell.FormulaR1C1 = pkn2

    Range("P" & jumlahData + 3).Pilih 'input pkn3

    ActiveCell.FormulaR1C1 = pkn3

    Range("Q" & jumlahData + 3).Pilih 'input pkn4

    ActiveCell.FormulaR1C1 = pkn4

    Range("R" & jumlahData + 3).Pilih 'input pkn5

    ActiveCell.FormulaR1C1 = pkn5

    Range("S" & jumlahData + 3).Pilih 'input pkn6

    ActiveCell.FormulaR1C1 = pkn6

    Range("T" & jumlahData + 3).Pilih 'input pkn7

    ActiveCell.FormulaR1C1 = pkn7

    Range("U" & jumlahData + 3).Pilih 'input pkn8

    ActiveCell.FormulaR1C1 = pkn8

    Range("V" & jumlahData + 3).Pilih 'input pkn9

    ActiveCell.FormulaR1C1 = pkn9

    Range("W" & jumlahData + 3).Pilih 'input pkn10

    ActiveCell.FormulaR1C1 = pkn10

    

    Range("X" & jumlahData + 3).Pilih 'input bi1

    ActiveCell.FormulaR1C1 = bi1

    Range("Y" & jumlahData + 3).Pilih 'input bi2

    ActiveCell.FormulaR1C1 = bi2

    Range("Z" & jumlahData + 3).Pilih 'input bi3

    ActiveCell.FormulaR1C1 = bi3

    Range("AA" & jumlahData + 3).Pilih 'input bi4

    ActiveCell.FormulaR1C1 = bi4

    Range("AB" & jumlahData + 3).Pilih 'input bi5

    ActiveCell.FormulaR1C1 = bi5

    Range("AC" & jumlahData + 3).Pilih 'input bi6

    ActiveCell.FormulaR1C1 = bi6

    Range("AD" & jumlahData + 3).Pilih 'input bi7

    ActiveCell.FormulaR1C1 = bi7

    Range("AE" & jumlahData + 3).Pilih 'input bi8

    ActiveCell.FormulaR1C1 = bi8

    Range("AF" & jumlahData + 3).Pilih 'input bi9

    ActiveCell.FormulaR1C1 = bi9

    Range("AG" & jumlahData + 3).Pilih 'input bi10

    ActiveCell.FormulaR1C1 = bi10

    

    Range("AH" & jumlahData + 3).Pilih 'input mtk1

    ActiveCell.FormulaR1C1 = mtk1

    Range("AI" & jumlahData + 3).Pilih 'input mtk2

    ActiveCell.FormulaR1C1 = mtk2

    Range("AJ" & jumlahData + 3).Pilih 'input mtk3

    ActiveCell.FormulaR1C1 = mtk3

    Range("AK" & jumlahData + 3).Pilih 'input mtk4

    ActiveCell.FormulaR1C1 = mtk4

    Range("AL" & jumlahData + 3).Pilih 'input mtk5

    ActiveCell.FormulaR1C1 = mtk5

    Range("AM" & jumlahData + 3).Pilih 'input mtk6

    ActiveCell.FormulaR1C1 = mtk6

    Range("AN" & jumlahData + 3).Pilih 'input mtk7

    ActiveCell.FormulaR1C1 = mtk7

    Range("AO" & jumlahData + 3).Pilih 'input mtk8

    ActiveCell.FormulaR1C1 = mtk8

    Range("AP" & jumlahData + 3).Pilih 'input mtk9

    ActiveCell.FormulaR1C1 = mtk9

    Range("AQ" & jumlahData + 3).Pilih 'input mtk10

    ActiveCell.FormulaR1C1 = mtk10

    

    Range("AR" & jumlahData + 3).Pilih 'input ipa1

    ActiveCell.FormulaR1C1 = ipa1

    Range("AS" & jumlahData + 3).Pilih 'input ipa2

    ActiveCell.FormulaR1C1 = ipa2

    Range("AT" & jumlahData + 3).Pilih 'input ipa3

    ActiveCell.FormulaR1C1 = ipa3

    Range("AU" & jumlahData + 3).Pilih 'input ipa4

    ActiveCell.FormulaR1C1 = ipa4

    Range("AV" & jumlahData + 3).Pilih 'input ipa5

    ActiveCell.FormulaR1C1 = ipa5

    Range("AW" & jumlahData + 3).Pilih 'input ipa6

    ActiveCell.FormulaR1C1 = ipa6

    Range("AX" & jumlahData + 3).Pilih 'input ipa7

    ActiveCell.FormulaR1C1 = ipa7

    Range("AY" & jumlahData + 3).Pilih 'input ipa8

    ActiveCell.FormulaR1C1 = ipa8

    Range("AZ" & jumlahData + 3).Pilih 'input ipa9

    ActiveCell.FormulaR1C1 = ipa9

    Range("BA" & jumlahData + 3).Pilih 'input ipa10

    ActiveCell.FormulaR1C1 = ipa10

    

    Range("BB" & jumlahData + 3).Pilih 'input ips1

    ActiveCell.FormulaR1C1 = ips1

    Range("BC" & jumlahData + 3).Pilih 'input ips2

    ActiveCell.FormulaR1C1 = ips2

    Range("BD" & jumlahData + 3).Pilih 'input ips3

    ActiveCell.FormulaR1C1 = ips3

    Range("BE" & jumlahData + 3).Pilih 'input ips4

    ActiveCell.FormulaR1C1 = ips4

    Range("BF" & jumlahData + 3).Pilih 'input ipas5

    ActiveCell.FormulaR1C1 = ips5

    Range("BG" & jumlahData + 3).Pilih 'input ips6

    ActiveCell.FormulaR1C1 = ips6

    Range("BH" & jumlahData + 3).Pilih 'input ips7

    ActiveCell.FormulaR1C1 = ips7

    Range("BI" & jumlahData + 3).Pilih 'input ips8

    ActiveCell.FormulaR1C1 = ips8

    Range("BJ" & jumlahData + 3).Pilih 'input ips9

    ActiveCell.FormulaR1C1 = ips9

    Range("BK" & jumlahData + 3).Pilih 'input ips10

    ActiveCell.FormulaR1C1 = ips10

    

    Range("BL" & jumlahData + 3).Pilih 'input bing1

    ActiveCell.FormulaR1C1 = bing1

    Range("BM" & jumlahData + 3).Pilih 'input bing2

    ActiveCell.FormulaR1C1 = bing2

    Range("BN" & jumlahData + 3).Pilih 'input bing3

    ActiveCell.FormulaR1C1 = bing3

    Range("BO" & jumlahData + 3).Pilih 'input bing4

    ActiveCell.FormulaR1C1 = bing4

    Range("BP" & jumlahData + 3).Pilih 'input bing5

    ActiveCell.FormulaR1C1 = bing5

    Range("BQ" & jumlahData + 3).Pilih 'input bing6

    ActiveCell.FormulaR1C1 = bing6

    Range("BR" & jumlahData + 3).Pilih 'input bing7

    ActiveCell.FormulaR1C1 = bing7

    Range("BS" & jumlahData + 3).Pilih 'input bing8

    ActiveCell.FormulaR1C1 = bing8

    Range("BT" & jumlahData + 3).Pilih 'input bing9

    ActiveCell.FormulaR1C1 = bing9

    Range("BU" & jumlahData + 3).Pilih 'input bing10

    ActiveCell.FormulaR1C1 = bing10

    

    Range("BV" & jumlahData + 3).Pilih 'input sbk1

    ActiveCell.FormulaR1C1 = sbk1

    Range("BW" & jumlahData + 3).Pilih 'input sbk2

    ActiveCell.FormulaR1C1 = sbk2

    Range("BX" & jumlahData + 3).Pilih 'input sbk3

    ActiveCell.FormulaR1C1 = sbk3

    Range("BY" & jumlahData + 3).Pilih 'input sbk4

    ActiveCell.FormulaR1C1 = sbk4

    Range("BZ" & jumlahData + 3).Pilih 'input sbk5

    ActiveCell.FormulaR1C1 = sbk5

    Range("CA" & jumlahData + 3).Pilih 'input sbk6

    ActiveCell.FormulaR1C1 = sbk6

    Range("CB" & jumlahData + 3).Pilih 'input sbk7

    ActiveCell.FormulaR1C1 = sbk7

    Range("CC" & jumlahData + 3).Pilih 'input sbk8

    ActiveCell.FormulaR1C1 = sbk8

    Range("CD" & jumlahData + 3).Pilih 'input sbk9

    ActiveCell.FormulaR1C1 = sbk9

    Range("CE" & jumlahData + 3).Pilih 'input sbk10

    ActiveCell.FormulaR1C1 = sbk10

    

    Range("CF" & jumlahData + 3).Pilih 'input pjok1

    ActiveCell.FormulaR1C1 = pjok1

    Range("CG" & jumlahData + 3).Pilih 'input pjok2

    ActiveCell.FormulaR1C1 = pjok2

    Range("CH" & jumlahData + 3).Pilih 'input pjok3

    ActiveCell.FormulaR1C1 = pjok3

    Range("CI" & jumlahData + 3).Pilih 'input pjok4

    ActiveCell.FormulaR1C1 = pjok4

    Range("CJ" & jumlahData + 3).Pilih 'input pjok5

    ActiveCell.FormulaR1C1 = pjok5

    Range("CK" & jumlahData + 3).Pilih 'input pjok6

    ActiveCell.FormulaR1C1 = pjok6

    Range("CL" & jumlahData + 3).Pilih 'input pjok7

    ActiveCell.FormulaR1C1 = pjok7

    Range("CM" & jumlahData + 3).Pilih 'input pjok8

    ActiveCell.FormulaR1C1 = pjok8

    Range("CN" & jumlahData + 3).Pilih 'input pjok9

    ActiveCell.FormulaR1C1 = pjok9

    Range("CO" & jumlahData + 3).Pilih 'input pjok10

    ActiveCell.FormulaR1C1 = pjok10

    Range("CP" & jumlahData + 3).Pilih 'input pkarya1

    ActiveCell.FormulaR1C1 = pkarya1

    Range("CQ" & jumlahData + 3).Pilih 'input pkarya2

    ActiveCell.FormulaR1C1 = pkarya2

    Range("CR" & jumlahData + 3).Pilih 'input pkarya3

    ActiveCell.FormulaR1C1 = pkarya3

    Range("CS" & jumlahData + 3).Pilih 'input pkarya4

    ActiveCell.FormulaR1C1 = pkarya4

    Range("CT" & jumlahData + 3).Pilih 'input pkarya5

    ActiveCell.FormulaR1C1 = pkarya5

    Range("CU" & jumlahData + 3).Pilih 'input pkarya6

    ActiveCell.FormulaR1C1 = pkarya6

    Range("CV" & jumlahData + 3). Pilih 'input pkarya7

    ActiveCell.FormulaR1C1 = pkarya7

    Range("CW" & jumlahData + 3).Pilih 'input pkarya8

    ActiveCell.FormulaR1C1 = pkarya8

    Range("CX" & jumlahData + 3).Pilih 'input pkarya9

    ActiveCell.FormulaR1C1 = pkarya9

    Range("CY" & jumlahData + 3).Pilih 'input pkarya10

    ActiveCell.FormulaR1C1 = pkarya10

    

    Range("CZ" & jumlahData + 3).Pilih 'input bsunda1

    ActiveCell.FormulaR1C1 = bsunda1

    Range("DA" & jumlahData + 3).Pilih 'input bsunda2

    ActiveCell.FormulaR1C1 = bsunda2

    Range("DB" & jumlahData + 3).Pilih 'input bsunda3

    ActiveCell.FormulaR1C1 = bsunda3

    Range("DC" & jumlahData + 3).Pilih 'input bsunda4

    ActiveCell.FormulaR1C1 = bsunda4

    Range("DD" & jumlahData + 3).Pilih 'input bsunda5

    ActiveCell.FormulaR1C1 = bsunda5

    Range("DE" & jumlahData + 3).Pilih 'input bsunda6

    ActiveCell.FormulaR1C1 = bsunda6

    Range("DF" & jumlahData + 3).Pilih 'input bsunda7

    ActiveCell.FormulaR1C1 = bsunda7

    Range("DG" & jumlahData + 3).Pilih 'input bsunda8

    ActiveCell.FormulaR1C1 = bsunda8

    Range("DH" & jumlahData + 3).Pilih 'input bsunda9

    ActiveCell.FormulaR1C1 = bsunda9

    Range("DI" & jumlahData + 3).Pilih 'input bsunda10

    ActiveCell.FormulaR1C1 = bsunda10

Akhir Sub


Untuk membuat pesan notifikasi bahwa input nilai rapot telah berhasil direkam silahkan berikut kode vba-nya :

Spreadsheet("Masukan").Pilih

    'pesan berhasil

    MsgBox "Input Nilai Siswa Berhasil !", vbInformation, "Info SMPN 1 Pusakanagara"

 

Silahkan kode notifikasi di atas simpat bersama kode insert data. Sedangkan kode untuk menghapus atau reset all semua nilai yang ada pada tabel sheet masukan nilai rapot cell "D8:M18" berikut ini 

 

Sub bersih()

    Range("D8").Pilih 'kosongkan masukan nama

    ActiveCell.FormulaR1C1 = ""

    Range("D9").Pilih 'kosongkan input kelas

    ActiveCell.FormulaR1C1 = ""

    Range("D10").Pilih 'kosongkan masukan alamat

    ActiveCell.FormulaR1C1 = ""

    Range("D11").Pilih 'kosongkan masukan hari

    ActiveCell.FormulaR1C1 = ""

    Range("D12").Pilih 'kosongkan masukan tanggal

    ActiveCell.FormulaR1C1 = ""

    Range("D13").Pilih 'kosongkan masukan walikelas

    ActiveCell.FormulaR1C1 = ""

    Range("D14").Pilih 'pengguna masukan kosongkan

    ActiveCell.FormulaR1C1 = ""

    Range("D15").Pilih 'kosongkan masukan pengguna

    ActiveCell.FormulaR1C1 = ""

    Range("D16").Pilih 'pengguna input kosongkan

    ActiveCell.FormulaR1C1 = ""

    Range("D17").Pilih 'pengguna input kosongkan

    ActiveCell.FormulaR1C1 = ""

    Range("D18").Pilih 'kosongkan masukan pengguna

    ActiveCell.FormulaR1C1 = ""

    

    Range("E8").Pilih 'kosongkan masukan nama

    ActiveCell.FormulaR1C1 = ""

    Range("E9").Pilih 'kosongkan input kelas

    ActiveCell.FormulaR1C1 = ""

    Range("E10").Pilih 'kosongkan masukan alamat

    ActiveCell.FormulaR1C1 = ""

    Range("E11").Pilih 'kosongkan masukan hari

    ActiveCell.FormulaR1C1 = ""

    Range("E12").Pilih 'kosongkan masukan tanggal

    ActiveCell.FormulaR1C1 = ""

    Range("E13").Pilih 'kosongkan masukan walikelas

    ActiveCell.FormulaR1C1 = ""

    Range("E14").Pilih 'pengguna input kosongkan

    ActiveCell.FormulaR1C1 = ""

    Range("E15").Pilih 'pengguna masukan kosongkan

    ActiveCell.FormulaR1C1 = ""

    Range("E16").Pilih 'kosongkan masukan pengguna

    ActiveCell.FormulaR1C1 = ""

    Range("E17").Pilih 'pengguna input kosongkan

    ActiveCell.FormulaR1C1 = ""

    Range("E18").Pilih 'pengguna masukan kosongkan

    ActiveCell.FormulaR1C1 = ""


    Range("F8").Pilih 'kosongkan masukan nama

    ActiveCell.FormulaR1C1 = ""

    Range("F9").Select 'kosongkan input kelas

    ActiveCell.FormulaR1C1 = ""

    Range("F10").Select 'kosongkan input alamat

    ActiveCell.FormulaR1C1 = ""

    Range("F11").Select 'kosongkan input hari

    ActiveCell.FormulaR1C1 = ""

    Range("F12").Select 'kosongkan input tanggal

    ActiveCell.FormulaR1C1 = ""

    Range("F13").Select 'kosongkan input walikelas

    ActiveCell.FormulaR1C1 = ""

    Range("F14").Select 'kosongkan input user

    ActiveCell.FormulaR1C1 = ""

    Range("F15").Select 'kosongkan input user

    ActiveCell.FormulaR1C1 = ""

    Range("F16").Select 'kosongkan input user

    ActiveCell.FormulaR1C1 = ""

    Range("F17").Select 'kosongkan input user

    ActiveCell.FormulaR1C1 = ""

    Range("F18").Select 'kosongkan input user

    ActiveCell.FormulaR1C1 = ""

    

    Range("G8").Select 'kosongkan input nama

    ActiveCell.FormulaR1C1 = ""

    Range("G9").Select 'kosongkan input kelas

    ActiveCell.FormulaR1C1 = ""

    Range("G10").Select 'kosongkan input alamat

    ActiveCell.FormulaR1C1 = ""

    Range("G11").Pilih 'kosongkan masukan hari

    ActiveCell.FormulaR1C1 = ""

    Range("G12").Pilih 'kosongkan masukan tanggal

    ActiveCell.FormulaR1C1 = ""

    Range("G13").Pilih 'kosongkan masukan walikelas

    ActiveCell.FormulaR1C1 = ""

    Range("G14").Pilih 'pengguna masukan kosongkan

    ActiveCell.FormulaR1C1 = ""

    Range("G15").Pilih 'pengguna masukan kosongkan

    ActiveCell.FormulaR1C1 = ""

    Range("G16").Pilih 'pengguna masukan kosongkan

    ActiveCell.FormulaR1C1 = ""

    Range("G17").Pilih 'pengguna masukan kosongkan

    ActiveCell.FormulaR1C1 = ""

    Range("G18").Pilih 'pengguna input kosongkan

    ActiveCell.FormulaR1C1 = ""

    

    Range("H8").Pilih 'kosongkan masukan nama

    ActiveCell.FormulaR1C1 = ""

    Range("H9").Pilih 'kosongkan input kelas

    ActiveCell.FormulaR1C1 = ""

    Range("H10").Pilih 'kosongkan masukan alamat

    ActiveCell.FormulaR1C1 = ""

    Range("H11").Pilih 'kosongkan masukan hari

    ActiveCell.FormulaR1C1 = ""

    Range("H12").Pilih 'kosongkan masukan tanggal

    ActiveCell.FormulaR1C1 = ""

    Range("H13").Pilih 'kosongkan masukan walikelas

    ActiveCell.FormulaR1C1 = ""

    Range("H14").Pilih 'pengguna masukan kosongkan

    ActiveCell.FormulaR1C1 = ""

    Range("H15").Pilih 'kosongkan masukan pengguna

    ActiveCell.FormulaR1C1 = ""

    Range("H16").Pilih 'kosongkan masukan pengguna

    ActiveCell.FormulaR1C1 = ""

    Range("H17").Pilih 'pengguna masukan kosongkan

    ActiveCell.FormulaR1C1 = ""

    Range("H18").Pilih 'pengguna masukan kosongkan

    ActiveCell.FormulaR1C1 = ""

    

    Range("I8").Pilih 'kosongkan masukan nama

    ActiveCell.FormulaR1C1 = ""

    Range("I9").Pilih 'kosongkan input kelas

    ActiveCell.FormulaR1C1 = ""

    Range("I10").Pilih 'kosongkan masukan alamat

    ActiveCell.FormulaR1C1 = ""

    Range("I11").Pilih 'kosongkan masukan hari

    ActiveCell.FormulaR1C1 = ""

    Range("I12").Pilih 'kosongkan masukan tanggal

    ActiveCell.FormulaR1C1 = ""

    Range("I13").Pilih 'kosongkan masukan walikelas

    ActiveCell.FormulaR1C1 = ""

    Range("I14").Pilih 'pengguna masukan kosongkan

    ActiveCell.FormulaR1C1 = ""

    Range("I15").Pilih 'kosongkan masukan pengguna

    ActiveCell.FormulaR1C1 = ""

    Range("I16").Pilih 'pengguna input kosongkan

    ActiveCell.FormulaR1C1 = ""

    Range("I17").Pilih 'pengguna masukan kosongkan

    ActiveCell.FormulaR1C1 = ""

    Range("I18").Pilih 'pengguna masukan kosongkan

    ActiveCell.FormulaR1C1 = ""

    

    Range("J8").Pilih 'kosongkan masukan nama

    ActiveCell.FormulaR1C1 = ""

    Range("J9").Pilih 'kosongkan input kelas

    ActiveCell.FormulaR1C1 = ""

    Range("J10").Pilih 'kosongkan masukan alamat

    ActiveCell.FormulaR1C1 = ""

    Range("J11").Pilih 'kosongkan masukan hari

    ActiveCell.FormulaR1C1 = ""

    Range("J12").Pilih 'kosongkan masukan tanggal

    ActiveCell.FormulaR1C1 = ""

    Range("J13").Pilih 'kosongkan masukan walikelas

    ActiveCell.FormulaR1C1 = ""

    Range("J14").Pilih 'pengguna masukan kosongkan

    ActiveCell.FormulaR1C1 = ""

    Range("J15").Pilih 'pengguna masukan kosongkan

    ActiveCell.FormulaR1C1 = ""

    Range("J16").Pilih 'pengguna masukan kosongkan

    ActiveCell.FormulaR1C1 = ""

    Range("J17").Pilih 'pengguna masukan kosongkan

    ActiveCell.FormulaR1C1 = ""

    Range("J18").Pilih 'pengguna masukan kosongkan

    ActiveCell.FormulaR1C1 = ""

    

    Range("K8").Pilih 'kosongkan masukan nama

    ActiveCell.FormulaR1C1 = ""

    Range("K9").Pilih 'kosongkan input kelas

    ActiveCell.FormulaR1C1 = ""

    Range("K10").Pilih 'kosongkan masukan alamat

    ActiveCell.FormulaR1C1 = ""

    Range("K11").Pilih 'kosongkan masukan hari

    ActiveCell.FormulaR1C1 = ""

    Range("K12").Pilih 'kosongkan masukan tanggal

    ActiveCell.FormulaR1C1 = ""

    Range("K13").Pilih 'kosongkan masukan walikelas

    ActiveCell.FormulaR1C1 = ""

    Range("K14").Pilih 'kosongkan masukan pengguna

    ActiveCell.FormulaR1C1 = ""

    Range("K15").Pilih 'pengguna masukan kosongkan

    ActiveCell.FormulaR1C1 = ""

    Range("K16").Pilih 'pengguna masukan kosongkan

    ActiveCell.FormulaR1C1 = ""

    Range("K17").Pilih 'pengguna input kosongkan

    ActiveCell.FormulaR1C1 = ""

    Range("K18").Pilih 'kosongkan masukan pengguna

    ActiveCell.FormulaR1C1 = ""

    

    Range("L8").Pilih 'kosongkan masukan nama

    ActiveCell.FormulaR1C1 = ""

    Range("L9").Pilih 'kosongkan input kelas

    ActiveCell.FormulaR1C1 = ""

    Range("L10").Pilih 'kosongkan masukan alamat

    ActiveCell.FormulaR1C1 = ""

    Range("L11").Pilih 'kosongkan masukan hari

    ActiveCell.FormulaR1C1 = ""

    Range("L12").Pilih 'kosongkan masukan tanggal

    ActiveCell.FormulaR1C1 = ""

    Range("L13").Pilih 'kosongkan masukan walikelas

    ActiveCell.FormulaR1C1 = ""

    Range("L14").Pilih 'pengguna input kosongkan

    ActiveCell.FormulaR1C1 = ""

    Range("L15").Pilih 'kosongkan masukan pengguna

    ActiveCell.FormulaR1C1 = ""

    Range("L16").Pilih 'pengguna input kosongkan

    ActiveCell.FormulaR1C1 = ""

    Range("L17").Pilih 'pengguna input kosongkan

    ActiveCell.FormulaR1C1 = ""

    Range("L18").Pilih 'kosongkan masukan pengguna

    ActiveCell.FormulaR1C1 = ""

    

    Range("M8").Pilih 'kosongkan masukan nama

    ActiveCell.FormulaR1C1 = ""

    Range("M9").Pilih 'kosongkan input kelas

    ActiveCell.FormulaR1C1 = ""

    Range("M10").Pilih 'kosongkan masukan alamat

    ActiveCell.FormulaR1C1 = ""

    Range("M11").Pilih 'kosongkan masukan hari

    ActiveCell.FormulaR1C1 = ""

    Range("M12").Pilih 'kosongkan masukan tanggal

    ActiveCell.FormulaR1C1 = ""

    Range("M13").Pilih 'kosongkan masukan walikelas

    ActiveCell.FormulaR1C1 = ""

    Range("M14").Pilih 'pengguna input kosongkan

    ActiveCell.FormulaR1C1 = ""

    Range("M15").Pilih 'pengguna input kosongkan

    ActiveCell.FormulaR1C1 = ""

    Range("M16").Pilih 'pengguna input kosongkan

    ActiveCell.FormulaR1C1 = ""

    Range("M17").Pilih 'pengguna input kosongkan

    ActiveCell.FormulaR1C1 = ""

    Range("M18").Pilih 'pengguna input kosongkan

    ActiveCell.FormulaR1C1 = ""

Akhir Sub


Silahkan kode clear atau reset all nilai rapot, anda simpan pada modul 2 aplikasi visual basic.

 

Read more »
By di No comments:
Label: , ,

Saturday, May 2, 2020

Aplikasi Excel Input Nilai Rapot SMP Versi 20.01 Vba

Aplikasi PPDB Versi 02; , Aplikasi SKHUS
Aplikasi Excel Input Nilai Rapot SMP Versi 20.01 Vba
Aplikasi Excel Input Nilai Rapot SMP Versi 20.01 Vba

RuangExcel : Pada pasal 1 beberapa ketentuan dalam peraturan Sekretaris Jenderal Pendidikan nasional nomor 2 tahun 2020 Tentang Spesifikasi teknis, bentuk, dan atata cara pengisian blangko ijazah Pendidikan Dasar dan Menengah  Tahun Pelajaran 2019/2020, diubah pada pasal 7 sehingga berbunyi ;

1.   Tanggal kelulusan SD, SDLB, dan paket A atau sederajat ditetapkan tanggal 15 Juni 2020; 

2.   Tanggal kelulusan SMP, SMPLB, dan program paket B atau sederajat ditetapkan tanggal 5 Juni 2020; dan 

3.   Tanggal kelulusan SMA, SMALB, dan program paket C atau sederajat ditetapkan tanggal 2 Mei 2020.

Sementara itu untuk mengambil nilai untuk ijazah pada bagian blangko ijazah bagian belakang sebagai berikut :

1.   Untuk SD dan SDLB, diperoleh dari rata-rata nilai lima semester terakhir ( Kelas 4, Kelas 5, dan Kelas 6 semester ganjil ) yakni rata-rata nilai pada semester 7, 8, 9, 10, dan 11; dan sebagai tambahan nilai kelulusan, dapat ditambah nilai pada semester genap kelas 6 (semester 12) dan hasil ujian sekolah yang dilakukan dalam bentuk portofolio nilai rapot serta prestasi yang diperoleh sebelumnya, penugasan, tes daring, dan/atau bentuk asesmen jarak jauh lainnya; dan ...

2.   Untuk SMP dan SMPLB diperoleh dari rata-rata nilai lima semester terakhir ( Kelas 7, Kelas 8, dan Kelas 9 semester ganjil ) yakni rata-rata nilai pada semester 1, 2, 3, 4, dan 5; dan sebagai tambahan nilai kelulusan, dapat ditambah nilai pada semester genap kelas 9 (semester 6) dan hasil ujian sekolah yang dilakukan dalam bentuk portofolio nilai rapot serta prestasi yang diperoleh sebelumnya, penugasan, tes daring, dan/atau bentuk asesmenjarak jauh lainnya.

Guna menyikapi perolehan nilai rata-rata lima semeter terakhir baik SD maupun SMP, saya telah mencoba dan merancang Aplikasi excel dengan visual basic application untuk menginput nilai Rapot SD/SDLB ( nilai rapot semester 7, 8, 9, 10 dan 11 ) dan SMP/SMPLB ( nilai rapot semester 1, 2, 3, 4, dan 5).

Untuk Aplikasi excel Input Nilai rapot semster 7 sd. 11 jenjang SD silahkan diunduh

Sementara untuk Aplikasi Input Nilai Rapot semester 1 sd. 5 jenjang SMP/SMPLB akan saya jelaskan sebagai beerikut :

Aplikasi input nilai rapot SMP/SMPLB yang saya kembangkan adalah aplikasi dari microsoft excel yang sangat sederhana dengan macros dan basis visual basic application. Pada aplikasi input nilai rapot ini ada tiga (3) menu sheet yakni :

1. Sheet Input Data Siswa

Pada sheet ini, silahkan rekan-rekan ops atau guru mengisi dengan data siswa kelas 9 berupa data NIS, NISN, nama lengkap, dan kelas. Data yang ada pada sheet data siswa ini akan meng-Link ke sheet input nilai rapot dengan menggunakan kode Vba.

2. Sheet Input Nilai Rapot

Pada Sheet input nilai rapot ini terdapat kolom NIS, Nama siswa yang secara automatis diambil darai sheet Input data siswa dana terdapat lima kolom nilai rapot 5 semester terakhir, dimana setiap kolom terbagi menjadi dua kolom (kolom nilai pengetahuan dan keterampilan).

Pada sheet ini terdapat tiga button atau tombol yakni

* Tombol Spin berfungsi untuk mengganti NIS dan nama siswa pada cell "D3" dan cell "D4".

* Tombol Input Nilai berfungsi untuk mencatat atau merekam nilai rapot ke sheet rekap nilai ke masing-masing mata pelajaran.

* Tombol Reset all berfungsi untuk meriset ulang atau menghapus semua nilai yang terinput di kolom nilai rapot lima semster terakhir dari cell "D8:M18". dan ini dilakukam ketika kita akan mengganti dengan nilai siswa lainnya.

3. Sheet Rekap Nilai

Sheet rekap nilai merupakan sheet untuk menampung nilai pada masing-masing mata pelajaran yang bersal dari hasil rekaman data sheet input nilai rapot. dan secara automatis berurutan sesuai inputan dari sheet inpur nilai rapot.

 

Silahkan rekan-rekan ops atau guru agar menyiapkan nilai rapot lima semester terakhir jenjang SMP/SMPLB yang terdapat pada Buku Induk Siswa. dan segera unduh aplikasi input nilai rapot SMP Unduh disini.

 

Agar rekan-rekan dapat mengetahui postingan terupdate dari ruang excel silahkan Klik menu "Follow" atau masukan email rekan-rekan ops atau guru ke kolom email dan klik tombol "Submit". 

Saya al faqir memohon maaf bila masih banyak kekurangan dan Terimakasih sudah berkenan mampir dan menggunakan aplikasi ini. Semoga Aplikasi excel Input Nilai Rapot SMP visual basic appliacation ini bermanfaat buat rekan-rekan sekalian. Aamiin

berikut Kode Scrip Input Nilai Rapot dan untuk melihat tutorial aplikasi input nilai silahkan lihat di Part1 dan Tutorial part2

 

 

Read more »
By di No comments:
Label: , , ,

Saturday, April 18, 2020

9 Cara mempercepat koneksi internet wifi

Aplikasi Input Nilai Rapot , Aplikasi Mutasi Masuk
9 Cara mempercepat koneksi internet wifi


Sobat RuangExcel : Diera digital kita tidak terlepas dari jaringa internet, salah satunya jika koneksi wifi kita lemot maka akan mengganggu kita dalam akses informasi dan penggunaan internet. Berikut 9 Cara mempercepat koneksi intenet wifi. 

1. Letakan Router di tempat stategis
Penempatan posisik router merupakan hal yang sangat penting untuk diperhatikan. sebagai alat pemamcar wifi, jika ia diletakan di posisi yang salah maka efektivitasnya juga akan berkurang.

Disarankan untuk menempatkan router pada posisi yang sekiranya stategis sesuai kebutuhan. Selain itu usahakan untuk memposisikan di tempat yang agak terbuka.

Jangan langsung bertemu dengan dinding yang bisa menyebabkan sinyal wifi menjadi terganggu dan tak menyebar secara efektif.

2.   Atur posisi antena pada router
Jika kalian menggunakan router yang memiliki antena eksternal, maka bisa mencoba tips yang satu ini. ternyata arah dari antena paada router juga dipengaruhi terhadap kinerjanya.
Cobahlah untuk mengubah arah dari antena tersebut hingga mendapatkan koneksi yang lebih baik daripada sebelumnya.

3.   Coba Gunakan aplikasi Heatmapping
Software yang satu ini akan membantu kalian untuk melihat seberapa efektif cakupan sinyal wifi. Dengan begitu kita bisa menentukan dimana posisi router yang efektif agar sinyalnya menyebar dengan efektif. Coba juga tips untuk mengubah arah antena seperti di atas agar mendapatkan hasil yang lebih baik.

4.  Ubah jadi jaringan tertutup
Semakin banyak orang yang memakai jaringan wifi, maka koneksinya akan semakin lambat. maka dari itu  jika kalian tak ingin ada para pemburu wifi gratisan yang iktu numpang tanpa izin. sebaiknya berikan password pada jaringan hotspot kalian.
dengan begitu hanya perangkat tertentu saja yang bisa tekoneksi dan menggunakan wifi tersebut.

5.  Ubah Frekuensi ke 5GHz
sekarang ini ada 2 jenis frekuensi pada wifi yaitu 2,4 GHz dan 5GHz. Lebih bagus yang amana ? tergantung kondisi tempat kalian, jika ada banyak barang elektronik yang menggunakan frekuensi 2,4 GHz naka konesi wifi punjuga ikut terpengaruhi.
Apabila terjadi, disarankan untuk emngubah setting router kalian dari frekuensi 2,4 ke 5GHz. Tapi sebelum itu pastikan dulu perangkat kalian sudah mendukung fekuensi 5GHz juga ya.

6.  Tambahkan Perangkat repeater
Salah satu penyebab koneksi wifi lemot adalah penyebaran sinyal yang lemah. Solusi dari msalah ini adalah dengan memanfaatkan repeater. Perangkat tersebut kan berguna untuk memperkuat serta memperluas cakupan sinyal wifi yang ada. Dengan begitu kita bisa mendapatkan koneksi yang lebih baik daripada sebelumnya.

7.  Pilih saluran yang tak terlalu ramai
Selain pemilihan frekuesnsi, pengaturan saluran pada router juga terbilang penting . Umumnya frekuensi 2,4 GHz akan banyak yang menggunakan saluran 1,6 dan 11. amk dari itu disarankan untuk memillih saluran yang lain. namun, akan lebih baik lagi apabila kalian sudah beralih ke frekuensi 5 GHz.
Selain karena kinerjanya yang sudah kurang efektif, router jenis baru jelas puna teknologi yang lebih baik. Hal ini sangat bagus jika kalian ingin punya wifi berkecepatan tinggi.

8.  Ganti router dengan yang baru 
kembali lagi bahwa router merupaka faktor yang sangat penting dalam hal ini. Apabila perangkat yang kalian gunakan sudah jadul maka disarankan untuk segera menggantinya.
Selain kinerjanhya yang sudah kurang efektif, router jenis baru jelas punya teknologi yang lebih baik. hal ini akan sangat bagus jika kalian ingin puya wifi berkecepatan tinggi.

9.   Minta bantuan ke ISP
Jika semua tips di atas belum bisa mengatasi wifi yang lemot, saatnya untuk meminta bantuan. Kalian bisa menghubungi ISP untuk mengirimkan tenaga ahli agar dapat mempercepat koneksi wifi kalian.
mereka tentu lebih kompeten dan bisa mencari tahu apa sebenarnya penyebab dari masalah tersebut. Selain itu, tips ini cocok untuk kalian yang tak mau repot.

Selamat mencoba, Semoga Sukses

Sumber : Fb Ilmu networking

Read more »
By di No comments:
Label: , , , , ,

Wednesday, February 12, 2020

Membuat Slide Power Point dengan Visual Basic Application, Quis Materi Kisah Dakwah 25 Rasul

Apk cetak Label Undangan , Aplikasi Input Nilai Rapot
Membuat Slide Power Point dengan Visual Basic Application, Quis Materi Kisah Dakwah 25 Rasul

Ruang Excel : Assalamu'akum wr. wb, Salam sejahtera Bapak/Ibu guru semua. Pada kali ini saya akan berbagi cara membuat media pembelajaran berupa "Kisah Dakwah 25 Rasul" berupa slide power point berbasisi visual basic (vba). Membuat media pembelajaran yang menyenangkan dan interaktif merupakan upaya dalam rangka bersama-sama kita tingkatkan sumberdaya manusia dalam hal ini mendidik dan membimbing anak-anak didik kita agar mampu kita antar menjadi anak yang berakhlakul karimah, berilmu, berbudaya, dan mampu bersaing di era digitalisasi sepreti sekarang ini. 

Pendidik sejatinya harus bisa mengikuti perkembangan jaman dengan kemampuan mereduksi semua teknologi informasi digital guna memfasilitasi dan memicu motivasi anak dalam mengembangkan kemampuan, bakat dan minatnya yang ada pada diri mereka masing-masing, dengan perantara pengajaran dan media pembelajaran interaktif yang menyenangkan bagi diri anak didik. Mari kita bersama ikuti langkah-langkah pembuatan slide Power Point dengan Visual Basic Application, Quis Materi Kisah Dakwah 25 Rasul ini dengan seksama.

Pertama, buka lembaran slide Microsoft Power Point dan buat pertanyaan quiz Pembelajaran pendidikan Agama Islam yang kita kehendaki.

Kedua, buat TextBox (AktiveX Control) sebagai kolom isi jawaban dengan cara Pilih Developer pada menu bar, pilih textbox lihat pada gambar berikut :



Ketiga, membuat ceklis benar (v) , salah (x) , tombol periksa, tombol reset, dan kolom perolehan skor dengan memilih shapes pada menu Insert.



Keempat, setelah langkah tiga dialakukan, klik pada salah satu shape. misal shape ceklist kemudian pilih Home==>selection visibility==>shapes on slide kemudian ganti nama yang sesuai. lihat gambar di bawah ini ;


Kelima, pada langka ini kita sincronkan kode vba dengan textbox, tombol yang ada di slide. Pilih menu developer ==> pilih menu visual basic. kemudian setalah menu visual basic terbuka, buat modul sepeti pada gambar di bawah ini :



Lihat Contoh slide Pembelajaran PAI

Selanjutnya masukan kode scrip vba di bawah ini ke dalam modul visual basic seperti gambar di atas 

=============================================================

Public cekJawab As Variant

Public isiJawab As Variant

Public kunciJawab As Variant

Public nilai As Variant

Public nilaiTotal As Integer

Public Sub deklarasiArray()

cekJawab = Array("benar1", "salah1", "benar2", "salah2", "benar3", "salah3", _

               "benar4", "salah4", "benar5", "salah5", "benar6", "salah6", "benar7", "salah7", "benar8", "salah8", "benar9", "salah9", "benar10", "salah10")

isiJawab = Array(Slide2.TextBox1, Slide2.TextBox2, Slide2.TextBox3, _

                 Slide2.TextBox4, Slide2.TextBox5, Slide2.TextBox6, Slide2.TextBox7, Slide2.TextBox8, Slide2.TextBox9, Slide2.TextBox10)

kunciJawab = Array("Menyampaikan", "25", "Menyembunyikan", "Terpelihara dari dosa", "Syahadatain", "Kekasih Allah", "Ismail", "Ishaq", "Lut", "4")

nilai = Array("0", "0", "0", "0", "0", "0", "0", "0", "0", "0")

End Sub

Public Sub tombolClear5()

Call deklarasiArray

For i = 0 To 9

ActivePresentation.Slides(2).Shapes(cekJawab(2 * i)).Visible = msoFalse

ActivePresentation.Slides(2).Shapes(cekJawab(2 * i + 1)).Visible = msoFalse

ActivePresentation.Slides(2).Shapes("nilaiAnda").TextFrame.TextRange.Text = "0"

isiJawab(i).Text = ""

Next

End Sub

 

Public Sub tombolPeriksa5()

Call deklarasiArray

nilaiTotal = 0

For i = 0 To 9

If isiJawab(i).Text = kunciJawab(i) Then

ActivePresentation.Slides(2).Shapes(cekJawab(2 * i)).Visible = msoTrue

ActivePresentation.Slides(2).Shapes(cekJawab(2 * i + 1)).Visible = msoFalse

nilai(i) = 10

Else

ActivePresentation.Slides(2).Shapes(cekJawab(2 * i)).Visible = msoFalse

ActivePresentation.Slides(2).Shapes(cekJawab(2 * i + 1)).Visible = msoTrue

nilai(i) = 0

End If

nilaiTotal = nilaiTotal + nilai(i)

Next

ActivePresentation.Slides(2).Shapes("nilaiAnda").TextFrame.TextRange.Text = nilaiTotal

End Sub

Berikut contoh Slide Power Point dengan Visual Basic Application, Quis Materi Kisah Dakwah 25 Rasul.

 

Read more »
By di No comments:
Label: , ,

Monday, December 30, 2019

Tricks Making data Mail Merge In Word Easy

Aktifkan Macro , Apk cetak Label Undangan
Tricks Making data Mail Merge In Word Easy

In Microsoft Word 2007 and 2010 sheets we can make Mail merge images can be used to make catalogs, test cards or member cards that contain photos, as well as letters with signature images, and so on. This tutorial will discuss how to create a mail merge in word.

Part 1, Create MS Excel Data Sources and Master Documents in the folder.

Steps:

1. Prepare the image file for the catalog first and save it in the same folder as the mail merge document.


2. Create a data source in Microsoft Excel 2007 or 2010 like the following example save in Excel 97 - 2003 format (.xls) with the menu name.


3. Open a new document in Word 2007 or 2010. Create a master document with the following data and save it in Word 97 - 2003 (.doc) format.

Note: Word and Excel documents must be saved in 97-200 format because fiture Include Picture will be used in the mail merge image Cannot be used in Word 2007 and 2010 (there is a bug).

Part 2, Combining Data Source with Master Documents

Steps:

1. In the MS Word master document, Mailings tab, group Start Mail Merge, click St Mail Merge and select Directory.

2. Now we will insert data source. On the Mailings tab, the Star group Merge, click Select Recipients.

3. Select Use Existing List, and find the document location (menu.xls) in the box Select Data Source. Then click Open.

4. Now we will put data in each place. Put it down the cursor next to the code: Then on the Mailings tab, the Write & Insert Fields group, click Insert Merge and select Code.

5. Do the same for the Snack: and now the document view will be like the following picture.

6. Next we will insert a picture. Click in the second column of the table

7. On the Insert tab, Illustrations group, click Picture and find the location of the image.

8. Click on one of the catalog images. Then click the arrow on Tom Insert and select Link to File.

 


9. The appearance is like the following picture.

10. Next press the AL T + F9 key to display the code field


12. Make sure the cursor position is still in the position of the image file name (sela) which is deleted (see picture above). Then on the Mailings tab, Write & group Fields, click Insert Merge Field and select Image.

13. The appearance is like the following picture. Next we need to add one more code so that the image matches the data still each one.

14. Select the text "{MERGE FIELD Picture} .jpg" like the example image

and press CTRL + F9 to make curly braces.

 



15. In the position after the opening curly brackets, type IF TRUE like the sample following.


16. Take the AL T + F9 button to hide the Field code. The result is as shown below.

17. Click the Mailings tab button, click Preview Resul ts. Click the arrow to move between data / records. If there is still something you want to change, click the Resul ts and la Preview button again

desired change.

18. To save the results of the mail merge, click the Finish & Merge button, select Edit Individual Documents, click All and OK.

You can download the Mail Merge tutorial

 

Read more »
By di No comments:
Label: , , ,

Sunday, December 15, 2019

Cara Membuat Input Nilai Otomatis microsoft excel vba

Apk cetak Label Undangan , Aplikasi Input Nilai Rapot
Cara Membuat Input Nilai Otomatis microsoft excel vba

Ada beberapa cara untuk menginput nilai hasil evaluasi pembelajaran salah satunya memanfaatkan visual basic (Vba)  yang terdapat pada microsoft excel. Ketika kita ingin membuat aplikasi imputan nilai dengan membuat tombol (shape) input data otomatis. Berikut ini adalah scrip vba untuk membuat button input nilai pad microsoft excel.


Cara Membuat Input Nilai Otomatis microsoft excel vba

Sub insertData()
Dim jumlahData As Integer
Dim nomor1, nis1, nisn1, nama1, sex1, spirt1, sos1, pnr1, pnk1, pp1, knr1, knk1, kp1 As String
Sheets("Sheet2").Select
nomor1 = Range("A12").Text
nis1 = Range("B12").Text
nisn1 = Range("C12").Text
nama1 = Range("D12").Text
sex1 = Range("E12").Text
spirt1 = Range("F12").Text
sos1 = Range("G12").Text
pnr1 = Range("H12").Text
pnk1 = Range("I12").Text
pp1 = Range("J12").Text
knr1 = Range("K12").Text
knk1 = Range("L12").Text
kp1 = Range("M12").Text 'batas ambil data row 1

Dim nomor2, nis2, nisn2, nama2, sex2, spirt2, sos2, pnr2, pnk2, pp2, knr2, knk2, kp2 As String
nomor2 = Range("A13").Text
nis2 = Range("B13").Text
nisn2 = Range("C13").Text
nama2 = Range("D13").Text
sex2 = Range("E13").Text
spirt2 = Range("F13").Text
sos2 = Range("G13").Text
pnr2 = Range("H13").Text
pnk2 = Range("I13").Text
pp2 = Range("J13").Text
knr2 = Range("K13").Text
knk2 = Range("L13").Text
kp2 = Range("M13").Text 'batas ambil data row 2

Dim nomor3, nis3, nisn3, nama3, sex3, spirt3, sos3, pnr3, pnk3, pp3, knr3, knk3, kp3 As String
nomor3 = Range("A14").Text
nis3 = Range("B14").Text
nisn3 = Range("C14").Text
nama3 = Range("D14").Text
sex3 = Range("E14").Text
spirt3 = Range("F14").Text
sos3 = Range("G14").Text
pnr3 = Range("H14").Text
pnk3 = Range("I14").Text
pp3 = Range("J14").Text
knr3 = Range("K14").Text
knk3 = Range("L14").Text
kp3 = Range("M14").Text 'batas ambil data row 3

Dim nomor4, nis4, nisn4, nama4, sex4, spirt4, sos4, pnr4, pnk4, pp4, knr4, knk4, kp4 As String
nomor4 = Range("A15").Text
nis4 = Range("B15").Text
nisn4 = Range("C15").Text
nama4 = Range("D15").Text
sex4 = Range("E15").Text
spirt4 = Range("F15").Text
sos4 = Range("G15").Text
pnr4 = Range("H15").Text
pnk4 = Range("I15").Text
pp4 = Range("J15").Text
knr4 = Range("K15").Text
knk4 = Range("L15").Text
kp4 = Range("M15").Text 'batas ambil data row 4

Dim nomor5, nis5, nisn5, nama5, sex5, spirt5, sos5, pnr5, pnk5, pp5, knr5, knk5, kp5 As String
nomor5 = Range("A16").Text
nis5 = Range("B16").Text
nisn5 = Range("C16").Text
nama5 = Range("D16").Text
sex5 = Range("E16").Text
spirt5 = Range("F16").Text
sos5 = Range("G16").Text
pnr5 = Range("H16").Text
pnk5 = Range("I16").Text
pp5 = Range("J16").Text
knr5 = Range("K16").Text
knk5 = Range("L16").Text
kp5 = Range("M16").Text 'batas ambil data row 5

Dim nomor6, nis6, nisn6, nama6, sex6, spirt6, sos6, pnr6, pnk6, pp6, knr6, knk6, kp6 As String
nomor6 = Range("A17").Text
nis6 = Range("B17").Text
nisn6 = Range("C17").Text
nama6 = Range("D17").Text
sex6 = Range("E17").Text
spirt6 = Range("F17").Text
sos6 = Range("G17").Text
pnr6 = Range("H17").Text
pnk6 = Range("I17").Text
pp6 = Range("J17").Text
knr6 = Range("K17").Text
knk6 = Range("L17").Text
kp6 = Range("M17").Text 'batas ambil data row 6

    Sheets("Sheet11").Select
    jumlahData = Range("N1").Value
    Rows(jumlahData + 2 & ":" & jumlahData + 2).Select
    Selection.Copy
    Rows(jumlahData + 2 & ":" & jumlahData + 2).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False

    Range("A" & jumlahData + 3).Select 'input nomor1
    ActiveCell.FormulaR1C1 = jumlahData + 1
    Range("B" & jumlahData + 3).Select 'input nis1
    ActiveCell.FormulaR1C1 = nis1
    Range("C" & jumlahData + 3).Select 'input nisn1
    ActiveCell.FormulaR1C1 = nisn1
    Range("D" & jumlahData + 3).Select 'input nama1
    ActiveCell.FormulaR1C1 = nama1
    Range("E" & jumlahData + 3).Select 'input sex1
    ActiveCell.FormulaR1C1 = sex1
    Range("F" & jumlahData + 3).Select 'input spirt1
    ActiveCell.FormulaR1C1 = spirt1
    Range("G" & jumlahData + 3).Select 'input sos1
    ActiveCell.FormulaR1C1 = sos1
    Range("H" & jumlahData + 3).Select 'input pnr1
    ActiveCell.FormulaR1C1 = pnr1
    Range("I" & jumlahData + 3).Select 'input pnk1
    ActiveCell.FormulaR1C1 = pnk1
    Range("J" & jumlahData + 3).Select 'input pp1
    ActiveCell.FormulaR1C1 = pp1
    Range("K" & jumlahData + 3).Select 'input knr1
    ActiveCell.FormulaR1C1 = knr1
    Range("L" & jumlahData + 3).Select 'input knk1
    ActiveCell.FormulaR1C1 = knk1
    Range("M" & jumlahData + 3).Select 'input kp1
    ActiveCell.FormulaR1C1 = kp1
   
    Sheets("Sheet11").Select
    jumlahData = Range("N1").Value
    Rows(jumlahData + 2 & ":" & jumlahData + 2).Select
    Selection.Copy
    Rows(jumlahData + 2 & ":" & jumlahData + 2).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("A" & jumlahData + 3).Select 'input nomor2
    ActiveCell.FormulaR1C1 = jumlahData + 1
    Range("B" & jumlahData + 3).Select 'input nis2
    ActiveCell.FormulaR1C1 = nis2
    Range("C" & jumlahData + 3).Select 'input nisn2
    ActiveCell.FormulaR1C1 = nisn2
    Range("D" & jumlahData + 3).Select 'input nama2
    ActiveCell.FormulaR1C1 = nama2
    Range("E" & jumlahData + 3).Select 'input sex2
    ActiveCell.FormulaR1C1 = sex2
    Range("F" & jumlahData + 3).Select 'input spirt2
    ActiveCell.FormulaR1C1 = spirt2
    Range("G" & jumlahData + 3).Select 'input sos2
    ActiveCell.FormulaR1C1 = sos2
    Range("H" & jumlahData + 3).Select 'input pnr2
    ActiveCell.FormulaR1C1 = pnr2
    Range("I" & jumlahData + 3).Select 'input pnk2
    ActiveCell.FormulaR1C1 = pnk2
    Range("J" & jumlahData + 3).Select 'input pp2
    ActiveCell.FormulaR1C1 = pp2
    Range("K" & jumlahData + 3).Select 'input knr2
    ActiveCell.FormulaR1C1 = knr2
    Range("L" & jumlahData + 3).Select 'input knk2
    ActiveCell.FormulaR1C1 = knk2
    Range("M" & jumlahData + 3).Select 'input kp2
    ActiveCell.FormulaR1C1 = kp2
   
    Sheets("Sheet11").Select
    jumlahData = Range("N1").Value
    Rows(jumlahData + 2 & ":" & jumlahData + 2).Select
    Selection.Copy
    Rows(jumlahData + 2 & ":" & jumlahData + 2).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("A" & jumlahData + 3).Select 'input nomor3
    ActiveCell.FormulaR1C1 = jumlahData + 1
    Range("B" & jumlahData + 3).Select 'input nis3
    ActiveCell.FormulaR1C1 = nis3
    Range("C" & jumlahData + 3).Select 'input nisn3
    ActiveCell.FormulaR1C1 = nisn3
    Range("D" & jumlahData + 3).Select 'input nama3
    ActiveCell.FormulaR1C1 = nama3
    Range("E" & jumlahData + 3).Select 'input sex3
    ActiveCell.FormulaR1C1 = sex3
    Range("F" & jumlahData + 3).Select 'input spirt3
    ActiveCell.FormulaR1C1 = spirt3
    Range("G" & jumlahData + 3).Select 'input sos3
    ActiveCell.FormulaR1C1 = sos3
    Range("H" & jumlahData + 3).Select 'input pnr3
    ActiveCell.FormulaR1C1 = pnr2
    Range("I" & jumlahData + 3).Select 'input pnk2
    ActiveCell.FormulaR1C1 = pnk3
    Range("J" & jumlahData + 3).Select 'input pp3
    ActiveCell.FormulaR1C1 = pp3
    Range("K" & jumlahData + 3).Select 'input knr3
    ActiveCell.FormulaR1C1 = knr3
    Range("L" & jumlahData + 3).Select 'input knk3
    ActiveCell.FormulaR1C1 = knk3
    Range("M" & jumlahData + 3).Select 'input kp3
    ActiveCell.FormulaR1C1 = kp3
   
Sheets("Sheet11").Select
    jumlahData = Range("N1").Value
    Rows(jumlahData + 2 & ":" & jumlahData + 2).Select
    Selection.Copy
    Rows(jumlahData + 2 & ":" & jumlahData + 2).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("A" & jumlahData + 3).Select 'input nomor4
    ActiveCell.FormulaR1C1 = jumlahData + 1
    Range("B" & jumlahData + 3).Select 'input nis4
    ActiveCell.FormulaR1C1 = nis4
    Range("C" & jumlahData + 3).Select 'input nisn4
    ActiveCell.FormulaR1C1 = nisn4
    Range("D" & jumlahData + 3).Select 'input nama4
    ActiveCell.FormulaR1C1 = nama4
    Range("E" & jumlahData + 3).Select 'input sex4
    ActiveCell.FormulaR1C1 = sex4
    Range("F" & jumlahData + 3).Select 'input spirt4
    ActiveCell.FormulaR1C1 = spirt4
    Range("G" & jumlahData + 3).Select 'input sos4
    ActiveCell.FormulaR1C1 = sos4
    Range("H" & jumlahData + 3).Select 'input pnr4
    ActiveCell.FormulaR1C1 = pnr4
    Range("I" & jumlahData + 3).Select 'input pnk4
    ActiveCell.FormulaR1C1 = pnk4
    Range("J" & jumlahData + 3).Select 'input pp4
    ActiveCell.FormulaR1C1 = pp4
    Range("K" & jumlahData + 3).Select 'input knr4
    ActiveCell.FormulaR1C1 = knr4
    Range("L" & jumlahData + 3).Select 'input knk4
    ActiveCell.FormulaR1C1 = knk4
    Range("M" & jumlahData + 3).Select 'input kp4
    ActiveCell.FormulaR1C1 = kp4
   
    Sheets("Sheet11").Select
    jumlahData = Range("N1").Value
    Rows(jumlahData + 2 & ":" & jumlahData + 2).Select
    Selection.Copy
    Rows(jumlahData + 2 & ":" & jumlahData + 2).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("A" & jumlahData + 3).Select 'input nomor5
    ActiveCell.FormulaR1C1 = jumlahData + 1
    Range("B" & jumlahData + 3).Select 'input nis5
    ActiveCell.FormulaR1C1 = nis5
    Range("C" & jumlahData + 3).Select 'input nisn5
    ActiveCell.FormulaR1C1 = nisn5
    Range("D" & jumlahData + 3).Select 'input nama5
    ActiveCell.FormulaR1C1 = nama5
    Range("E" & jumlahData + 3).Select 'input sex5
    ActiveCell.FormulaR1C1 = sex5
    Range("F" & jumlahData + 3).Select 'input spirt5
    ActiveCell.FormulaR1C1 = spirt5
    Range("G" & jumlahData + 3).Select 'input sos5
    ActiveCell.FormulaR1C1 = sos5
    Range("H" & jumlahData + 3).Select 'input pnr5
    ActiveCell.FormulaR1C1 = pnr5
    Range("I" & jumlahData + 3).Select 'input pnk5
    ActiveCell.FormulaR1C1 = pnk5
    Range("J" & jumlahData + 3).Select 'input pp5
    ActiveCell.FormulaR1C1 = pp5
    Range("K" & jumlahData + 3).Select 'input knr5
    ActiveCell.FormulaR1C1 = knr5
    Range("L" & jumlahData + 3).Select 'input knk5
    ActiveCell.FormulaR1C1 = knk5
    Range("M" & jumlahData + 3).Select 'input kp5
    ActiveCell.FormulaR1C1 = kp5
   
    Sheets("Sheet11").Select
    jumlahData = Range("N1").Value
    Rows(jumlahData + 2 & ":" & jumlahData + 2).Select
    Selection.Copy
    Rows(jumlahData + 2 & ":" & jumlahData + 2).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("A" & jumlahData + 3).Select 'input nomor6
    ActiveCell.FormulaR1C1 = jumlahData + 1
    Range("B" & jumlahData + 3).Select 'input nis6
    ActiveCell.FormulaR1C1 = nis6
    Range("C" & jumlahData + 3).Select 'input nisn6
    ActiveCell.FormulaR1C1 = nisn6
    Range("D" & jumlahData + 3).Select 'input nama6
    ActiveCell.FormulaR1C1 = nama6
    Range("E" & jumlahData + 3).Select 'input sex6
    ActiveCell.FormulaR1C1 = sex6
    Range("F" & jumlahData + 3).Select 'input spirt6
    ActiveCell.FormulaR1C1 = spirt6
    Range("G" & jumlahData + 3).Select 'input sos6
    ActiveCell.FormulaR1C1 = sos6
    Range("H" & jumlahData + 3).Select 'input pnr6
    ActiveCell.FormulaR1C1 = pnr6
    Range("I" & jumlahData + 3).Select 'input pnk6
    ActiveCell.FormulaR1C1 = pnk6
    Range("J" & jumlahData + 3).Select 'input pp6
    ActiveCell.FormulaR1C1 = pp6
    Range("K" & jumlahData + 3).Select 'input knr6
    ActiveCell.FormulaR1C1 = knr6
    Range("L" & jumlahData + 3).Select 'input knk6
    ActiveCell.FormulaR1C1 = knk6
    Range("M" & jumlahData + 3).Select 'input kp6
    ActiveCell.FormulaR1C1 = kp6
   
    Sheets("Sheet11").Select
    'pesan berhasil
    MsgBox "Input Data Berhasil !", vbInformation, "Terimakasih !"
   
End Sub

Contoh bisa anda gunakan Aplikasi Input Nilai Otomatis microsoft excel vba

 


Read more »
By di No comments:
Label: , , , ,