harddiskin boş alanını vs.. öğrenme 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. 
 
Aktif sayfada
Private Sub Workbook_Activate()
Call Festplatten
End Sub

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	harddiskin boş alanını vs.. öğrenme
2	hücrede ay öğrenme (fonksiyon tanımlayarak)
3	excel operatörleri hk
4	excelde kendi eklenti ve fonksiyonlarınızı oluşturun
5	ad ve soyadı karşılaştırarak kayıt yapan kodlar
6	dosya sistemini öğrenme
7	açık olan dosyanın bulunduğu yeri öğrenmek
8	classmodüle ile yapılan işlemi mesajla öğrenme
9	klasördeki veya dizindeki xls dosyasının boyutunu öğrenme
10	aynı olanın üzerine kayıt etme
11	sürücü tipi göster 5
12	sürücü hazır mı göster
13	sürücü seri numarası göster
14	a1 hücresini b1 hücresine yapıştır c1 gitsin
15	sürücünün dosya formatını öğrenme
16	işletim sistemini öğrenme
17	Boş Hücreleri Sıfırlarla Değiştir: Boş hücreleriniz olduğu veriler için, bu hücrelere sıfır ekleyebilirsiniz. Formülü kullanmak ve bu hücreleri ileri hesaplarda kullanmak daha kolay hale getiriyor.
18	kullanıcı adı ve pc adını öğrenme
19	a sütununda aralarda boş satırları siler ve yukarı çeker
20	verinin bittiği ilk boş satıra yapıştırmak

Benzer Sonuçlar

Makro Adı

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

hücrede ay öğrenme (fonksiyon tanımlayarak)

excel operatörleri hk

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

ad ve soyadı karşılaştırarak kayıt yapan kodlar

dosya sistemini öğrenme

açık olan dosyanın bulunduğu yeri öğrenmek

classmodüle ile yapılan işlemi mesajla öğrenme

klasördeki veya dizindeki xls dosyasının boyutunu öğrenme

aynı olanın üzerine kayıt etme