Mga Halimbawa sa VBA | Listahan ng Nangungunang 19 Mga Halimbawa ng Excel VBA para sa Mga Nagsisimula

Mga Halimbawa ng Excel VBA para sa Mga Nagsisimula

Ang Macros ay ang iyong matalik na kaibigan pagdating sa upang madagdagan ang iyong pagiging produktibo o makatipid ng ilang oras sa iyong lugar ng trabaho. Mula mismo sa maliliit na gawain hanggang sa malalaking gawain na maaari nating i-automate sa pamamagitan ng paggamit ng wikang coding ng VBA. Alam kong madalas na maisip mo ang ilan sa mga limitasyong mayroon ang excel ngunit sa pag-coding ng VBA maaari mong alisin ang lahat ng iyon. Ok, kung nakipagpunyagi ka sa VBA at ang nagsisimula pa rin sa artikulong ito ay bibigyan namin ang ilan sa mga kapaki-pakinabang na halimbawa ng VBA Macro code sa Excel.

Listahan ng Nangungunang 19 Mga Halimbawa

  1. I-print ang Lahat ng Mga Pangalan ng Sheet
  2. Ipasok ang Iba't ibang Kulay ng Index sa VBA
  3. Ipasok ang Serial Number Mula sa Itaas
  4. Ipasok ang Serial Number Mula sa Ibabang
  5. Ipasok ang Serial Number Mula 10 hanggang 1
  6. Ipasok ang Mga Worksheet hangga't gusto mo
  7. Tanggalin ang Lahat ng Mga Blangkong Worksheet Mula sa Workbook
  8. Ipasok ang Blank Row Pagkatapos ng Bawat Iba pang Hilera
  9. I-highlight ang Pagkakamali sa Spelling
  10. Baguhin ang Lahat Sa Mga Taas na Character na Kaso
  11. Baguhin ang Lahat Sa Mas Mababang Mga Character ng Kaso
  12. I-highlight ang Lahat ng Mga Komento na Cell
  13. I-highlight ang Lahat ng Blangkong Mga Cell
  14. Itago ang Lahat ng Mga Sheet Maliban sa Isang Sheet
  15. Itago ang Lahat ng Mga Sheet
  16. Tanggalin ang Lahat ng Mga File sa Folder
  17. Tanggalin ang Buong Folder
  18. Hanapin ang Huling Ginamit na Hilera sa Sheet
  19. Hanapin ang Huling Ginamit na Haligi sa Sheet

Tingnan natin ang bawat isa sa halimbawang ito nang detalyado.

Maaari mong i-download ang VBA halimbawa ng Excel Template dito - Mga Halimbawa ng VBA na Excel Template

# 1 - I-print ang Lahat ng Mga Pangalan ng Sheet

Code:

 Sub Print_Sheet_Names () Dim i Bilang Integer Para sa i = 1 Sa Mga Sheet. Mga Cells ng Count (i, 1). Halaga = Mga Sheet (i). Pangalan Susunod i End Sub

Aalisin nito ang lahat ng mga pangalan ng sheet sa aktibong sheet.

# 2 - Ipasok ang Iba't Ibang Kulay ng Index sa VBA

Code:

 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

Ipapasok nito ang mga numero mula 1 hanggang 56 at ang kanilang index ng kulay sa susunod na haligi.

# 3 - Ipasok ang Serial Number Mula sa Itaas

Code:

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

Ipapasok nito ang mga serial number mula 1 hanggang 10 mula sa itaas.

# 4 - Ipasok ang Serial Number Mula sa Ibabang

Code:

 Sub Insert_Number_From_Bottom () Dim i As Integer For i = 20 To 1 Step -1 Cells (i, 7) .Value = i Next i End Sub

Ipapasok nito ang mga serial number mula 1 hanggang 20 mula sa ibaba.

# 5 - Ipasok ang Serial Number Mula 10 hanggang 1

Code:

 Sub Ten_To_One () Dim i Bilang Integer Dim j Bilang Integer j = 10 Para sa i = 1 Hanggang sa 10 Saklaw ("A" & i). Halaga = j j = j - 1 Susunod i End Sub

Ipapasok nito ang mga serial number mula 10 hanggang 1 mula sa itaas.

# 6 - Ipasok ang Mga Worksheet hangga't gusto mo

Code:

 Sub AddSheets () Dim ShtCount Bilang Integer, i Bilang Integer ShtCount = Application.InputBox ("Gaano karaming Mga Sheet ang nais mong ipasok?", "Magdagdag ng Mga Sheet",,,,, 1) Kung ShtCount = Mali Pagkatapos Exit Sub Else Para sa i = 1 To ShtCount Worksheets. Idagdag ang Susunod na Nagtatapos Kung Tapusin ang Sub

Hihilingin sa iyo na ipasok ang bilang ng mga worksheet na nais mong isingit. Tukuyin lamang ang numero sa kahon ng pag-input at mag-click sa Ok, ipapasok nito kaagad ang maraming mga sheet.

# 7 - Tanggalin ang Lahat ng Mga Blangkong Worksheet Mula sa Workbook

Code:

 Sub Delete_Blank_Sheets () Dim ws As Worksheet Application. DisplayAlerts = False Application.ScreenUpdating = Mali Para sa bawat ws Sa ActiveWorkbook. Worksheets Kung WorksheetFunction.CountA (ws.UsedRange) = 0 Kung gayon ws.Delete End Kung Susunod na ws Application. DisplayAlerts = True Application .ScreenUpdating = True End Sub

Tatanggalin nito ang lahat ng mga blangko na worksheet mula sa workbook na ginagawa namin.

# 8 - Ipasok ang Blangkong Hilera Pagkatapos ng Bawat Iba pang Hilera

Code:

 Sub Insert_Row_After_Every_Other_Row () Dim rng Bilang Saklaw na Dim CountRow Bilang Integer Dim i Bilang Integer Set rng = Selection CountRow = rng.EntireRow.Count Para sa i = 1 To CountRow ActiveCell.EntireRow.Insert ActiveCell.Offset (2, 0). Piliin ang Susunod. Wakas Sub

Para sa mga ito muna, kailangan mong piliin ang saklaw kung saan mo nais na magsingit ng mga kahaliling blangko na hilera.

# 9 - I-highlight ang Pagkakamali sa Spelling

Code:

 Sub Chech_Spelling_Mistake () I-dim ang AkingSeleksyon Bilang Saklaw Para sa bawat MySelection Sa ActiveSheet.UsedRange Kung Hindi Application.CheckSpelling (Word: = MySelection.Text) Pagkatapos MySelectionInterior.Color = vbRed End Kung Susunod MySelection End Sub

Una, piliin ang data at patakbuhin ang VBA code. Itatampok nito ang mga cell na may mga pagkakamali sa pagbaybay.

# 10 - Baguhin ang Lahat Sa Taas na Mga Character ng Kaso

Code:

 Sub Change_All_To_UPPER_Case () Dim Rng Bilang Saklaw Para sa bawat Rng Sa Pinili. Mga Selula Kung Rng.HasFormula = Mali Pagkatapos Rng.Value = UCase (Rng.Value) Nagtatapos Kung Susunod na Rng End Sub

Una, piliin ang data at patakbuhin ang code. Io-convert nito ang lahat ng mga halaga ng teksto sa mga character sa itaas na kaso.

# 11 - Baguhin ang Lahat Sa Mas Mababang Mga Character ng Kaso

Code:

 Sub Change_All_To_LOWER_Case () Dim Rng Bilang Saklaw Para sa bawat Rng Sa Pinili. Mga Selula Kung Rng.HasFormula = Mali Pagkatapos Rng.Value = LCase (Rng.Value) Nagtatapos Kung Susunod na Rng End Sub

Una, piliin ang data at patakbuhin ang code. Io-convert nito ang lahat ng mga halaga ng teksto sa mga character na mas mababang kaso sa excel.

# 12 - I-highlight ang Lahat ng Mga Komento na Mga Cell

Code:

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

Resulta:

# 13 - I-highlight ang Lahat ng Mga Blangko na Selula

Code:

 Sub Highlight_Blank_Cells () Malabo ang DataSet Bilang Saklaw na Itakda ang DataSet = Seleksyon DataSet.Cells.Spesyal na Mga Cell (xlCellTypeBlanks) .Interior.Color = vbGreen End Sub

Una, piliin ang saklaw ng data at patakbuhin ang code. Itatampok nito ang lahat ng blangko na mga cell na may berdeng kulay.

# 14 - Itago ang Lahat ng Mga Sheet Maliban sa Isang Sheet

Code:

 Sub Hide_All_Except_One () Dim Ws Bilang Worksheet Para sa bawat Ws Sa ActiveWorkbook. Mga Worksheet Kung Ws.Name na "Pangunahing Sheet" Pagkatapos Ws.Visible = xlSheetVeryHidden Susunod Ws End Sub

Itinatago ng code sa itaas ang lahat ng mga sheet maliban sa sheet na pinangalanan bilang "Pangunahing Sheet". Maaari mong baguhin ang pangalan ng worksheet alinsunod sa iyong nais.

# 15 - Itago ang Lahat ng Mga Sheet

Code:

 Sub UnHide_All () Dim Ws Bilang Worksheet Para sa bawat Ws Sa ActiveWorkbook. Worksheets Ws.Visible = xlSheetVisible Susunod Ws End Sub

Ilahad nito ang lahat ng mga nakatagong sheet.

# 16 - Tanggalin ang Lahat ng Mga File sa Folder

Code:

 Sub Delete_All_Files () 'Maaari mo itong magamit upang matanggal ang lahat ng mga file sa folder na Pagsubok' 'Sa Error Ipagpatuloy Susunod na Patayin ang "C: \ Users \ Admin_2.Dell-Pc \ Desktop \ Delete Folder \ *. *" On Error GoTo 0 Wakas Sub

Baguhin ang path ng folder na minarkahan ng pula ayon sa pagtanggal ng iyong folder.

# 17 - Tanggalin ang Buong Folder

Code:

 Sub Delete_Whole_Folder () 'Maaari mo itong magamit upang matanggal ang buong folder Sa Error Resume Susunod na Patayin ang "C: \ Users \ Admin_2.Dell-Pc \ Desktop \ Delete Folder \ *. *"' Una tatanggalin nito ang lahat ng mga file sa folder 'Pagkatapos sa ibaba ang code ay magtatanggal ng buong folder kung walang laman ang RmDir "C: \ Users \ Admin_2.Dell-Pc \ Desktop \ Delete Folder \"' Tandaan: Ang RmDir ay tatanggalin lamang ang isang walang laman na folder Sa Error GoTo 0 End Sub

Baguhin ang path ng folder na minarkahan ng pula ayon sa pagtanggal ng iyong folder.

# 18 - Hanapin ang Huling Ginamit na Hilera sa Sheet

Code:

 Sub Last_Row () Dim LR Bilang Mahabang LR = Mga Cell (Rows.Count, 1). End (xlUp) .Row MsgBox LR End Sub

Mahahanap natin dito ang Huling ginamit na Hilera sa Sheet

# 19 - Hanapin ang Huling Ginamit na Haligi sa Sheet

Code:

 Sub Last_Column () Madilim LC Tulad ng Long LC = Mga Cell (1, Mga Haligi. Bilang). End (xlToLeft). Column MsgBox LC End Sub

Mahahanap natin dito ang Huling ginamit na Haligi sa Sheet


Patok Na Mga Post

Kamakailang mga Post

Copyright tl.photosdematures.com 2024