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 CTRL+SHIFT+: Beres !!
Tapi sayangnya Excel melalui "makro bikinan Oom Bill Gentholett" itu hanya mau
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 !!
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"
Kode "rahasia" ini akan meng-Override "makro bikinan Om Bill Gentholet" tsb"
Sub AturKunci()
Application.OnKey "+^:", "TuliskanJam"
End Sub
Application.
End Sub
Sub TuliskanJam()
' siti Vi memperingati HariKartini 2010
With ActiveCell
.Value = Time()
.NumberFormat = "hh:mm:ss"
End With
End Sub
With ActiveCell
.Value = Time()
.NumberFormat = "hh:mm:ss"
End With
End Sub
Sub ResetKunci()
Application.OnKey "+^:"
End Sub
Application.
End Sub
Sekali anda jalankan makro AturKunci … (bisa lah melalui Alt + F8 )
maka selanjutnya CTRL+SHIFT+: mau dan rela mengerjakan seperti yang
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
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
AturKunci
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ResetKunci
End Sub
ResetKunci
End Sub
"adapun" mengenai workbook yg dilampirkan bersama posting ini ...
dia sudah disiapkan oleh tim dari bluewater untuk menjadi (di-Save As) *.XLA
enjoy it !!
-----
serial ©skk edisi April 2010
siti Vi / bluewater, 21 april 2010 / memperingati hari kartini
-----
__._,_.___
+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Horeeee... tembus 14,000 members... |
| http://www.facebook.com/group.php?gid=37671048001&ref=mf |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message, melecehkan, tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan winzip jika perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/ |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau... |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html |
+-------------------------------------------------------------------+
| Message lama ada di : |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id] |
| http://www.mail-archive.com/xl-mania@yahoogroups.com |
+-------------------------------------------------------------------+
| Horeeee... tembus 14,000 members... |
| http://www.facebook.com/group.php?gid=37671048001&ref=mf |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message, melecehkan, tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan winzip jika perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/ |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau... |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html |
+-------------------------------------------------------------------+
| Message lama ada di : |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id] |
| http://www.mail-archive.com/xl-mania@yahoogroups.com |
+-------------------------------------------------------------------+
MARKETPLACE
.
__,_._,___
Nenhum comentário:
Postar um comentário