Ruang Excel

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

Enjoy You'r Visiting

Showing posts with label Aplikasi Mutasi V.02. Show all posts
Showing posts with label Aplikasi Mutasi V.02. Show all posts

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: , , , ,

Friday, November 1, 2019

Form excel Input Data siswa ke tiap rombel kelas otomatis

Aktifkan Macro , Apk cetak Label Undangan
Form excel Input Data siswa ke tiap rombel kelas otomatis
http://ruangexcel.blogspot.com

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

 

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

Monday, November 19, 2018

Aplikasi Rapot Kurikulum 2013 vba excel terintegrasi data dapodik

Aplikasi Input Nilai Rapot , Aplikasi Mutasi V.02
Aplikasi Rapot Kurikulum 2013 vba excel terintegrasi data dapodik
Aplikasi Rapot Kurikulum 2013 vba terintegrasi data dapodik

Kurikulum 2013 (K-13) adalah kurikulum yang berlaku dalam Sistem Pendidikan Indonesia. Kurikulum ini merupakan kurikulum tetap diterapkan oleh pemerintah untuk menggantikan Kurikulum-2006 (yang sering disebut sebagai Kurikulum Tingkat Satuan Pendidikan) yang telah berlaku selama kurang lebih 6 tahun. Kurikulum 2013 masuk dalam masa percobaanya pada tahun 2013 dengan menjadikan beberapa sekolah menjadi sekolah rintisan.

Pada tahun ajaran 2013/2014, tepatnya sekitar pertengahan tahun 2013, Kurikulum 2013 diimpelementasikan secara terbatas pada sekolah perintis, yakni pada kelas I dan IV untuk tingkat Sekolah Dasar, kelas VII untuk SMP, dan kelas X untuk jenjang SMA/SMK, sedangkan pada tahun 2014, Kurikulum 2013 sudah diterapkan di Kelas I, II, IV, dan V sedangkan untuk SMP Kelas VII dan VIII dan SMA Kelas X dan XI. Jumlah sekolah yang menjadi sekolah perintis adalah sebanyak 6.326 sekolah tersebar di seluruh provinsi di Indonesia.

Aplikasi Rapot Kurikulum 2013

Kurikulum 2013 memiliki empat aspek penilaian, yaitu aspek pengetahuan, aspek keterampilan, aspek sikap, dan perilaku. Di dalam Kurikulum 2013, terutama di dalam materi pembelajaran terdapat materi yang dirampingkan dan materi yang ditambahkan. Materi yang dirampingkan terlihat ada di materi Bahasa Indonesia, IPS, PPKn, dsb., sedangkan materi yang ditambahkan adalah materi Matematika.

Materi pelajaran tersebut (terutama Matematika dan Ilmu Pengetahuan Alam) disesuaikan dengan materi pembelajaran standar Internasional (seperti PISA dan TIMSS) sehingga pemerintah berharap dapat menyeimbangkan pendidikan di dalam negeri dengan pendidikan di luar negeri.

Berdasarkan Peraturan Menteri Pendidikan dan Kebudayaan, Anies Baswedan, nomor 60 tahun 2014 tanggal 11 Desember 2014, pelaksanaan Kurikulum 2013 dihentikan dan sekolah-sekolah untuk sementara kembali menggunakan Kurikulum Tingkat Satuan Pendidikan, kecuali bagi satuan pendidikan dasar dan menengah yang sudah melaksanakannya selama 3 (tiga) semester, satuan pendidikan usia dini, dan satuan pendidikan khusus. Penghentian tersebut bersifat sementara, paling lama sampai tahun pelajaran 2019/2020.

Dengan berlakunya kurikulum 2013 secara otomatis buku rapor mengalami perubahan seperti adanya penilaian berupad deskripsi. oleh karenanya guru kelas atau operator sekolah harus menyiapkan Aplikasi Rapot Kurikulum 2013 berbasis microsoft excel (vba).

Aplikasi Rapot Kurtilas Kelas 1

Aplikasi rapot Kurtilas Kelas 4  

 

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

Friday, February 19, 2016

Aplikasi Mutasi Siswa Versi 02

Apk cetak Label Undangan , Aplikasi Input Nilai Rapot
Aplikasi Mutasi Siswa Versi 02

Dalam rangka membantu dan meringkankan Operator sekolah maupun guru dalam pembuatan Surat Keterangan pindah Sekolah, kami mencoba untuk share Aplikasi Otomatis terbaru dan sederhana untuk membuat Surat Keterangan pindah sekolah sekaligus secara otomatis mencari MURID yang akan mutasi dan secara otomatis tercatat dalam tabel Data mutasi, berikut gambaran aplikasinya :

1. Download Aplikasi Mutasi
2. Buka, maka akan muncul seperti di bawah dan ketik nama anda (Operator/guru)
3. Isi Sheet Data dari File Data Peserta didik Di Aplikasi dapodik offline (Jangan merubah format)



4. setelah login silahkan ketik NIS peserta didik atur tanggal mutasi dan isikan identitas sekolah anda maka secara otomatis data siswa muncul dan isi surat berubah sesuai isian identitas sekolah yang anda masukan.




5. jika nama siswa sudah yang akan dimutasi sudah muncul kemudian klik Catat maka siswa akan terinput di Data mutasi dan Cetak surat mutasinya.




Demikian share kali ini  semoga bisa membatu untuk kerjaan anda.
Download Aplikasi Mutasi

Versi terbaru penambahan tombol Ganti Logo Intansi  Contoh file Aplikasi Mutasi V.02

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