VBA példák - A 19 legfontosabb VBA-példa kezdőknek listája

Excel VBA példák kezdőknek

A makrók a legjobb barátok, amikor növelni kell a termelékenységet vagy időt spórolni a munkahelyén. A kis feladatoktól kezdve a nagy feladatokig automatizálhatjuk a VBA kódoló nyelv használatával. Tudom, hogy gondolhatott néhány olyan korlátozásra, amelyek az Excelben vannak, de a VBA kódolással mindezeket kiküszöbölheti. Ok, ha a VBA-val küzdött, és még mindig kezdő volt ebben a cikkben, megadunk néhány hasznos példát a VBA makrókódról az Excelben.

A legnépszerűbb 19 példa listája

  1. Minden lap nevének kinyomtatása
  2. Különböző színindex beszúrása a VBA-ba
  3. Helyezze be a sorozatszámot felülről
  4. Helyezze be a sorozatszámot alulról
  5. Helyezze be a sorozatszámot 10-től 1-ig
  6. Helyezzen be munkalapokat, amennyit csak akar
  7. Az összes üres munkalap törlése a munkafüzetből
  8. Helyezze be az üres sort minden második sor után
  9. Jelölje ki a helyesírási hibát
  10. Az összes módosítása nagybetűs karakterekre
  11. Változtassa az összeset kisbetűs karakterekre
  12. Jelölje ki az összes kommentelt cellát
  13. Jelölje ki az összes üres cellát
  14. Az összes lap elrejtése, egy lap kivételével
  15. Az összes lap elrejtése
  16. Az összes fájl törlése a mappából
  17. Teljes mappa törlése
  18. Keresse meg az Utoljára használt sort a lapon
  19. Keresse meg a lap utolsó utoljára használt oszlopát

Nézzük meg részletesen ezeket a példákat.

# 1 - Minden lap nevének kinyomtatása

Kód:

Sub Print_Sheet_Names () Dim i egész számként az i = 1-hez a Sheets-hez. Számolja a cellákat (i, 1). Érték = Sheets (i). Név Következő i End Sub

Ez kibontja az összes lap nevét az aktív munkalapba.

# 2 - Különböző színindex beszúrása a VBA-ba

Kód:

Sub Insert_Different_Colours () Dim i egész számként i = 1-től 56-ig (i, 1). Érték = i Cellák (i, 2). Interior.ColorIndex = i Következő vég al

Ez az 1-től 56-ig terjedő számokat és azok színindexét beszúrja a következő oszlopba.

# 3 - Helyezze be a sorozatszámot felülről

Kód:

Sub Insert_Numbers_From_Top () Dim i egész számként i = 1-10 celláig (i, 1). Érték = i Következő i End Sub

Ez felülről 1-től 10-ig sorszámot fog beilleszteni.

# 4 - Helyezze be a sorozatszámot alulról

Kód:

Sub Insert_Numbers_From_Bottom () Dim i egész számként i = 20-tól 1-ig -1-es cellákig (i, 7). Érték = i Következő i End Sub

Ez alulról 1-től 20-ig sorszámot fog beilleszteni.

# 5 - Helyezze be a sorozatszámot 10-től 1-ig

Kód:

Ten Teno_One () Dim i egész szám Dim j As egész szám j = 10 i = 1-10 tartomány ("A" & i). Érték = jj = j - 1 Következő i End Sub

Ez felülről 10-től 1-ig sorszámot fog beilleszteni.

# 6 - Helyezzen be munkalapokat, amennyit csak akar

Kód:

Sub AddSheets () Dim ShtCount egész számként, i egész számként ShtCount = Application.InputBox ("Hány táblázatot szeretne beilleszteni?", "Sheets hozzáadása",,,,,, 1) Ha ShtCount = Hamis, akkor lépjen ki más részből I = 1 esetén az ShtCount munkalapokhoz. Adja hozzá a következő i véget, ha vége al

Ez arra kéri, hogy adja meg a beilleszteni kívánt munkalapok számát. Csak adja meg a számot a beviteli mezőben, és kattintson az OK gombra, és azonnal beszúrja azt a sok lapot.

# 7 - Az összes üres munkalap törlése a munkafüzetből

Kód:

Sub Delete_Blank_Sheets () Dim ws, mint munkalap Application.DisplayAlerts = hamis Application.ScreenUpdating = hamis az ActiveWorkbook minden egyes wjéhez. Munkafüzetek, ha WorksheetFunction.CountA (ws.UsedRange) = 0 Akkor ws.Delete Vége, ha a következő ws Application.DisplayAlerts = .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 = cellák (Rows. Count, 1). End (xlUp). Sor MsgBox LR End Sub

Itt találjuk az Utoljára használt sort a lapban

# 19 - Keresse meg a lap utolsó utoljára használt oszlopát

Kód:

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

Itt találjuk a lap utolsó utoljára használt oszlopát

érdekes cikkek...