Παραδείγματα VBA - Λίστα κορυφαίων 19 παραδειγμάτων Excel VBA για αρχάριους

Πίνακας περιεχομένων

Παραδείγματα Excel VBA για αρχάριους

Οι μακροεντολές είναι ο καλύτερος φίλος σας όταν πρόκειται να αυξήσετε την παραγωγικότητά σας ή να εξοικονομήσετε χρόνο στο χώρο εργασίας σας. Από μικρές έως μεγάλες εργασίες, μπορούμε να αυτοματοποιήσουμε χρησιμοποιώντας τη γλώσσα κωδικοποίησης VBA. Ξέρω ότι πολλές φορές ίσως έχετε σκεφτεί μερικούς από τους περιορισμούς που έχει το excel, αλλά με την κωδικοποίηση VBA, μπορείτε να εξαλείψετε όλα αυτά. Εντάξει, αν δυσκολευτήκατε με το VBA και εξακολουθείτε να είστε αρχάριος σε αυτό το άρθρο, θα σας δώσουμε μερικά από τα χρήσιμα παραδείγματα του κώδικα μακροεντολής VBA στο Excel.

Λίστα των κορυφαίων 19 παραδειγμάτων

  1. Εκτύπωση όλων των ονομάτων φύλλων
  2. Εισαγωγή διαφορετικού δείκτη χρώματος στο VBA
  3. Εισαγωγή σειριακού αριθμού από την κορυφή
  4. Εισαγωγή σειριακού αριθμού από κάτω
  5. Εισαγωγή σειριακού αριθμού από 10 έως 1
  6. Εισαγάγετε φύλλα εργασίας όσο θέλετε
  7. Διαγραφή όλων των κενών φύλλων εργασίας από το βιβλίο εργασίας
  8. Εισαγωγή κενής σειράς μετά από κάθε άλλη σειρά
  9. Επισήμανση λάθους ορθογραφίας
  10. Αλλαγή όλων σε κεφαλαίους χαρακτήρες
  11. Αλλαγή όλων σε πεζούς χαρακτήρες
  12. Επισημάνετε όλα τα κελιά που σχολιάστηκαν
  13. Επισημάνετε όλα τα κενά κελιά
  14. Απόκρυψη όλων των φύλλων εκτός από ένα φύλλο
  15. Αποκρύψτε όλα τα φύλλα
  16. Διαγραφή όλων των αρχείων στο φάκελο
  17. Διαγραφή ολόκληρου του φακέλου
  18. Βρείτε τη σειρά που χρησιμοποιήθηκε τελευταία στο φύλλο
  19. Βρείτε τη στήλη που χρησιμοποιήθηκε τελευταία στο φύλλο

Ας δούμε κάθε ένα από αυτά τα παραδείγματα λεπτομερώς.

# 1 - Εκτύπωση όλων των ονομάτων φύλλων

Κώδικας:

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

Αυτό θα εξαγάγει όλα τα ονόματα φύλλων στο ενεργό φύλλο.

# 2 - Εισαγωγή διαφορετικού δείκτη χρώματος στο VBA

Κώδικας:

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

Αυτό θα εισαγάγει αριθμούς από το 1 έως το 56 και τον δείκτη χρωμάτων τους στην επόμενη στήλη.

# 3 - Εισαγωγή σειριακού αριθμού από την κορυφή

Κώδικας:

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

Αυτό θα εισαγάγει σειριακούς αριθμούς από 1 έως 10 από την κορυφή.

# 4 - Εισαγωγή σειριακού αριθμού από κάτω

Κώδικας:

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

Αυτό θα εισαγάγει σειριακούς αριθμούς από 1 έως 20 από το κάτω μέρος.

# 5 - Εισαγωγή σειριακού αριθμού από 10 έως 1

Κώδικας:

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

Αυτό θα εισαγάγει σειριακούς αριθμούς από 10 έως 1 από την κορυφή.

# 6 - Εισαγάγετε φύλλα εργασίας όσο θέλετε

Κώδικας:

Sub AddSheets () Dim ShtCount As Integer, i As Integer ShtCount = Application.InputBox ("Πόσα φύλλα θέλετε να εισαγάγετε;", "Add Sheets",,,,,, 1) Εάν ShtCount = False τότε Exit Sub Else Για i = 1 Σε φύλλα εργασίας ShtCount. Προσθήκη Επόμενου i End if End Sub

Αυτό θα σας ζητήσει να εισαγάγετε τον αριθμό των φύλλων εργασίας που θέλετε να εισαγάγετε. Απλώς καθορίστε τον αριθμό στο πλαίσιο εισαγωγής και κάντε κλικ στο Ok, θα εισαγάγει αμέσως αυτά τα πολλά φύλλα.

# 7 - Διαγραφή όλων των κενών φύλλων εργασίας από το βιβλίο εργασίας

Κώδικας:

Sub Delete_Blank_Sheets () Dim ws As Application Sheet Application.DisplayAlerts = False Application.ScreenUpdating = False For Every ws In ActiveWorkbook.Worksheets If WorksheetFunction.CountA (ws.UsedRange) = 0 Τότε ws.Deteete End if Next ws Application.DisplayAlerts = True Application .ScreenUpdating = Υπολογισμός True End

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 = Cells (Rows.Count, 1). End (xlUp). Row MsgBox LR End Sub

Εδώ βρίσκουμε τη σειρά που χρησιμοποιήθηκε τελευταία στο φύλλο

# 19 - Βρείτε τη στήλη που χρησιμοποιήθηκε τελευταία στο φύλλο

Κώδικας:

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

Εδώ βρίσκουμε τη στήλη που χρησιμοποιήθηκε τελευταία στο φύλλο

ενδιαφέροντα άρθρα...