Príklady VBA Zoznam najlepších 19 príkladov Excel VBA pre začiatočníkov

Príklady Excel VBA pre začiatočníkov

Makra sú vašim najlepším priateľom, pokiaľ ide o zvýšenie produktivity alebo úsporu času na vašom pracovisku. Od malých až po veľké úlohy môžeme automatizovať použitie kódovacieho jazyka VBA. Viem, že ste si často mohli myslieť niektoré obmedzenia, ktoré má program Excel, ale pomocou kódovania VBA môžete všetky z nich vylúčiť. Dobre, ak ste v tomto článku bojovali s VBA a stále ste začiatočníkom, uvedieme niektoré užitočné príklady kódu makra VBA v programe Excel.

Zoznam najlepších 19 príkladov

  1. Vytlačiť všetky názvy hárkov
  2. Vložte index rôznych farieb do VBA
  3. Vložte sériové číslo zhora
  4. Vložte sériové číslo zdola
  5. Vložte sériové číslo od 10 do 1
  6. Vložte pracovné hárky, koľko chcete
  7. Odstráňte všetky prázdne pracovné hárky zo zošita
  8. Za každý ďalší riadok vložte prázdny riadok
  9. Zvýraznite pravopisnú chybu
  10. Zmeniť všetko na veľké písmená
  11. Zmeniť všetko na malé písmená
  12. Zvýraznite všetky komentované bunky
  13. Zvýraznite všetky prázdne bunky
  14. Skryť všetky listy okrem jedného
  15. Znovu skryť všetky hárky
  16. Odstráňte všetky súbory v priečinku
  17. Odstrániť celý priečinok
  18. Nájdite posledný použitý riadok v hárku
  19. Nájdite posledný použitý stĺpec v hárku

Pozrime sa podrobne na každý z týchto príkladov.

# 1 - Vytlačiť všetky názvy hárkov

Kód:

Sub Print_Sheet_Names () Dim i As Integer For i = 1 To Sheets. Count Cells (i, 1). Value = Sheets (i) .Name Next i End Sub

Týmto sa rozbalia všetky názvy hárkov na aktívny hárok.

# 2 - Vložte rozdielny farebný index do VBA

Kód:

Sub Insert_Different_Colours () Dim i As Integer For i = 1 To 56 Cells (i, 1). Value = i Cells (i, 2) .Interior.ColorIndex = i Next End Sub

Takto vložíte čísla od 1 do 56 a ich farebný index do ďalšieho stĺpca.

# 3 - Vložte sériové číslo zhora

Kód:

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

Takto vložíte sériové čísla od 1 do 10 zhora.

# 4 - Vložte sériové číslo zdola

Kód:

Sub Insert_Numbers_From_Bottom () Dim i As Integer For i = 20 To 1 Step -1 Cells (i, 7). Value = i Next i End Sub

Takto vložíte sériové čísla od 1 do 20 od dolnej časti.

# 5 - Vložte sériové číslo od 10 do 1

Kód:

Sub Ten_To_One () Dim i As Integer Dim j As Integer j = 10 Pre rozsah i = 1 až 10 ("A" & i). Hodnota = jj = j - 1 Ďalej i Koniec Sub

Takto vložíte sériové čísla od 10 do 1 zhora.

# 6 - Vložte pracovné hárky, koľko chcete

Kód:

Sub AddSheets () Dim ShtCount As Integer, i As Integer ShtCount = Application.InputBox ("Koľko hárkov chcete vložiť?", "Add Sheets",,,,,, 1) Ak ShtCount = False, potom opustite Sub Else Pre i = 1 do pracovných hárkov ShtCount. Pridajte ďalšie i Koniec Ak Koniec Sub

Zobrazí sa výzva na zadanie počtu pracovných hárkov, ktoré chcete vložiť. Stačí zadať číslo do vstupného poľa a kliknúť na Ok, tých veľa listov sa vloží okamžite.

# 7 - Odstráňte všetky prázdne pracovné hárky zo zošita

Kód:

Sub Delete_Blank_Sheets () Dim ws As Worksheet Application.DisplayAlerts = False Application.ScreenUpdating = False For each ws In ActiveWorkbook.Worksheets If WorksheetFunction.CountA (ws.UsedRange) = 0 Then ws.Delete End If Next ws Application.DisplayAlerts = True Application .ScreenUpdating = Koncový 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 = bunky (Rows.Count, 1). End (xlUp). Row MsgBox LR End Sub

Tu nájdeme posledný použitý riadok v hárku

# 19 - Nájdite posledný použitý stĺpec v hárku

Kód:

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

Tu nájdeme posledný použitý stĺpec v hárku

Zaujímavé články...