Makroer er programmer som er skrevet med et skriptspråk , for eksempel Microsoft Office Visual Basic for Applications ( VBA ) . VBA- makroer kan fylle spalter i både Access og Excel , ved hjelp av metoder ( dvs. funksjoner) til VBA -objektmodellen , et hierarki av virtuelle objekter . Fylling kolonner i Access og Excel innebærer å skrive kildekoden som påberoper seg slike metoder med parametre satt til verdiene for å fylle kolonnene med . Ved hjelp av VBA-makroer i stedet for manuell oppføring for å fylle kolonner med data reduserer tiden som trengs for å legge til data i Access og Excel-tabeller . Du trenger
Microsoft Access og Excel
Vis flere instruksjoner
Fyll Excel- kolonner med data
en

Åpne Excel og inn i VBA utvikling vinduet ved å trykke " alt " + " F11 ".
2

Dobbeltklikk på " Project " i ruten " Dette arbeidsbok " element for å vise en rute for å legge inn ny programkode.
3

Lim programmet som vises nedenfor i den nye ruten . Dette programmet setter verdiene av cellene egenskapen til ActiveSheet objektet. Celler egenskapen representerer alle celler i gjeldende regneark . "For " og " Next" uttalelser i programmet danner en sløyfe struktur som fyller en kolonne i gjeldende regneark med data .

Public Sub FillColumns ()

Dim col
< p> For col = 1 til 10

ActiveSheet.Cells ( col , 1 ) = " somevalue "

Neste col

End Sub
4 < p> Klikk på en uttalelse av FillColumns program , trykk " F5 " for å kjøre dette programmet .
5

Tilbake til Excel ved å trykke " Alt" + "F11 ". Gjeldende regneark vil vise " somevalue " for de første 10 radene i regnearket første kolonne.
Fyll Tilgang Kolonner med data
6

Åpen Microsoft Access , og deretter opprette en ny database tabellen ved å klikke på "Create" -menyen er " Table" element.
7

Type " Felt1 " i cellen ved siden av cellen som viser " ID ", for å opprette en kolonne som heter " Felt1 " i den nye tabellen . VBA- makro vil fylle dette feltet med data .
8

Trykk "Ctrl " + "S , " type " Tabell 1 " for tabellen navn, og klikk "OK " for å lagre den nye tabellen .

9

Angi VBA miljøet ved å trykke " Alt" + "F11 ". Lag en ny kildekoden vindu ved å klikke på "Insert " -menyen er " Module "-kommandoen .
10

Lim inn følgende kolonnen som fyller programmet i den nye kildekoden vinduet. Dette programmet oppfordrer RecordSet objektets redigere og oppdatere metoder for å fylle Felt1 av Table1 med data .

Public Sub FillColumns ()

Dim DBS Som DAO.Database

Dim RECSET som DAO.Recordset

Dim i As Integer

Set dBS = CurrentDb

Set RECSET = dbs.OpenRecordset ( " Tabell 1 ")

For i = 1 til 10