Bilgisayar Bilgilerini Özetleme

07 Haziran 2021 762

Bilgisayar Bilgilerini Özetleme isimli kod, bilgisayarınızdaki temel bilgilerin Excel ile bulunmasını sağlayan bir makro örneğidir.

Sub SysInfo()
Dim s As String, oSystem As Object, item As Object

Set oSystem = GetObject("winmgmts:").instancesOf("Win32_ComputerSystem")

For Each item In oSystem
    s = "Bilgisayar bilgileri" & vbCrLf
    s = s & "-------------------------------" & vbCrLf
    s = s & "İsim: " & item.Name & vbCrLf
    s = s & "Durum: " & item.Status & vbCrLf
    s = s & "Tipi: " & item.SystemType & vbCrLf
    s = s & "Mfg: " & item.Manufacturer & vbCrLf
    s = s & "Model: " & item.Model & vbCrLf
    s = s & "RAM: " & item.TotalPhysicalMemory / 1024000 & "mb" & vbCrLf
    s = s & "Ağ ismi: " & item.Domain & vbCrLf
    s = s & "Role: " & TranslateDomainRole(item.DomainRole) & vbCrLf
    s = s & "Kayıtlı kullanıcı: " & item.UserName & vbCrLf
    MsgBox s
Next

Set oSystem = Nothing

End Sub

Gerekli Adımlar

Kodu çalıştırmanız için aşağıdaki adımları yerine getirmeniz gerekir.

  1. Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
  2. Project - VBAProject alanının, ekranın sol tarafında görüldüğünden emin olun. Görünmüyorsa, Ctrl + R kısayolu ile hızlıca açın.
  3. Microsoft Excel Objects yazısının solundaki + simgesini tıklayın ve BuÇalışmaKitabı kısmına çift tıklayın.
  4. Üstteki kodu yapıştırın.

Kod Açıklaması

Kodu çalıştırdıktan sonra aşağıdaki gibi bir ekran ile bilgisayar bilgilerinizi MsgBox nesnesinde görüntüleyebilirsiniz.

Bilgisayar Bilgilerini Özetleme

Hazır Dosyayı İndir

Dosyayı indirmek için giriş yapmanız ve VIP Üyelik Paketine sahip olmanız gerekir.
50 Farklı Hazır Makro (VBA) Kodu
56 Renk Kodunu Sıralama
Hatalı Hücreleri Renklendirme
Dolar Okutma Makrosu
Toplu Satır Silme
Boşluk Olan Hücreleri Renklendirme
Bir Dizindeki Son Dosyanın Adını Bulma
Hücrede Değişiklik Olduğunda Makroyu Çalıştırma
C Klasörüne Sanal Dizin Oluşturma
Transparan UserForm Oluşturmak
Çalışma Kitabını Kapatırken Otomatik Kaydetme
Aktif Satırı ve Sütunu Vurgulama
Yanlış Yazılmış Hücreleri Vurgulama
Excel Satır Seçme Kodu
Makrolar ile Txt Dosyası Oluşturma
Kopyala ve Özel Yapıştır
Hoş Geldiniz Mesajı Ekleme
Excel Dosya Silme İşlemi Makrosu
Aktif Hücrenin İçeriği Hakkında Bilgi Verme
Pivot Tablo Alt Toplamlarını Gizleme
Açılışta Üç Kere Şifre Hakkı Vermek
ComboBox Nesneleri ile Toplama Yapma
Sütunları Otomatik Sığdırma
56 Koşula Kadar Biçimlendirme Yapma
Özel Sayfaları Yazdırma
Çalışma Sayfalarını Alfabetik Olarak Sıralama
Bilgisayar Bilgilerini Özetleme
Satırı Kes Kopyala ve Yapıştır
Hücredeki Değere Göre İşlem Yapma
Sütunun Herhangi Hücresine Çift Tıklayınca UserForm Açılsın
Tarih ve Saatten Saati Kaldırma
Giriş Kutusu ve Mesaj Yazma İşlemi
Makrolar ile Eliptik Form Oluşturma
Aktif Hücrenin Satır Numarasını Bulma
Alarmlı Saat Ekleme Kodu
A Sütunundaki Verileri C Sütununda Sıralama
Boş Hücreleri Sıfırlarla Değiştirme
Satırlardaki Farkı Renklendirme
Seçili Alanda Yinelenenleri Vurgulama
Makro ile Web Sitesini Açmak
Hangi Günde Olduğunu Bulma
Excel Tam Ekran Yapma
Bir Aralığa Alfabenin Harflerini Ekleme
Aktif Hücrenin Temel Bilgilerini Bulma
Tüm Çalışma Sayfalarını Tek Adımda Koruma
Derece Simgesi Ekleme
Makro ile Git Penceresini Açma
Metin Sarmayı Kaldırma
Sütunlardaki Farkı Renklendirme
Şarta Göre Satır Açma ve Renklendirme
Checkbox ile Exceli Kapatıp Açmak

Daha önce yorum yapılmamış!

Backlink Reklam Bu alanda 50 karakterlik açıklama ile web sitenize ait Backlink Reklam yayınlayabilirsiniz.
Yükleniyor...