Excel'le Adım Adım Program Yazma

Renk kodları

Sub Renk_Kodu()
Dim x As Integer
For x = 1 To 56
If x < 29 Then
Cells(x, 1).Interior.ColorIndex = x
Cells(x, 2) = x
Else
Cells(x – 28, 3).Interior.ColorIndex = x
Cells(x – 28, 4) = x
End If
Next x
End Sub

MAKRO ŞİFRELEME
VBA ekranında Modül sağ tıklanır –> VBA Project Properties ( VBA Proje Özellikleri) penceresi açılır –> Protection Sekmesine Geçilir –> Lock project for viewing seçilir ( Projeyi görüntülemek için kilitle, bu sayede kodlarımız görüntülenmeye de kapanmış olacaktır ) –> Alttaki password ve confirm password kısmına şifremiz girilir.

Sütun yazdırma
Sub DosyayaYazdir1()
  satir = 1
  Open "C:\Veri\Deneme1.csv" For Output As #1
    satir = Worksheets("Sayfa1").Range("A1").CurrentRegion.Rows.Count
    For i = 1 To satir
      Print #1, Cells(i, 1), Cells(i, 2), Cells(i, 3), Cells(i, 4)
    Next i
   Close #1
End Sub

Verilerin tek bir sütuna yazılır.

FORMÜL ÇUBUĞU GİZLE GÖSTER

Sub FormulCubuguGizle()
Application.DisplayFormulaBar = False
End Sub

Sub FormulCubuguGoster()
Application.DisplayFormulaBar = True
End Sub

DURUM ÇUBUĞU GİZLE GÖSTER

Sub DurumCubuguGizle()
Application.DisplayStatusBar = False
End Sub

Sub DurumCubuguGoster()
Application.DisplayStatusBar = True
End Sub

KAYDIRMA ÇUBUĞU GİZLE GÖSTER

Sub KaydirmaCubuguGizle()
Application.DisplayScrollBars = False
End Sub

Sub KaydirmaCubuguGoster()
Application.DisplayScrollBars = True
End Sub

EN SON KULLANILAN DOSYALARI GİZLE GÖSTER

Sub SonKullanilanDosyalariGizle()
Application.DisplayRecentFile s = False
End Sub

Sub SonKullanilanDosyalariGoster()
Application.DisplayRecentFile s = True
End Sub

HÜCRELERDE BULUNAN AÇIKLAMAYI GİZLE GÖSTER

Sub AciklamaGizle()
Application.DisplayNoteIndica tor  = False
End Sub

Sub AciklamaGöster()
Application.DisplayNoteIndica tor = True
End Sub

TAM EKRAN MODUNU AÇ KAPA

Sub TamEkranModuAc()
Application.DisplayFullScreen  = True
End Sub

Sub TamEkranModuKapat()
Application.DisplayFullScreen= False
End Sub

MENÜ ÇUBUĞUNU GİZLE GÖSTER

Sub MenuCubuguGizle()
Application.CommandBars("Worksheet Menu Bar").Enabled = False
End Sub

Sub MenuCubuguGoster()
Application.CommandBars("Worksheet Menu Bar").Enabled = True
End Sub
 
 
  

ÇALIŞMA SAYFASINI  GİZLE GÖSTER

Sub SayfaGizle()
Worksheets("Sayfa1").Visible = False
End Sub

Sub SayfaGoster()
Worksheets("Sayfa1").Visible = True
End Sub
 

Excel'de çalışma kitabını otomatik kaydetme

ÇALIŞMA KİTABINI KAPATTIĞINIZDA KİTABI OTOMATİK KAYIT YAPAR Sub Auto_close()
Workbooks("Kitap1.xls").Close True
End Sub
ÇALIŞMA KİTABINI KAPATTIĞINIZDA KİTABI OTOMATİK KAYIT YAPMAZ
Sub Auto_close()
Workbooks("Kitap1.xls").Close False
End Sub

Excel de makroyu  çalıştırarak dosya silebilirsiniz.

Sub sil()
    Kill "C:\xxx\xxx\a.jpg"
End Sub

Excelde makro çalıştırarak dosya arayabilirsiniz.

Sub dosya_ara()
Dim ds, a
Set ds = CreateObject("Scripting.FileSystemObject")
a = ds.FileExists("C:\testfile.txt")
If a = True Then
MsgBox "Bu isimde bir dosya var"
Else
MsgBox "Bu isimde bir dosya yok"
End If
End Sub

Excel macro ile yeni bir çalışma sayfası açıp isim verebilirsiniz.
Sub SayfaEkle()
    ThisWorkbook.Sheets.Add
    Sheets(ActiveSheet.Name).Name =sheets("sayfa_adi"). [a1].value
End Sub