Record Macro Ms. Excel

Assalamu'alaikum...

Pada post ini saya akan membahas tentang cara-cara membuat record macro, dan beginilah caranya:


Buka atau buat dokumen yang datanya akan di-Record Macro.

Sederhanakan bentuk Tabel sehingga yang tersisa merupakan hal yang penting-penting saja. dalam kasus ini saya akan menghilangkan kolom nomor.

Block bagian yang menurut kalian merupakan bagian yang penting dan copy bagian tersebut.

Pilih sel di mana data tersebut akan diletakkan. Kemudian klik kanan, pada bagian paste option pilih transpose.

Pada kolom B kita lakukan format text yang mengarah vertikal agar mendaftar, blok kolom tersebut, klik kanan, Format Cells -> Alignment -> Ubah orientasi teks menjadi 0 derajat (degre) sehingga hasilnya seperti ilustrasi berikut.

Langkah berikutnya adalah menghapus kolom B (tapi kita mesti ingat urutan mata pelajarannya) dan juga baris 9 dan 16 karena ini tidak kita perlukan, juga border (garis-garis tabel) perlu dihapus. Sisipkan 2 baris kosong di bawah baris nama (untuk judul kolom tabel) dan beri warna beda pada baris nilai semester 4 (baris 10-15), untuk membedakan nilai semester 3, 4, dan 5. Hasilnya seperti ilustrasi berikut.

Tempatkan Active cell pada B2. Pastikan menge-klik Use Relative References (pada tab menu View -> tab Macros -> klik spin (segitiga kecil) pilih Use Relative References.

 Kemudian klik Record Macro… kalau kita sudah siap melakukannya, maka akan muncul popup menu isian, isikan seperlunya, jangan lupa memberi nama macro dan membuat shortcut ctrl+…(saya contohkan Ctrl+w). Ini bertujuan jika hendak menjalan macro kita tinggal menggunakan shorcut tersebut.

• Berikutnya adalah membuat satu tabel secara manual (untuk data satu siswa saja), ubahlah seperti format tabel jadi (seperti ilustrasi 1 di atas). Caranya sisipkan kolom sebelah kanan siswa pertama (cell B2) sebanyak yang diperlukan (dalam contoh ini saya sisipkan sebanyak 8 kolom).
• Lakukan pekerjaan secara manual: bisa menambahkan Tulisan pada beberapa cell seperti No, Mata Pelajaran, Semester 3, 4, 5 dll, memindah kolom tabel, memformat garis batas (border), memberikan warna cell, menulis rumus perhitungan tertentu dll sesuai format tabel yang kita harapkan. Jika semua sudah selesai format tabel seperti yang diharapkan, letakkan pointer pada cell pada nama siswa diurutan ke-3 (cell K1). Selesai…. Silahkan Klik Stop recording… toolbar-nya ada pada bagian saat kita Record Macro… atau dibagian kiri bawah halaman lembar kerja Excel kita.

• Sampai disini kita bisa mencoba kerja macro untuk tabel siswa ke dua, caranya tempatkan pointer pada cell nama siswa ke-3; Tekan shorcut key Ctrl+w seperti yang anda tentukan sebelumnya (saat akan me-record macro).
• Jika hasilnya persis tabel yang kita buat namun berisi data siswa ke-2 maka itu berarti pekerjaan kita telah benar.
• Nah kalau siswanya banyak sekali anggaplah 200 siswa maka kita perlu menekan Ctrl+w tadi sebanyak sisa-nya yang belum dibuatkan tabel. Jadi tetep capek deh… agar hanya cukup sekali klik tombol Ctrl+w kita lakukan sedikit tambahan pada macro. Caranya klik menu macro -> view macro – klik edit dan tambahkan baris (setelah baris komentar yg ditandai awal dengan ‘…..) ketikkan:
  Do Until Activecell.Value=""
  dan pada bagian bawah sebelum end sub tulisan
  Loop seperti ilustrasi berikut:

 Sekian, semoga membantu :)

Read More

Cara Membuat Form Entri Data dengan Menggunakan Fungsi Macros dalam Ms. Excel

Assalamu'alaikum...

Macro adalah Sebuah fasilitas yang dimiliki Microsoft Excel yang dapat digunakan untuk merekam semua tindakan dan perintah yang dilakukan pada program Excel. Alat bantu yang digunakan dalam pembuatan perintah maupun perekaman Macro adalah dengan menggunakan Visual Basic Editor.

Berikut langkah-langkahnya:

1. Buka Excel lalu tekan kombinasi tombol ALT+F11 pada keyboard. VBA editor telah aktif dan akan muncul tampilan seperti ini:

2. Pada menu insert, pilih UserForm

Lalu akan muncul tampilan seperti ini dan gunakan Label pada ToolBox untuk membuat NIS, Nama Lengkap, Tempat Lahir, dst.

Setiap setelah membuat Label, jangan lupa untuk mengubah caption sesuai dengan data yang dibutuhkan.

 Gunakan Combo Box pada ToolBox sebagai syarat untuk pengisian data pada Pendidikan Ibu, Pendidikan Ayah, dan Jenis Kelamin

Untuk ComboBox sganti properties name nya dengan
ComboBox1 ganti dengan CBOKelamin
ComboBox2 ganti dengan CBOPendidikanIbu
ComboBox3 ganti dengan CBOPendidikanAyah

Textbox1 ganti dengan    TXTNis
Textbox2 ganti dengan    TXTNama
Textbox3 ganti dengan    TXTTempatLahir
Textbox4 ganti dengan    TXTTglLahir
Textbox5 ganti dengan    TXTALamat
Textbox6 ganti dengan    TXTNISN
Textbox7 ganti dengan    TXTHP
Textbox8 ganti dengan    TXTSKHUN
Textbox9 ganti dengan    TXTIjasah
Textbox10 ganti dengan  TXTNamaIbu
Textbox11 ganti dengan  TXTThnLahirIbu
Textbox12 ganti dengan  TXTPekIbu
Textbox13 ganti dengan  TXTNamaAyah
Textbox14 ganti dengan  TXTThnAyah
Textbox15 ganti dengan  TXTPekAyah
Textbox16 ganti dengan  TXTPengAyah
Textbox17 ganti dengan  TXTAlamatOrtu


Gunakan CommandButton untuk Simpan, Cari Data Siswa, dan Close

 Langkah selanjutnya, View Code dengan cara Klik Kanan pada Userform dan pilih view code.

dan akan muncul tampilan seperti ini:

Tuliskan script berikut untuk membuat initial pada UserForm

Private Sub UserForm_Initialize()
With CBOKelamin
    .AddItem "Laki-Laki"
    .AddItem "Perempuan"
End With
With CBOPendidikanIbu
    .AddItem "Tidak Sekolah"
    .AddItem "SD"
    .AddItem "SMP"
    .AddItem "SMA"
    .AddItem "D1"
    .AddItem "D2"
    .AddItem "D3"
    .AddItem "S1"
    .AddItem "S2"
    .AddItem "S3"
End With
With CBOPendidikanAyah
    .AddItem "Tidak Sekolah"
    .AddItem "SD"
    .AddItem "SMP"
    .AddItem "SMA"
    .AddItem "D1"
    .AddItem "D2"
    .AddItem "D3"
    .AddItem "S1"
    .AddItem "S2"
    .AddItem "S3"
End With
End Sub

6. Ketikkan script VBA nya di bawah ini untuk script data siswa

Private Sub TBLSimpan_Click()
Dim iRow As Long
Dim Ws As Worksheet
Set Ws = Worksheets("databasesiswa")

'menemukan baris kosong pada database siswa
iRow = Ws.Cells(Rows.Count, 1) _
  .End(xlUp).Offset(1, 0).Row

'check untuk sebuah nis
If Trim(Me.TXTNis.Value) = "" Then
  Me.TXTNis.SetFocus
  MsgBox "Masukan NIS terlebih dahulu Kang.."
  Exit Sub
End If


'copy data ke database siswa
Ws.Cells(iRow, 1).Value = Range("X1").Value
Ws.Cells(iRow, 2).Value = Me.TXTNis.Value
Ws.Cells(iRow, 3).Value = Me.TXTNama.Value
Ws.Cells(iRow, 4).Value = Me.TXTTempatLahir.Value
Ws.Cells(iRow, 5).Value = Me.TXTTglLahir.Value
Ws.Cells(iRow, 6).Value = Me.CBOKelamin.Value
Ws.Cells(iRow, 7).Value = Me.TXTAlamat.Value
Ws.Cells(iRow, 8).Value = Me.TXTNISN.Value
Ws.Cells(iRow, 9).Value = Me.TXTHP.Value
Ws.Cells(iRow, 10).Value = Me.TXTSKHUN.Value
Ws.Cells(iRow, 11).Value = Me.TXTIjasah.Value
Ws.Cells(iRow, 12).Value = Me.TXTNamaIbu.Value
Ws.Cells(iRow, 13).Value = Me.TXTThnLahirIbu.Value
Ws.Cells(iRow, 14).Value = Me.TXTPekIbu.Value
Ws.Cells(iRow, 15).Value = Me.CBOPendidikanIbu.Value
Ws.Cells(iRow, 16).Value = Me.TXTNamaAyah.Value
Ws.Cells(iRow, 17).Value = Me.TXTThnAyah.Value
Ws.Cells(iRow, 18).Value = Me.TXTPekAyah.Value
Ws.Cells(iRow, 19).Value = Me.CBOPendidikanAyah.Value
Ws.Cells(iRow, 20).Value = Me.TXTPengAyah.Value
Ws.Cells(iRow, 21).Value = Me.TXTAlamat.Value

'clear data siswa
Me.TXTNis.Value = ""
Me.TXTNama.Value = ""
Me.TXTTempatLahir.Value = ""
Me.TXTTglLahir.Value = ""
Me.CBOKelamin.Value = ""
Me.TXTAlamat.Value = ""
Me.TXTNISN.Value = ""
Me.TXTHP.Value = ""
Me.TXTSKHUN.Value = ""
Me.TXTIjasah.Value = ""
Me.TXTNamaIbu.Value = ""
Me.TXTThnLahirIbu.Value = ""
Me.TXTPekIbu.Value = ""
Me.CBOPendidikanIbu.Value = ""
Me.TXTNamaAyah.Value = ""
Me.TXTThnAyah.Value = ""
Me.TXTPekAyah.Value = ""
Me.CBOPendidikanAyah.Value = ""
Me.TXTPengAyah.Value = ""
Me.TXTAlamatOrtu.Value = ""
Me.TXTNis.SetFocus

'Simpan data
Application.ActiveWorkbook.Save
End Sub

7. Membuat perintah CLOSE silakan ketikkan script nya dibawah ini dengan cara double klik tombol CLOSE

Private Sub CMDClose_Click()
Unload Me
End Sub

8. Membuat script agar apabila data yang dimasukan pada textbox bukan berupa data angka maka secara otomatis akan menampilkan pesan error

Private Sub HanyaAngka()
    If TypeName(Me.ActiveControl) = "TextBox" Then
        With Me.ActiveControl
            If Not IsNumeric(.Value) And .Value <> vbNullString Then
                MsgBox "Maaf, Masukan data angka saja"
                .Value = vbNullString
            End If
        End With
    End If
End Sub

9. Untuk membuat perubahan warna ketika textbox dipilih

Private Sub TXTNISN_Change()
HanyaAngka
End Sub

Private Sub TXTHP_Change()
HanyaAngka
End Sub

Private Sub txtnis_Enter()
TXTNis.BackColor = &H80000005
End Sub
Private Sub txtnis_Exit(ByVal Cancel As MSForms.ReturnBoolean)
HanyaAngka
TXTNis.BackColor = &HE0E0E0
End Sub

Private Sub txtnama_enter()
TXTNama.BackColor = &H80000005
End Sub
Private Sub txtnama_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TXTNama.BackColor = &HE0E0E0
End Sub

Private Sub txttempatlahir_enter()
TXTTempatLahir.BackColor = &H80000005
End Sub
Private Sub txttempatlahir_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TXTTempatLahir.BackColor = &HE0E0E0
End Sub

Private Sub txttgllahir_enter()
TXTTglLahir.BackColor = &H80000005
End Sub
Private Sub txttgllahir_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TXTTglLahir.BackColor = &HE0E0E0
End Sub

Private Sub txtalamat_Enter()
TXTAlamat.BackColor = &H80000005
End Sub
Private Sub txtalamat_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TXTAlamat.BackColor = &HE0E0E0
End Sub

Private Sub cbokelamin_Enter()
CBOKelamin.BackColor = &H80000005
End Sub
Private Sub cbokelamin_Exit(ByVal Cancel As MSForms.ReturnBoolean)
CBOKelamin.BackColor = &HE0E0E0
End Sub

Private Sub txtnisn_Enter()
TXTNISN.BackColor = &H80000005
End Sub
Private Sub txtnisn_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TXTNISN.BackColor = &HE0E0E0
End Sub

Private Sub txthp_Enter()
TXTHP.BackColor = &H80000005
End Sub
Private Sub txthp_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TXTHP.BackColor = &HE0E0E0
End Sub

Private Sub txtskhun_Enter()
TXTSKHUN.BackColor = &H80000005
End Sub
Private Sub txtskhun_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TXTSKHUN.BackColor = &HE0E0E0
End Sub

Private Sub txtijasah_Enter()
TXTIjasah.BackColor = &H80000005
End Sub
Private Sub txtijasah_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TXTIjasah.BackColor = &HE0E0E0
End Sub

Private Sub txtnamaibu_Enter()
TXTNamaIbu.BackColor = &H80000005
End Sub
Private Sub txtnamaibu_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TXTNamaIbu.BackColor = &HE0E0E0
End Sub

Private Sub txtthnlahiribu_Enter()
TXTThnLahirIbu.BackColor = &H80000005
End Sub
Private Sub txtthnlahiribu_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TXTThnLahirIbu.BackColor = &HE0E0E0
End Sub

Private Sub txtpekibu_Enter()
TXTPekIbu.BackColor = &H80000005
End Sub
Private Sub txtpekibu_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TXTPekIbu.BackColor = &HE0E0E0
End Sub

Private Sub cbopendidikanibu_Enter()
CBOPendidikanIbu.BackColor = &H80000005
End Sub
Private Sub cbopendidikanibu_Exit(ByVal Cancel As MSForms.ReturnBoolean)
CBOPendidikanIbu.BackColor = &HE0E0E0
End Sub

Private Sub txtnamaayah_Enter()
TXTNamaAyah.BackColor = &H80000005
End Sub
Private Sub txtnamaayah_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TXTNamaAyah.BackColor = &HE0E0E0
End Sub

Private Sub txtthnayah_Enter()
TXTThnAyah.BackColor = &H80000005
End Sub
Private Sub txtthnayah_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TXTThnAyah.BackColor = &HE0E0E0
End Sub

Private Sub txtpekayah_Enter()
TXTPekAyah.BackColor = &H80000005
End Sub
Private Sub txtpekayah_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TXTPekAyah.BackColor = &HE0E0E0
End Sub

Private Sub cbopendidikanayah_Enter()
CBOPendidikanAyah.BackColor = &H80000005
End Sub
Private Sub cbopendidikanayah_Exit(ByVal Cancel As MSForms.ReturnBoolean)
CBOPendidikanAyah.BackColor = &HE0E0E0
End Sub

Private Sub txtpengayah_Enter()
TXTPengAyah.BackColor = &H80000005
End Sub
Private Sub txtpengayah_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TXTPengAyah.BackColor = &HE0E0E0
End Sub

Private Sub txtalamatortu_Enter()
TXTAlamatOrtu.BackColor = &H80000005
End Sub
Private Sub txtalamatortu_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TXTAlamatOrtu.BackColor = &HE0E0E0
End Sub

Tahap terakhir, rename Sheet1 dengan 'DataBaseSiswa' untuk menyimpan database. Maka, ketika database disimpan, akan tersimpan pada sheet tsb.

Untuk menjalankan userformnya pilih menu Run lalu Runsub/Userform

Read More

Cara memprint dokumen pada Ms. Excel dengan print area

b

Assalamu'alaikum semuaa

Cara mengeprint dokumen antara Ms. Word dan Excel berbeda, dan banyak orang yang tidak tau, sehingga hasil dokumen setalah diprint tidak sesuai dengan yang diharapkan. dokumen tersebut bis terpotong, acak-acakan, tidak rapi, atau justru mencetak halaman terlalu banyak. Untuk itu ada cara tertentu yang harus digunakan saatakan mengeprint dokumen dari Ms. Excel.

Langkah-langkahnya seperti dibawah ini:

• Buka atau buat terlebih dahulu doumen yang akan anda print, seperti dibawah ini:
• 
  
  
• Lalu,  Klik tab View > Klik Page Break Preview pada grup Workbook Views.
  
  
  
  
• Maka otomatis akan keluar tampilan halaman seperti dibawah, yaitu area yang akan telah kita kerjakan saja.
  
  
  
  
• Kemudian ada cara lain untuk menggantikan caraditas dengan memblok bagian yang hendak kalian print kemudian Klik tab Page Layout > Klik Print Area > Pilih Set Print Area.
  
  
  
  
• Akan keluar tampilan halaman seperti dibawah.
  
  
  
  
• Kemudian klik CTRL+P maka akan muncul pilihan untuk memprint seperti pada Ms.word, nah dibagian ini kita dapat mengecek apakah dokumen yang akan kita printsesuai dengan yang kita inginkan, dengan melihat gambar yang ada disaming menu print itu.
• .
  
  
  
  

Tambahan Tips
Untuk menyimpan data dengan format lain, kalian dapat mengikuti langkah-langkah di bawah ini, kali ini saya mencontohkan dalam format PDF.

•  Dari dokumen yang akan kamu simpan, klik tab file lalu klik save as.
  
  
  
  
  
  
• Pilih format PDF. kemudian klik save.
  
  
  
  

Begitulah cara mengepring dan menyimpan dokumen Ms. Excel, semoga membantu.

Terimakasih :)

Read More

Cara Menggunakan Fungsi Data Validation pada Ms. Excel untuk memberikan pilihan pengisisan data dalam suatu sel

Assalamu'alaikum...

Kali ini saya akan membahas tentag fungsi Data Validation pada Ms. Excel.

Fungsinya yaitu untuk mempermudah dalam memasukkan data, Data Validation juga berguna untuk mencegah data yang tidak valid / tidak diinginkan ke dalam Cell, misalnya saja mungkin kalian tidak ingin memasukan datajenis kelamin selain laki-laki atau perempuan, kalian dapat mengaturnya dengan mudah dengan menggunakan Data Validation, dan kalian dapat membuat peringatan ketika data yang kalian masukkan salah. Dengan Data Validation kalian juga dapat membuat menu Dropdown List. 

Berikut ini langkah-langkah pembuatannya:

1. Buatlah data terlebih dahulu seperti dibawah ini:

2. Blok bagian yang akan menggunkan fungsi data validation. Tapi disini saya terlnjut menulis data yang akan dinput, seharusnya datanya dikosongan terlebih dahulu. Selanjutnya Klik tab Data > Klik Data Validation > Pilih Data Validation

• 
  
  
  
  
• Akan muncul kotak dialog seperti di bawah ini. pada kotak "Allow" kalian dapat memilih beberapa pilihan, pilih list jika kalian hendak membuat list. pada kotak source, kalian mengisinya dengan "L, P" jika kalian hendak membuat jenis kelamin. Tergantung kebutuhan kalian. Klik Ok.
• 
  
  
  
  
  
  
• Begininal data validation untuk jenis list.
• 
  
  
  
  
  
  
• Untuk Input Message kalian dapat menggunakan langkah-langkah seperti tadi. hanya saja klik "Input Message" yang terletak disebelah "Setting" pada kotak dialog Data Validation.
  
  
  
  
  
• Isi Title dan Input Message kemudia Klik Ok.
  
  
  
  
  
• Data Validation Input Message pun Selesai.
  
  
  

 Sekian yang dapat saya sampaikan semoga bermanfaat, sampai jumpa di post selanjutnya :)

Read More