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

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”

Memilih Sheet Lebih Dari Satu Dari Workbook

Untuk memilih Sheet lebih dari 1, maka menggunakan perintah Array Seperti kode di bawah ini:

Sub pilihbyksheet()
Worksheets(Array(“Sheet1″, “Sheet2″, “Sheet3″)).Select
End Sub

Maka tampilan Sheet akan berubah menjadi  “terpilih” kemudian tambahkan kode-kode sesuai dengan keinginan kita untuk mengeksekusi program selanjutnya.

Semoga Bermanfaat

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

Paduan Alumunium Untuk Pipa Pengeboran Panas Bumi 1

1. PENDAHULUAN

Tujuan dari artikel  ini adalah untuk menentukan peluang penggunaan logam paduan  aluminium (ADP) sebagai pipa pemboran  di lingkungan pengeboran panas bumi.

Saat ini teknologi bidang pemboran sedang melakukan ujicoba untuk membor sumur lebih dalam, lebih cepat, dan mampu mengurangi biaya. Tujuannya adalah  untuk menjadikan energi panas bumi menjadi lebih ekonomis dan mampu bersaing.

Paduan logam alumunium yang digunakan sebagai pipa pemboran kadang-kadang disebut sebagai  pipa pemboran aluminium ringan yang sudah digunakan di rusia selama bertahun-tahun. Logam ini memiliki keuntungan antara lain:

1. Memungkinkan pipa pemboran dengan diameter casing yang lebih besar dan dinding yang lebih tebal akan meningkatkan aliran fluida di annulus (karena area annulus menjadi lebih sempit)
2. Mengurangi “pressure loss” dari dalam pipa pemboran, sehingga pompa yang dibutuhkan dengan spesifikasi lebih rendah, namun hasil yang diperoleh sama
3. Mengurangi beban derrick dan beban per panjang pipa dibanding  pipa baja
4. Meningkatkan gaya apung dalam cairan pemboran, sehingga rig yang digunakan lebih kecil atau menghasilkan penekanan yang lebih dalam dengan kondisi rig yang digunakan saat ini
5. Mengurangi sejumlah tegangan beberapa parameter desain pemboran

Skope materi yang akan dipelajari melalui artikel  ini adalah:

1. Batasan temperatur
2. Beban kritis tekukan (buckling load)
3. Kekuatan material
4. Kandungan kimia fluida panas bumi
5. Kehilangan tekanan fluida pemboran dan hidrolik
6. Perbandingan beban
7. Peralatan  sambungan
8. Analisa keekonomian

Selamat Pagi…

Indahnya pagi ini, indahnya seperti biasa, mentari menyembul dari timur, dan menyinari kami  masuk ke dalam kamar.

Dengan malasnya aku bangun, tetapi karena pada saat subuh ada “sesuatu”, maka tiada pilihan lain selain “mandi”, padahal airnya dingin banget…. hoamm….masih ngantuk rupanya…

Hari ini mau fokus untuk menyelesaikan matakuliah, matakuliah terakhir yang aku ambil di semester ini, mata kuliah yang telah menjadikan aku begitu “betah” tinggal untuk beberapa lama di sini, di kota ini.

Entah karena terpaksa, entah karena memang suratan takdir, maka kuterima semua ini sebagai ujian. hohoho… ujian ke sekian kalinya. Tidak banyak yang aku harapkan, cuma satu kata “lulus” itu sudah lebih dari cukup.