Membuat DAFTAR HADIR SISWA

Daftar Hadir Siswa dalam KBM adalah salah satu komponen yang harus dibuat oleh seorang guru. Rutinitas ini berlangsung setiap memasuki tahun ajaran baru atau pergantian semester.
Untuk memperingan tugas kita alangkah baiknya jika kita memiliki aplikasi "Daftar Hadir Siswa", sehingga setiap kali dibutuhkan hanya perlu sedikit pengaturan, dan Daftar Hadir Siswa siap digunakan.
Pada kesempatan ini saya sajikan tutorial cara membuat Daftar Hadir Siswa semi otomatis.
Langkah-langkahnya :
1. Buka Ms Excel
2. Ubah nama Sheet1 menjadi "HOME", Sheet2 menjadi "Siswa", dan Sheet3 menjadi "DH".
    (Kita hanya butuh 3 sheet untuk berapapun jumlah kelas yang kita ajar (dalam satu tingkat)). Seperti tampilan berikut:

3. Pada Sheet "Home" buat tampilan seperti berikut :

Pengaturan nama range:
Sel D6 beri nama range "tapel" (tanpa tanda petik). Caranya : Klik cel D6 dan arahkan mause ke nama range kemudian ketik "tapel". Lihat gambar berikut:

  

Demikian juga untuk range yang lain sebagai berikut:

Cel D7 --> nama range "smester"     Cel D8 --> "mapel"     Cel D9 --> "guru"    Cel D10 --> "nipgr"    Cel D11 --> "kasek"     Cel D12 --> "nipks"    Cel B2 -->"sekolah"    Cel G10 --> "kelas",   Cel I10 --> "urut"

Pada sheet "Home" ini kita sisipkan 2 buah CommandButton yaitu "INPUT SISWA" dan "PRINT" serta 1 buah Spin Button yang digunakan untuk mengatur kelas nantinya. Caranya : klik tab "Developer" --> Insert --> ActiveX Control --> CommondButton. Lihat gambar berijkut:

Kode script untuk tombol tersebut adalah :

Private Sub CommandButton1_Click()
Worksheets("Siswa").Activate
End Sub

Private Sub CommandButton2_Click()
Worksheets("DH").Range("A5:AI51").PrintOut Copies:=1
End Sub

Untuk SpinButton merujuk pada cel I10. Cara mengaturnya : Klik kanan SpinButton --> Format Control, maka akan muncul format kontrol dan atur seperti berikut :

Pada Cel H10 ketikkan rumus : =vlookup(I10;data;2;false)

4. Untuk Sheet "Siswa", tampilannya sebagai berikut:

Agar penomoran berjalan otomatis, pada cel A2 ketik rumus : =if(B2="";"";1) dan untuk cel A3 rumusnya =if(B3="";"";A2+1).  Cel A3 ini dicopy dan paste ke Cel A4 ke bawah
Blok range (A2:C600) beri nama range "Siswa".
Pada Sheet "Siswa") ini kita sisipkan 2 buah CommandButton yaitu "SORT" untuk mengurutkan nama berdasarkan kelas dan abjad, serta "BACK" untuk kembali ke sheet "Home". Adapun Scriptnya dari kedua tobol tersebut adalah sebagai berikut :
Private Sub CommandButton1_Click()
Range("B2:C600").Select
    ActiveWorkbook.Worksheets("siswa").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("siswa").Sort.SortFields.Add Key:=Range("C2:C600") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("siswa").Sort.SortFields.Add Key:=Range("B2:B600") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("siswa").Sort
        .SetRange Range("B2:C600")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

Private Sub CommandButton2_Click()
Worksheets("Home").Activate
End Sub

Blok range (C2:C600) dan beri nama range "keelas"

Pada cel  AA2 ketikkan rumus: =IF(B2="";"";IF(C2=C1;AA1;AA1+1)). Copy dan paste rumus ini sampai AA600, kemudian blok range (AA2:AA600) dan beri nama range "BETA"
Pada cel AB2 ketikkan angka 1
Pada cel AB3 ketikkan rumus: =IF(AB2="";"";IF(AB2=MAX(BETA);"";AB2+1)). Copy dan paste rumus ini ke bawah. sampai AB16
Pada Cel AC2 ketik rumus: =IF(AB2="";"";INDEX($C$2:$C$370;MATCH(AB2;$AA$2:$AA$370;0))). Copy dan paste rumus ini ke bawah. sampai AC16
Pada Cel AD2 ketik rumus: =IF(AB2="";"";COUNTIF(keelas;AC2)). Copy dan paste rumus ini ke bawah. sampai AD16
Pada Cel AE2 ketik rumus: =IF(AB2="";"";SUM($AD$2:AD2)-AD2). Copy dan paste rumus ini ke bawah. sampai AE16

5. Pada Sheet "DH" tampilannya sebagai berikut:

Rumus-rumus yang diterapkan pada sheet ini:
Cel A2: ="Mapel : "&mapel
Cel A3: ="Kelas   :  "&Kelas&" "&AL1
Cel H3: ="  Tahun Pelajaran : "&tapel
Cel AI3: ="Semester : "&Smester
Cel AK1: =urut
Cel AL1: =VLOOKUP(AK1;DATA;2;FALSE)
Cel AM1: =VLOOKUP(AK1;DATA;3;FALSE)
Cel AN1: =VLOOKUP(AK1;DATA;4;FALSE)
Cel A7: = 1
Cel B7: =IF(A7="";"";VLOOKUP(A7+$AN$1;nama;2;FALSE)). copy paste rumus ini sampai B38
Cel A8: =IF(A7<$AM$1;A7+1;""). copy paste rumus ini sampai A38

File contoh dapat didownload di "Membuat Daftar Hadir Siswa"

Permainan "TETANGGA JAUH"

Satu lagi permainan bilangan yang bisa digunakan untuk mengisi waktu santai anda. Permainan ini sudah sangat lama saya kenal, yaitu ketika saya masih duduk di kelas 6 SD sekitar tahun 1979.
Permainan ini sangat sederhana tetapi membutuhkan strategi yang baik untuk dapat menyelesikannya.
Aturannyapun sangat sederhana yaitu menempatkan 8 bilangan berurutan (1 - 8) ke dalam kotak yang disediakan, dengan ketentuan bahwa bilangan yang berurutan tidak boleh berdekatan.

Seperti biasa permainan ini saya buat dalam powerpoint, filenya dapat diunduh di ---> TETANGGA JAUH

Persegi Ajaib

Permainan persegi ajaib banyak / sering kita jumpai di berbagai media, buku maupun blog. Tetapi di sini saya membuatnya dalam powerpoint.

Permainan persegi ajaib paling sederhana adalah menyusun angka 1 -  9 ke dalam kotak yang membentuk persegi seperti dalam gambar, sehingga jumlah mendatar, vertikal maupun diagonalnya sama.
Dalam file powerpoint yang telah saya buat, angka-angkanya bukan hanya 1 -  9 tetapi bisa muncul secara acak.

Mau mencoba?...... Silahkan Download ---> PERSEGI AJAIB

Segitiga Ajaib

Salah satu permainan bilangan yang cukup menarik dan menantang, karena diperlukan strategi dan ketrampilan berhitung adalah permainan "Segitiga Ajaib".
Tugas dari permainan ini adalah menempatkan 6 buah angka (1 - 6), pada sisi-sisi segitiga sehingga jumlah angka pada setiap sisi segitiga tersebut selalu sama.
Ada 4 variasi jumlah angka tiap sisi segitiga tersebut, yaitu 9, 10, 11, dan 12

Ingin mencobanya ? ...... silahkan download filenya disini--> SEGITIGA AJAIB

Untuk tingkatan yang lebih tinggi, 6 angka yang digunakan bisa diganti dengan angka yang lain, dan tentunya variasi jumlah angkanya juga berubah.
Tantangan lainnya, gunakan 9 angka (1 - 9), susun membentuk segitiga dengan tiap sisinya berisi 4 angka dan jumlah angka pada tiap sisinya selalu sama.
Selamat Mencoba

Permainan Interaktif “KARTU PENEBAK TANGGAL LAHIR”

Sebagai selingan dikala siswa merasa jenuh dengan pelajaran yang dirasa cukup melelahkan, sebagai alternatif untuk mencairkan suasana, ada baiknya diisi dengan permainan-permainan ringan. Salah satunya adalah permainan menebak tanggal lahir seorang siswa dengan bantuan kartu. Kartu yang dibutuhkan terdiri dari 5 buah kartu seperti berikut ini:

 Satu per satu kartu ditunjukkan kepada siswa dan ditanyakan apakah tanggal lahirnya ada pada kartu tersebut. Siswa cukup menjawab “Ada” atau “Tidak”. Setelah kelima kartu ditunjukkan dan diperoleh jawaban siswa, maka kita berusaha untuk menebak tanggal lahir siswa tersebut.

Kini permainan itu sudah saya buat dalam powerpoint, sehingga siswa tinggal menekan tombol “ADA” atau “TIDAK” dari setiap kartu yang muncul. Setelah jawaban dari kartu kelima, maka otomatis akan dimunculkan tanggal lahir siswa tersebut.

Cara membuatnya:

1.       Buka Powerpoint

2.       Buat tampilan berikut pada slide 1

3.       Klik tombol “LANJUT” -->Insert --> Action --> Hyperlink to --> NEXT SLIDE

4.       Slide 2 sampai slide ke 6 masing-masing berisi tabel angka KARTU 1 sampai KARTU 5.
Misalnya untuk slide 2, tampilannya seperti berikut ini:

5.       Slide ke-7, buat tampilan seperti berikut:

 Pada Slide 7 ini, Klik tombol "Close" --> Insert --> Action --> Hyperlink to --> End Show".

6.       Klik Developer --> View Code --> Insert --> Module,  kemudian ketik script berikut ini
Dim tgl As Integer
Sub mulai()
tgl = 0
ActivePresentation.SlideShowWindow.View.GotoSlide (3)
End Sub

Sub tampilkan()
With ActivePresentation.Slides(12)
.Shapes(4).TextFrame.TextRange.Text = tgl
End With
End Sub

Sub ya1()
tgl = tgl + 1
ActivePresentation.SlideShowWindow.View.Next
End Sub

Sub ya2()
tgl = tgl + 2
ActivePresentation.SlideShowWindow.View.Next
End Sub

Sub ya3()
tgl = tgl + 4
ActivePresentation.SlideShowWindow.View.Next
End Sub

Sub ya4()
tgl = tgl + 8
ActivePresentation.SlideShowWindow.View.Next
End Sub


Sub ya5()
tgl = tgl + 16
ActivePresentation.SlideShowWindow.View.Next
tampilkan
End Sub

Sub tdk1()
ActivePresentation.SlideShowWindow.View.Next
End Sub

Sub tdk2()
ActivePresentation.SlideShowWindow.View.Next
tampilkan
End Sub

7.       Atur Action dari tiap tombol “ADA” dan “TIDAK” dari slide 2 hingga slide 6, sebagai berikut:
Mulai dari Slide 2.
Klik tombol “ADA” --> Insert --> Action --> Run Macro -->”ya1”
Klik tombol “Tidak” --> Insert --> Action --> Run Macro -->”tdk1”
Pada slide 3 hingga slide ke 6 caranya sama, hanya “ya1” diganti dengan “ya2” hingga “ya5”. 
Pada Slide6, tombol "Tidak" diberi Action "tdk2”

8.       Terakhir simpan powerpoint dalam save as type : Powerpoint Macro-Enable Presentation.

Demikianlah tutorial cara membuat “KARTU PENEBAK TANGGAL LAHIR”.

File yang sudah jadi dapat di download di sini --> KARTU PENEBAK TANGGAL LAHIR

Membuat Aplikasi Penjumlahan Pada Powerpoint

Pada postingan yang lalu saya membahas penggunaan Ms Excel untuk menguji keterampilan berhitung. Kali ini akan saya bahas cara membuat aplikasi penjumlahan dengan Powerpoint. Hebatnya cukup 2 slide dapat digunakan untuk ribuan soal penjumlahan.
Langsung saja Kita mulai.
1. Jalankan Ms.Powerpoint
2. Atur warna background sesuka Anda.
3. Pada Slide pertama buatlah tampilan seperti berikut ini.

      Gunakan WordArt atau Textbox untuk membuat tulisan. Sedangkan untuk membuat tombol "Mulai" gunakan Insert -> Shape, kemudian beri tulisan"Mulai". Tombol "Mulai" ini kita beri Action --> Hyperlink --> Next Slide
5.  Sedangkan pada Slide 2, seperti gambar berikut:

            Pada slide 2 ini terdapat 2 buah Label (yang bertuliskan 301 dan 773), 3 buah TextBox (Active ControlX) yaitu 1 kotak transparan dibawah angka 773 dan 2 kotak dibawah tulisan benar dan salah serta 2 buah CommandButton yaitu tombol Next dan Close. Lebih jelasnya lihat gambar berikut:

Label, TextBox dan CommondButton tersebut terdapat pada kelompok Control. Terlihat pada gambar berikut:

Atur masing-masing Propertiesnya sebagai berikut:

  6. Kemudian klik developer --> view code --> insert --> module --> ketik script berikut:
Private Sub Close_Click()
salah = 0
nilai = 0
ActivePresentation.SlideShowWindow.View.Exit
End Sub

Private Sub soal_cmd_Click()
If jwb = Val(pil1) + Val(pil2) Then
point = 1
Else
pin = 1
End If
salah = salah + pin
nilai = nilai + point
pil1 = Int(999 * Rnd * 1)
pil2 = Int(999 * Rnd * 1)
If pil1 < 100 Then
pil1 = Int(999 * Rnd * 1)
End If
If pil2 < 100 Then
pil2 = Int(999 * Rnd * 1)
End If
jwb = ""
End Sub



 Contoh Filenya dapat didownload di sini --> PENJUMLAHAN ACAK

Membuat Kuis Acak Interaktif Dengan Powerpoint

Bagi sebagian orang yang berkecimpung dalam dunia presentasi tentulah sudah sangat familiar dengan yang namanya MS Powerpoint. Untuk menghasilkan presentasi yang baik tentu diperlukan proses pembelajaran yang panjang. Pada kesempatan kali ini akan saya sajikan tutorial pembuatan "KUIS ACAK INTERAKTIF". Tujuannya adalah agar soal yang kita buat dapat tampil secara acak, dengan demikian diharapkan siswa tidak menghafal kunci jawaban soal.
Langgkah-langkah pembuatannya sebagai berikut:
1. Buka Ms Powerpoint, kemudian klik Developer --> view code --> insert --> module
2. Ketikkan script berikut ini :
Dim nilai As Integer
Dim konfirmasi As String

Sub mulai()
nilai = 0
ActivePresentation.SlideShowWindow.View.Next
End Sub

Sub benar()
konfirmasi = MsgBox("Anda yakin dengan jawaban ini?", vbYesNo, " Cek Jawaban! ")
If konfirmasi = vbYes Then
nilai = nilai + 1
ActivePresentation.SlideShowWindow.View.Next
End If
End Sub


Sub salah()
konfirmasi = MsgBox("Anda yakin dengan jawaban ini?", vbYesNo, " Cek Jawaban! ")
If konfirmasi = vbYes Then
ActivePresentation.SlideShowWindow.View.Next
End If
End Sub

Sub cek()
ActivePresentation.SlideShowWindow.View.Next
tampilkan
End Sub

Sub tampilkan()
With ActivePresentation.Slides(13)
.Shapes(2).TextFrame.TextRange.Text = nilai
End With
End Sub

Sub Acak()
Dim Iupper As Integer
Dim Ilower As Integer
Dim Ifrom As Integer
Dim Ito As Integer
Dim i As Integer
Iupper = 11
Ilower = 2
For i = 1 To 2 * Iupper
Randomize
Ifrom = Int((Iupper - Ilower + 1) * Rnd + Ilower)
Ito = Int((Iupper - Ilower + 1) * Rnd + Ilower)
ActivePresentation.Slides(Ifrom).MoveTo (Ito)
Next i
Exit Sub
End Sub

3. Selanjutnya pada slide 1,buatlah sebuah tombol "OK" dan beri Action --> Run Macro --> pilih "Acak".
Dan buat satu tombol lagi "Mulai" beri Action --> Run Macro --> pilih "mulai".
Untuk tombol "Mulai" ini kita beri animasi "Zoom" dan diatur agar muncul setelah tombol "OK" diklik. (Gunakan Trigger)

 

4.  Buat Slide ke 2 yang berisi soal dan pilihan jawaban seperti gambar berikut:

      Buat 4 buah tombol dan tempatkan pada pilihan jawaban A, B, C dan D.
      Pada masing-masing tombol beri Action --> Run Macro --> pilih "Salah".
5. Copy slide 2 ini dan paste sebanyak 9 kali (Sehingga ada 10 soal).
6. Buat Slide ke-12 seperti tampilan berikut:

   Tombol "Lihat Nilai" diberi Action  --> Run Macro --> pilih " Cek"
7. Slide ke 13 (terakhir) seperti berikut ini;

Pada slide ini ada TextBox yaitu tempat menampilkan nilai (Pada gambar bernilai 0) dan sebuah tombol "Close". Tombol ini diberi Action --> Hyperlink To --> End Show.

8. Selanjutnya kembali ke slide 2 (Soal pertama), untuk tombol pada jawaban benar, beri Action --> Run Macro --> pilih "benar".
Dilanjutkan pada slide 3 sampai slide 11, ganti soal dan atur tombol jawaban benar seperti langkah 8.


Demikianlah cara membuat kuis acak Interaktif. Apabila file kuis acak ini dijalankan, maka urutan soal akan selalu berubah. Semoga bermanfaat.
Contoh filenya dapat di download disini --> KUIS ACAK

Auto Filter dan Penomoran Otomatis

Terkadang kita perlu menggunakan fungsi Filter untuk memilih data dari sekumpulan data dalam Excel. Tetapi yang terjadi adalah setelah Auto Filter dijalankan maka nomor data menjadi tidak terurut. Kadang kita menginginkan agar nomornya urut mulai dari 1, 2, 3, dst.
Bagaimana Caranya?

Mudah saja,   ===>  Gunakan saja Fungsi SUBTOTAL untuk menggantikan penomoran otomatis.

Pada contoh tersebut, di Cell A4 ketikkan rumus berikut: "=If(C4="";"""";Subtotal(3;$C$4:C4))"
Copy dan pastekan rumus tersebut pada cell A5 ke bawah.

Dengan demikian akan kita dapatkan penomoran yang terurut baik sebelum di filter maupun setelah difilter. Dan kitapun tetap dapat mengembalikan datanya seperti semula sebelum difilter.

Belajar Dapat Dolar

Penomoran Otomatis Data Di Excel

Seringkali kita menginput data dan memberikan nomor data tersebut disebelah kiri dari data tersebut. seperti terlihat pada gambar di samping.

Agar penomoran berjalan otomatis yaitu setiap kali kita tambah datanya maka momornya akan mengikuti (tidak perlu di-input),  caranya sangatlah mudah sebagai  berikut:

Pada cell A4 ketikkan rumus berikut  "=If(B4="";"";1)"
Pada Cell A5 ketikkan rumus berikut "=If(B5="";"";A4+1)"
Copy Cell A5 dan paste ke semua cell di bawah cell A5 tersebut.

Adapun untuk membuat border otomatis, caranya adalah sebagai berikut:
1. Blok Range (A4:B100)
2. Klik Conditional Formating --> New Rule --> Format only cell that contains --> Format --> Border --> (pilih border) --> Ok


Selamat Mencoba

Cara Mudah Menghilangkan Tanggal Posting di Blogspot

Tanggal postingan di blog kadang-kadang dirasa mengganggu. Karena tampilnya tanggal postingan itu maka ketahuan deh kapan artikel itu dibuat. Kalau belum lama sih gak apa apa. Tapi kalau sudah lama… Wuah bisa  kelihatan kurang fresh neh artikelnya. Jadul…. Hehehe…. 

Nah, untuk yang tidak menyukai ada tanggal postingan di blognya jangan bingung. Bisa dihilangkan kok.

Berikut ini langkah-langkahnya:

1. Login ke akun blogspot
2. Klik tata letak
   

3.  Klik edit yang terletak di bawah judul blog
4. Kemudian akan muncul tampilan baru seperti di bawah ini

 

5. Hilangkan centang di bagian tanggal posting
6. Klik save dan SELESAI