Monday, October 3, 2016

VBA Excel Pemula 14 : Cara Hapus Data Range/Cell Yang Mengandung Huruf Saja Dan Hapus Semua Data Dengan CheckBox


VBA Excel Pemula 14 : Hapus Data Range/Cell Yang Mengandung Huruf Saja Dan Hapus Semua Data Dengan CheckBox - Perhatikan gambar gif diatas..!! dengan mudah anda akan memahami maksud dari posting ini. Dimana pada tombol HAPUS HURUF mengandung perintah untuk menghapus data huruf pada Range/Cell. dan pada tombol CheckBox HAPUS SEMUA, Pada saat CheckBox di Ceks maka data semua dihapus. Caranya cukup mudah membuat tombol perintah seperti pada gambar gif diatas. ikuti saja step by step langkah berikut ini.


Cara Hapus Data Range/Cell Yang Mengandung Huruf Saja Dan Hapus Semua Data Dengan CheckBox :
  • Buka excel dan Pilih Tab Developer selanjutnya klik Visual Basic atau dengan jalan pintas keyboard tekan secara bersamaan tombol  Alt+F11.
  • Pada Jendela Visual Basic Tambahkan UserForm dengan Caption "Aplikasi Pemula 14" dan tambahkan  CommandButton1 dengan Caption "HAPUS HURUF", dan tambahkan CheckBox1 dengan Caption "HAPUS SEMUA"
  • Klik kanan pada CommandButton1 Caption "HAPUS HURUF", Pilih View Code dan masukkan Kode berikut :
Private Sub CommandButton1_Click()
Set Rng = Range("A1:G7") ' Sesuaikan Range dengan kebutuhan
For Each cell In Rng.Cells
If IsNumeric(Left(cell, 1)) = False Then
cell.Clear
End If
Next
End Sub
  • Klik kanan pada CheckBox1 dengan Caption "HAPUS SEMUA", Pilih View Code dan masukkan Kode berikut :
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
Cells.Clear
End If
End Sub

Download : Aplikasi Pemula 14

Demikan posting tentang VBA Excel Pemula 14 : Hapus Data Range - Cell Yang Mengandung Huruf Saja Dan Hapus Semua Dengan CheckBox. Semoga dapat digunakan dan memodifikasi sesuai dengan kebutuhan. Silahkan share juga di kolom kementar kode lainnya yang berhubungan dengan hapus data.

Komentar Anda Sangat Menentukan Kelangsungan Blog ini
EmoticonEmoticon