Word Skrevet 7. desember 2012 Del Skrevet 7. desember 2012 Hei, jeg vil lage en "userform" (mangler det norske ordet?) som gjør følgende: 1. Bruker trykker på en knapp: "Hva vil du lage?" 2. Brukeren får flere alternativer, hvor hvert alternativ har sin egen "userform". 3. Bruker velger et alternativ og fyller ut forskjellige input data. 4. Bruker trykker på "OK", noe som gjør at enkelte av input verdiene blir lagt i tilgjengelige celler i arket, samt at det blir opprettet en makroknapp som gjør at brukeren på et senere tidspunkt kan se over input data på det det aktuelle alternativet (en metode for å lagre input data i "userform). Håper dette var god nok forklaring Setter stor pris på hjelp jeg kan få! Lenke til kommentar
Harald Staff Skrevet 8. desember 2012 Del Skrevet 8. desember 2012 Forklaringen var ok, men hva var spørsmålet? Lenke til kommentar
Word Skrevet 9. desember 2012 Forfatter Del Skrevet 9. desember 2012 (endret) Hehe godt spørsmål! Beklager! Spørsmålet er som følger: Hvordan får jeg laget det som står beskrevet i punkt 4? Dvs. lagre input verdier i "userform". Endret 9. desember 2012 av Word Lenke til kommentar
Word Skrevet 9. desember 2012 Forfatter Del Skrevet 9. desember 2012 (endret) Se vedlagt bilde. Merk at en userform kan skal kunne ha flere verdier enn de 3 tilhørende verdiene som er vist i eksempelet. Endret 9. desember 2012 av Word Lenke til kommentar
Harald Staff Skrevet 10. desember 2012 Del Skrevet 10. desember 2012 En userform kan ikke large verdier i seg, du må hente og lagre til f.eks et ark. Her er det variabelen R som styrer dette, R er raden det leses fra og skrives til. Eksemplet hardkoder den til 3, endre det til det kriteriet som passer opplegget ditt. Userformkode: Option Explicit Dim R As Long Private Sub UserForm_Initialize() R = 3 Me.TextBox1.Text = Sheets(1).Cells(R, 2).Value Me.TextBox2.Text = Sheets(1).Cells(R, 3).Value Me.TextBox3.Text = Sheets(1).Cells(R, 4).Value End Sub Private Sub CommandButton1_Click() Sheets(1).Cells(R, 2).Value = Me.TextBox1.Text Sheets(1).Cells(R, 3).Value = Me.TextBox2.Text Sheets(1).Cells(R, 4).Value = Me.TextBox3.Text Unload Me End Sub HTH. Beste hilsen Harald Lenke til kommentar
Anbefalte innlegg
Opprett en konto eller logg inn for å kommentere
Du må være et medlem for å kunne skrive en kommentar
Opprett konto
Det er enkelt å melde seg inn for å starte en ny konto!
Start en kontoLogg inn
Har du allerede en konto? Logg inn her.
Logg inn nå