capslock'u açtırma (ışığını yakma) Hazır Excel Makroları (VBA) | Excel Programları

Makroyu Kopyala

'Excel Makro (VBA) online eğitimleri için: https://www.excelsizeyeter.com/excelsizeyeter.com/udemy_giris.php adresine tıklayınız. Bir eğitim alana bir eğitim bedavadır. İkinci eğitim olarak Excel, Excel pratik çözümler, finans eğitimleri vb. alabilirsiniz. 
Private Declare Function GetVersionEx Lib "kernel32" _
Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Declare Function GetKeyboardState Lib "user32" _
(pbKeyState As Byte) As Long
Private Declare Function SetKeyboardState Lib "user32" _
(lppbKeyState As Byte) As Long

Private Type OSVERSIONINFO
dwOSVersionInfoSize As Long
dwMajorVersion As Long
dwMinorVersion As Long
dwBuildNumber As Long
dwPlatformId As Long
szCSDVersion As String * 128 ' Maintenance string for PSS usage
End Type

Const VK_CAPITAL = &H14
Const KEYEVENTF_EXTENDEDKEY = &H1
Const KEYEVENTF_KEYUP = &H2
Const VER_PLATFORM_WIN32_NT = 2
Const VER_PLATFORM_WIN32_WINDOWS = 1

Dim Keys(0 To 255) As Byte

Sub SetCapsOn()
Dim o As OSVERSIONINFO
Dim NumLockState As Boolean
Dim ScrollLockState As Boolean
Dim CapsLockState As Boolean ' CapsLock handling:
o.dwOSVersionInfoSize = Len(o)
GetVersionEx o
CapsLockState = Keys(VK_CAPITAL)
If CapsLockState  True Then 'Turn capslock on
If o.dwPlatformId = VER_PLATFORM_WIN32_WINDOWS Then '===== Win95
Keys(VK_CAPITAL) = 1
SetKeyboardState Keys(0)
ElseIf o.dwPlatformId = VER_PLATFORM_WIN32_NT Then '===== WinNT
'Simulate Key Press
keybd_event VK_CAPITAL, &H45, KEYEVENTF_EXTENDEDKEY Or 0, 0
'Simulate Key Release
keybd_event VK_CAPITAL, &H45, KEYEVENTF_EXTENDEDKEY _
Or KEYEVENTF_KEYUP, 0
End If
End If
End Sub

Benzer Sonuçlar
No	Makro Adı
1	capslock'u açtırma (ışığını yakma)
2	wordpada yazdırmak istediğiniz bir metni excel içerisinden yazdırmak için
3	otomatik süzü açtırma
4	başladı açtırma
5	excelde kendi eklenti ve fonksiyonlarınızı oluşturun
6	notepad ile txt dosyası açtırma
7	Pivot Verilerini Devre Dışı Bırak / Devreye Al: GetPivotData işlevini devre dışı bırakmak / etkinleştirmek için Excel seçeneğini kullanmanız gerekir. Ancak, bu kodla tek bir tıklamayla yapabilirsiniz.
8	excel dosyasının cd’de çalışması
9	sayfa sekmelerine koruma atamak
10	Tüm Çalışma Sayfalarını Hemen Koruyun: Tüm çalışma sayfalarınızı tek seferde korumak istiyorsanız, sizin için bir koddur. & Nbsp; Bu makroyu çalıştırdığınızda, bir şifre girmek için bir giriş kutusu bulacaksınız. Parolanızı girdikten sonra Tamamı tıklayın. Ve, CAPSye dikkat etmeyi unutma.
11	sayfada b5:g22 arasını seçtirmeme
12	b5:g22 harici hücrelere seçtirmeme
13	menü olarak saat ekleme (en güvenilir)
14	dosya cd rom ismin kontrol ediyor tutmuyorsa kapatıyor
15	Tüm Çalışma Sayfasında Hata Oluşturan Hücreleri Sayısı / Vurgulayın: Hata yaptığınız tüm hücreleri vurgulayıp saymak için bu kod size yardımcı olacaktır. Bu kodu çalıştırmanız yeterlidir ve sayı hatası hücreleri içeren bir mesaj döndürür ve tüm hücreleri vurgulayacaktır.
16	Pivot Tablosu Bu kodlar, bir flashda pivot tablolarında bazı değişiklikler yapmanıza ve yönetmenize yardımcı olur. Gizle Pivot Tablosu Alt Toplamları: Tüm alt toplamları gizlemek istiyorsanız, bu kodu çalıştırmanız yeterlidir. Öncelikle, pivot tablodan bir hücre seçtiğinizden ve bu makroyu çalıştırdığınızdan emin olun.
17	Sayfa Sonlarını Devre Dışı Bırak: Sayfa sonlarını devre dışı bırakmak için bu kodu kullanın. Basitçe tüm açık çalışma kitaplarındaki sayfa sonlarını devre dışı bırakacaktır.
18	Eğer aktif hücreler nümerik (sayı) ise ve 500 den büyükse kalın yap
19	microsoft outlookdan uyarı e-maili göndersin
20	bir kitaptaki sayfalara başka bir kitaba taşımak

Benzer Sonuçlar

Makro Adı

capslock'u açtırma (ışığını yakma)

wordpada yazdırmak istediğiniz bir metni excel içerisinden yazdırmak için

otomatik süzü açtırma

başladı açtırma

excelde kendi eklenti ve fonksiyonlarınızı oluşturun

notepad ile txt dosyası açtırma

Pivot Verilerini Devre Dışı Bırak / Devreye Al: GetPivotData işlevini devre dışı bırakmak / etkinleştirmek için Excel seçeneğini kullanmanız gerekir. Ancak, bu kodla tek bir tıklamayla yapabilirsiniz.

excel dosyasının cd’de çalışması

sayfa sekmelerine koruma atamak

Tüm Çalışma Sayfalarını Hemen Koruyun: Tüm çalışma sayfalarınızı tek seferde korumak istiyorsanız, sizin için bir koddur. & Nbsp; Bu makroyu çalıştırdığınızda, bir şifre girmek için bir giriş kutusu bulacaksınız. Parolanızı girdikten sonra Tamamı tıklayın. Ve, CAPSye dikkat etmeyi unutma.