seychellesartprojects.org

Excel VBA -esimerkkejä aloittelijoille

Makrot ovat paras ystäväsi, kun haluat lisätä tuottavuutta tai säästää aikaa työpaikallasi. VBA-koodauskielellä voimme automatisoida pienistä tehtävistä suuriin tehtäviin. Tiedän usein, että olet ehkä ajatellut joitain rajoituksia, joita Excelillä on, mutta VBA-koodauksen avulla voit poistaa kaikki nämä. Ok, jos kamppailit VBA: n kanssa ja olet vielä aloittelija tässä artikkelissa, annamme hyödyllisiä esimerkkejä VBA-makrokoodista Excelissä.

Luettelo 19 parhaasta esimerkistä

1. Tulosta kaikki arkkien nimet
2. Lisää erilainen väriindeksi VBA: han
3. Lisää sarjanumero ylhäältä
4. Lisää sarjanumero alhaalta
5. Lisää sarjanumero 10-1
6. Lisää laskentataulukot niin paljon kuin haluat
7. Poista kaikki tyhjät laskentataulukot työkirjasta
8. Lisää tyhjä rivi jokaisen toisen rivin jälkeen
9. Korosta oikeinkirjoitusvirhe
10. Vaihda kaikki isoihin kirjaimiin
11. Vaihda kaikki pieniin kirjaimiin
12. Korosta kaikki kommentoidut solut
13. Korosta kaikki tyhjät solut
14. Piilota kaikki taulukot paitsi yksi arkki
15. Näytä kaikki taulukot
16. Poista kaikki kansiossa olevat tiedostot
17. Poista koko kansio
18. Etsi viimeksi käytetty rivi taulukosta
19. Etsi viimeinen käytetty sarake taulukosta

Katsotaanpa jokainen esimerkki yksityiskohtaisesti.

Voit ladata tämän VBA-esimerkkien Excel-mallin täältä - VBA-esimerkkien Excel-malli

# 1 - Tulosta kaikki arkkien nimet

Koodi:

 Sub Print_Sheet_Names () Dim i kokonaislukuna i = 1 Sheets.Count Cells (i, 1). Value = Sheets (i). Name Next i End Sub 

Tämä purkaa kaikki arkkien nimet aktiiviseen taulukkoon.

# 2 - Lisää erilainen väriindeksi VBA: han

Koodi:

 Sub Insert_Different_Colours () Dim i kokonaislukuna i = 1 - 56 solua (i, 1). Arvo = i solut (i, 2). Interior.ColorIndex = i Seuraava loppuosa 

Tämä lisää numerot 1: stä 56: een ja niiden väriindeksin seuraavaan sarakkeeseen.

# 3 - Lisää sarjanumero ylhäältä

Koodi:

 Sub Insert_Numbers_From_Top () Dim i kokonaislukuna i = 1-10 soluun (i, 1). Arvo = i Seuraava i End Sub 

Tämä lisää sarjanumerot 1-10 ylhäältä.

# 4 - Lisää sarjanumero alhaalta

Koodi:

 Sub Insert_Numbers_From_Bottom () Dim i kokonaislukuna i = 20 - 1 vaihe -1 -solua (i, 7). Arvo = i Seuraava i End Sub 

Tämä lisää sarjanumerot 1-20 alhaalta.

# 5 - Lisää sarjanumero 10-1

Koodi:

 Alikymmenen_To_One () Dim i kokonaislukuna Dim j As kokonaislukuna j = 10 For i = 1-10 Alue ("A" & i). Arvo = jj = j - 1 Seuraava i End Sub 

Tämä lisää sarjanumerot 10: stä 1: een ylhäältä.

# 6 - Lisää taulukkoja niin paljon kuin haluat

Koodi:

 Alisivutaulukot () Dim ShtCount kokonaislukuna, i kokonaislukuna ShtCount = Application.InputBox ("Kuinka monta taulukkoa haluat lisätä?", "Lisää taulukoita",,,,,, 1) Jos ShtCount = Väärä, lopeta alitiedot Jos i = 1 ShtCount-laskentataulukkoihin, lisää seuraava i End If End Sub 

Tämä pyytää sinua syöttämään laskentataulukoiden määrän. Määritä vain numero syöttöruudussa ja napsauta Ok, se lisää nämä monta arkkia välittömästi.

# 7 - Poista kaikki tyhjät laskentataulukot työkirjasta

Koodi:

 Sub Delete_Blank_Sheets () Himmennä ws taulukkosovelluksena.DisplayAlerts = False Application.ScreenUpdating = False jokaiselle ActiveWorkbookin ws: lle.Worksheets If WorksheetFunction.CountA (ws.UsedRange) = 0 Sitten ws.Delete End Jos Seuraava ws Application.DisplayAlerts = .ScreenUpdating = True End Sub 

Tämä poistaa kaikki tyhjät laskentataulukot työkirjasta, jota käsittelemme.

# 8 - Lisää tyhjä rivi jokaisen toisen rivin jälkeen

Koodi:

 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) .Valitse Seuraava End Sub 

Tätä varten sinun on valittava alue, johon haluat lisätä vaihtoehtoisia tyhjiä rivejä.

# 9 - Korosta oikeinkirjoitusvirhe

Koodi:

 Ala Chech_Spelling_Mistake () Himmennä MySelection alueeksi jokaiselle MySelection-alueelle ActiveSheet.UsedRange If Not Application.CheckSpelling (Word: = MySelection.Text) Sitten MySelection.Interior.Color = vbRed End If Next MySelection End Sub 

Valitse ensin tiedot ja suorita VBA-koodi. Se tuo esiin solut, joissa on kirjoitusvirheitä.

# 10 - Vaihda kaikki isoihin kirjaimiin

Koodi:

 Sub Change_All_To_UPPER_Case () Himmennä Rng alueena jokaiselle valitsemallesi Rng: lle. Solut Jos Rng.HasFormula = Väärin sitten Rng.Value = UCase (Rng.Value) Loppu, jos Seuraava Rng Loppu Sub 

Valitse ensin tiedot ja suorita koodi. Se muuntaa kaikki tekstiarvot isoin kirjaimin.

# 11 - Vaihda kaikki pieniin kirjaimiin

Koodi:

 Sub Change_All_To_LOWER_Case () Himmennä Rng alueena jokaiselle valitsemallesi Rng: lle. Solut Jos Rng.HasFormula = Väärin Sitten Rng.Value = LCase (Rng.Value) Loppu Jos Seuraava Ong Loppu Sub 

Valitse ensin tiedot ja suorita koodi. Se muuntaa kaikki tekstiarvot pieniksi kirjaimiksi Excelissä.

# 12 - Korosta kaikki kommentoidut solut

Koodi:

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

Tulos: 

# 13 - Korosta kaikki tyhjät solut

Koodi:

 Sub Highlight_Blank_Cells () Himmennä tietojoukko alueeksi DataSet = valinta DataSet.Cells.SpecialCells (xlCellTypeBlanks) .Interior.Color = vbGreen End Sub 

Valitse ensin data-alue ja suorita koodi. Se korostaa kaikki tyhjät solut vihreällä värillä.

# 14 - Piilota kaikki taulukot paitsi yksi arkki

Koodi:

 Sub Hide_All_Except_One () Himmennä Ws laskentataulukoksi jokaiselle W: lle ActiveWorkbook.Worksheets Jos Ws.Name "Main Sheet" Sitten Ws.Visible = xlSheetVeryHidden Seuraava Ws End Sub 

Yllä oleva koodi piilottaa kaikki arkit paitsi pääarkiksi nimetyn arkin. Voit muuttaa laskentataulukon nimen toiveidesi mukaan.

# 15 - Näytä kaikki taulukot

Koodi:

 Sub UnHide_All () Himmennä Ws laskentataulukoksi jokaiselle ActiveWorkbookin W: lle. Työarkit Ws.Visible = xlSheetVisible Seuraava Ws End Sub 

Tämä näyttää kaikki piilotetut arkit.

# 16 - Poista kaikki kansiossa olevat tiedostot

Koodi:

 Sub Delete_All_Files () 'Tämän avulla voit poistaa kaikki tiedostot kansiosta Test' 'On Error Resume Next Tapp "C: \ Users \ Admin_2.Dell-Pc Desktop \ Delete Folder \ *. *" On Error GoTo 0 End Sub 

Muuta punaisella merkitty kansion polku kansion poiston mukaan.

# 17 - Poista koko kansio

Koodi:

 Sub Delete_Whole_Folder () 'Voit käyttää tätä koko kansion poistamiseen. Virhe Jatka Seuraava Tapa "C: \ Users \ Admin_2.Dell-Pc \ Desktop \ Delete Folder \ *. *"' Ensinnäkin se poistaa kaikki kansion tiedostot 'Sitten alla oleva koodi poistaa koko kansion, jos se on tyhjä RmDir "C: \ Users \ Admin_2.Dell-Pc \ Desktop \ Delete Folder \"' Huomaa: RmDir poistaa vain tyhjän kansion Virhe GoTo 0 End Sub 

Muuta punaisella merkitty kansion polku kansion poiston mukaan.

# 18 - Etsi viimeksi käytetty rivi taulukosta

Koodi:

 Sub Last_Row () Dim LR As Long LR = Solut (Rivit.Määrä, 1) .End (xlUp) .Rivi MsgBox LR End Sub 

Täältä löydät viimeksi käytetyn rivin taulukosta

# 19 - Etsi viimeksi käytetty sarake taulukosta

Koodi:

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

Täältä löydät viimeisimmän sarakkeen taulukosta