Avatar billede maf01 Nybegynder
19. juni 2002 - 20:39 Der er 4 kommentarer og
1 løsning

VBA Exel Oprette Form På "samme måde som i Word"??

I Word kan du oprette bgm (bookmarks) som du så i VBA-formularen opretter henvisninger til og koder til f.eks. at når man indtaster navn i (bgmNavn) og Ok på formularen, får det indtastede navn til det felt (bookmark) som du kaldte bgmNavn.

Meeen.. hvordan gør jeg det samme i Excel.?? 
Ønsker at en bestemt celle skal indeholde "et bgm" og så i min formular(i VBA) laver denne kodning.
Hvordan skal det se ud,.. også når jeg ønsker at kunne hente fra flere ark i den samme xls-fil.??
Avatar billede martin_moth Mester
19. juni 2002 - 21:34 #1
Nu spørger jeg sikkert dumt, men findes der bogmærker i Excel? Hvis ikke, så forstår jeg ikke spørgsmålet...
Avatar billede martin_moth Mester
19. juni 2002 - 21:35 #2
Men hvad er det præcist du vil - skal man kunne indtaste værdier i text-felter på en form, som så skal skrives i bestemte celler, eller?
Avatar billede maf01 Nybegynder
20. juni 2002 - 06:53 #3
Okey  jeg prøver at omformulere det. :-)

Nej jeg vil ikke nødvendigvis lave bogmærker i excel. Men forklarede bare en ¨måde det bliver lavet på i word.

Det jeg ønsker er at lave en formuler , hvor jeg skal lave tekstboxe, som folk kan skrive i. Disse data som folk skriver ind skal så returneres i nogle bestemte celler inde i xls-arket ( og også forskellige ark)

Et eks.

Formularen består af:
Navn: "indtastningsfelt"
Adresse: "indtastningsfelt"
Postnr:  "indtastningsfelt"

Når der så i denne formular er trykket på OK, skal der returneres følgende:

Navn: "indtastningsfelt"    Dette skal ende i C4
Adresse: "indtastningsfelt" Dette skal ende i C5
Postnr:  "indtastningsfelt" Dette skal ende i C6
OSV
Avatar billede martin_moth Mester
20. juni 2002 - 08:58 #4
OK. Her er noget. Lav en form med 3 textboxe på, Text1, Text2 og Text3. Samt en knap. Programmet smider data i arket med navnet "Ark2". I knappens _Click-hændelse skriver du f.eks.

Sheets("Ark2").Select
ActiveSheet.Cells(4, 3).FormulaR1C1 = Text1.Text
ActiveSheet.Cells(5, 3).FormulaR1C1 = Text2.Text
ActiveSheet.Cells(6, 3).FormulaR1C1 = Text3.Text

Som du ser virker det på den måde, at programmet først aktiverer arket "Ark2". Derefter refereres der til dette ark ved "ActiveSheet"

Cells(x,y), hvor x er rækkenummer og y er kolonnenummer. Når der refereres til celler på denne måde, er det nemt at lave løkker, f.eks.

Dim i as byte
For i = 1 to 10
  ActiveSheet.Cells(i, 5).FormulaR1C1 = "Række numnmer " & i
Next i

Der er 117 andre måder at gøre tingene på, men jeg synes ovenstående er let at forstå og meget nem at arbejde med... /Martin
Avatar billede maf01 Nybegynder
20. juni 2002 - 17:36 #5
så vel tilbage fra arbejde og med internet forbindelse igen, og et nyt eksperten :-)

Mange tak for det Martin.. Det virkede, ... selvfølgelig  :-)
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
Kurser inden for grundlæggende programmering

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