VBA Eksempler - Liste over topp 19 Excel VBA-eksempler for nybegynnere

Excel VBA eksempler for nybegynnere

Makroer er din beste venn når det gjelder å øke produktiviteten eller spare tid på arbeidsplassen din. Rett fra små oppgaver til store oppgaver kan vi automatisere ved hjelp av VBA-kodingsspråket. Jeg vet ofte at du kanskje har tenkt på noen av begrensningene som excel har, men med VBA-koding kan du eliminere alle disse. Ok, hvis du slet med VBA og fortsatt en nybegynner i denne artikkelen, vil vi gi noen av de nyttige eksemplene på VBA Macro-kode i Excel.

Liste over topp 19 eksempler

  1. Skriv ut alle arknavn
  2. Sett inn annen fargeindeks i VBA
  3. Sett inn serienummer fra toppen
  4. Sett inn serienummeret fra bunnen
  5. Sett inn serienummer fra 10 til 1
  6. Sett inn regneark så mye du vil
  7. Slett alle tomme regneark fra arbeidsboken
  8. Sett inn tom rad etter hver annen rad
  9. Fremhev stavefeil
  10. Endre alt til store bokstaver
  11. Endre alt til små bokstaver
  12. Fremhev alle kommenterte celler
  13. Fremhev alle de tomme cellene
  14. Skjul alle ark bortsett fra ett ark
  15. Skjul alle ark
  16. Slett alle filer i mappen
  17. Slett hele mappen
  18. Finn den siste brukte raden i arket
  19. Finn den sist brukte kolonnen i arket

La oss se hvert av disse eksemplene i detalj.

# 1 - Skriv ut alle arknavn

Kode:

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

Dette vil trekke ut alle arknavnene til det aktive arket.

# 2 - Sett inn annen fargeindeks i VBA

Kode:

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

Dette vil sette inn tall fra 1 til 56 og fargeindeksen i neste kolonne.

# 3 - Sett inn serienummer fra toppen

Kode:

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

Dette vil sette inn serienumre fra 1 til 10 fra toppen.

# 4 - Sett inn serienummer fra bunnen

Kode:

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

Dette vil sette inn serienumre fra 1 til 20 fra bunnen.

# 5 - Sett inn serienummer fra 10 til 1

Kode:

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

Dette vil sette inn serienumre fra 10 til 1 fra toppen.

# 6 - Sett inn regneark så mye du vil

Kode:

Sub AddSheets () Dim ShtCount As Integer, i As Integer ShtCount = Application.InputBox ("Hvor mange ark vil du sette inn?", "Add Sheets",,,,,,, 1) If ShtCount = False Then Exit Sub Else For i = 1 til ShtCount-regneark. Legg til neste i End If End Sub

Dette vil be deg om å oppgi antall regneark du vil sette inn. Bare spesifiser nummeret i inntastingsboksen og klikk på Ok, det setter inn de mange arkene umiddelbart.

# 7 - Slett alle tomme regneark fra arbeidsboken

Kode:

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

Her finner vi den sist brukte raden i arket

# 19 - Finn den sist brukte kolonnen i arket

Kode:

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

Her finner vi den sist brukte kolonnen i arket

Interessante artikler...