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

Super form for kursus, har været perfekt at jeg kunne koncentrere mig om kurset når jeg havde tid.

Hurtig tilbagemelding på øvelser og altid hurtigt svar tilbage når man havde brug for hjælp.

Lækkert at man får dine løsningsforslag så man kan få ideer til at skrive scriptet på en anden måde.

Henrik Madsen, Alfa Laval Kolding A/S

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

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

Det har været godt at selv kunne bestemme farten, samt bruge al den tid man nu selv synes for at lave opgaverne.

Det har været et hårdt kursus, men jeg har virkelig lært meget og er mere rustet til at lave nye makroer, hvor jeg så selv kan gå i i VBA og lave rettelser, fordi jeg kan forstå programmet.

Margit Gravgaard Larsen, Novo Nordisk A/S

Excel VBA

Godt med muligheden for sparring med underviser og forslag til andre løsningsmetoder end mine egne - selvom mine også fungerede.

Godt med muligheden for ingen tidsbegræsning for kurset. Havde jeg - pga. arb. situation, brug for.

Anja Hansen, TDC

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