disket formatlama 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.

Private Declare Function SHFormatDrive Lib "shell32" (ByVal hwndOwner As Long, ByVal iDrive As Long, ByVal iCapacity As Long, ByVal iFormatType As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private hWnd  As Long

Const SHFMT_DRV_A = 0
Const SHFMT_DRV_B = 1

Const SHFMT_ID_DEFAULT = &HFFFF
Const SHFMT_OPT_QUICKFORMAT = 0
Const SHFMT_OPT_FULLFORMAT = 1

Const SHFMT_OPT_SYSONLY = 2
Const SHFMT_ERROR = -1
Const SHFMT_CANCEL = -2
Const SHFMT_NOFORMAT = -3

Private Sub format()
Dim Res As Long
  hWnd = FindWindow(vbNullString, Me.Caption)
  Res = SHFormatDrive(hWnd, SHFMT_DRV_A, SHFMT_ID_DEFAULT, SHFMT_OPT_QUICKFORMAT)
  
  Select Case Res
    Case SHFMT_ERROR
      MsgBox "Hata.", vbCritical
    Case SHFMT_CANCEL
      MsgBox "İptal edildi.", vbInformation
    Case SHFMT_NOFORMAT
      MsgBox "Formatlı değil.", vbInformation
    Case Else
      MsgBox "Formatlama bitti."
    End Select
    
End Sub

Private Sub CommandButton1_Click()
format
End Sub

Benzer Sonuçlar
No	Makro Adı
1	disket formatlama
2	menü çubuğunun silinmesi ve özel bir menünün oluşturulması
3	diskete yedekleme
4	kitabı diskete yedekleme
5	çalışma kitabını diskete yedekler
6	kitabınızı diskete yedekler
7	disketten .bat dosyası açma
8	disket etiketlendirme
9	hard disk formatlama
10	harddiske format atma
11	şifrelemede son nokta
12	excelde kendi eklenti ve fonksiyonlarınızı oluşturun
13	userformda iskonto
14	hücrede bir sonraki ayın gün sayısı kadar gün ilave etme
15	değişkene toplam atamak
16	sütunda arama
17	listbox1de değişken
18	Karakterleri Bir Dizinden Çıkarın: Sadece bir metin dizesinin başlangıcındaki karakterleri kaldırın. Tek ihtiyacınız olan şey, bir hücreye başvurmanız ya da işleve metin dizesinden kaldırılacak karakter sayısına ve bir metin eklemenizdir. Metin dizesi için "rng" ve kaldırılacak karakter sayısı için "cnt" olmak üzere iki bağımsız değişkeni vardır. Örneğin: Bir hücreden ilk karakterleri kaldırmak isterseniz 1 incnt;
19	excel operatörleri hk
20	dosya arama 2

Benzer Sonuçlar

Makro Adı

disket formatlama

menü çubuğunun silinmesi ve özel bir menünün oluşturulması

diskete yedekleme

kitabı diskete yedekleme

çalışma kitabını diskete yedekler

kitabınızı diskete yedekler

disketten .bat dosyası açma

disket etiketlendirme

hard disk formatlama

harddiske format atma