VBA näited | 19 parema Exceli VBA näite loetelu algajatele

Exceli VBA näited algajatele

Makrod on teie parim sõber, kui soovite oma tööviljakust suurendada või oma töökohal aega kokku hoida. Alates väikestest ülesannetest kuni suurte ülesanneteni saame automatiseerida VBA kodeerimiskeelt. Ma tean sageli, et võite mõelda mõnele Exceli piirangule, kuid VBA-kodeerimisega saate need kõik kõrvaldada. Okei, kui olete selles artiklis VBA-ga ja veel algajana vaeva näinud, toome mõned kasulikud näited VBA makrokoodist Excelis.

19 populaarseima näite loetelu

  1. Prindi kõik lehtede nimed
  2. Sisestage VBA-sse erinev värvide register
  3. Sisestage seerianumber ülevalt
  4. Sisestage seerianumber altpoolt
  5. Sisestage seerianumber 10 kuni 1
  6. Sisestage töölehed nii palju kui soovite
  7. Kustutage kõik tühjad töölehed töövihikust
  8. Sisestage tühi rida iga teise rea järel
  9. Tõstke esile õigekirjaviga
  10. Muuda kõik suurtähtedeks
  11. Muuda kõik väiketähtedeks
  12. Tõstke esile kõik kommenteeritud lahtrid
  13. Tõstke esile kõik tühjad lahtrid
  14. Peida kõik lehed, välja arvatud üks leht
  15. Tühista kõigi lehtede peitmine
  16. Kustutage kaustast kõik failid
  17. Kustuta kogu kaust
  18. Leidke lehelt viimati kasutatud rida
  19. Leidke lehelt viimati kasutatud veerg

Vaatame iga seda näidet üksikasjalikult.

Selle VBA näidete Exceli malli saate alla laadida siit - VBA näited Exceli mall

# 1 - printige kõik lehtede nimed

Kood:

 Sub Print_Sheet_Names () Dim i täisarvuna i = 1 töölehele. Lahtrite arv (i, 1). Väärtus = Sheets (i). Nimi Järgmine i End Sub 

See eraldab kõik lehtede nimed aktiivsele lehele.

# 2 - sisestage VBA-sse erinev värvide register

Kood:

 Sub Insert_Different_Colours () Dim i täisarvuna i = 1 kuni 56 lahtrit (i, 1). Väärtus = i lahtrid (i, 2). Interjöör.ColorIndex = i Järgmine alaosa 

See lisab järgmisesse veergu numbrid 1–56 ja nende värviindeksi.

# 3 - sisestage seerianumber ülevalt

Kood:

 Sub Insert_Numbers_From_Top () Dim i täisarvuna i = 1 kuni 10 lahtrit (i, 1). Väärtus = i Järgmine i End Sub 

See sisestab ülaosast seerianumbrid vahemikus 1 kuni 10.

# 4 - sisestage seerianumber altpoolt

Kood:

 Sub Insert_Numbers_From_Bottom () Dim i täisarvuna i = 20 kuni 1 samm -1 lahtrit (i, 7). Väärtus = i Järgmine i End Sub 

See sisestab alt seerianumbrid vahemikus 1 kuni 20.

# 5 - sisestage seerianumber vahemikku 10–1

Kood:

 Kümme alaosa_To_One () Dim i täisarvuna d j täisarvuna j = 10 i = 1 kuni 10 vahemiku ("A" ja i) korral. Väärtus = jj = j - 1 Järgmine i lõpp 

See sisestab ülevalt seerianumbrid vahemikus 10–1.

# 6 - Sisestage töölehed nii palju kui soovite

Kood:

 Sub AddSheets () Dim ShtCount kui täisarv, i nagu Integer ShtCount = Application.InputBox ("Mitu lehte soovite lisada?", "Add Sheets",,,,, 1) Kui ShtCount = False, siis väljuge alamast Sest i = 1 ShtCount töölehtedele. Lisage järgmine i End If End Sub 

See palub teil sisestada sisestatavate töölehtede arvu. Täpsustage lihtsalt number sisestuskastis ja klõpsake nuppu Ok, see lisab need paljud lehed kohe.

# 7 - kustutage töövihikust kõik tühjad töölehed

Kood:

 Sub Delete_Blank_Sheets () Dim ws töölehe rakendusena. DispleAlerts = False Application.ScreenUpdating = Vale ActiveWorkbooki iga ws jaoks. Töölehed If WorksheetFunction.CountA (ws.UsedRange) = 0 Siis ws.Delete Lõpeta, kui järgmine ws Application.DisplayAlerts = .ScreenUpdating = Tõeline lõpu alam 

See kustutab kõik tühjad töölehed töövihikust, millega töötame.

# 8 - sisestage tühi rida iga teise rea järel

Kood:

 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). Valige Järgmine Lõpeta alam 

Esmalt peate valima vahemiku, kuhu soovite alternatiivsed tühjad read lisada.

# 9 - tõstke esile õigekirjaviga

Kood:

 Sub Chech_Spelling_Mistake () Hämarda MySelection vahemikuna iga MySelectioni jaoks ActiveSheetis. UsedRange kui mitte Application.CheckSpelling (Word: = MySelection.Text) Siis MySelection.Interior.Color = vbRed End Kui järgmine MySelection End Sub 

Kõigepealt valige andmed ja käivitage VBA kood. See toob esile lahtrid, millel on õigekirjavigu.

# 10 - muutke kõik suurtähtedeks

Kood:

 Sub Change_All_To_UPPER_Case () Dim Rng iga valiku Rng vahemikuna. Lahtrid Kui Rng.HasFormula = Vale, siis Rng.Value = UCase (Rng.Value) Lõpeta, kui Järgmine Rng Lõpp Alam 

Kõigepealt valige andmed ja käivitage kood. See teisendab kõik tekstiväärtused suurtähtedeks.

# 11 - muutke kõik väiketähtedeks

Kood:

 Sub Change_All_To_LOWER_Case () Dim Rng vahemikuna iga Rng in Selection.Cells korral Rng.HasFormula = Vale, siis Rng.Value = LCase (Rng.Value) Lõpeta, kui Järgmine Rng End Sub 

Kõigepealt valige andmed ja käivitage kood. See teisendab kõik tekstiväärtused Excelis väiketähtedeks.

# 12 - tõstke esile kõik kommenteeritud lahtrid

Kood:

 Sub HighlightCellsWithCommentsInActiveWorksheet () ActiveSheet.UsedRange.SpecialCells (xlCellTypeComments) .Interior.ColorIndex = 4 End Sub 

Tulemus: 

# 13 - tõstke esile kõik tühjad lahtrid

Kood:

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

Kõigepealt valige andmevahemik ja käivitage kood. See toob esile kõik tühjad lahtrid rohelise värviga.

# 14 - peida kõik lehed, välja arvatud üks leht

Kood:

 Sub Hide_All_Except_One () Dim Ws töölehena ActiveWorkbooki iga W-le. Töölehed, kui Ws.Name "Main Sheet", siis Ws.Visible = xlSheetVeryHidden Järgmine Ws End Sub 

Ülaltoodud kood peidab kõik lehed, välja arvatud leht, mille nimi on “Põhileht”. Töölehe nime saate vastavalt oma soovile muuta.

# 15 - Kuva kõik lehed

Kood:

 Sub UnHide_All () Dim Ws töölehena ActiveWorkbooki iga W-le. Töölehed Ws.Visible = xlSheetVisible Järgmised Ws End Sub 

See peidab kõik peidetud lehed.

# 16 - kustutage kõik kaustast failid

Kood:

 Sub Delete_All_Files () 'Selle abil saate kustutada kõik kaustas olevad failid Test' 'Vea jätkamisel Järgmine tapmine "C: \ Users \ Admin_2.Dell-Pc \ Desktop \ Delete Folder \ *. *" On Error GoTo 0 Lõpeta alam 

Muutke kausta kustutamise korral punasega tähistatud kausta teed.

# 17 - kogu kausta kustutamine

Kood:

 Sub Delete_Whole_Folder () 'Seda saab kasutada kogu kausta kustutamiseks. Tõrge Jätka järgmine tapmine "C: \ Users \ Admin_2.Dell-Pc \ Desktop \ Delete Folder \ *. *"' Esiteks kustutab see kõik kaustas olevad failid 'Seejärel kustutab kood allpool kogu kausta, kui see on tühi. RmDir "C: \ Users \ Admin_2.Dell-Pc \ Desktop \ Delete Folder \"' Märkus: RmDir kustutab ainult tühja kausta. Viga GoTo 0 End Sub 

Muutke kausta kustutamise korral punasega tähistatud kausta teed.

# 18 - leidke lehelt viimati kasutatud rida

Kood:

 Sub Last_Row () Dim LR As Long LR = lahtrid (Rows. Count, 1). End (xlUp). Rida MsgBox LR End Sub 

Siit leiame lehelt viimati kasutatud rea

# 19 - leidke lehelt viimati kasutatud veerg

Kood:

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

Siit leiame lehelt viimati kasutatud veeru