Beberapa contoh kode VB

Auto Run

Ada beberapa cara untuk membuat macros yang kita buat berjalan secara otomatis ketika pertama kali membuka workbook. Yang pertama adalah Auto Open Method, yang diletakkan di modules, kedua adalah Workbook Open Method, yang diletakkan di pada obyek Workbook (lihat penjelasan pada langkah 3). Dua Contoh kode berikut akan menampilkan pesan “hi” ketika Workbook pertama kali dibuka.

Sub Auto_Open( )

Msgbox “hi”

End Sub

Private Sub Workbook_Open( )

Msgbox “hi”

End Sub

Menghitung Rows, Columns dan Sheet

Kode berikut digunakan untuk menghitung berapa jumlah rows (baris) atau columns(kolom) yang telah kita sorot dengan kursor.

Sub Hitung( )

hitung_baris = Selection.Rows.Count

hitung_kolom = Selection.Columns.Count

MsgBox hitung_baris & " " & hitung_kolom

End Sub

Sub hitung_sheet( )

hitung_sheet = Application.Sheets.Count

Msgbox hitung_sheet

End Sub

Meng-kopi Range

Contoh berikut akan meng-kopi range A1 sampai A3 ke D1 sampai D3

Sub Kopi_Range( )

Range (“A1:A3”).Copy Destination:=Range(“D1:D3”)

End Sub

Waktu Sekarang

Contoh berikut akan menampilkan waktu pada saat ini

Sub sekarang( )

Range (“A1”)= Now

End Sub

Mengetahui Posisi Sel yang Sedang Aktif

Sub posisi( )

baris = ActiveCell.Row

kolom = ActiveCell.Column

Msgbox baris & “,” & kolom

End Sub

Menghapus Baris yang Kosong

Sub hapus_baris_kosong( )

Rng = Selection.Rows.Count

ActiveCell.Offset(0, 0).Select

For i = 1 To Rng

If ActiveCell.Value = "" Then

Selection.EntireRow.Delete

Else

ActiveCell.Offset(1, 0).Select

End If

Next I

End Sub

Menebalkan dan Mewarnai Huruf (Font)

Contoh berikut akan menebalkan dan memberi warna merah pada huruf dimana sel sedang aktif.

Sub tebal_merah( )

Selection.Font.Bold = True

Selection.Font.ColorIndex = 3

End Sub

Mengirimkan Workbook melalui Email

Sub email( )

ActiveWorkbook.SendMail recipients:= ”excel@ahoo.c”

End Sub

Fungsi Excel

Menggunakan fungsi bawaan Excel dalam VBE hampir sama dengan menggunakannya dalam Excel. Misal fungsi round untuk membulatkan sebuah angka, dalam spreadsheet akan terlihat seperti ini

= round(1.2367, 2)

Dalam VBE Anda cukup menggunakan Application kemudian disusul fungsi yang akan dipakai.

Sub bulat( )

ActiveCell = Application.Round(ActiveCell, 2)

End Sub

Menghapus Nama-Nama Range

Contoh berikut akan menghapus semua nama-nama range di dalam workbook Anda

Sub hapus_nama_range( )

Dim NameX As Name

For Each NameX In Names

ActiveWorkbook.Names(NameX.Name).Delete

Next NameX

End Sub

Layar Berkedip

Program dalam macros yang sedang berjalan dapat membuat layar berkedip-kedip, untuk menghentikannya Anda dapat menyisipkan kode berikut.

Application.ScreenUpdating = False

Menuju Range Tertentu

Untuk menuju suatu range tertentu, kode-kode berikut dapat digunakan.

Application.Goto Reference:=”A1”

Atau,

Range(“A1”).Select

Menuju Sheet tertentu

Sedangkan untuk menuju worksheet tertentu, gunakan kode-kode berikut.

Sheets(1).Select

Atau

Sheet1.Select

Untuk menuju Sheet terdepan (nomor 1)

Sheet(“coba”).Select

Untuk menuju Sheet bernama “coba”

Menyembunyikan WorkSheet

Kode berikut berfungsi untuk menyembunyikan Sheet1

Sheet1.Visible = xlSheetVeryHidden

Pengguna tidak dapat membuka sheet yang telah disembunyikan dengan cara ini, hanya dengan kode VBE sheet dapat dibuka kembali.

Input Box

Kode berikut berguna untuk memunculkan Input Box

InputBox(“Masukkan Nama”)

Menyisipkan Baris dan Kolom

Kode berikut akan menyisipkan baris diatas range A1,

Range(“A1”).Select

Selection.EntireRow.Insert

Sedang yang berikut akan menyisipkan satu kolom disamping kiri range A1,

Range(“A1”).Select

Selection.EntireColumn.Insert

Mengatur Ulang Ukuran Range

Selection.Resize(7,7).Select

Memberi Nama Range

Selection.Name = “nama”

Menyimpan File

Kode berikut berguna untuk menyimpan file tanpa memberi nama,

ActiveWorkbook.Save

Sedangkan bila Anda hendak memberi nama (SaveAs), gunakan kode berikut,

ActiveWorkbook.SaveAs Filename:=”C:\coba.xls”

Penjadwalan

Kadang-kadang kita hendak menjadwalkan sebuah tugas kepada Excel, contohnya menyimpan file pada jam-jam tertentu. VBE dapat melakukannya dengan menggunakan fungsi Application.OnTime. Sebagai contoh, kode dibawah ini akan menjalankan prosedur Simpan( ) pada jam 12:00 dan 16:00, prosedur Simpan( ) sendiri berisi perintah untuk menyimpan file,

Sub tugas()

Application.OnTime TimeValue("12:00:00"), "Simpan"

Application.OnTime TimeValue("16:00:00"), "Simpan"

End Sub

Sub Simpan()

ActiveWorkbook.Save

End Sub

Bila Anda hendak merubah jamnya, missal jam 10:03:05, maka rubah TimeValue menjadi TimeValue(“10:03:05”).

Sedangkan bila Anda hendak melakukannya satu jam setelah prosedur tugas( ) dijalankan maka rubahlah kodenya seperti demikian,

Sub tugas()

Application.OnTime Now + TimeValue("01:00:00"), "Simpan"

End Sub

Perhatikan penambahan kata “Now”. Kode-kode di atas bekerja bila disimpan dalam module, bula Anda ingin menyimpannya di dalam Sheet1 (atau worksheet manapun), maka rubahlah “Simpan” menjadi Sheet1.Simpan

Read More

Memulai macro excel

Untuk membuat Makro Excel Anda harus membuka sebuah file Microsoft Excel (contohnya book1.xls). Selanjutnya Anda dapat membuat Makro dengan beberapa cara :

1. Create Macro (Alt + F8)

Pertama- tama buatlah dan bukalah sebuah file Excell bernama contoh.xls. Pada menu Tools, tunjuk Macro lalu tunjuk Macros

, kemudian klik kiri Mouse (atau tekan Alt +F8),

sehingga muncul tampilan seperti berikut,

Ketikan nama Makro yang dikehendaki pada isian Macro name, contohnya : coba. Maka akan tombol create akan aktif

tekan tombol create, sehingga tampilan berikut akan muncul

maka Anda telah membuat sebuah Modul Visual Basic Aplication (VBA) bernama Module1 dan sebuah prosedur VBA bernama coba ().

Anda dapat memilih agar Makro ini bekerja di seluruh file Excel yang terbuka (All Open Workbooks), hanya pada file yang sedang Anda buka (This Workbooks), atau pada file contoh.xls, file Excell dimana Anda membuat Makro-nya. Dengan cara memilih pilihan tersebut pada Macros In.

2. Record New Macro

Cara kedua ini merupakan favorit penulis, sebab dengan cara ini kita dapat membuat kode visual basic tanpa harus menuliskannya. Pada dasarnya, semua operasi Excell dapat dilakukan oleh Macros. Operasi itu dapat dicatat oleh Macros melalui Record New Macros. Kemudian kita dapat mengubah kode-kode VBA yang dihasilkan oleh operasi yang tercatat tersebut.

Untuk memulai mencatat Makro maka pada menu Tools, sorot Macro kemudian sorot Record New Macros lalu klik kiri Mouse,

sehingga tampilan berikut muncul,

Kolom isian “Macro name:” dimana Anda mengisikan nama Macro. Kolom “Shortcut key” bila Anda hendak membuat shortcut key dari keyboard (Ctrl+ tombol keypad yang Anda inginkan). “Store Macro in” merupakan kolom isian untuk menentukan dimana macro akan disimpan, pilihannya adalah This Workbook, New Workbook dan Personal Macro Workbook

. Dan kolom “Description”, bila Anda ingin memberi penjelasan singkat mengenai Macro yang akan Anda catat.

Sebagai contoh, kita akan mencatat Macro bernama “ok”, yang mencatat operasi Excell berupa pengisian sel A1 dengan kata “ok”, dan mempunyai shortcut key Ctrl + q.

Pertama-tama lakukan langkah-langkah yang telah disebutkan sehingga muncul tampilan sebagai berikut,

lalu tekan tombol OK.

Pencatatan sedang dilakukan, isilah sel A1 dengan kata “ok”, lalu pada Menu Tools, sorot Macro, kemudian tekan Stop Recording dan pencatatan akan berhenti.

Untuk melihat kode VBA yang telah tercatat, pada menu Tools sorot Macro, sorot Macros.

Pilihlah “ok” pada “Macro name:” lalu tekan tombol “Edit”, sehingga akan muncul tampilan sebagai berikut,

Cobalah merubah Range(“A1”) menjadi Range(“A2”), simpan dengan menekan gambar disket atau Ctrl + S. Kembali ke contoh.xls, tekan Ctrl + q dari Keyboard, dan lihat apa yang terjadi.

3. Visual Basic Editor (Alt +F11)

Bila Anda sudah mengenal pemograman Visual BASIC, maka cara ini tidaklah sulit. Bahkan kadang-kadang Anda akan sering melakukannya. Untuk menampilkan

Visual Basic Editor Anda cukup menekan Alt+F11 maka tampilan berikut akan muncul,

selanjutanya Anda bisa menyisipkan Module, ClassModule dan UserForm, dan mulai melakukan pemograman seperti yang Anda lakukan di VB6. Seperti Anda lihat lembar kerja (WorkSheet) pada Excell merupakan Objek di VBE.

Read More

SERAT KALATIDA

Sinom

1. Mangkya darajating praja, Kawuryan wus sunyaturi, Rurah pangrehing ukara, Karana tanpa palupi, Atilar silastuti, Sujana sarjana kelu, Kalulun kala tida, Tidhem tandhaning dumadi, Ardayengrat dene karoban rubeda

Keadaan negara waktu sekarang, sudah semakin merosot. Situasi (keadaan tata negara) telah rusah, karena sudah tak ada yang dapat diikuti lagi. Sudah banyak yang meninggalkan petuah-petuah/aturan-aturan lama. Orang cerdik cendekiawan terbawa arus Kala Tidha (jaman yang penuh keragu-raguan). Suasananya mencekam. Karena dunia penuh dengan kerepotan.

2. Ratune ratu utama, Patihe patih linuwih, Pra nayaka tyas raharja, Panekare becik-becik, Paranedene tan dadi, Paliyasing Kala Bendu, Mandar mangkin andadra, Rubeda angrebedi, Beda-beda ardaning wong saknegara

Sebenarnya rajanya termasuk raja yang baik, Patihnya juga cerdik, semua anak buah hatinya baik, pemuka-pemuka masyarakat baik, namun segalanya itu tidak menciptakan kebaikan. Oleh karena daya jaman Kala Bendu. Bahkan kerepotan-kerepotan makin menjadi-jadi. Lain orang lain pikiran dan maksudnya.

3.Katetangi tangisira, Sira sang paramengkawi, Kawileting tyas duhkita, atamen ing ren wirangi, Dening upaya sandi, Sumaruna angrawung, Mangimur manuhara, Met pamrih melik pakolih, Temah suka ing karsa tanpa wiweka

Waktu itulah perasaan sang Pujangga menangis, penuh kesedihan, mendapatkan hinaan dan malu, akibat dari perbuatan seseorang. Tampaknya orang tersebut memberi harapan menghibur sehingga sang Pujangga karena gembira hatinya dan tidak waspada.

4.Dasar karoban pawarta, Bebaratun ujar lamis, Pinudya dadya pangarsa, Wekasan malah kawuri, Yan pinikir sayekti, Mundhak apa aneng ngayun, Andhedher kaluputan, Siniraman banyu lali, Lamun tuwuh dadi kekembanging beka

Persoalannya hanyalah karena kabar angin yang tiada menentu. Akan ditempatkan sebagai pemuka tetapi akhirnya sama sekali tidak benar, bahkan tidak mendapat perhatian sama sekali. Sebenarnya kalah direnungkan, apa sih gunanya menjadi pemuka/pemimpin ? Hanya akan membuat kesalahan-kesalahan saja. Lebih-lebih bila ketambahan lupa diri, hasilnya tidak lain hanyalah kerepotan.

5. Ujaring panitisastra, Awewarah asung peling, Ing jaman keneng musibat, Wong ambeg jatmika kontit, Mengkono yen niteni, Pedah apa amituhu, Pawarta lolawara, Mundhuk angreranta ati, Angurbaya angiket cariteng kuna

Menurut buku Panitisastra (ahli sastra), sebenarnya sudah ada peringatan. Didalam jaman yang penuh kerepotan dan kebatilan ini, orang yang berbudi tidak terpakai. Demikianlah jika kita meneliti. Apakah gunanya meyakini kabar angin akibatnya hanya akan menyusahkan hati saja. Lebih baik membuat karya-karya kisah jaman dahulu kala.

6. Keni kinarta darsana, Panglimbang ala lan becik, Sayekti akeh kewala, Lelakon kang dadi tamsil, Masalahing ngaurip, Wahaninira tinemu, Temahan anarima, Mupus pepesthening takdir Puluh-Puluh anglakoni kaelokan

Membuat kisah lama ini dapat dipakai kaca benggala, guna membandingkan perbuatan yang salah dan yang betul. Sebenarnya banyak sekali contoh -contoh dalam kisah-kisah lama, mengenai kehidupan yang dapat mendinginkan hati, akhirnya “nrima” dan menyerahkan diri kepada kehendak Tuhan. Yah segalanya itu karena sedang mengalami kejadian yang aneh-aneh.

7. Amenangi jaman edan, Ewuh aya ing pambudi, Milu edan nora tahan, Yen tan milu anglakoni, Boya kaduman melik, Kaliren wekasanipun, Ndilalah karsa Allah, Begja-begjane kang lali, Luwih begja kang eling lawan waspada

Hidup didalam jaman edan, memang repot. Akan mengikuti tidak sampai hati, tetapi kalau tidak mengikuti geraknya jaman tidak mendapat apapun juga. Akhirnya dapat menderita kelaparan. Namun sudah menjadi kehendak Tuhan. Bagaimanapun juga walaupun orang yang lupa itu bahagia namun masih lebih bahagia lagi orang yang senantiasa ingat dan waspada.

8. Semono iku bebasan, Padu-padune kepengin, Enggih mekoten man Doblang, Bener ingkang angarani
Nanging sajroning batin, Sejatine nyamut-nyamut, Wis tuwa arep apa, Muhung mahas ing asepi, Supayantuk pangaksamaning Hyang Suksma

Yah segalanya itu sebenarnya dikarenakan keinginan hati. Betul bukan ? Memang benar kalau ada yang mengatakan demikian. Namun sebenarnya didalam hati repot juga. Sekarang sudah tua, apa pula yang dicari. Lebih baik menyepi diri agar mendapat ampunan dari Tuhan.

9.Beda lan kang wus santosa, Kinarilah ing Hyang Widhi, Satiba malanganeya, Tan susah ngupaya kasil
Saking mangunah prapti, Pangeran paring pitulung, Marga samaning titah, Rupa sabarang pakolih, Parandene maksih taberi ikhtiyar

Lain lagi bagi yang sudah kuat. Mendapat rakhmat Tuhan. Bagaimanapun nasibnya selalu baik. Tidak perlu bersusah payah tiba-tiba mendapat anugerah. Namun demikian masih juga berikhtiar.

10. Sakadare linakonan, Mung tumindak mara ati, Angger tan dadi prakara, Karana riwayat muni, Ikhtiyar iku yekti, Pamilihing reh rahayu, Sinambi budidaya, Kanthi awas lawan eling, Kanti kaesthi antuka parmaning Suksma

Apapun dilaksanakan. Hanya membuat kesenangan pokoknya tidak menimbulkan persoalan. Agaknya ini sesuai dengan petuah yang mengatakan bahwa manusia itu wajib ikhtiar, hanya harus memilih jalan yang baik. Bersamaan dengan usaha tersebut juga harus awas dan waspada agar mendapat rakhmat Tuhan.

11. Ya Allah ya Rasulullah, Kang sipat murah lan asih, Mugi-mugi aparinga, Pitulung ingkang martani
Ing alam awal akhir, Dumununging gesang ulun, Mangkya sampun awredha, Ing wekasan kadi pundi
Mula mugi wontena pitulung Tuwan

Ya Allah ya Rasulullah, yang bersifat murah dan asih, mudah-mudahan memberi pertolongan kepada hambamu disaat-saat menjelang akhir ini. Sekarang kami telah tua, akhirnya nanti bagaimana. Hanya Tuhanlah yang mampu menolong kami.

12. Sageda sabar santosa, Mati sajroning ngaurip, Kalis ing reh aruraha, Murka angkara sumingkir, Tarlen meleng malat sih, Sanityaseng tyas mematuh, Badharing sapudhendha, Antuk mayar sawetawis, BoRONG angGA saWARga meSI marTAya

Mudah-mudahan kami dapat sabar dan sentosa, seolah-olah dapat mati didalam hidup. Lepas dari kerepotan serta jauh dari keangakara murkaan. Biarkanlah kami hanya memohon karunia pada MU agar mendapat ampunan sekedarnya. Kemudian kami serahkan jiwa dan raga dan kami

Read More

Jaman Edan

Amenangi jaman edan
Ewuh aya ing pambudi
Milu edan nora tahan
Yen tan milu anglakoni
Boya kaduman melik
Kaliren wekasanipun
Ndilalah karsa Allah
Begja-begjane kang lali
Luwih begja kang eling lawan waspada

Hidup didalam jaman edan, memang repot.
Akan mengikuti tidak sampai hati, tetapi kalau tidak mengikuti geraknya jaman
tidak mendapat apapun juga. Akhirnya dapat menderita kelaparan.
Namun sudah menjadi kehendak Tuhan. Bagaimanapun juga walaupun orang yang lupa itu bahagia namun masih lebih bahagia lagi orang yang senantiasa ingat dan waspada.

Sageda sabar santosa
Mati sajroning ngaurip
Kalis ing reh aruraha
Murka angkara sumingkir
Tarlen meleng malat sih
Sanityaseng tyas mematuh
Badharing sapudhendha
Antuk mayar sawetawis
BoRONG angGA saWARga meSI marTAya

Mudah-mudahan kami dapat sabar dan sentosa,
seolah-olah dapat mati didalam hidup.
Lepas dari kerepotan serta jauh dari keangakara murkaan.
Biarkanlah kami hanya memohon karunia pada MU agar mendapat ampunan sekedarnya.
Kemudian kami serahkan jiwa dan raga dan kami.

Read More

Menghilangkan Icon Obeng dan Tang Pada Blog

Setiap Widget yang kita pasang di blog di bawah Widget tersebut pasti ada tanda obeng dan tang, nah itu gunanya untuk mempercepat pengeditan widget yang kita pasang. Namun ada juga yang merasa terganggu oleh keberadaan Obeng Dan Tang tersebut. Tetapi menurut saya itu tidak mengganggu karena Obeng dan Tang tersebut hanya muncul pada saat kita login,

jika kita sudah logout maka otomatis Obeng dan Tang tersebut akan hilang :
Baiklah bagi yang merasa terganggu atas keberadaan Obeng dan Tang Tersebut, Untuk menghilangkannya ikuti langkah - langkah berikut :

1. Login ke blogger kamu seperti biasa
2. Pilih Tata Letak (layout)
3. Pilih Edit HTML.
4. Cari kode seperti ini :

]]> </b:skin>

5.Copy paste kode berikut persis di atas kode yang tadi :

.quickedit{ display.none;}

Klik SIMPAN TEMPLATE dan lihat hasilnya.......
7. Ucapkan Selamat Tiggal Pada Obeng dan Tang :

Selamat Mencoba

Read More

MEMBUAT FRAME POSTING

Kode dibawah ini sangat berguna dalam penulisan blog yang memerlukan frame atau bingkai,
Contoh kalimat :

Contoh Kalimat Dalam Frame

Untuk menuliskan posting di atas digunakan kode :

<code><p align="left"><textarea name="code" rows="1" cols="40">Contoh Kalimat Dalam Frame </textarea></p></code>

Read More

MENAMPILKAN KODE HTML PADA POSTING

Untuk menampilkan kode html pada posting dengan cara
Memberi kode <code> pada awal scrip (kode)

Memberi kode </code> pada akhir scrip (kode)

Mengganti kode < di ganti dengan kode &lt;

Mengganti kode > di ganti dengan kode &gt;

Contoh kalimat :

<p align="left"><textarea name="code" rows="1" cols="40">Contoh Kalimat Dalam Frame</textarea></p>

Menjadi :

<code>&lt;p align="left"&gt;&lt;textarea name="code" rows="1" cols="40"&gt;Contoh Kalimat Dalam Frame&lt;/textarea>&lt;/p&gt;</code>

Read More