Kiagoes Irsyad

Cara buat grafik di excel 2010 kurang lebih sama dengan beberapa vesri excel sebelumnya. Barangkali yang sedikit membedakannnya terletak pada menu ribbon atau penjelasan data grafik. Selain itu, cara buat garfik sama saja.

Kali ini, saya akan memberikan langkah-langkah untuk membuat form isian data pada Ms Excel dengan menggunakan VBA.
Tanpa basa-basi, berikut langkah-langkah membuat form isian data :

1. Langkah pertama, siapkan terlebih dulu data tabel di lembar kerja Excel seperti berikut.


2.  Selanjutnya membuat tombol tambah, caranya arahkan kursor ke Tab Developer > Insert > CommandButton (ActiveX Control).


3.  Lalu posisikan tombol tersebut sesuai kebutuhan, ganti nama tombol dengan tulisan Tambah, caranya klik kanan pada tombol lalu pilih CommandButton Object >> Edit. Hasilnya seperti berikut.


4.  Kemudian klik kanan pada tombol Tambah, pilih View Code, maka akan tampil halaman Visual Basic for Application, kemudian isikan code berikut ini.
Private Sub CommandButton1_Click()
UserForm1.Show
End Sub
Seperti pada tampilan berikut. (catatan, simpan halaman dengan nama IsianData.xlsb)


5.  Kemudian klik kanan pada tulisan “VBAProject (IsianData.xlsb)”, lalu pilih insert >> UserForm, seperti tampilan berikut.


6.  Selanjutnya buat tiga buah TextBox dengan satu tombol CommandButton, contohnya seperti tampilan berikut.


7.  Kemudian double klik pada button Simpan, setelah itu masukan code seperti berikut.

Private Sub CommandButton1_Click()
Set wsDtbsBrg = Sheets(“Sheet1”)
RecordAkhir = wsDtbsBrg.Cells(wsDtbsBrg.Rows.Count, “B”). _
End(xlUp).Offset(0, 0).Row
With wsDtbsBrg
.Cells(RecordAkhir + 1, 1).Value = TextBox1.Value
.Cells(RecordAkhir + 1, 2).Value = TextBox2.Value
.Cells(RecordAkhir + 1, 3).Value = TextBox3.Value
End With
Unload Me
End Sub

Private Sub Textbox3_KeyPress(ByVal KeyAscii _
As MSForms.ReturnInteger)
Select Case KeyAscii
Case Asc(“0”) To Asc(“9”)
Case Else
KeyAscii = 0
End Select
End Sub

Seperti pada tampilan berikut. (catatan, setelah code di atas di tuliskan atau Anda bisa meng-copy pastenya, lalu save halaman?


8.  Setelah itu Anda kembali lagi ke lembar kerja Excel, untuk mengaktifkan tombol “Tambah”, Anda bisa arahkan kursor ke tab Developer >> Design Mode.


9.  Sekarang Anda coba klik tombol “Tambah”, jika tombol tersebut berfungsi maka akan muncul form dialog isian, dan coba Anda isi bagian Nama, Alamat dan No telepon, kemudian Klik Simpan, seperti berikut.


10.  Maka pada tabel data akan terisi sesuai dengan data yang di inputkan pada form isian data. Jika Anda ingin menambahkan data lebih banyak lagi, cukup klik tombol “Tambah” dan lakukan pengisian data seperti pada no 9 diatas.


Dengan demikian, jika Anda ingin mengisi data tabel hanya tinggal klik tombol “Tambah” saja, maka akan tampil form isian data. Semoga bermanfaat.

Sementara untuk Nilai Huruf, saya menggunakan rumus IF pada Microsoft Excel sesuai dengan ketentuan penilaian yang telah saya buat di samping data nilai.

=IF(J8<40,"E",IF(J8<55,"D",IF(J8<60,"C",IF(J8<65,"C+",IF(J8<69,"B-",IF(J8<74,"B",IF(J8<79,"B+",IF(J8<89,"A-","A"))))))))

Apabila ingin menambahkan kolom seperti ini :

Maka harus menggunakan rumus SUM untuk menentukan jumlah, rumus AVERAGE untuk menentukan rata-rata nilai, rumus MAX untuk menentukan nilai tertinggi, MIN untuk nilai terendah, serta MEDIAN untuk menentukan nilai tengah dari data yang telah dibuat.

Setelah membuat data nilai untuk masing-masing mata kuliah, saatnya membuat sebuah KHS ..

Pertama, siapkan kolom yang diinginkan serta ketentuan lulus/tidak lulus, contoh :

Rumus yang saya gunakan untuk mengisi Nama Mahasiswa, Kehadiran, dan Nilai Huruf disini yaitu rumus VLOOKUP sesuai dengan data yang sebelumnya  sudah saya buat untuk masing-masing mata kuliah.

=VLOOKUP(D7,Sheet1!$B$7:$K$35,3,FALSE)

=VLOOKUP($D$7,Sheet1!$B$7:$K$35,4,FALSE)

=VLOOKUP($D$7,Sheet1!$B$7:$K$35,10,FALSE)

Jika sudah menggunakan rumus tersebut, ketika mengisi No. Urut maka akan otomatis keluar data yang telah dibuat di data nilai sesuai dengan No. Urut dari mahasiswa.

Selanjutnya untuk kolom SKS saya isi berdasarkan ketentuan di kampus saya.

Sementara untuk kolom BOBOT, saya juga menggunakan rumus IF berdasarkan ketentuan yang telah saya buat disamping KHS. Contoh rumus :

Untuk menentukan jumlah langsung saya pakai rumus SUM dan untuk menentukan IPK saya langsung saja membagi jumlah bobot dibagi jumlah SKS.

Untuk keputusan apakah mahasiswa lulus atau tidak lulus, saya gunakan rumus :

=IF(AND(E21>2.6,C20>115),"LULUS","TIDAK LULUS")

sesuai dengan aturan yang berlaku.

Berikut merupakan hasil dari KHS yang telah saya buat :

Untuk file excelnya bisa dilihat dan diunduh disini

Ini waktu begadang selanjutnya @My House

Ini yang terbaru saat Bunkasai kedua kami

sekaligus merayakan hari jadi OSTeam yang pertama :)

Momen saat Event di Palembang Indah Mall pertama

Dan ini yang ke-2

Ini abis pulang dari Event di dekat BKB, cus ke STBA karena ada keperluan

jadinya gini sekalian hunting hehe

Anak-anak terpilih untuk masuk kedunia b*jital ... ups digital maksudnya :)

Btw ini foto diambil tepatnya di Jakabaring Sport City

Saat Event pertama di OPI Mall walau personil selalu kurang lengkap

yang tengah kami keroyok itu leader kami loh

Lagi refreshing sejenak dengan karoke bareng ...

Hidup harus seimbang Dunia dan Akherat bray, haha

@Rumah Wildan selepas sholat di masjid agung

Menang banyak :v

 Karoke lagi

Lihatlah betapa bahagianya ekspresi wajah dari bocah2 ini

Mungkin masa kecil mereka suram haha

Waktu ngasih surprise ke doi nya si Qosim dirumahnya

Begadang yang sering kami sebut "NGANTU"

@Rumah Qosim / Basecamp