Avatar billede Mathias- Nybegynder
29. oktober 2011 - 23:08 Der er 15 kommentarer og
2 løsninger

åbn userform ved opstart

Hej

Jeg er ny hvad userform angår.

Nu har jeg lavet en userform, som det er meningen skal være fremme hele tiden. Den skal starte op når jeg åbner arket. (der er kun ét ark og der kommer ikke flere)

prøvede at skrive følgende i "denne_projektmappe":

Private Sub Workbook_Open()
UserForm1.Show
End Sub

Dette virker skam også, men jeg kan ikke klikke på noget i arket, mens den er fremme, hvilket jeg gerne vil kunne.

Desuden har jeg lidt problemer mht. active x objekter i min userform. Jeg har 3 macroer som skal køres afhængig af 3 radioknapper. Desuden har jeg 2 andre radioknapper som skal køres sammen med to andre macroer. hvordan gør jeg dette med disse radioknapper?

hvis det kan lade sig gøre vil jeg gerne erstatte de 2 radioknapper med en boks man kan hakke af, mens synes ikke jeg kan få det til at virker har 2 macroer så hvis sand så skal den køre den ene, ellers hvis falsk, så skal den køre den anden. Hvordan skal jeg skrive det?

Har desuden et felt hvor man skriver data, her skal den spytte værdien ud i "A1", hvordan gør jeg det?

200 point, da der er flere ting at svare på...
Avatar billede supertekst Ekspert
29. oktober 2011 - 23:12 #1
Prøv:
Userform1.Show 0

Fortsætter i morgen..
Avatar billede Mathias- Nybegynder
30. oktober 2011 - 01:32 #2
tak, Userform1.Show 0 virkede..
glæder mig til at høre resten :)
Avatar billede Mathias- Nybegynder
30. oktober 2011 - 02:26 #3
jeg har fundet en anden løsning, så se bort fra overstående.
Jeg har gjort hvad du forslog. Kan jeg tilmed gøre sådan, at man ikke kan lukke userformen igen?
Avatar billede supertekst Ekspert
30. oktober 2011 - 08:18 #4
Hvad skal jeg se bort fra?
Avatar billede supertekst Ekspert
30. oktober 2011 - 08:29 #5
Private Sub CheckBox1_Click()
    If Me.CheckBox1 = True Then
        makro4
    Else
        makro5
    End If
End Sub
Private Sub OptionButton1_Click()
    makro1
End Sub
Private Sub OptionButton2_Click()
    makro2
End Sub
Private Sub OptionButton3_Click()
    makro3
End Sub
Private Sub makro1()
    MsgBox "Makro1"
End Sub
Private Sub makro2()
    MsgBox "Makro2"
End Sub
Private Sub makro3()
    MsgBox "Makro3"
End Sub
Private Sub makro4()
    MsgBox "Makro4"
End Sub
Private Sub makro5()
    MsgBox "Makro5"
End Sub
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    ActiveSheet.Range("A1") = Me.TextBox1
End Sub
Avatar billede Mathias- Nybegynder
30. oktober 2011 - 13:28 #6
glimrende, smid et svar.
Avatar billede Mathias- Nybegynder
30. oktober 2011 - 13:33 #7
jeg kan stadig lukke den userformen..
min userform her "Funktioner".
Jeg ville gerne have, at man ikke kun lukke den
Avatar billede supertekst Ekspert
30. oktober 2011 - 14:05 #8
Vender tilbage vedr. Userform, der ikke skal kunne lukkes..
Avatar billede store-morten Ekspert
30. oktober 2011 - 15:41 #9
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    'Prevent user from closing with the Close box in the title bar.
    If CloseMode <> 1 Then Cancel = 1
    MsgBox "The Close box won't work!"
End Sub
Avatar billede Mathias- Nybegynder
30. oktober 2011 - 16:28 #10
Store-morten @
Jeg prøver at sætte din kode ind i "denne_projektmappe" så der ialt står:

Private Sub Workbook_Open()
Funktioner.Show 0
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    'Prevent user from closing with the Close box in the title bar.
    If CloseMode <> 1 Then Cancel = 1
    MsgBox "The Close box won't work!"
End Sub

Det virker ikke ... (min userform hedder: "Funktioner")
Avatar billede supertekst Ekspert
30. oktober 2011 - 17:06 #11
PS: jeg lægger svar for min del.

(Koden vedr. Userform skal nok indsættes i denne)
Avatar billede store-morten Ekspert
30. oktober 2011 - 17:48 #12
Koden skal ligge på din Userform
Avatar billede store-morten Ekspert
30. oktober 2011 - 18:21 #13
#10
Advarsel ;-)
Når man sætter "Luk på krydset" ud af funktion, kan man jo ikke lukke, ej heller Excel!
Men her, hvor du sætter din Userform til "Modal" er det ok, så kan man godt lukke (og gemme) Excel.

Du kan ændre 4. linie, så undgår du msgboxén, og sætte en tekst på din Userform.
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    'Prevent user from closing with the Close box in the title bar.
    If CloseMode <> 1 Then Cancel = 1
    Funktioner.Caption = "The Close box won't work!"
End Sub
Avatar billede Mathias- Nybegynder
30. oktober 2011 - 18:41 #14
så dette skal jeg tilføje under følgende?:

Private Sub Workbook_Open()
Funktioner.Show 0
End Sub
Avatar billede store-morten Ekspert
30. oktober 2011 - 18:55 #15
Kopier koden:
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    'Prevent user from closing with the Close box in the title bar.
    If CloseMode <> 1 Then Cancel = 1
    Funktioner.Caption = "The Close box won't work!"
End Sub

I Excel
Tryk og hold 'alt' nede, tryk f11
Dobbeltklik på din Userform "Funktioner" under "Forms"
Dobbeltklik på din Userform "Funktioner" til højre og indsæt koden
Avatar billede Mathias- Nybegynder
30. oktober 2011 - 19:27 #16
Tak for hjælpen til jer begge to.

store-morten, smid et svar, så deler i 200 point.
Avatar billede store-morten Ekspert
30. oktober 2011 - 19:47 #17
Velbekomme
Del gerne 'skævt' til "supertekst's" fordel ;-)
Avatar billede Ny bruger Nybegynder

Din løsning...

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.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester