tahap mendeteksi apakah tombol CapsLock sedang On atau Off
If CBool(GetKeyState(20)) = False Then...
kayaknya sudah oke...
"tapekno".. giliran kita soft-pencet CAPSLOCK /melalui code
Application.SendKeys ("{CAPSLOCK}")
di pc ku kok ndak bereaksi, bandel amat si lampu capslock itu....
mohon di coba di pc lain....
ini juga sambil minta saran temans lain, kurangnya di mana..
'-----ditulis di 'level workbook module'-----
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As
Integer
Private Sub Workbook_Open()
If CBool(GetKeyState(20)) = False _
Then Application.SendKeys ("{CAPSLOCK}")
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If CBool(GetKeyState(20)) = True _
Then Application.SendKeys ("{CAPSLOCK}")
End Sub
----- Original Message -----
From: Nico
To: [email protected]
Sent: Tuesday, December 15, 2009 9:34 AM
Subject: ]] XL-mania [[ CapsLock, Maksimal Karakter, Save
Minta tolong pencerahannya untuk ;
a.. Meng-ON-kan CAPSLOCK secara automatic dengan macro saat membuka sebuah
buku kerja dan meng-OFF-kannya kembali pada saat buku kerja tersebut di tutup
b.. Untuk maksimal karakter, bagaimana "mengharuskan" kursor berpindah ke
kanan/kiri/atas/bawah apabila LEN sebuah sel sudah mencapai karakter tertentu
misal 3 karakter langsung otomatis pindah
c.. Bagaimana caranya mendefaultkan format "YYYYMMDD_" menjadi nama file
pada saat save dan bukan SAVE AS
Terima kasih atas pencerahannya.
Regards,
Anto
