Dampak Laptop Bagi Siswa

Dunia serba canggih, bahkan Einstein tak ada apa-apanya meskipun hanya di bandingkan dg Smartphone. Kemajuan tegnologi membawa perubahan yg besar terhadap peradaban umat .

Ojo Dumeh

Falsafa kuno, dari bahasa Jawa yang memiliki arti ojo = jangan Dumeh = sombong,pamer,lupa diri.ketika seseorang sudah dihinggapi "ojo dumeh" ojo dumeh....SehatJangan sombong ketika saat ini diberi kesehatan.

Makna Aksara Jawa

Petuah Jawa Dua puluh Aksara Jawa yang tersusun dalam empat baris itu dalam sejarahnya memiliki muatan cerita

Mengendalikan Range (Turial VBE)

Mengendalikan Range merupakan hal yang penting dalam pemograman VBE.

SERAT KALATIDA

Sinom 1. Mangkya darajating praja, Kawuryan wus sunyaturi, Rurah pangrehing ukara, Karana tanpa palupi, Atilar silastuti, Sujana sarjana kelu, Kalulun kala tida,

April 24, 2018

Alun Alun Pasuruan

Alun-alun Pasuruan terletak ditengah kota Pasuruan. Luas alun-alun tersebut adalah 19.404 mdengan denah segi empat memanjang. Alun-alun Kota Pasuruan digunakan oleh penduduk sekitar untuk berkumpul, rekreasi atau sarana jogging. Alun-alun sekarang jika dibandingkan dengan masa lampau (tahun 1930-an) maka terlihat jauh berbeda.Disebelah barat alun-alun terdapat Masjid Agung Pasuruan yang menandakan alun-alun tersebut merupakan bagian dari halaman masjid dan merupakan konsep alun-alun lama. Sebelah utara juga terdapat gedung pemerintahan bupati.
Dari beberapa literatur yang ditemukan, Kota Pasuruan merupakan bekasKota Hindia Belanda lama (Oud Indische Stad) yang mana alun-alun sebagai pusat kota berdampingan dengan gedung pemerintahan Pribumi (diwakili oleh Bupati), sedangkan gedung pemerintahan kolonial Belanda (diwakili oleh Residen atau Asisten Residen maupun burgemeester) yang berada di sisi lain kota.

FALSAFAH KEHIDUPAN

Berikut kumpulan falsafah orang jawa tentang kehidupan beserta arti penjelasannya erat dengan pedoman hidup masyarakat Jawa :


  1. “Sura Dira Jayaningrat, Lebur Dening Pangastuti”
Artinya segala sifat keras hati, picik, angkara murka, hanya bisa dikalahkan dengan sikap bijak, lembut hati dan sabar.
  1. “Memayu Hayuning Bawana, Ambrasta dur Hangkara”
Maksunya Manusia hidup di dunia harus mengusahakan keselamatan, kebahagiaan dan kesejahteraan; serta memberantas sifat angkara murka, serakah dan tamak).
  1. “Urip Iku Urup” (Hidup itu Nyala)
Maksunya Hidup itu hendaknya memberi manfaat bagi orang lain disekitar kita, semakin besar manfaat yang bisa kita berikan tentu akan lebih baik, tapi sekecil apapun manfaat yang dapat kita berikan, jangan sampai kita menjadi orang yang meresahkan masyarakat.
  1. “Aja Gumunan, Aja Getunan, Aja Kagetan, Aja Aleman”
Maksunya Jangan mudah terheran-heran, Jangan mudah menyesal, Jangan mudah terkejut- kejut, Jangan mudah kolokan atau manja.
  1. “Datan Serik Lamun Ketaman, Datan Susah Lamun Kelangan”
Maksunya Jangan gampang sakit hati manakala musibah menimpa diri; Jangan sedih manakala kehilangan sesuatu.
  1. “Ngluruk Tanpa Bala, Menang Tanpa Ngasorake, Sekti Tanpa Aji-Aji, Sugih Tanpa Bandha”
Maksunya Berjuang tanpa perlu membawa massa, Menang tanpa merendahkan atau mempermalukan. Berwibawa tanpa mengandalkan kekuasaan, kekuatan, kekayaan atau keturunan, Kaya tanpa didasari kebendaan.
  1.  “Aja Milik Barang Kang Melok, Aja Mangro Mundak Kendo”
Maksunya Jangan tergiur oleh hal-hal yang tampak mewah, cantik, indah; Jangan berfikir mendua agar tidak kendor niat dan kendor semangat.

FILOSOFI JAWA KUNO

  1. “Aja Kuminter Mundak Keblinger, Aja Cidra Mundak Cilaka”
Maksunya Jangan merasa paling pandai agar tidak salah arah, jangan suka berbuat curang agar tidak celaka.
  1. “Aja Ketungkul Marang Kalungguhan, Kadonyan lan Kemareman”
Maksunya Janganlah terobsesi atau terkungkung oleh keinginan untuk memperoleh kedudukan, kebendaan dan kepuasan duniawi.
  1. “Nerimo ing pandum”
Makna dari kata adalah mengandung Arti yang mendalam menunjukan pada sikap Kejujuran, keiklasan, ringan dalam bekerja dan ketidakinginan untuk korupsi.
Inti filosofi ini adalah Orang harus iklas menerima hasil dari usaha yang sudah dia kerjakan.
  1. “Alon-alon waton klakon”
Maksunya Filosofi ini sebenarnya berisikan pesan tentang safety/keselamatan. Padahal kandungan maknanya sangat dalam. Filosofi ini mengisyaratkan tentang kehati-hatian, waspada, istiqomah, keuletan, dan yang jelas tentang safety.
  1. “Aja Adigang, Adigung, Adiguno”
Maksudnya adalah Jaga kelakuan / tatakrama, jangan sombong dengan kekuatan, kedudukan, ataupun latarbelakangmu.

 FILOSOFI JAWA TENTANG CINTA

  1. “Mangan ora mangan sing penting ngumpul”
Maksunya Makan tidak makan yang terpenting adalah bisa berkumpul (kebersamaan).
Filosofi ini merupakan sebuah peribahasa. Kalimat peribahasa tidaklah tepat jika diartikan secara aktual.
Filosofi ini sangatlah penting bagi kehidupan berdemokrasi. Kalau bangsa kita ini mendasarkan demokrasi dengan falsafah diatas pastinya negara kita akan aman, tentram dan sejahtera.
Filsafah “Mangan ora mangan” melambangkan eforia demokrasi, yang mungkin satu pihak mendapatkan sesuatu (kekuasaan) sedangkan pihak yang lain tidak. Yang tidak dapat apa-apa tetap legowo atau menerima dengan lapang dada.
Dan kata dari “Sing penting ngumpul” melambangkan berpegang teguh pada persatuan, kebersamaan, yang artinya bersatu untuk tujuan bersama.
Filosofi dari kalimat peribahasa “Mangan ora mangan sing penting kumpul” adalah filosofi yang cocok yang dapat mendasari kehidupan demokrasi bangsa Indonesia agar tujuan bangsa ini terwujud.
  1. “Wong jowo iki gampang di tekuk – tekuk”
Maksud dari Filosofi ini juga merupakan ungkapan peribahasa yang dalam bahasa Indonesia adalah ‘Orang Jawa itu mudah ditekuk-tekuk’.
Ungkapan ini menunjukan orang jawa itu fleksibel dalam kehidupan. Kemudahan bergaul dan kemampuan hidup di level manapun baik kaya, miskin, pejabat atau pesuruh sekali pun. Orang yang memegang filosofi ini akan selalu giat dalam bekerja dan selalu ulet dalam menggapai cita-citanya.
  1. “Saiki jaman edan yen ora edan ora komanan, sing bejo sing eling lan waspodo”
Maksudnya adalah sekarang zaman edan (gila), yang nggak endan nggak bakal kebagian, Hanya orang yang ingat kepada Allah dan waspada yang beruntung.
Disini saja juga tidak cukup dan waspada terhadap duri-duri kehidupan yang setiap saat bisa datang dan menghujam kehidupan, sehingga bisa mengakibatkan musibah yang berkepanjangan
Itulah beberapa pandangan hidup, pedoman dan prinsip yang telah diterapkan sejak dahulu yang biasa menjadi nasehat orang jawa. Filosofi jawa meskipun kini semakin luntur dimakan zaman, namun akan selalu tertancap di jiwa orang jawa.

Mei 26, 2012

Dampak Laptop Bagi Siswa

Dunia serba canggih, bahkan Einstein tak ada apa-apanya meskipun hanya di bandingkan dg Smartphone. Kemajuan tegnologi membawa perubahan yg besar terhadap peradaban umat manusia.
Bahkan untuk mengikuti peradaban itu, banyak yang merekomendasikan agar pendidikan di kulturasi dengan tegnologi dengan harapan dapat meningkatkan mutu pendidikan di Indonesia, karena mempersiapkan para pelajar untuk masuk dalam dunia modern.

Saat ini budaya pelajar Indonesia, menenteng laptop ke sekolah atau bahkan sekolah memberikan fasilitas hot spot, dengan alasan demi peningkatan mutu pendidikan dan wawasan siswa. Tapi hal itu banyak yang ragu dan mengkritisi karena realita terkesan banyak siswa sekarang memanfaatkan laptop untuk main games dan menggunakan internet untuk chatting, mencari jodoh, situs porno dan kegiatan lain yg tidak ada hubungannya dengan pelajaran sekolah/pendidikan, hanya untuk menghabiskan jam kosong/istirahatnya di sekolah.

Fakta 99% waktu istirahat anak di sekolah gunakan untuk kegiatan di atas.
Saat waktu istirahat habis, saat itulah siswa harus menutup laptopnya untuk masuk kelas, dan berusaha melupakan keasikannya. Saat inilah beberapa hal menarik terjadi, yang pasti anak kecewa karena sedang seru-serunya nge games,chatting atau browsing diganggu untuk belajar dikelas lagi yg bisa dikatakan dull boring (tidak menarik dan membosankan). Jelas perasaan itu dilampiaskan kepada guru dan pelajaran yg di terima. Otak dan jiwanya masih tertinggal di laptop, sehingga pelajaran yg disampaikan guru akan sia-sia. Bisa ditarik kesimpulan mutu pendidikan tidak malah menjadi baik

SDM Indonesia dikuasai tegnologi bukan menguasai tegnologi

Yang perlu diperhatikan dalam pendidikan indonesia adalah bagaimana mencetak generasi yang cerdas gigih dan berwawasan. Yang perlu dibangun dalam dunia pendidikan bukanlah tegnologi tetapi otak manusia.

Jika tegnologi fisik ditekankan dalam dunia pendidikan, akan tercipta sarjana-sarjana yg dikuasai tegnologi. Bisa dikatakan laptop pribadi milik siswa hanya dapat menciptakan pelajar teknis yg berbahaya secara moral.
Hal itu akan menciptakan generasi yg bermental cari gampang (cth efek: cari uang gampang korupsia aja,nyolong aja) dan tidak mengembangkan daya kreatifitas bagi kehidupannya sendiri dan orang lain.
Menciptakan manusia yg terus menjadi konsumen tegnologi dan tidak pernah menjadi produsen. Menciptakan generasi yg terus dijajah orang yg menemukan tegnologi baru…

Apakah membawa laptop ke Sekolah ada efek positifnya?

Sudah kita ketahui bahwa komputer atau laptop adalah alat yg membantu (guru dan siswa) untuk membuat pelajaran yg lebih variatif dan menarik. Jadi, pada dasarnya pemakaian laptop di sekolah punya dampak yg positif selama dalam rambu-rambu dan dapat bertanggungjawab…

Oktober 22, 2011

OJO DUMEH



OJO DUMEH
Falsafa kuno, dari bahasa Jawa yang memiliki arti ojo = jangan Dumeh = sombong,pamer,lupa diri.ketika seseorang sudah dihinggapi "ojo dumeh"

ojo dumeh....SehatJangan sombong ketika saat ini diberi kesehatan, ingatlah ketika sakit tak berdaya..hilang indra perasa,tidur tak nyenyak,badan terasa ingin dibuang, ketakutan datangnya kematian.
Fir Aun...! lupa diri ketika kesehatan terlimpahkan dalam hidupnya, kesakitan tiada datang. Babtis dirinya "RAJA DI RAJA", "MANUSIA YANG MENUHANKAN DIRI" ternyata dia juga mati...tak berbekas, tingggal kerangkah sebagai bahan peringatan bagi manusia yang mau belajar.

Februari 17, 2011

Makna Aksara Jawa

Petuah Jawa


Dua puluh Aksara Jawa yang tersusun dalam empat baris itu dalam sejarahnya memiliki muatan cerita :

Ono Caroko = ada utusan (abdi setia)
Doto Sawolo = saling berseteru
Podho Joyonyo = sama-sama sakti
Mogo Bothongo = Keduanya jadi bangkai
Filsafat Jawa kuno ini mengajarkan diperlukannya koordinasi, sinergi, komunikasi satu sama lain dan juga mawas diri.

sedangkan arti dari persatu katanya adalah
HA NA CA RA KA:
Ha: Hurip = hidup
Na: Legeno = telanjang
Ca: Cipta = pemikiran, ide ataupun kreatifitas
Ra: Rasa = perasaan, qalbu, suara hati atau hati nurani
Ka: Karya = bekerja atau pekerjaan.

November 22, 2010

Mengendalikan Range (Turial VBE)

Mengendalikan Range merupakan hal yang penting dalam pemograman VBE. Mari kita mulai, pertama buatlah sebuah file contoh.xls. Kemudian buatlah sebuah makro dengan cara Record New Maro,



beri nama macro tersebut dengan nama Coba, dan shortkey tombol q di keyboard Anda.



ketikan kata coba pada range A1



lalu Stop Recording Macro



Lihat hasil pencatatan pada Visual Basic Editor Excell Anda,



kode Macros akan tertulis pada module1,



Range("A1").Select

Merupakan perintah pada VB Excell untuk memilih range A1, bila “A1” diubah menjadi “A4” maka kata “coba” akan dituliskan pada range A4.

ActiveCell.FormulaR1C1 = "coba"

Berarti pada sel aktif yang telah dipilih (select) rumus (Formula) “coba” akan dituliskan. Activecell sendiri menunjuk pada sel dimana kursor aktif.



Rangkaian kode di atas dapat disederhanakan dengan kode seperti berikut ;



bila dijalankan, maka kode ini akan menghasilkan yang sama dengan sebelumnya.



Menggunakan Range dengan Cell

Kita dapat membuat sebuah range pada Excell sebagai “titik pusat” lalu dengan bantuan Cells(Rowindex, Columnlindex)., kita dapat menempatkan sebuah nilai atau rumus di sekitar Range yang menjadi pusat. Sebagai contoh tuliskan kode ini pada Sub Coba()

Range("D5").Cells(1, 1).Value = "pusat"

Range("D5").Cells(0, 1).Value = "atas"

Range("D5").Cells(2, 1).Value = "bawah"

Range("D5").Cells(1, 0).Value = "kanan"

Range("D5").Cells(1, 2).Value = "kiri"



jalankan program, maka hasilnya akan seperti demikian;



dapat dilihat Range(“D5”).Cells(1,1) adalah Range D5 yang menjadi pusat.

Bila Range tidak disebutkan maka secara default , Range yang menjadi titik pusat adalah Range A1. Anda harus berhati-hati ketika memilih range-range yang berada di tepi, seperti A1, A2, B1, C1, dst. Sebab tidak ada lagi range di atas atau di tepi kanan range-range tersebut.



Bila kita menginginkan sel yang menjadi titik pusat adalah sel dimana kursor aktif, maka kode berikut dapat digunakan

ActiveCell.Offset(0, 0).Value = "pusat"

ActiveCell.Offset(0, 1).Value = "kiri"

ActiveCell.Offset(0, -1).Value = "kanan"

ActiveCell.Offset(1, 0).Value = "bawah"

ActiveCell.Offset(-1, 0).Value = "atas"



buka Sheet1, pilih Range D5



lalu tekan Ctrl +q, maka akan menghasilkan



kemudian pilih range H15, tekan Ctrl+q maka akan dihasilkan,



Selain dengan kode diatas, terdapat cara lain



bila dijalankan maka hasil yang sama akan didapatkan.

Menunjuk sel pada worksheet tertentu

Karena ditulis di module maka kode-kode diatas bekerja pada Worksheet yang aktif. Artinya bila Sheet1 yang sedang tebuka maka program aka dijalankan pada Sheet1. Bagaimana bila kita menginginkan agar range yang ditunjuk berada di dalam sheet tertentu. Caranya cukup dengan menuliskan nama worksheet di depan range, sebagai contoh:

Sheet1.Range(“A1”).value=”oke”

Akan mengacu pada range A1 pada Worksheet Sheet1, bila kita menginginkan agar range A1 pada Sheet2 maka ganti kode sebelumnya dengan:

Sheet2.Range(“A1”).value=”oke”

Cara penulisan lain juga dapat dilakukan, contohnya:

Set Pesan = Sheets("sheet3").Range("A1")

Set Pesan = Sheets(2).Range("A1")



Multiple Range

Kita sudah mempelajari bagaimana menujuk sebuah range tunggal sebagai sasaran pemograman. Sekarang bagaimana bila kita menginginkan multiple range.

Range (“A1:C3”).value = ”oke”

Range(“A1”,”D4”).value = “oke2”

Kode-kode di atas menunjuk pada multiple range. Pada kode pertama yang ditunjuk adalah range A1 sampai C3, sedanga yang kedua adalah A1 sampai D4.

Range Bernama

Bagi Anda yang sering menggunakan Excel, mungkin sering memberi nama pada sebuah range untuk mempermudah pekerjaan. Pertanyaan dapatkah menunjuk range bernama tersebut dalam VB Excel ? jawabannya, DAPAT!!

Misalkan Anda memiliki sebuah range yang bernama “sel”, maka range ini dapat ditunjuk dengan kode Range (“sel”), sebagai contoh:

Range (“sel”).value = ”ini sel”

Membuat Sebuah Variabel dari Range

Membentuk sebuah variabel dari range sangatlah mudah pada VBE. Tujuannya agar mempermudah dalam pemograman. Pertama kita harus membuat dimensinya terlebih dahulu, caranya dengan menuliskan kode seperti ini:

Dim Pesan As Range

Kemudian kita set variabel tersebut, sesuai dengan range yang kita inginkan ;

Set Pesan = Range("A1")

Atau

Set Pesan = Range("A1").Cells(1, 2)

atau

Set Pesan = Sheet1.Range("A1")

atau

Set Pesan = Sheets("Sheet3").Range("A1")

Kemudian kita dapat melakukan operasi range pada variabel yang telah dibentuk. Sebagai contoh

Dim Pesan As Range

Set Pesan = Sheet1.Range("A1")

Pesan.Value = "pesan nih"

Pesan(1, 2).Value = "pesan kedua"

Range A1 pada Sheet1 akan tertulis “pesan nih” dan range A2 akan tertulis “pesan kedua”. Sebab Pesan(1,2) sama dengan Sheet1.Range(“A1”).Cells(1,2).

Sebenarnya kita dapat membentuk variabel tanpa membuat dimensinya terlebih dahulu, tetapi cara ini idak dianjurkan karena memboroskan memori. Caranya adalah seperti demikian:

Set Pesan = Sheet1.Range("A1")

Pada kasus ini perintah-perintah berikut bisa bekerja,

Pesan.Value = "pesan nih"

Pesan(1, 2).Value = "pesan kedua"

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