harddisk hakkında ayrıntılı rapor 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. 
 
Option Explicit
Sub Festplatten()
Const TEILER As Long = 1073741824
Dim objFSO As Object, objDrive As Object, colDrives As Object, varFree, intCount As Integer
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set colDrives = objFSO.Drives
intCount = 5
With LW
  .[b6:i100].ClearContents
  For Each objDrive In colDrives
      If objDrive.DriveType = 2 Then
          intCount = intCount + 1
          .Cells(intCount, 2) = objDrive.DriveLetter
          .Cells(intCount, 3) = objDrive.TotalSize
          .Cells(intCount, 4) = objDrive.TotalSize / TEILER
          .Cells(intCount, 5) = objDrive.FreeSpace
          .Cells(intCount, 6) = objDrive.FreeSpace / TEILER
          If objDrive.IsReady Then
            .Cells(intCount, 7) = "Bereit"
          Else
            .Cells(intCount, 7) = "Nicht bereit"
          End If
          .Cells(intCount, 8) = objDrive.SerialNumber
          .Cells(intCount, 9) = objDrive.VolumeName
      End If
  Next
End With
End
End Sub

Benzer Sonuçlar
No	Makro Adı
1	harddisk hakkında ayrıntılı rapor
2	harddiskin boş alanını vs.. öğrenme
3	sürücü hazır mı göster
4	sürücü seri numarası göster
5	sürücü tipi göster 5
6	harddiske format atma
7	harddisk seri numarası alma a1 hücresine
8	bir kitaptaki sayfalara başka bir kitaba taşımak
9	excel operatörleri hk
10	ayları sayfa olarak ekler günleri ayrıntılı olarak belirtir
11	menü çubuğunun silinmesi ve özel bir menünün oluşturulması
12	dosya yolunu göster ayrıntılı olarak listelesin dosyaların kapladıkları alanları, dosya yolunu vs…
13	sayfalarıdaki verileri seçilen tarih aralığında rapor sayfasına listeyen kodlar aşağıdadır.
14	Excel Çalışma Sayfası veya Çalışma Kitabındaki Kullanıcı Değişikliklerini İzleme ve Raporlama
15	sayfada formüllü hücreleri records sayfasına ayrıntılı kaydeder
16	kitapta ne kadar refers varsa ayrıntılı olarak belirtir (yeni sayfada)
17	kitapta ne kadar formül varsa ayrıntılı olarak belirtir (yeni sayfada)
18	b sütunundaki sayfalara göre kaydeder
19	istediğiniz sayfa hariç sayfadaki verileri temizler
20	verilerin rapor olarak saklanmasi

Benzer Sonuçlar

Makro Adı

harddisk hakkında ayrıntılı rapor

harddiskin boş alanını vs.. öğrenme

sürücü hazır mı göster

sürücü seri numarası göster

sürücü tipi göster 5

harddiske format atma

harddisk seri numarası alma a1 hücresine

bir kitaptaki sayfalara başka bir kitaba taşımak

excel operatörleri hk

ayları sayfa olarak ekler günleri ayrıntılı olarak belirtir