mba Siti, selamat merayakan dan menghayati Hari Kartini 2010 btw, siapa yang mba Siti maksud dengan KAU itu
comment: macro sangat berguna, terutama bagaimana cara mengaplikasikan Application.OnKey baru tahu saya .... Thank you and regards, Safri www.tebetbarat.com tebet business directory www.tb512.com my virtual home www.tebetbarat.com/artikel/safri.htm about me ________________________________ From: siti Vi <[email protected]> To: [email protected] Sent: Wed, April 21, 2010 10:24:05 AM Subject: [belajar-excel] Memasukkan data TIME ke cell dengan ada detiknya KAU ingin menuliskan tanda waktu saat ini di sebuah cell ! Atetapi KAU tidak ingin hasilnya berubah setiap kali Excel me-Recalculate formula !?! KAU sudah "ampun-ampunan" dengan perilaku fungsi Now() karena dia selalu berubah... Kalok gitu KAU tekan saja kibor Short-Cut resmi CTRL+SHIFT+: Beres !! Tapi sayangnya Excel melalui "makro bikinan Oom Bill Gentholett" itu hanya mau menuliskan TIME dalam format jam dan menit (HH:MM ) doWang.. Truss bgmana dwong..(?) kalau KAU ingin semudah CTRL+SHIFT+: tapi hasilnya HH:MM:SS ?? Tenaaaaang…, kan ada rinsok !! Jangan bilang siapa-siapa, buatlah code persis di bawah ini di sebuah modul standar. Kode "rahasia" ini akan meng-Override "makro bikinan Om Bill Gentholet" tsb" Sub AturKunci() Application. OnKey "+^:", "TuliskanJam" End Sub Sub TuliskanJam( ) ' siti Vi memperingati HariKartini 2010 With ActiveCell .Value = Time() .NumberFormat = "hh:mm:ss" End With End Sub Sub ResetKunci() Application. OnKey "+^:" End Sub Sekali anda jalankan makro AturKunci … (bisa lah melalui Alt + F8 ) maka selanjutnya CTRL+SHIFT+: mau dan rela mengerjakan seperti yang KAU inginkan: yaitu menuliskan jam saat ini di cell-aktip dengan format HH:MM:SS Jika KAU ingin kembali ke "sikap semula" tinggal jalankan makro ResetKunci.. ( ndak ribet,.. ndak bohong,.. asli hasilnya.. ) Akan lebih 'elegant' lagi kalau KAU simpan workbook ini sebagai add-in / *.xla (excel 2003). Harusnya akan lebih asyik, karena KAU dapat "memasang & mencabut" add-in tsb kapan KAU mau; dan efeknya berlaku ke semua workbook yg KAU buka di komputer KAU !! Agar efek tsb otomatis terpasang (dan tercabut) ketika add-in dibuka (dan ditutup) tentunya sebelum KAU men-Save-As *.XLA, KAU harus menambah sedikit akal-akalan seperti menuliskan "Atur" dan "Reset" di module level workbook, dengan memanfaatkan event Open dan event Before Close Private Sub Workbook_Open( ) AturKunci End Sub Private Sub Workbook_BeforeClos e(Cancel As Boolean) ResetKunci End Sub "adapun" mengenai workbook yg dilampirkan bersama posting ini ... dia sudah disiapkan oleh tim dari bluewater untuk menjadi (di-Save As) *.XLA KAU tinggal menikmati saja... ----- serial ©skk edisi April 2010 siti Vi / bluewater, 21 april 2010 / memperingati hari kartini -----
