VBA Örnekleri - Yeni Başlayanlar İçin En İyi 19 Excel VBA Örneği Listesi

Yeni Başlayanlar İçin Excel VBA Örnekleri

Verimliliğinizi artırmak veya iş yerinizde biraz zaman kazanmak söz konusu olduğunda makrolar en iyi arkadaşınızdır. Küçük görevlerden büyük görevlere kadar, VBA kodlama dilini kullanarak otomatikleştirebiliriz. Çoğu zaman excel'in sahip olduğu bazı sınırlamaları düşünmüş olabileceğinizi biliyorum, ancak VBA kodlamasıyla bunların hepsini ortadan kaldırabilirsiniz. Tamam, VBA ile mücadele ettiyseniz ve bu makalede hala yeni başlayan biriyseniz, Excel'de VBA Makro kodunun bazı yararlı örneklerini vereceğiz.

İlk 19 Örnek Listesi

  1. Tüm Sayfa Adlarını Yazdır
  2. VBA'ya Farklı Renk Dizini Ekleme
  3. Seri Numarasını Üstten Girin
  4. Alttan Seri Numarasını Girin
  5. 10'dan 1'e Seri Numarasını Girin
  6. Çalışma Sayfalarını İstediğiniz Kadar Ekleme
  7. Çalışma Kitabından Tüm Boş Çalışma Sayfalarını Sil
  8. Her Diğer Satırdan Sonra Boş Satır Ekle
  9. Yazım Hatasını Vurgula
  10. Tümünü Büyük Harf Karakterlerine Değiştir
  11. Tümünü Küçük Harf Karakterlerine Değiştir
  12. Yorumlanan Tüm Hücreleri Vurgula
  13. Tüm Boş Hücreleri Vurgula
  14. Bir Sayfa Haricindeki Tüm Sayfaları Gizle
  15. Tüm Sayfaları Göster
  16. Klasördeki Tüm Dosyaları Sil
  17. Tüm Klasörü Sil
  18. Sayfada Son Kullanılan Satırı Bul
  19. Sayfada Son Kullanılan Sütunu Bulun

Bu örneklerin her birini ayrıntılı olarak görelim.

# 1 - Tüm Sayfa Adlarını Yazdır

Kod:

Sub Print_Sheet_Names () Dim i As Integer For i = 1 To Sheets.Count Hücreleri (i, 1) .Değer = Sayfalar (i) .Name Next i End Sub

Bu, tüm sayfa adlarını etkin sayfaya çıkaracaktır.

# 2 - VBA'ya Farklı Renk Dizini Ekleme

Kod:

Sub Insert_Different_Colours () Dim i As Integer For i = 1 to 56 Cell (i, 1) .Değer = i Hücreler (i, 2) .Interior.ColorIndex = i Next End Sub

Bu, 1'den 56'ya kadar sayıları ve renk indekslerini sonraki sütuna ekleyecektir.

# 3 - Seri Numarasını Üstten Girin

Kod:

Sub Insert_Numbers_From_Top () Dim i As Integer For i = 1 to 10 Cell (i, 1) .Value = i Next i End Sub

Bu, üstten 1'den 10'a kadar seri numaraları ekleyecektir.

# 4 - Seri Numarasını Alttan Girin

Kod:

Sub Insert_Numbers_From_Bottom () Dim i As Integer For i = 20 To 1 Step -1 Hücreler (i, 7) .Değer = i Sonraki i End Sub

Bu, alttan 1'den 20'ye kadar seri numaraları ekleyecektir.

# 5 - 10'dan 1'e Seri Numarasını Girin

Kod:

Sub Ten_To_One () Dim i As Integer Dim j As Integer j = 10 For i = 1 to 10 Range ("A" & i) .Değer = jj = j - 1 Sonraki i End Sub

Bu, üstten 10'dan 1'e kadar seri numaraları ekleyecektir.

# 6 - Çalışma Sayfalarını İstediğiniz Kadar Ekleme

Kod:

Sub AddSheets () Dim ShtCount As Integer, i As Integer ShtCount = Application.InputBox ("Kaç Sayfa eklemek istiyorsunuz?", "Sayfaları Ekle",,,,, 1) ShtCount = False O Zaman Alt Başka Çık İ = 1 To ShtCount Çalışma Sayfaları için. Sonraki Ekle i End If End Sub

Bu, eklemek istediğiniz çalışma sayfalarının sayısını girmenizi isteyecektir. Sadece giriş kutusundaki numarayı belirtin ve Tamam'a tıklayın, bu birçok sayfayı hemen ekleyecektir.

# 7 - Çalışma Kitabından Tüm Boş Çalışma Sayfalarını Silin

Kod:

Sub Delete_Blank_Sheets () Dim ws As Worksheet Application.DisplayAlerts = False Application.ScreenUpdating = ActiveWorkbook.Worksheets'teki Her ws İçin False WorksheetFunction.CountA (ws.UsedRange) = 0 Sonra ws.Delete End If Next ws Application.DisplayAlerts = True Application .ScreenUpdating = True End Sub

This will delete all the blank worksheets from the workbook we are working on.

#8 - Insert Blank Row After Every Other Row

Code:

Sub Insert_Row_After_Every_Other_Row() Dim rng As Range Dim CountRow As Integer Dim i As Integer Set rng = Selection CountRow = rng.EntireRow.Count For i = 1 To CountRow ActiveCell.EntireRow.Insert ActiveCell.Offset(2, 0).Select Next i End Sub

For this first, you need to select the range where you would like to insert alternative blank rows.

#9 - Highlight Spelling Mistake

Code:

Sub Chech_Spelling_Mistake() Dim MySelection As Range For Each MySelection In ActiveSheet.UsedRange If Not Application.CheckSpelling(Word:=MySelection.Text) Then MySelection.Interior.Color = vbRed End If Next MySelection End Sub

First, select the data and run the VBA code. It will highlight the cells which have spelling mistakes.

#10 - Change All To Upper Case Characters

Code:

Sub Change_All_To_UPPER_Case() Dim Rng As Range For Each Rng In Selection.Cells If Rng.HasFormula = False Then Rng.Value = UCase(Rng.Value) End If Next Rng End Sub

First, select the data and run the code. It will convert all the text values to upper case characters.

#11 - Change All To Lower Case Characters

Code:

Sub Change_All_To_LOWER_Case() Dim Rng As Range For Each Rng In Selection.Cells If Rng.HasFormula = False Then Rng.Value = LCase(Rng.Value) End If Next Rng End Sub

First, select the data and run the code. It will convert all the text values to lower case characters in excel.

#12 - Highlight All the Commented Cells

Code:

Sub HighlightCellsWithCommentsInActiveWorksheet() ActiveSheet.UsedRange.SpecialCells(xlCellTypeComments).Interior.ColorIndex = 4 End Sub

Result:

#13 - Highlight All the Blank Cells

Code:

Sub Highlight_Blank_Cells() Dim DataSet As Range Set DataSet = Selection DataSet.Cells.SpecialCells(xlCellTypeBlanks).Interior.Color = vbGreen End Sub

First, select the data range and run the code. It will highlight all the blank cells with green color.

#14 - Hide All Sheets Except One Sheet

Code:

Sub Hide_All_Except_One() Dim Ws As Worksheet For Each Ws In ActiveWorkbook.Worksheets If Ws.Name "Main Sheet" Then Ws.Visible = xlSheetVeryHidden Next Ws End Sub

The above code hides all the sheets except the sheet named “Main Sheet.” You can change the worksheet name as per your wish.

#15 - Unhide All Sheets

Code:

Sub UnHide_All() Dim Ws As Worksheet For Each Ws In ActiveWorkbook.Worksheets Ws.Visible = xlSheetVisible Next Ws End Sub

This will unhide all the hidden sheets.

#16 - Delete All Files in the Folder

Code:

Sub Delete_All_Files() 'You can use this to delete all the files in the folder Test '' On Error Resume Next Kill "C:UsersAdmin_2.Dell-PcDesktopDelete Folder*.*" On Error GoTo 0 End Sub

Change the folder path, which is marked in red as per your folder deletion.

#17 - Delete Entire Folder

Code:

Sub Delete_Whole_Folder() 'You can use this to delete entire folder On Error Resume Next Kill "C:UsersAdmin_2.Dell-PcDesktopDelete Folder*.*" 'Firstly it will delete all the files in the folder 'Then below code will delete the entire folder if it is empty RmDir "C:UsersAdmin_2.Dell-PcDesktopDelete Folder " 'Note: RmDir delete only a empty folder On Error GoTo 0 End Sub

Change the folder path, which is marked in red as per your folder deletion.

#18 - Find the Last Used Row in the Sheet

Code:

Sub Last_Row () Dim LR As Long LR = Hücreler (Rows.Count, 1) .End (xlUp) .Row MsgBox LR End Sub

Burada Sayfadaki Son Kullanılan Satırı buluyoruz

# 19 - Sayfada Son Kullanılan Sütunu Bulun

Kod:

Sub Last_Column () Dim LC As Long LC = Hücreler (1, Columns.Count) .End (xlToLeft) .Column MsgBox LC End Sub

Burada Sayfadaki Son Kullanılan Sütunu buluyoruz

Ilginç makaleler...