Form Input Data Siswa Berbasis Excel

Form Input Data Siswa Berbasis Excel

Berikut linknya Form Input Data Siswa Berbasis Excel

Membuat Form Isian data (Entri Data Barang VBA Excel)

Berikut langkah-langkahnya :

1. Buka Aplikasi Microsoft Excel
2. Ubah nama sheet1 terlebih dahulu (terserah dengan nama apa, misalnya "DATABARANG")
3. Kemudian ketikkan Kode Barang, Nama Barang, Satuan, dan Harga Barang pada excel
   
4. Setelah itu pilih Tab View pada excel, klik macros, dan akan muncul jendela seperti dibawah ini, lalu klik tombol create
   
5. Save terlebih dahulu lembar kerja excel dan pilih typenya Excel Macro Enabled Workbook, dan buat nama filenya misalnya DATABARANG
6. Langsung menuju Tab Developer, pilih Visual Basic, lalu Insert UserForm, buatlah Desain pada UserForm seperti dibawah ini :
   
7. Pada Gambar di atas, untuk judul (APLIKASI ENTRI DATA BARANG), Kode Barang, Nama Barang, Satuan Barang, dan Harga Barang menggunakan label pada ToolBox, nanti tinggal di ganti namanya saja. yang berada disamping Kode Barang, Nama Barang, dan Harga Barang menggunakan TextBox, yang berada disamping Satuan Barang itu menggunakan ComboBox, sedangkan untuk Tambah Data dan Selesai menggunakan CommandButton
8. Masing-masing kotak diklik dan ubah namanya pada properties, seperti ini :
   
9. KODE BARANG = Textkodebarang, yang disampingnya menjadi Textkode
10. NAMA BARANG = Textnamabarang, yang disampingnya menjadi Textnama
11. SATUAN BARANG = Cmdsatuanbarang, yang disampingnya menjadi Cbosatuan
12. HARGA BARANG = Texthargabarang, yang disampingnya menjadi Textharga
13. TAMBAH DATA = Cmdtambah dan SELESAI = Cmdselesai
14. Setelah langkah di atas selesai, selanjutnya adalah coding yaitu dengan klik kanan pada UserForm 1 dan pilih View Code, dan isi kodenya, jangan lupa di save
    
15. Kemudian, double klik pada TAMBAH DATA di UserForm dan isi kodenya, lalu save lagi
    
16. Double klik pada SELESAI, isi kodenya dan save
    
17. Dibagian paling akhir, ketik juga kode ini :
    
18. Private Sub CommandButton1_Click()
    
    
    End Sub
    
    
    Private Sub CommandButton2_Click()
    
    
    End Sub
    
    
    Private Sub Cmbsatuan_Change()
    
    
    End Sub
    
    
    Private Sub Cmdsatuanbarang_Click()
    
    
    End Sub
    
    
    Private Sub Cmdselesai_Click()
    Unload Me
    End Sub
    
    
    Private Sub Cmdtambah_Click()
    
    
    Dim iRow As Long
    Dim ws As Worksheet
    Set ws = Worksheets("DATABARANG")
    
    
    'untuk memberikan baris kosong pada database
    iRow = ws.Cells(Rows.Count, 1) _
    .End(xlUp).Offset(1, 0).Row
    
    
    'untuk mengecek sebuah kode barang
    'If Trim(Me.Textkode.Value) = "" Then
    
    
    'untuk mengkopi data ke database
    ws.Cells(iRow, 1).Value = Me.Textkode.Value
    ws.Cells(iRow, 2).Value = Me.Textnama.Value
    ws.Cells(iRow, 3).Value = Me.Cbosatuan.Value
    ws.Cells(iRow, 4).Value = Me.Textharga.Value
    
    
    'untuk membersihkan form sebelum ditambahkan data baru
    Me.Textkode.Value = ""
    Me.Textnama.Value = ""
    Me.Cbosatuan.Value = ""
    Me.Textharga.Value = ""
    
    
    Me.Textkode.SetFocus
    
    
    End Sub
    
    
    Private Sub Label1_Click()
    
    
    End Sub
    
    
    Private Sub Texthargabarang_Click()
    
    
    End Sub
    
    
    Private Sub Textkodebarang_Click()
    
    
    End Sub
    
    
    Private Sub Textnamabarang_Click()
    
    
    End Sub
    
    
    Private Sub UserForm_Initialize()
    With Cbosatuan
        .AddItem "Unit"
        .AddItem "Set"
        .AddItem "Pack"
        .AddItem "Kg"
        .AddItem "Meter"
    End With
    
    
    End Sub
    
    
    Private Sub Textharga_Change()
    
    
    End Sub
    
    
    Private Sub Textkode_Change()
    
    
    End Sub
    
    
    Private Sub UserForm_QueryClick(Cancel As Integer, CloseMode As Integer)
    If CloseMode = vbFormControlMenu Then
    Cancel = True
    
    
    MsgBox "Maaf kalau sudah selesai, klik tombol selesai"
    End If
    
    
    End Sub
    
    
    
    
19. Diatas adalah kode secara keseluruhan
20. Lalu klik Modules, pilih Modules 1 dan isi kodenya sebagai berikut dan save
    
21. Untuk melihat hasilnya, terlebih dahulu kembali dulu ke lembar kerja excel dan buat tombol entri data misalnya dari shape
    
22. Klik kanan tombol yang telah dibuat, pilih Assign Macro, pilih nama macro yang telah dibuat dari awal (ENTRI_DATA_BARANG), klik ok
23. Kembali lagi ke Visual Basic, untuk mengetahui hasilnya klik Run atau F5
    
24. Hasilnya adalah
    
25. Selanjutnya untuk Tambah Data bisa dengan mengklik tombol Entri Data saja dan akan muncul seperti jendela diatas
    
26. Terima Kasih

Untuk hasil dari langkah-langkah diatas, klik disini

Cara Membuat IF Else di Excel

Berikut langkah-langkahnya :

1. Buka Aplikasi Microsoft Excel
2. Untuk memunculkan Microsoft Visual Basic, klik Alt+11 atau dengan melalui Tab Developer lalu pilih Visual Basic
3. Kemudian klik kanan pada Sheet1 (Sheet1), lalu pilih View Code
4. Pada (General) diganti menjadi Worksheet
   
5. Ketik data berikut :
   
6. Jika sudah selesai, ketikkan pada Excel angka 1, 2 dan 3 dan hasilnya akan seperti ini :
   
7. Lalu save

Untuk Hasilnya, klik disini

Cara Membuat UserForm pada Excel

Berikut langkah-langkah untuk membuat userform pada excel :

1. Buka Microsoft Excel
2. Untuk menampilkan Microsoft Visual Basic, bisa dengan tekan Alt+11 pada keyboard atau dengan melalui Tab Developer lalu pilih Visual Basic
3. Maka akan muncul seperti gambar di bawah ini :
   
4. Klik kanan pada VBAProject, Pilih Insert dan pilih Userform :
   
5. Maka akan tampil UserForm, Toolbox dan Properties, apabila Properties belum muncul dapat di klik kanan pada UserForm
6. Kita dapat menggunakan Toolbox untuk untuk dimasukkan ke dalam Userform, isi Toolbox itu sendiri seperti Select Objects, Label, TextBox, ComboBox, ListBox, CheckBox dll
   
7. Untuk memasukkan ToolBox tersebut ke dalam UserForm tinggal klik icon yang ada pada ToolBox itu sendiri
   
   
   
   
8. Pada Properties dapat digunakan untuk mengatur apa yang akan kita buat di Userform misalnya seperti Insert Picture, merubah warna dll
   
9. Untuk melihat hasilnya klik tombol Run pada Toolbar atau F5

Untuk hasil UserForm, klik disini

Cara Mengaktifkan Developer pada Excel

Berikut ini langkah-langkah unruk mengaktifkan tab Developer pada Excel :

1. Klik file yang berada di sudut kiri Ms. Excel
2. Kemudian pilih Option, lalu akan muncul seperti ini :
   
3. Lalu pilih Customize Ribbon seperti di bawah ini, dan centang developer pada Main Tabs, klik Ok.
   

Kartu Hasil Studi

Kartu Hasil Studi

Daftar Nilai (Excel)

Daftar Nilai (Excel)

Daftar Penghasilan (Excel)

Daftar Penghasilan

Cara Membuat Grafik

Cara Membuat Grafik
Terlebih dahulu persiapkan data yang akan di buat menjadi bentuk Grafik, sebagai berikut :

Langkah-langkah membuat Grafik

Untuk tabel a :

1. Melalui Apllikasi Ms. word, klik tab Insert dan pilih chart seperti gambar di bawah ini :
   
2. Pilih chart dengan menggunakan Insert Chart Bar, lalu pilih Clustered Bar, dan secara otomatis akan muncul seperti ini :
   
3. Selanjutnya pada Category diisi nomor 1-4, dan series 1 dan series 2 diganti menjadi nilai x dan nilai y, lalu isi data yang sudah disiapkan tadi dan hasilnya akan jadi seperti ini :
   
4. Setelah itu save pada word

Untuk tabel b :

1. Pilih chart dengan menggunakan Insert Chart Line
   
2. Selanjutnya pada Category diisi nomor 1-4, dan series 1 dan series 2 diganti menjadi nilai x dan nilai y, lalu isi data yang sudah disiapkan tadi dan hasilnya akan jadi seperti ini :
   
3. Kemudian save pada word

Untuk tabel c :

1. Pilih chart dengan menggunakan Insert Chart Pie
   
2. Kemudian pada 1st Qtr-4thQtr diganti menjadi nomor 1-4 ke bawah, dan pada sales diganti menjadi nilai y, lalu isi datanya dan hasilnya akan seperti ini :
   
3. Dan kemudian save pada word

Untuk Grafik selanjutnya :

1. Pilih chart dengan menggunakan Insert Chart Line with markers
   
2. Sorot terlebih dahulu garis biru pada excel sesuai dengan yang dibutuhkan, kemudian pada Category diganti dengan data Time, pada series 1 dan series 2 diganti menjadi Temp dan Light, setelah data di isi hasilnya adalah
   
3. Kemudian save pada word

Untuk hasil Grafik dari data di atas, klik disini

Surat (Mail Merge)

Mailing Surat (Bumi Asih Jaya)
Mailing Surat (POLIS)