wmi mouse 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. 
 
Sub InfoPointingDevices()
Dim MyOBJ As Object
Dim MyPtgDev As Variant
Dim MyMsg As String
On Error Resume Next
Set MyOBJ = GetObject("WinMgmts:").instancesOf _
            ("win32_pointingdevice")
If Err.Number  0 Then
  MsgBox "WMI yüklenmemiş! Programdan çıkılacak...", vbExclamation, _
  "Windows Management Instrumentation"
  Exit Sub
On Error GoTo 0
End If
For Each MyPtgDev In MyOBJ
    MyMsg = MyMsg & "*****************************" & vbCrLf
    MyMsg = MyMsg & "İşlemci : " & Trim(MyCPU.Name) & vbCrLf
    MyMsg = MyMsg & "Ad : " & MyPtgDev.Name & vbCrLf
    MyMsg = MyMsg & "Üretici   : " & MyPtgDev.Manufacturer & vbCrLf
    MyMsg = MyMsg & "Buton adedi    : " & MyPtgDev.NumberOfButtons & vbCrLf
Next
MsgBox MyMsg, vbInformation, "Mouse Bilgileri   (Raider ®)"
End Sub

Benzer Sonuçlar
No	Makro Adı
1	wmi mouse
2	commandbutton artık tıklatmıyor, kaçıyor
3	excel operatörleri hk
4	disketten .bat dosyası açma
5	wmi sistem
6	wmi windows
7	işlemci hızı
8	wmi bios
9	işlemci bilgilerini hücreye aktarma
10	wmi network adaptörleri
11	wmi anakart
12	wmi bilgi
13	wmi ekran kartı
14	Çift tekrar eden / aynı olan satırları silmek
15	fare kursörünü gizlemek 1
16	capslock'u açtırma (ışığını yakma)
17	işlemciyi uyutma
18	e10 hücresine yazı yaz sağdan sola kayarak yazsın
19	statusbar da (durum çubuğunda) kayan yazı
20	İmleç Görünümünü Kontrol Etme

Benzer Sonuçlar

Makro Adı

wmi mouse

commandbutton artık tıklatmıyor, kaçıyor

excel operatörleri hk

disketten .bat dosyası açma

işlemci bilgilerini hücreye aktarma

wmi network adaptörleri