24. marts 2017 - 22:58Der er
14 kommentarer og 1 løsning
Brug af userform
Jeg ønsker at føre værdier fra min UserForm over i et program for videre bearbejdning
Jeg har en Userform1 der indeholder en TextBox. Nu ønsker jeg indholdet af TextBoxen indført i mit program Således at variablerne indgår i kørslen af programmet.
- Selve Userformen der indeholder nedenstående:
Private Sub UserForm_Click()
End Sub
"En Tekstboks hvor der indtastes tal og bogstaver"
Private Sub Indholdd_Change() klump = Indholdd.Value End Sub
"Knap der kalder på programmet Test"
Private Sub CommandButton2_Click() Call Test(klump) End Sub
"Programmet" Public Sub Test(klump) Debug.Print "Teksten= "; klump End Sub
din kode virker fint, men i toppen af userformens kodemodul skal du lige declarere din variabel (Klump) ellers kan den ikke ses fra den ene sub til den anden i modulet.
Tak for svar men min forvirring er steget til "digitalistiske" højder Hvad mener i:
Nu har jeg lavet koden således:
"Indholdet af selve userformen:" Private Sub UserForm_Initialize() (skal der bruges initialize) Dim klump (efter råd fra jer, tror jeg nok - men det virker ikke) End Sub
"Den indholdsdims jeg indskriver bogstaver og tal i:" Private Sub Indholdd_Change() klump = Indholdd.Value End Sub
"Knappen der bør starte programmet TestBørge" Private Sub CommandButton2_Click() Call TestBørge(klump) End Sub
"Programmet hvor jeg vi bruge de indskrevene bogstaver/tal" Public Sub TestBørge(klump) Debug.Print "Teksten= "; klump End Sub
hvis du nu fjerner sub initialize og bare skriver Dim klump, så virker det. Det skal ikke stå inden i en sub, den skal stå alene i toppen af Userformens kode.
------------- userformens kode Dim Klump
Private Sub Indholdd_Change() klump = Indholdd.Value End Sub
Private Sub CommandButton2_Click() Call Test(klump) End Sub ---------------------------------------
--------i alm kodemodule------- "Programmet hvor jeg vi bruge de indskrevene bogstaver/tal" Public Sub TestBørge(klump) Debug.Print "Teksten= "; klump End Sub -------------------------------------
Endelig har jeg fattet det. Jeg skrev "dim klump" øverst i Userform modulet og det dannede selv et afsnit. Men hvorfor forsætter programmet så. Teksten afleveres i debug.print og så ville jeg tro at programmet slutter. Men når jeg ser min tekst i editoren og vil klikke på selve arket så er alt frosset. "Continuo" er gostet Hvordan slutter man det så?
Private Sub CommandButton2_Click() Call TestBørge(klump) End Sub
Program/Modul slut programlinjen bliver rød og skråstregen er fremhævet med blåt hvad sker der? jeg går udfra at der ikke skal være apostrof før 'Program/Modul slut linjen danner heller ikke "sit eget afsnit" suk.
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.