VBA of "Visual Basic for Applications" is de programmeertaal voor het schrijven van macro's (functies) in Excel-werkblad. Een VBA-macro biedt het voordeel van het repetitious taken automatiseren in een naadloze procedure die kan worden uitgevoerd op een klik van een muis, toetsaanslagen of werkblad evenement.
Het schrijven van een VBA-Macro
Selecteer "bfl|tekstbestand| Nieuw"in Excel een nieuwe werkmap maakt.
Voer de waarden "vruchten", "Appel", "appel," "banaan" en "oranje" in de cellen A1, A2, A3, A4 en A5.
Voer de waarden "prijs," "1.5", "1.4", "2", "1.5" in de cellen B1, B2, B3, B4 en B5.
Selecteer "Tools| Macro > macro's... "
Voer de Macro naam "sortFruitPrices" in het dialoogvenster Macro en selecteer "Maken."
Kopieer en plak de volgende code onder de functie auto-geproduceerde kop "Sub sortFruitPrices." Merk op dat "_" vertegenwoordigt dezelfde lijn voortzetting, "Header" is ingesteld op "xlYes" zodat de titel rij niet in de soort opgenomen en "MatchCase" is ingesteld op "True", dus dat apple voorafgaat aan Apple).
Cells.Sort _
Key1:=Range("a1"), Order1: = xlAscending, _
Key2:=Range("B1"), Order2: = xlAscending, _
Kop: = xlYes, OrderCustom: = 1, MatchCase: = True, oriëntatie: = xlSortColumns
Druk op "F5" de macro wilt uitvoeren.
Selecteer "bfl|tekstbestand| Opslaan"en sla de macro in"C:\Book1.xls."
Installeren van een VBA-Macro
Druk op 'Alt + TAB"overstappen van de VBA-editor naar het Excel-werkblad.
Selecteer "Tools| Customize..."en klik op het tabblad van de"Opdrachten"in het dialoogvenster.
Selecteer "Macro's" uit de lijst "Categorieën". Klik op de "Custom Menu-Item" uit de "Opdrachten" lijst, sleept u deze over het "Tools"-optie op het belangrijkste menu zodat het menu automatisch wordt geopend, dan daling het onder het laatste item.
Klik met de rechtermuisknop op "Tools| Klant Menu-Item"en verandering de vermelding van de naam naar"soort & FruitPrices,"druk op"Enter".
Klik met de rechtermuisknop op "Tools|sortFruitPrices" en selecteer "Toewijzen Macro …". SortFruitPrices selecteren in de lijst van de macro en klik op 'OK'. Het dialoogvenster aanpassen te sluiten.
Opslaan "C:\Book1.xls".
Wijzig de waarde "Apple" in "ananas" en selecteer "Tools|sortFruitPrices."
Toe te voegen automatisch sorteren
Klik op het tabblad "Blad1" aan de onderkant van het werkblad en selecteert u 'View Code'.
Klik op de lijst met objecten boven het paneel ' bron code ' waar '(algemeen)' wordt weergegeven en selecteer 'Werkblad'.
Selecteer "Change" in de "Evenementen" lijst naast de lijst "Objecten".
Kopieer en plak de volgende code onder de kop automatisch gegenereerde functie "Private Sub Worksheet_Change:"
Als Target.Column = 1 Then
Oproep sortFruitPrices
End If
Druk op 'Alt + TAB"overstappen van de VBA-editor naar het Excel-werkblad.
Opslaan "C:\Book1.xls."
Verandering "apple"dessert apple"en druk op"Enter". Merk op dat het werkblad automatisch gesorteerd op zelf.
- Om te debuggen van elke fout, geef de regel "Op Error Goto ErrHandler" onder 'Private Sub Worksheet_Change' en de volgende lijnen net boven 'End Sub'.
- Exit sub
- ErrHandler:
- MsgBox "fout:" "" & Err.Number & "" "" & Err.Description