RuangExcel : Salam sejahtera para pecinta dan pengguna microsoft excel, semoga dalam keadaan sehat dan sukses selalu. Pada kesempatan kali ini saya akan berbagi file microsoft excel berupa menu sebaran data ke rombel atau kelompok data tertentu. File microsoft excel yang saya berinama aplikasi sederhana "Menu Input Data Ke Rombel" bisa memudahkan para operator atau guru dalam input data peserta didik yang akan disebar ke tiap rombel kelas. Pada aplikasi sederhana ini terdapat 3 menu, yakni menu Form dan Database.

1. Menu Form 

Pada Menu Form ini terdapat kolom isian data jumlah rombel dan banyak siswa yang akan dibuatkan berupa format pada sheet database ketika kita telah kita klik tombol "buat database" serta isian data peserta didik yang akan diinput ke lembar kerja excel (sheet database) setelah kita melakukan pengisian data peserta didik dan melakukan klil tombol "Input Data".

2. Menu Database

Lembar kerja excel (sheet database) adalah sheet database yang akan menampung data inputan peserta didik dari lembar kerja excel (sheet form). Pada lembar kerja excel (sheet database) yang berisi format data peserta didik per rombel. Jika kita pada sheet form melakukan klik "buat database" maka format yang telah dibuat sebelumnya akan terhapus dengan format terbaru.

Jika anda ingin mengembangkan aplikasi ini silahkan unduh di sini dan kode scrip vba silahkan copas di bawah ini :

Sub BUAT_KOLOM()

    Set WRisi = Worksheets("FORM")

    Set WRdata = Worksheets("DATABASE")

    BARIS = 1

    For I = 1 To 200000

        If WRdata.Range("B" & I).Value <> "" Then

            For IA = 1 To 25

                WRdata.Cells(I, IA).Value = ""

                WRdata.Cells(I, IA).Font.Bold = True

                WRdata.Cells(I, IA).HorizontalAlignment = xlLeft

                WRdata.Cells(I, IA).Columns.ColumnWidth = 9

                WRdata.Cells(I, IA).Interior.ColorIndex = xlColorIndexNone

            Next IA

        End If

    Next I

    KL = 1

    NM = 0

    RB = 0

    BARIS = 1

    KOLOM = 1

    For RB = 1 To WRisi.Range("D3").Value

        WRdata.Cells(BARIS, 1).Value = "ROMBEL :  " & RB

        WRdata.Cells(BARIS, 1).Font.Bold = True

        WRdata.Cells(BARIS, 1).HorizontalAlignment = xlCenter

        WRdata.Cells(BARIS, 1).Columns.ColumnWidth = 15

        WRdata.Cells(BARIS, 1).Interior.ColorIndex = 6

        For I = 10 To 40

            If WRisi.Range("B" & I).Value <> "" Then

                KL = KL + 1

                WRdata.Cells(BARIS, KL).Value = WRisi.Range("B" & I).Value

                WRdata.Cells(BARIS, KL).Font.Bold = True

                WRdata.Cells(BARIS, KL).HorizontalAlignment = xlCenter

                WRdata.Cells(BARIS, KL).Columns.ColumnWidth = WRisi.Range("A" & I).Value

                WRdata.Cells(BARIS, KL).Interior.ColorIndex = 10

            End If

        Next I

        If WRisi.Range("D4").Value = "" Then Exit Sub

        For NM = 1 To WRisi.Range("D4").Value

           KOLOM = KOLOM + 1

           WRdata.Cells(KOLOM, 2).Value = NM

        Next NM

        KL = 1

        NM = NM + 1

        BARIS = BARIS + WRisi.Range("D4").Value + 1

        KOLOM = KOLOM + 1

    Next RB

End Sub

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

Private Sub CommandButton2_Click()

    Set WRisi = Worksheets("FORM")

    Set WRdata = Worksheets("DATABASE")

    KL = WRisi.Range("D7").Value 'rombel

    NM = WRisi.Range("D4").Value 'jmlsiswa

    If WRisi.Range("D3").Value < KL Then

        MsgBox "Rombel max " & WRisi.Range("D3").Value, vbInformation, "Peringatan"

        Exit Sub

    End If

       RB = 2

    If WRisi.Range("D11").Value <> "" Then

        For I = 1 To 200000

            If WRdata.Cells(I, 1).Value = "ROMBEL :  " & KL Then

                For IA = I To (I + NM)

                    If WRdata.Cells(IA, 3).Value = "" Then

                        For xs = 11 To 40

                            RB = RB + 1

                            WRdata.Cells(IA, RB).Value = WRisi.Range("D" & xs).Value

                        Next xs

                        Exit Sub

                    End If

                Next IA

             End If

        Next I

    End If

End Sub

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

Private Sub CommandButton3_Click()

    pesane = MsgBox("Semua database yang tersimpan akan terhapus, Anda yakin akan membuat kolom baru ", vbYesNo, "cetak")

    If pesane = vbYes Then

        Call BUAT_KOLOM

    End If

End Sub

Ruangexcel.blogspot.com : Dalam setiap aplikasi database peserta didik pada masing-masing lembaga pendidikan pasti terdapat berbagai macam format berupa data siswa seperti daftar absen, biodata per individu dan sebagainya. nah, pada kesempatan kali ini, saya akan mencoba untuk berbagi beberapa cara untuk mencari data siswa per individu berupa biodata. Mari kita ikuti langkah-langkah membuat daftar pencarian data dengan menggunakan atau memanfaatkan visual basic berikut ini :

Pertama, buka lembar kerja microsoft excel dan buat lembar sheet FORM dan DATABASE.

Kedua, setelah kita membuat lembar kerja pada langkah pertama, kita buat format data utama siswa (database) dan format biodata (Form Data Pencarian).. Format Form bisa ikuti seperti gambar form di atas dan sheet Database mulai isi data dari cell A2:G8 kemudian save dalam bentuk macro-enabled worksheet.

Ketiga, buka kembali lembar file microsoft excel yang barusan dibuat dan buat CommandButton dan masukan kode scrip berikut :

Dim WRisi, WRdata As Worksheet
Dim I, KL, RB, NM, IA, xs
Dim BARIS, KOLOM
Dim urut
Dim pesane
Private Sub CommandButton1_Click()
    Set WRisi = Worksheets("FORM")
    Set WRdata = Worksheets("DATABASE")
   
    If Label1.Caption = "NAMA" Then
        For I = 1 To 200000
            RB = 2
            If WRdata.Cells(I, 5).Value = WRisi.Range("D8").Value Then
                For IA = 11 To 40
                    RB = RB + 1
                    WRisi.Cells(IA, 4).Value = WRdata.Cells(I, RB).Value
                Next IA
                Exit Sub
            End If
        Next I
    Else
        For I = 1 To 200000
            RB = 2
            If WRdata.Cells(I, 3).Value = WRisi.Range("D8").Value Then
                For IA = 11 To 40
                    RB = RB + 1
                    WRisi.Cells(IA, 4).Value = WRdata.Cells(I, RB).Value
                Next IA
                Exit Sub
            End If
        Next I
    End If
End Sub

Private Sub Label1_Click()
    If Label1.Caption = "NAMA" Then
        Label1.Caption = "NIS"
    Else
        Label1.Caption = "NAMA"
    End If
End Sub

Demikian berbagi pada kesempatan kali ini semoga bermanfaat. Contoh file pencarian data siswa unduh Command Button Pencarian data Siswa Otomatis

Ruang Excel : Dalam rangka terus memberikan pengajaran dan bimbingan yang terbaik kepada para peserta didik untuk kemajuan sekolah serta bangsa ini, salah satunya adalah pengolahan penilaian yang Autentik, saintifik dan berkarakter. Oleh karenanya seorang guru sudah sepatutnya harus kreatif dan inovatif dalam membuat instrumen penilaian hasil evaluasi kegiatan belajar mengajar (KBM) di sekolah.

Alhamdulillahirobbil'alamiin..dikesempatan tahun baru Islam tanggal 1 Muharam 1441 hijriyah ini. Saya mendapat sebuah ide untuk membuat Aplikasi instrumen Penilaian Versi 01 dengan memanfaatkan fasilitas Cutome Ribbon dan visual basic (vba) yang Insya Alloh bermanfaat buat para guru untuk memper mudah dalam pengolahan hasil evaluasi pembelajaran di sekolah. Meskipun dalam aplikasi ini saya buat contoh buata sekolah menengah pertama (SMP) namun bisa digunakan untuk Sekolah Dasar (SD) tinggal disesuaikan dengan sekolah masing-masing.

Aplikasi Instrumen Penilaian ini terdapat dua belas (12) instrumen menu ribbon yakni :

1.  Menu Data Base

   Menu data base merupakan menu untuk input data peserta didik berupa kolom nomor urut, Nomor  Induk Sekolah (NIS), Nomor Induk Sekolah Nasional (NISN), Nama Peserta didik, Jenis Kelamin, Kelas, dan Asal Kelas. Pada bagian kolom kelas (kelas saat ini)  dan asal sekolah harus disi agar aplikasi ini bisa berfungsi dan ngelink ke menu-menu instrumen yang lainnya.

    Ketika kolom Kelas disi dengan “A” dan kolom Asal Sekolah disi dengan “7F”, maka pada instrumen yang lain akan ngelink dan akan diubah menjadi “8A” (sesuai kelas pada saat ini) dan seterusnya.

2.  Kompetensi Dasar

    Pada menu instrumen kompetensi dasar terdapat empat (4) kolom yakni : kolom nomor, nama guru, mapel yang diampuh, dan kompetensi dasar. Silahkan isi sesuai nama guru, mapel yang diampuh dan kompetensi dasar pada mata pelajaran yang diampuh.

 3.  Absensi Siswa

    Pada menu absensi siswa terdapat tujuh (7) kolom yakni; kolom nomor, nis, nisn, nama siswa, jenis kelamin, tanggal pertemuan, dan jumlah (absen, izin,sakit). Untuk mengganti isi data pada kolom nomor, urut, nis, nisn, dan nama siswa silahkan klik tombol spin pada bagian atas atau bawah.

4.  Rubrik Penilaian Kelompok

    Pada menu instrumen rubrik penilaian diskusi kelompok pada bagian cell identitas mata pelajaran dan kompetensi dasar terdapat data validation, bapak/ibu tinggal pilih dan data validation ini ngelink pada menu kompetensi dasar.

   Pada instrumen ini terdapat sembilan (kolom) yakni kolom nomor urut, nama siswa, jenis kelamin, kemampuan presentasi, kemampuan bertanya, kemampuan menjawab, menjaga tata tertib berdiskusi, jumlah skor, dan nilai. Pada setiap kemampuan diberi skor antara 1 sd 4.

5.  Jurnal Sikap

   Pada menu instrumen jurnal sikap terdapat tujuh (7) kolom yakni kolom tanggal, nama, jenis kelamin, sikap yang teramati ( Positif/Negatif), karakter yang dikembangkan, tindak lanjut, dan tanda tangan siswa. Jurnal sikap digunakan untuk mencatat kejadian (obsevasi) sikap peserta didik ketika KBM di kelas.

6.  Remedial dan Pengayaan

  Instrumen remedial dan pengayaan digunakan untuk memaksimalkan kemampuan anak dalam memahami subuah materi pembelajaran. Peserta didik yang nilainya di bawah Kriteria Ketuntasan Minimum (KKM) maka diadakan remedial dan peserta didik yang nilainya di atas Kriteria Ketuntasan Minimum (KKM) maka dilakukan pengayaan.

7.  Porto Folio

  Penilaian porto folio Penilaian adalah teknik penilaian yang dilakukan dengan cara menilai hasil karya peserta  didik  yang  berupa  kumpulan  tugas,  karya,  prestasi  akademik dan non  akademik,  yang dikerjakan atau dihasilkan peserta  didik. Contoh  karangan,  puisi, surat,  lukisan, laporan  penelitian, laporan kerja kelompok, sertifikat atau tanda penghargaan yang pernah diterima oleh pesertadidik.  Kumpulan  ini  menggambarkan  minat,  perkembangan,  prestasi  dan  kreativitas  peserta didik pada satu periode tertentu.

Portofolio  penilaian  bukan sekadar  kumpulan  hasil  kerja  siswa,  melainkan  kumpulan  hasil kerja  siswa  dari  kegiatan  yang  sengaja  diperbuat  peserta didik  untuk  menunjukkan  bukti  tentang kompetensi,  pemahaman,  dan  capaian  peserta didik  terhadap  kompetensi  dalam  mata  pelajaran tertentu.    Portofolio  juga  merupakan  kumpulan  informasi  yang  perlu  diketahui  oleh  guru sebagai  bahan  pertimbangan  dalam  menentukan  langkah-langkah  perbaikan  pembelajaran, atau peningkatan belajar peserta didik.

8.   Salin

      Menu salin (copy) digunakan untuk menyalin data pada cell tertentu

9.  Tempel

    Menu tempel digunakan untuk meduplikat data (paste) dari satu cell ke cell tertentu.

10.   Simpan

        Menu simpan digunakan untuk menyimpan hasil perubahan data.

11.   Close

        Menu close digunakan untuk mengklos file

12.   Pengembang

       Menu pengembang merupakan informasi pengembang dari aplikasi ini.

Demikian pemaparan singkan mengenai Aplikasi Instrumen Penilaian versi 01 ini Semoga bisa dipahami dan bermanfaat.

Aplikasi Instrumen Penilaian V.01visual basic silahkan diunduh agar bisa login ke aplikasi gunakan username "admin" dan password "yaafattahu".

Langkah Pertama, Membuat Tabel Database. Sebelum kita menggunakan fitur form ini, terlebih dahulu kita harus menentukan jumlah kolom tabel yang akan digunakan. Contohnya: jika kita ingin membuat 8 kolom isian, maka kita blok kolom A hingga kolom H, kemudian tampilkan kotak dialog 'Create Table' dengan memilih menu: Insert > Tables > Table, Lalu klik 'OK'. Selanjutnya kita tinggal mengubah tulisan 'Column1' dan seterusnya sesuai dengan judul masing-masing kolom.

Langkah Kedua, Kita menampilkan Icon Form. Pada awalnya menu perintah Form ini tidak ditampilkan pada menu di bagian sudut kiri atas (menu Ribbon), maka untuk dapat menampilkannya mari kita ikuti langkah-langka berikut:

Pertama, Klik tanda panah kecil pada menu Ribbon lalu pilih 'More Commands...'(seperti terlihat dalam gambar di atas). Selanjutnya akan tampil kotak dialog 'Excel Options' yang menyorot menu 'Quick Access Toolbar'.

Kedua, Pada menu drop-down di bawah tulisan 'Choose commands from:', kita pilih 'Commands Not in the Ribbon', kemudian temukan dan pilih menu Form...' pada kotak daftar di sebelah kiri. Selanjutnya klik tombol 'Add >>', maka menu 'Form...' tersebut tampil di kotak daftar di sebelah kanan.

Ketiga, Klik 'OK' dan icon telah berhasil kita aktifkan (terlihat seperti pada gambar di bawah ini) Setelah kita melakukan langkah tersebut diatas, ketika menu icon Form kita klik, maka form entri data ditampilkan dengan isian sesuai judul kolom tabel yang kita buat sebelumnya.

Melalui kotak dialog form ini, kita tidak hanya dapat membuat entri data, akan tetapi dapat pula meng-edit data yang telah tercatat pada daftar, menghapus data juga dapat mencari dan menampilkan data sesuai dengan kriteria yang kita tentukan. 

Adapun kriteria tersebut, misalnya: setelah kita meng-klik tombol 'Criteria', agar dapat menampilkan data dengan nama berawalan huruf 'H', maka pada isian Nama ketik H lalu kita dapat mengklik tombol 'Find Next' atau 'Find Prev' untuk menampilkan data khusus yang telah terpilih. Untuk mencari atau menghapus entri tertentu pada tabel Excel melalui tombol Form, kita dapat mengikuti langkah-langkah seperti contoh yang ditunjukkan pada video tutorial di bawah ini.

Video Tutorial Membuat Menu Form Input, Cari, dan Hapus Data tanpa Rumus dan Kode vba

Dalam rangka membantu dan meringkankan Operator sekolah maupun guru dalam pembuatan Surat Keterangan pindah Sekolah. Pada kesempatan ini, kami mencoba untuk share Aplikasi Mutasi terbaru versi 03 dimana pada sebelumnya telah diposting Aplikasi Mutasi versi 02. Pada versi 03 terdapat pembaruan yakni pada sheet "PD" dilengkapi dengan tombol "Import Data" yang terintegrasi dengan file peserta didik dari hasil unduh pada Aplikasi Dapodikdasmen offline. 

Aplikasi dapodik versi excel yang dibuat sederhana ini digunakan untuk mencetak Surat Keterangan pindah sekolah sekaligus secara otomatis mencari murid yang akan mutasi dengan memasukan nomor induk pada kolom pencarian dan pada tombol Entri maka data akan tercatat dalam tabel Data mutasi, berikut gambaran aplikasinya :

1. Download Aplikasi Mutasi versi 03
2. Buka, maka akan muncul seperti di bawah dan ketik nama anda (Operator/guru)

3. Isi Sheet "PD" dengan tombol import data, jika terdapat data maka sebelum import data dibersihkan dulu tanpa harus delete row. import data dari File Data Peserta didik Di Aplikasi dapodik offline (Jangan merubah format)