APLIKASI REKAP NILAI AKHIR SISWA KELAS VI untuk UPTD/DINAS KABUPATEN

sebenarnya ini tidak seberapa bermanfaat krn FILE ini jadi ditangan Operator Kacangan, tapi apa salahnya saya berbagi ilmu.

kali ini saya coba menulis tata cara bagaimana bekerja simple, demi kenyamanan dalam melaksanakan tugas sebagai oparator, sebenarnya saya pribadi bukan tugas saya untuk mengolah data kelas VI' tapi tugas guru kelas VI krn beliau lebih tau dari angka2 yang akan diisikan. 

Sofware ini adalah SOWARE REKAP dimana PELAKSANAANNYA Di UPTD khusus Dikabupten saya, tapi apa salahnya belajar juga membuat REKAPTULASI dalam FILE besar, itung2 akan menambah ilmu saya

1. munkin tidak asing lagi seperti gambar (contoh tampilan awal dari APLIKASI yang dibagikan kesekolah2.

2. gambar dimana sofware nanti mengambil isi FILE yang ada didalamnya

3. gambar selanjutnya akan memperlihatkan bagaimana gambar tersebut berjalan sesuai dengan apa diperintahkan (tinggal klik MULAI REKAP KRITERIA' akan terisi otomatis isi FILE excel )

4. KITA Pindahkan kursor menghadap SHEET KEHADIRAN, DAN memulia merekapnya sampai 5 sheet).

5. KITA Pindahkan kursor kembali menghadap SHEET PERINGKAT SEKOLAH, DAN memulia merekapnya.

KLIK UNTUK DONWLOAD SOFWARENya : KLIK (FOPPSI KABUPATEN SOPPENG)

makasih atas kunjungannya

rumus jikalau ingin belajar merekap banyak seperti FILE diatas

Private Sub CommandButton1_Click()
Dim rc As Long
Dim fileku As String
Dim wb As Workbook

Application.ScreenUpdating = False
fileku = ActiveWorkbook.Path
rc = ActiveSheet.UsedRange.Rows.Count 'menghitung jumlah baris yang ada

With Sheets(1).Range("A1")
.Offset(rc, 0).Value = Me.TextBox1.Value 'baris akhir kolom A yang kosong, sama dengan nilai textbox nama
.Offset(rc, 1).Value = Me.TextBox2.Value 'baris akhir kolom B yang kosong, sama dengan nilai textbox barang
End With
ThisWorkbook.SaveSet wb = ActiveWorkbook
rc = ActiveSheet.UsedRange.Rows.Count
With Sheets(1).Range("A1")
.Offset(rc, 0).Value = Me.TextBox1.Value
.Offset(rc, 1).Value = Me.TextBox2.Value
.Offset(rc, 2).Value = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4) 'nama dari workbook yang entry
End With

wb.Save
wb.Close 'tutup workbook master
Application.ScreenUpdating = True
Unload Me
UserForm1.Show
End Sub

--------------------------------------------------------------------------------

Tulisan block warna merah menunjukan nama file rekap, ubah sesuai dengan nama file kalian.

selanjutnya>>>>>

Klik Insert => Module

Masukan rumus berikut :

-----------------------------------------

Sub OpenForms()
   UserForm1.Show
End Sub

-----------------------------------------