Bilgisayardaki Sürücü İsimlerini Listeleme

29 Temmuz 2021 1130

Bilgisayardaki Sürücü İsimlerini Listeleme isimli içerikte, Excel VBA yöntemi ile sürücülerin isimlerinin listelenmesini öğreten bir kod yer almaktadır.

Sub Surucu_Isimleri()
    Dim ED, E, D
    Set ED = CreateObject("Scripting.FileSystemObject")
    Set E = ED.Drives
    For Each sürücü In E
        D = D & vbCrLf & sürücü
    Next
    MsgBox D
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. Araç çubuklarından Insert -> Module yazısına tıklayın.
  4. Solunda klasör simgesi olan Modules yazısının başındaki + simgesine tıklayın.
  5. Alt kısma eklenecek gelecek olan Module(1) yazısına çift tıklayın.
  6. Üstteki kodu yapıştırın.

Kod Açıklaması

Bilgisayardaki Sürücü İsimlerini Listeleme

Kodu çalıştırdığımızda, üst resimde göreceğiniz şekilde bir MsgBox nesnesinde sürücü isimleri listelenecektir.

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
Hücredeki Değere Göre Yeni Sayfa Ekleme
2. Derece Denklemin Grafiğini Çizmek
Sayfa Üzerindeki Formüllerin Sayısını Bulma
Excel Makroları ile Dosya Taşıma
Tek Sütunu Kes Kopyala ve Yapıştır
Makrolar ile Klasör Oluşturma
Tüm Satırda İşlem Yapan Döngü
Dar Kenar Boşluğu Yazdırma
Transparan UserForm Oluşturmak
Dosyanın Olduğu Dizin İsmini Bulma
Çoklu Bulma ve Karşısındaki Değeri Listeleme
Tarih Değeri Yazarken Otomatik Ayraç Kullanımı
Seri Numaralarını Ekleme
Negatif Sayıları Vurgulama
Her Bir Sütundaki Maksimum Değeri Bulma
Yanıp Sönme Efekti Verme Kodu
Çalışma Kitabını Kapatırken Otomatik Kaydetme
Belli Sütunlarda Alfabetik Sıralama
Yardım Menüsünü Açma
Otomatik Sıra Numarası Ekleme
Kopyala ve Özel Yapıştır
A1 Referans Stilini Etkinleştirme
Pivot Verilerini Almayı Devre Dışı Bırakma Etkinleştirme
Bir Hücreye Çift Tıklayınca UserForm Açılsın
Çalışma Kitabının Adını Tarih Olarak Kaydetme
Formu Kapatma Makro Kodu
Satır Yüksekliklerini Otomatik Ayarlama
Son Dolu Satırın Bir Altına Yazdırma
Satırı Kes Kopyala ve Yapıştır
UserForm Resize Özelliği Eklemek
MsgBox Nesnesi ile Cevap Seçeneği Sunma
Aktif Satırı ve Sütunu Vurgulama
Toplama İşlemi Yapan Kullanıcı Tanımlı Fonksiyon
ListBox Üzerindeki Verilere Çoklu Seçim Yapma
Sütun Genişliklerini Otomatik Ayarlama
Bilgisayar Bilgilerini Özetleme
Açılışta UserForm Nesnesinin Otomatik Gösterilmesi
Pivot Tablo Alt Toplamlarını Gizleme
Tarih ve Saatten Tarihi Kaldırma
Gizli Sayfaların Bulunması ve Gösterilmesi
Makro ile Biçimleri Temizleme
Küp Kökünü Hesaplama
Bir Değeri Renklendirme
Bir Dizindeki Son Dosyanın Adını Bulma
Makro Çalışırken İmlecin Hareket Etmemesi
Tüm Sütunda İşlem Yapan Döngü
Aktif Çalışma Sayfası Dışında Tümünü Silme
Sayılara Yeni Bir Sayı Ekleme
Bir Kitaptaki Sayfaları Başka Kitaba Taşıma
Çalışma Kitabındaki Tüm Pivot Tabloları Yenileme

Daha önce yorum yapılmamış!

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