seychellesartprojects.org

Excel VBA piemēri iesācējiem

Makro ir jūsu labākais draugs, lai palielinātu produktivitāti vai ietaupītu kādu laiku savā darba vietā. Tieši no maziem uzdevumiem līdz lieliem uzdevumiem mēs varam automatizēt, izmantojot VBA kodēšanas valodu. Es zinu, ka jūs bieži domājat par dažiem Excel ierobežojumiem, taču ar VBA kodēšanu jūs varat tos visus novērst. Labi, ja jūs cīnījāties ar VBA un joprojām esat iesācējs šajā rakstā, mēs sniegsim dažus noderīgus VBA makro koda piemērus programmā Excel.

19 populārāko piemēru saraksts

1. Drukāt visus lapu nosaukumus
2. Ievietojiet dažādu krāsu indeksu VBA
3. Ievietojiet sērijas numuru no augšas
4. Ievietojiet sērijas numuru no apakšas
5. Ievietojiet sērijas numuru no 10 līdz 1
6. Ievietojiet darblapas tik daudz, cik vēlaties
7. Dzēst visas tukšās darblapas no darbgrāmatas
8. Ievietojiet tukšo rindu aiz katras citas rindas
9. Iezīmējiet pareizrakstības kļūdu
10. Mainīt visus uz lielajiem burtiem
11. Mainīt visu uz mazajiem burtiem
12. Iezīmējiet visas komentētās šūnas
13. Iezīmējiet visas tukšās šūnas
14. Slēpt visas lapas, izņemot vienu lapu
15. Neslēpt visas lapas
16. Dzēst visus mapē esošos failus
17. Dzēst visu mapi
18. Lapā atrodiet pēdējo izmantoto rindu
19. Lapā atrodiet pēdējo izmantoto kolonnu

Apskatīsim katru šo piemēru detalizēti.

Šo VBA piemēru Excel veidni varat lejupielādēt šeit - VBA Excel veidnes paraugi

# 1 - Izdrukājiet visu lapu nosaukumus

Kods:

 Sub Print_Sheet_Names () Dim i kā vesels skaitlis i = 1 uz Sheets. Skaita šūnas (i, 1). Vērtība = Sheets (i). Nosaukums Next i End Sub 

Tādējādi visi lapu nosaukumi tiks iegūti aktīvajā lapā.

# 2 - Ievietojiet dažādu krāsu indeksu VBA

Kods:

 Sub Insert_Different_Colours () Dim i kā veselais skaitlis i = 1 līdz 56 šūnas (i, 1). Vērtība = i Cells (i, 2). Iekšpuse.ColorIndex = i Nākamā beigu apakšdaļa 

Tādējādi nākamajā kolonnā tiks ievietoti skaitļi no 1 līdz 56 un to krāsu indekss.

# 3 - Ievietojiet sērijas numuru no augšas

Kods:

 Sub Insert_Numbers_From_Top () Dim i kā vesels skaitlis i = 1 līdz 10 šūnām (i, 1). Vērtība = i Nākamais i Beigas Sub 

Tādējādi no augšas tiks ievietoti sērijas numuri no 1 līdz 10.

# 4 - Ievietojiet sērijas numuru no apakšas

Kods:

 Sub Insert_Numbers_From_Bottom () Dim i kā vesels skaitlis i = 20 līdz 1 solis -1 šūnas (i, 7). Vērtība = i Nākamais i Beigas Sub 

Tādējādi no apakšas tiks ievietoti sērijas numuri no 1 līdz 20.

# 5 - ievietojiet sērijas numuru no 10 līdz 1

Kods:

 Desmit apakšdaļa_To_One () Dim i kā vesels skaitlis Dim j kā vesels skaitlis j = 10 i = 1 līdz 10 diapazons ("A" & i). Vērtība = jj = j - 1 Nākamais i Beigas Sub 

Tas no augšas ievietos sērijas numurus no 10 līdz 1.

# 6 - Ievietojiet darblapas tik daudz, cik vēlaties

Kods:

 Sub AddSheets () Dim ShtCount kā vesels skaitlis, i kā Integer ShtCount = Application.InputBox ("Cik daudz lapu vēlaties ievietot?", "Pievienot lapas",,,,,, 1) Ja ShtCount = False, tad iziet no citas daļas Par i = 1 ShtCount darblapām. Pievienojiet nākamo i End If End Sub 

Tas prasīs ievadīt darblapu skaitu, kuru vēlaties ievietot. Vienkārši norādiet numuru ievades lodziņā un noklikšķiniet uz Labi, tas nekavējoties ievietos šīs daudzās lapas.

# 7 - dzēst visas tukšās darblapas no darbgrāmatas

Kods:

 Sub Delete_Blank_Sheets () Dim ws kā darblapas Application.DisplayAlerts = False Application.ScreenUpdating = False katram ws ActiveWorkbook.Worksheets If WorksheetFunction.CountA (ws.UsedRange) = 0 Tad ws.Delete Beigt Ja nākamais ws Application.DisplayAlerts = .ScreenUpdating = True End Sub 

Tas izdzēsīs visas tukšās darblapas no darbgrāmatas, pie kuras strādājam.

# 8 - pēc katras citas rindas ievietojiet tukšu rindu

Kods:

 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). Izvēlieties Nākamo Beigu apakšnodaļa 

Vispirms jums jāizvēlas diapazons, kurā vēlaties ievietot alternatīvas tukšas rindas.

# 9 - Izcelt pareizrakstības kļūdu

Kods:

 Sub Chech_Spelling_Mistake () Aptumšojiet MySelection kā diapazonu katrai MySelection diapazonā ActiveSheet.UsedRange If Not Application.CheckSpelling (Word: = MySelection.Text), pēc tam MySelection.Interior.Color = vbRed End Ja Nākamā MySelection End Sub 

Vispirms atlasiet datus un palaidiet VBA kodu. Tas izceļ šūnas, kurās ir pareizrakstības kļūdas.

# 10 - Mainiet visus uz lielajiem burtiem

Kods:

 Sub Change_All_To_UPPER_Case () Dim Rng kā diapazons katram Rng Selection.Cells Ja Rng.HasFormula = Nepatiesa, tad Rng.Value = UCase (Rng.Value) Beigt Ja Nākamā Rng Beigu apakšnodaļa 

Vispirms atlasiet datus un palaidiet kodu. Tas pārveidos visas teksta vērtības lielajās burtās.

# 11 - Mainiet visus uz mazajiem burtiem

Kods:

 Sub Change_All_To_LOWER_Case () Dim Rng kā diapazons katram Rng Selection.Cells Ja Rng.HasFormula = Nepatiesa, tad Rng.Value = LCase (Rng.Value) Beigt Ja Nākamā Rng Beigu apakšnodaļa 

Vispirms atlasiet datus un palaidiet kodu. Tas pārvērsīs visas teksta vērtības ar mazajiem burtiem programmā Excel.

# 12 - iezīmējiet visas komentētās šūnas

Kods:

 Sub HighlightCellsWithCommentsInActiveWorksheet () ActiveSheet.UsedRange.SpecialCells (xlCellTypeComments) .Interior.ColorIndex = 4 beigu apakšdaļa 

Rezultāts: 

# 13 - iezīmējiet visas tukšās šūnas

Kods:

 Sub Highlight_Blank_Cells () Dim DataSet As Range Set DataSet = Selection DataSet.Cells.SpecialCells (xlCellTypeBlanks) .Interior.Color = vbGreen End Sub 

Vispirms atlasiet datu diapazonu un palaidiet kodu. Tas iezīmēs visas tukšās šūnas ar zaļu krāsu.

# 14 - Paslēpt visas lapas, izņemot vienu lapu

Kods:

 Sub Hide_All_Except_One () Dim Ws kā darblapa katram W ActiveWorkbook.Worksheets Ja Ws.Name "Galvenā lapa", tad Ws.Visible = xlSheetVeryHidden Nākamā Ws End Sub 

Iepriekš minētais kods slēpj visas lapas, izņemot lapu, kuras nosaukums ir “Galvenā lapa”. Jūs varat mainīt darblapas nosaukumu atbilstoši savai vēlmei.

# 15 - Nerādīt visas lapas

Kods:

 Sub UnHide_All () Dim Ws kā darblapa katram WS ActiveWorkbook. Darblapas Ws.Visible = xlSheetVisible Nākamās Ws End Sub 

Tas parādīs visas slēptās lapas.

# 16 - Dzēst visus mapē esošos failus

Kods:

 Sub Delete_All_Files () 'To var izmantot, lai izdzēstu visus failus mapē Pārbaude' 'Pēc kļūdas atsākšanas Nākamais nogalināt "C: \ Users \ Admin_2.Dell-Pc Desktop \ Delete Folder \ *. *" On Error GoTo 0 Beigu apakšnodaļa 

Mainiet mapes ceļu, kas pēc mapes dzēšanas ir atzīmēts sarkanā krāsā.

# 17 - Dzēst visu mapi

Kods:

 Sub Delete_Whole_Folder () 'To var izmantot, lai izdzēstu visu mapi. Kļūda Atsākt Nākamais Kill "C: \ Users \ Admin_2.Dell-Pc \ Desktop \ Delete Folder \ *. *"' Pirmkārt, tas izdzēsīs visus mapē esošos failus 'Tad zem koda tiks izdzēsta visa mape, ja tā ir tukša. RmDir "C: \ Users \ Admin_2.Dell-Pc \ Desktop \ Delete Folder \"' Piezīme: RmDir izdzēš tikai tukšu mapi Kļūdā GoTo 0 End Sub 

Mainiet mapes ceļu, kas pēc mapes dzēšanas ir atzīmēts sarkanā krāsā.

# 18 - lapā atrodiet pēdējo izmantoto rindu

Kods:

 Sub Last_Row () Dim LR As Long LR = šūnas (Rows.Count, 1). End (xlUp). Rinda MsgBox LR End Sub 

Šeit mēs atrodam pēdējo izmantoto rindu lapā

# 19 - lapā atrodiet pēdējo izmantoto kolonnu

Kods:

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

Šeit mēs atrodam pēdējo izmantoto sleju lapā