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 Input Nilai Rapot. Show all posts
Showing posts with label Aplikasi Input Nilai Rapot. Show all posts

Monday, December 30, 2019

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 file here

 

Sunday, December 15, 2019

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

 


Tuesday, September 3, 2019

Cara Membuat Aplikasi Excel dengan Menu Ribbon Sendiri

https://ruangexcel.blogspot.com/

Ruang Excel : Para pengembang dan pecinta aplikasi excel berbasis visual basic, mereka yang sudah paham dan berkecimpung di microsoft excel tentunya telah memiliki kreativitas sendiri dalam mengembangkan aplikasi salah satunya adalah dengan mendisgn sendiri menu ribbon dengan bantuan aplikasi Custom UI Editor yang bisa agan download deh di goolge, banyak bersebaran dan gratis lagi. he...he..

Pada kesempatan kali ini, Ane bukanlah master vba dan custom Ribbon, namun ane akan berbagi ilmu dan pengalam bagaimana cara membuat aplikasi excel dengan menu Ribbon yang didesign atau dirancang sesuai selera dan keinginan agan-agan sendiri deh. Ok gan, Kita mulai gan ke TKP.

Langkah pertama yang perlu agan siapkan sebelum membuat menu Ribbon melalui Custome UI adalah mengunduh aplikasi custom UI. Unduh Custom UI Editor 

Kemudian berikutnya langkah kedua, silahkan agan siapkan aplikasi excel yang akan dirubah menu ribbonnya dan cari scrip kode menu ribbon yang nantinya diinput ke aplikasi Custom UI Editor dan sesuaikan dengan aplikasi excel atau vba yang agan telah disiapkan. contoh seperti berikut ini :

<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui">
<commands>
    <command idMso="ApplicationOptionsDialog" enabled="false"/>
    <command idMso="FileExit" enabled="false"/>
</commands>
    <ribbon startFromScratch="true">
        <tabs>
            <tab id="CustomData" label="
App.Instrumen Penilaian. V.01" insertAfterMso="TabHome">

<group id="customGroup1" label="EDIT/CETAK DATA">
    <button id="Sheet6" imageMso="OpenStartPage" label="DATA BASE" size="large" onAction="BukaSheet6"/>
<separator  id="Separator1" />
   <button id="Sheet5" imageMso="AccessTableContacts" label="KOMPETENSI DASAR" size="large" onAction="BukaSheet5"/>
   <separator  id="Separator2" />
   <button id="Sheet2" imageMso="AccessTableContacts" label="ABSENSI SISWA" size="large" onAction="BukaSheet2"/>
   <separator  id="Separator3" />
   <button id="Sheet4" imageMso="AccessTableContacts" label="RUBRIK" size="large" onAction="BukaSheet4"/>
   <separator  id="Separator4" />
   <button id="Sheet7" imageMso="AccessTableContacts" label="JURNAL SIKAP" size="large" onAction="BukaSheet7"/>
   <separator  id="Separator5" />
   <button id="Sheet8" imageMso="SignatureLineInsert" label="REMEDIAL PENGAYAAN" size="large" onAction="BukaSheet8"/>
<separator  id="Separator6" />
   <button id="Sheet9" imageMso="SignatureLineInsert" label="PORTO FOLIO" size="large" onAction="BukaSheet9"/>
    </group>

<group id="customGroup2" label="ALAT">
    <button idMso="Copy" label="Salin" size="large"/>
    <button idMso="PasteValues" label="Tempel" visible="true" size="large" imageMso="Paste"/>
    <button idMso="FileSave" label="Simpan" size="large"/>
    <button idMso="FileClose" size="large"/>
    </group>

<group id="customGroup3" label="INFORMASI">
<button id="Sheet10" visible="true" size="large" label="Programer" imageMso="OutlookGlobe" onAction="BukaSheet10"/>
</group>

<group id="customGroup4" label="http://ruangexcel.blogspot.com">
<button id="Cap" label="Applikasi ini dirancang untuk mempermudah Guru dalam membuat Administrasi KBM di Sekolah" size="large" onAction="hakcipta" image="idmso83x83"/>
</group>
    </tab>
    </tabs>
    </ribbon>
    </customUI>

Langkah ketiga buat atau cari di google scrip kode menu ribbon yang nantinya dipasang di modul pada aplikasi excel atau vba yang agan telah dipersiapkan, agar nantinya menu ribbon yang agan buat berfungsi dan ngelink dengan nama sheets pada aplikasi excel yang agan miliki. Contoh sekripnya seperti berikut :

Sub BukaSheet2(ribbon As IRibbonControl)
Sheet2.Activate
End Sub
Sub BukaSheet3(ribbon As IRibbonControl)
Sheet3.Activate
End Sub
Sub BukaSheet4(ribbon As IRibbonControl)
Sheet4.Activate
End Sub
Sub BukaSheet5(ribbon As IRibbonControl)
Sheet5.Activate
End Sub
Sub BukaSheet6(ribbon As IRibbonControl)
Sheet6.Activate
End Sub
Sub BukaSheet7(ribbon As IRibbonControl)
Sheet7.Activate
End Sub
Sub BukaSheet8(ribbon As IRibbonControl)
Sheet8.Activate
End Sub
Sub BukaSheet9(ribbon As IRibbonControl)
Sheet9.Activate
End Sub
Sub BukaSheet10(ribbon As IRibbonControl)
Sheet10.Activate
End Sub

Nah.., setelah langkah-langkah diatas sudah dilakukan. Langkah selanjutnya adalah cara membuat Aplikasi dengan Menu Ribbon Sendiri. Caranya silahkan agan baca dan pahami berikut ini :

Pertama, Masukan kode scrip Ribbon control pada modul pada menu macros di file aplikasi yang akan kita sesuaikan menu ribbonya dan pastikan nama sheets sudah sesuai dengan nama sheets yang akan dimasukan pada aplikasi custome Ribbon.

Kedua, Masukan kode srip ribbon pada aplikasi custome Ribbon, Seperti gambar berikut :



Kemudian klik validasi (tanda ceklist merah) jika sudah benar, silahkan klik save dan tutup. maka Insya Alloh menu akan berubah sesuai yang kita buat yakni Menu Ribbon ngelink dengan sheet pada aplikasi yang kita telah buat.

Demikian berbagi kali ini semoga bermanfaat dan sukses selalu dalam setiap langkah dan niat yang positif dalam setiap hal yang telah kita lakukan.

Tuesday, June 25, 2019

Aplikasi Mutasi Siswa Versi Excel 03

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)


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 tombol Catat maka siswa akan terinput di Data mutasi dan Cetak surat mutasinya.



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


Versi terbaru penambahan tombol Ganti Logo Intansi  Download Aplikasi Mutasi V.03 untuk dimanfaatkan dan bisa dikembangkan

Monday, June 17, 2019

Aplikasi Rapot Kurikulum 2013 Versi Excel 04.19


Aplikasi Rapot Kurikulum 2013 Versi 04.19

Ruang Excel : Salam sejahtera para dewan guru dan operator sekolah. pada kesempatan ini saya akan berbagi ilmu dan Aplikasi. Penghasilan kena pajak dilaksanakannya PENILAIAN Akhir Tahun (PAT), Kegiatan Pembelajaran di sekolah semester GENAP Tahun Pelajaran 2018/2019 Telah Berakhir pula Dan tentunya para dewan guru Beserta Operator sekolah Telah disibukan DENGAN different  telkom  analisis  Dan  Pengelolaan Nilai hasil temuan Evaluasi  Pembelajaran, Sebagai Bahan Pelaporan hasil temuan Pembelajaran Peserta didik di sekolah selama setahun. Oleh karena itu saya mencoba untuk mengembangkan “ Aplikasi Rapot Kurikulum 2013” yang merupakan sebagai upaya untuk mengefisienkan waktu dan meringankan beban para dewan guru dan operator dalam pembuatan pelaporan hasil belajar peserta didik untuk segera dapat dilaporkan kepada orang tua murid  dengan sebaik-baiknya.

Baiklah para dewan guru dan operator yang saya hormati, langsung saja saya paparkan penggunaan dan fungsi Aplikasi Rapot Kurikulum 2013 versi 04.19 semester genap ini.

Pertama , Aplikasi ini merupakan hasil pengembangan dan bukan bersifat paten. Ketika rekan-rekan dewan guru dan operator pertama kali membuka file aplikasi rapot kurikulum 2013 berbasis visual basic (vba) ini, akan disajikan lembaran kerja berupa menu “Login” dan dipersilahkan rekan-rekan dewan guru dan operator untuk memasukkan User (admin) dan Password (YaaFatahuYaaalim) dengan benar agar Aplikasi repot Kurikulum 2013 ini terbuka dan bias melanjutkan ke lembar kerja (sheet) berikutnya.


Kedua , setelah file terbuka maka yang harus rekan-rekan dewan guru dan operator melakukan pengisian kolom “Identitas Sekolah” dan jika rekan-rekan dewan guru dan operator sekolah ingin mengganti profil dengan foto pribadi guru atau operator, silahkan unggah pada bagian pojok kiri-atas dengan klik menu “upload”. Selanjutnya isi menu input data “Siswa”, KKM, Kurikulum (berisi KI-KD), Nilai Sikap, Nilai Pengetahuan, Nilai Keterampilan, dan Absen secara berurutan dan benar. 

Ketiga , Pada lembar kerja (menu Siswa) terdapat lima tombol tombol yakni Import Data, Sorter NIPD, Sorter Rombel, Hapus Data, dan Home (untuk kembali ke halaman utama). Sebelum mengisi menu  input data  “Siswa”, silahkan hapus data dengan mengklik tombol tombol “Hapus Data” (tanpa menghapus baris) dan saya menyarankan untuk mengunduh Data Peserta didik di  Aplikasi dapodikdasmenOffline , kemudian simpan pada folder bersama Aplikasi ini dan buka hasil unduhan file tersebut dengan tidak mengubah format (biarkan format seadanya). Selanjutnya tutup dengan “save close” agar ketika mengunggah data siswa berjalan dengan baik. Hal ini dilakukan agar lebih efisien dan tidak memasukkan ulang data peserta didik secara manual. Penjelasan tombol kelima adalah sebagai berikut :

     1. Hapus Data

Button Hapus data berfungsi untuk menghapus data ketika akan melakukan impor data dengan tujuan agar data tidak bertumpukan.

     2.   Impor data

Button import data berfungsi untuk menginput data peserta didik dari hasil unduhan di  Aplikasi dapodikdasmen offline  agar secara otomatis masuk ke lembar kerja (sheet data siswa).

    3. Urutkan NIPD

Button Sort NIPD berfungsi untuk mengurutkan data peserta didik berdasarkan  urutan nomor  induk secara  otomatis .

     4. Sortir Rombel

Button Sort Rombel bekerja untuk mengurutkan data peserta didik berdasarkan rombel, setelah mengurutkan data peserta didik berdasarkan NIPD (Nomor induk) dengan Sort NIPD.

    5. Rumah berfunfsi untuk kembali ke halaman utama.

Keempat , Silahkan isi menu KKM dengan KKM Satuan pendidikan, isi Kurikulum (KI-KD), Nilai Sikap, Nilai Pengetahuan, Nilai Keterampilan, dan Absen (Ekstrakulikuler,absensi,tinggi badan/berat badan, kolom saran, kondisi kesehatan, dan prestasi peserta didik).

Panduan singkat tentang Aplikasi Rapot Kurikulum 2013 ini, Semoga bermanfaat dan sukses untuk rekan-rekan dewan guru dan operator sekolah.

Unduh  Aplikasi Rapot Kurikulum 2013 Versi 04.19 semester Genap  (kelas 4) 
Unduh  Aplikasi Rapot Kurikulum 2013 Versi 01.19 semester Genap  (kelas 1)