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

Hurtige tilbagemeldinger på spørgsmål og øvelser. God opbygning af kurset

Sune Jeppson, Arbejdernes Landsbank

Excel VBA

Meget hurtigt og kompetent feedback...

Sparring på den opgave, som jeg sidder og arbejder med.

Veltilrettelagte øvelser

Claus Witfelt, Flyvevåbnets Officersskole

Excel VBA

Tak for et rigtigt godt og lærerigt kursus.

En af de store fordele ved kurset er, at man kan tage det i det tempo man ønsker og der er ikke noget tidspres.

Opgaverne er gode og udfordrene. Man kan selv, indenfor rammerne, bestemme hvor meget man vil gøre ud af det.

Beskrivelserne til opgaverne er lavet på en sådan måde, at der er også overladt lidt til ens egen fantasi, som jeg synes er en meget god ting.

Kurset har et rigtigt godt niveau, og materialet er godt lavet.

Underviseren ??? Ja, jeg ved ikke hvornår han sover.

Der går ikke lang tid efter man har sendt en opgave, til den er rettet, og altid med en god og konstruktiv kommentar. Også man får underviserens løsningsforslag.

Der er altid hurtig og god hjælp at hente, hvis man er gået i stå. Man får ikke bare løsningen, men et hint, så man kan komme videre.

Jeg vil varmt anbefale det til andre, og gør det !

Endnu engang tak for et godt kursus.

Med venlig hilsen

Peter Juul Jacobsen

Peter Juul Jacobsen, Mærsk Olie & Gas A/S

Excel VBA

Det har været rart at man selv kan bestemme tempoet og hvornår man laver opgaverne. Man kan også få hjælp til at få løst opgaverne anderledes, samt få hjælp til andre opgaver. Jeg synes også det har været sjovt at man ikke får det hele serveret, men skal søge lidt information selv.

Laila Jensen, Statens Serum Institut

Excel VBA

Øvelserne kan tages i det tempo, der passer en, hvilket gør det muligt at gå i dybden med udvalgt teori og øvelser og inddrage arbejdsrelaterede udfordringer/problemstillinger direkte i kurset.

Der er hurtig respons fra underviser, man bliver udfordret på opgaverne og får ikke lov til og gå videre før en opgave er løst tilfredsstillende.

Kan anbefale kurset til andre.

Brian Lind Olsen, OUH Odense Universitetshospital

< >
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.