Exemple VBA - Lista celor mai bune 19 exemple VBA Excel pentru începători

Exemple VBA Excel pentru începători

Macro-urile sunt cel mai bun prieten al tău atunci când vine vorba de creșterea productivității sau de a economisi ceva timp la locul de muncă. De la sarcini mici la sarcini mari, putem automatiza folosind limbajul de codare VBA. Știu de multe ori că v-ați fi gândit la unele dintre limitările pe care Excel le are, dar cu codificarea VBA, le puteți elimina pe toate. Bine, dacă v-ați luptat cu VBA și încă un începător în acest articol, vă vom oferi câteva exemple utile de cod Macro VBA în Excel.

Lista celor mai bune 19 exemple

  1. Tipăriți toate numele foilor
  2. Inserați un index de culoare diferit în VBA
  3. Introduceți numărul de serie de sus
  4. Introduceți numărul de serie din partea de jos
  5. Introduceți numărul de serie de la 10 la 1
  6. Introduceți foi de lucru cât doriți
  7. Ștergeți toate foile de lucru goale din registrul de lucru
  8. Introduceți rândul gol după fiecare alt rând
  9. Evidențiați greșeala de ortografie
  10. Schimbați toate caracterele cu majuscule
  11. Schimbați toate cu caractere mici
  12. Evidențiați toate celulele comentate
  13. Evidențiați toate celulele goale
  14. Ascundeți toate foile, cu excepția unei foi
  15. Afișează toate foile
  16. Ștergeți toate fișierele din folder
  17. Ștergeți întregul dosar
  18. Găsiți ultimul rând folosit în foaie
  19. Găsiți ultima coloană utilizată în foaie

Să vedem fiecare dintre aceste exemple în detaliu.

# 1 - Tipăriți toate numele foilor

Cod:

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

Aceasta va extrage toate numele foilor în foaia activă.

# 2 - Introduceți un index de culoare diferit în VBA

Cod:

Sub Insert_Different_Colours () Dim i Ca întreg pentru i = 1 până la 56 de celule (i, 1). Valoare = i Celule (i, 2) .Interior.ColorIndex = i Next End Sub

Aceasta va insera numerele de la 1 la 56 și indicele lor de culoare în coloana următoare.

# 3 - Introduceți numărul de serie de sus

Cod:

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

Aceasta va introduce numere de serie de la 1 la 10 din partea de sus.

# 4 - Introduceți numărul de serie din partea de jos

Cod:

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

Aceasta va introduce numere de serie de la 1 la 20 din partea de jos.

# 5 - Introduceți numărul de serie de la 10 la 1

Cod:

Sub Ten_To_One () Dim i As Integer Dim j As Integer j = 10 For i = 1 To 10 Range ("A" & i) .Value = jj = j - 1 Next i End Sub

Aceasta va introduce numere de serie de la 10 la 1 din partea de sus.

# 6 - Introduceți foi de lucru cât doriți

Cod:

Sub AddSheets () Dim ShtCount As Integer, i As Integer ShtCount = Application.InputBox („Câte foi doriți să inserați?”, „Adăugați foi”,,,,,,, 1) Dacă ShtCount = False, apoi părăsiți Sub Else Pentru i = 1 To ShtCount Worksheets.Add Next i End If End Sub

Aceasta vă va cere să introduceți numărul de foi de lucru pe care doriți să le inserați. Trebuie doar să specificați numărul în caseta de introducere și să faceți clic pe Ok, va introduce imediat acele multe foi.

# 7 - Ștergeți toate foile de lucru goale din registrul de lucru

Cod:

Sub Delete_Blank_Sheets () Dim ws As Worksheet Application.DisplayAlerts = False Application.ScreenUpdating = False pentru fiecare ws din ActiveWorkbook.Worksheets If WorksheetFunction.CountA (ws.UsedRange) = 0 Apoi ws.Delete End Dacă 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 = Celule (Rows.Count, 1). End (xlUp) .Row MsgBox LR End Sub

Aici găsim ultimul rând folosit în foaie

# 19 - Găsiți ultima coloană utilizată în foaie

Cod:

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

Aici găsim ultima coloană folosită în foaie

Articole interesante...