Bulan: Februari 2011

Menghindari User Mengklik tombol X pada USERFORM

Ada kalanya kita menginginkan pengguna software hanya mengklik tombol “cancel” saja untuk keluar form. Artinya klik tanda “X”  tidak diperbolehkan. Maka kodenya seperti di bawah ini:

Private Sub UserForm_QueryClose(Cancel As Integer, _
CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
Cancel = True
MsgBox “Klik Tombol “Keluar” saja ya…!”
End If
End Sub

Semoga bermanfaat

🙂

Iklan

Membuat Nama Range Dinamis di Excel (2007)

Untuk membuat nama range secara dinamis di Excel (2007), maka lakukan langkah-langkah berikut ini:

1. Buka workbook baru (posisikan cursor) pada sel yang akan menjadi patokan (judul) range tersebut

2. Klik Formulas -> Define Name -> Ketikkan Nama Range di Name; misalnya nama_kasir (tidak boleh ada spasi, spasi ganti dg underscore)

3. Scope pilih workbook (atau sheet yang ingin anda jadikan sumber data). Kalo workbook maka formula berlaku untuk semua kertas kerja.

4. Untuk refers to isi dengan:

=OFFSET(Sheet1!$A$2;1;0;COUNTA(Sheet1!$A:$A)-1;1) (untuk sumber data di kolom A)

=OFFSET(Sheet1!$B$2;1;0;COUNTA(Sheet1!$B:$B)-1;1) (untuk sumber data di kolom B)

=OFFSET(Sheet1!$B$2;1;0;COUNTA(Sheet1!$B:$B)-1;1) (untuk sumber data di kolom C)

=OFFSET(LookupLists!$A$2;0;0;COUNTA(LookupLists!$A:$A)-1;1) (cara lain menentukan data range pada kolom A dg nama sheet “lookuplist”)

=OFFSET(LookupLists!$F$2;0;0;COUNTA(LookupLists!$F:$F)-1;1) (cara lain menentukan data range pada kolom B dg nama sheet “lookuplist”)

5. Setelah itu tekan tombol OK. Untuk menguji hasilnya ketikkan nama range tersebut di NameBox Formula Bar (kotak di atas kolom A) dengan nama yang sudah kita masukkan di Define nama tersebut, kemudian tekan Enter. Hasilnya nama yang ada sesuai dengan kolom akan di sorot (terseleksi)

6. Untuk mengedit “define name” yang sudah kita buat tersebut adalah dengan: klik Formulas -> Name Manager -> Maka akan dilihat hasil rekaman yang sudah kita buat tersebut. J (silakan untuk di edit, dihapus, atau membuat nama baru sesuai kebutuhan)

Tips:

Untuk memudahkan penulisan Kode OFFSET di atas, sebaiknya anda mengcopy paste saja tulisannya agar tidak terjadi kesalahan ketik yang menyebabkan “error”

Menyembunyikan dan Menampilkan Sheet Dengan Kode Macro

‘Kode untuk menyembunyikan semua sheet namun menyisahkan 1 sheet saja dengan nama Sheet1

Sub HideAllButOneSheet()

Dim wsSheet As Worksheet

For Each wsSheet In Worksheets

wsSheet.Visible = wsSheet.Name = “Sheet1”

Next wsSheet

End Sub

Berikut ini kode untuk menampilkan semua Sheet

+++++++++++++++++++++++++++++++++++++

‘Kode untuk menampilkan semua sheet

Sub ShowAllSheets()

Dim wsSheet As Worksheet

For Each wsSheet In Worksheets

wsSheet.Visible = True

Next wsSheet

End Sub

Semoga Bermanfaat

🙂