Word VBA

Nemt at komme igang.
Hurtige og gode svar på øvelser og spørgsmål.

Sune Jeppson, Arbejdernes Landsbank

Word VBA

Super hurtig tilbagemelding på løste opgaver. Det passer mig fint at kunne følge kurset i mit eget tempo.

Og igen igen

Ikke utænkeligt at jeg "springer" på et af de andre kurser

Stig Ulriksen, HTH

Word VBA

Jeg er total overrasket over den korte svartid. Det er et KÆMPE plus hvis man selv til tider arbejder under tidspres og ved man kun har en kort tid at arbejde på en opgave.

Der er heller aldrig slinger i valsen på spørgsmål; altid kort og præcis svar retur. 

At kunne lave opgaverne når det passede mig var helt fantastisk. 

Tina Eriksen, Skandinavisk Service Partner

Excel VBA

Jeg har gennemført kurset Excel VBA. Jeg var skeptisk overfor måden at lære på inden jeg gik i gang, men jeg må sige at min skepsis blev gjort til skamme. Lige fra første lektion følte jeg at jeg virkelig lærte noget.

Thors tilgang til materialet er perfekt. Gennem løbende øvelser får man lejlighed til at afprøve teorien i praksis.

Beder man om lidt hjælp, så kommer den lynhurtig – men det er kun et hint og så kan man selv finde ud af resten – det er perfekt for herved tvinges eleven til at tænke sig om – mon det kan bruges i folkeskolen også :).

Kurset er ALLE pengene værd og kan køres når man har tid og er motiveret. Holder man for lange pauser i undervisningen, så komme Thors pegefinger i form af en mail og så er det bare om at komme i gang igen :)

Jacob Madsen, Mettler-Toledo A/S

Excel VBA

Det har været et supergodt kursus, hvor man ikke bare fik resultaterne leveret, der skulle tænkes meget !

Materialet har været rigtig godt, og det er da utroligt så tit der har været hjælp at hente, har set at underviseren var online, også om aftenen og tidlig morgen, rigtig rart, og der kom lynhurtigt respons tilbage på div. spørgsmål og besvarelser.

Helt sikkertet kursus og kursusform, jeg vil anbefale til andre.

Margit Solveig Kristoffersen, Socialpædagogerne Sydjylland

Excel VBA

Kurset er godt, fordi det tvinger kursisten til at arbejde selvstændigt. Det er lidt lig forelæsning, hvor det er fuldstændigt op til een selv at arbejde med stoffet.
Thor Østergaards pædagogik er baseret på "hjælp til selvhjælp", og alt er holdt i en let og uhøjtidelig tone.

Fjernundervisning har yderligere den fordel at man kan sidde hjemme og koncentrere sig om emnet, uden at blive forstyrret af andre (ofte mindre motiverede) kursister.

Flemming Degn, Privat

Excel VBA

At jeg kan fordybe når jeg har tid og lyst, er super.

Virkelig hurtig respons fra underviseren - næsten døgnet rundt :)

Øvelserne indeholdt hvad jeg skulle bruge, for at komme videre med egne vba-projekter.

At man kunne sammenligne egne løsninger med underviserens var lærerigt.

Henrik Boss, Marel Bornholm

Excel VBA

Hurtig respons.
Får en til at tænke selvstændigt.
Hjælpsom.

Ole Cordes Kristensen, Ce-Tec

< >
Se flere referencer

VBA kode omkring userforms

Det sidste vi mangler at lave omkring userforms er at kode hændelsesprocedurer, så der også kommer til at ske noger når brugeren trykker på knappen.

Hændelsesprocedure til knap

Hvis man dobbeltklikker på en knap i en userform bliver der oprettet en hændelsesprocedure til knappen. Det ser sådan her ud (når knappen hedder opret):

I hændelsesproceduren kan du skrive al den VBA kode du har lyst til. De kontrolelementer der er på userformen er objekter, der kan adresseres med deres navn. Findes der en tekstbox på userformen, der hedder txtNavn kan indholdet trækkes ud og afleveres i dokumentet med koden:

Selection.TypeText txtNavn.Value

Og på samme måde kan man også hente værdier ud af de øvrige kontrolelementer.

Bogmærker

Når vi skal placere tekst fra vores userform i dokumenter er bogmærker et meget centralt emne. Et bogmærke indsættes via "Indsæt" fanen i båndet (Word 2007/2010).

Og det er smart, hvis man kan se sine bogmærker i dokumentet - der skal man lige en tur ind i avancerede indstillinger

Et lille eksempel

Nyttig VBA kode

I relation til placering af indholdet fra en userform i dokumentet er der et par kodelinjer der kan være nyttige

Selection.TypeText txtNavn.Value - skriver indholdet af tekstboksen der hvor courseren står
Selection.TypeParagraph - indsætter et linjeskift i dokumentet
Selection.GoTo What:=wdGoToBookMark, Name:="Bogmærke" 
  - flytter cursoren til bogmærket med navenet "Bogmærke"
ActiveDocument.Bookmarks("Bogmærke").Range.Text = "Indsat Text"
   - indsætter tekst i stedet for bogmærket - og sletter bogmærket!

Det kommer til at se sådan her ud, hvis det kørers på ovenstående eksempel

ActiveDocument.Bookmarks("Bogmærke").Range.InsertBefore "Indsat Text"

og kørt på ovenstående eksempel

ActiveDocument.Bookmarks("Bogmærke").Range.InsertAfter "Indsat Text"

det giver så

Vil man erstatte teksten inde i et bogmærke med en tekst og beholde bogmærket - det gør man sådan her:

    Dim bmRange As Range
    Set bmRange = ActiveDocument.Bookmarks("Bogmærke").Range
    bmRange.Text = "Indsat Text"
    ActiveDocument.Bookmarks.Add Name:="Bogmærke", Range:=bmRange

Det giver følgende resultat:

Der skal nok dukke mere VBA kode op senere i kurset.

Hændelsesprocedurer på userformen selv

I toppen af arbejdsvinduet er der to dropdown bokse. Vælger man UserForm i den første kan man vælge forskellige hændelsesprocedurer i den anden.

Initilize hændelsesprocedurern kan bruges til at få kode afviklet når UserFormen bliver vist første gang - det kunne f.eks. være at fylde indhold på en dropdownkontrol. Det kunne se sådan her ud (forudsat dropdownkontrollen hedder cboTitel)

Private Sub UserForm_Initialize()
  cboTitel.AddItem "Vælg titel"
  cboTitel.AddItem "Hr."
  cboTitel.AddItem "Fru"
  cboTitel.ListIndex = 0
End Sub

Hændelsesprocedurer på de øvrige kontrolelementer (datavalidering)

De enkelte kontrolelementer har også hændelsesprocedurer, der f.eks. kan bruges til at validere de data brugeren indtaster/vælger. Vælg kontrollen i venstre dropdownkontrol og Exit i den højre - så får du den viste hændelsesprocedure:

Bemærk, at der overføres en parameter Cancel, der kan bruges til at styre om brugeren må komme videre. Det kan bruges til validering - det kunne se sådan her ud:

Private Sub txtAntal_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  If Not IsNumeric(txtAntal.Value) Then
    MsgBox "Her skal du skrive et tal" 
    Cancel = True 
  End If
End Sub

Når du har betalt for kurset får du adgang til øvelser til hver lektion. Og når du har fået godkendt din besvarelse får du desuden adgang til mine løsningsforslag med ekstra tips og trix.