formular-knap?
Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Makro og VBA
Forum beskrivelse: Hjælp til Makroer og VBA-programmering
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=385
Udskrevet den: 18.Maj.2024 kl. 20:13
Emne: formular-knap?
Besked fra: ccc19155
Emne: formular-knap?
Posteringsdato: 02.Jul.2011 kl. 07:49
|
Der findes en icon der hedder FORMULAR, der kan tilføjes linien med hurtigvalg. Den genererer automatisk en formular med alle felterne for et dataområde. Hvordan kan den kaldes med en knap der er oprettet lige over dataområdet? (og ikke den i hurtigvalg) Kan den evt. stå synlig ved siden af dataområdet hele tiden? Har den et funktionsnavn? =????? Til hvad? Jeg er ved at lave et bookingsystem til en skole der udlejer bl.a. kanoer, telte og andet grej. Systemet udlejer kun dage og ikke timer, skal kunne have styr på totalbeholdningen, bookingdage, overbooking, kundekartotek, fakturaudskrift og meget andet. Jeg gider ikke at opfinde den dybe tallerken, så jeg efterlyser et grundlag at arbejde videre på også
 |
Svar:
Besked fra: Allan
Posteringsdato: 04.Jul.2011 kl. 13:04
|
Hej, I koden for knappen, skal du tilføje denne kodestump. Da du har oprettet en knap, antager jeg at du ved hvor du skal sætte nedenstående kode ind, ellers bare sig til, så hjælper jeg dig i mål. ActiveSheet.ShowDataForm //Allan
|
Besked fra: ccc19155
Posteringsdato: 04.Jul.2011 kl. 16:03
|
Tusind tak - hvor simpelt og jeg har brugt dage. Fedt forum. |
Besked fra: Allan
Posteringsdato: 04.Jul.2011 kl. 23:19
Velbekomme og mange tak for tilbagemeldingen  //Allan ------------- MVH Allan https://www.excel-regneark.dk" rel="nofollow - Excel-regneark.dk - Gratis skabeloner til Excel Få over 120 ekstra funktioner med Danmarks bedste add-in |
Besked fra: ccc19155
Posteringsdato: 17.Jul.2011 kl. 11:54
|
Hej Allan. Nu er jeg lige blevet fortrolig med funktionen ActiveSheets.ShowDataForm, og den har virket nogle gange. Pludselig støder jeg på en Run-time error'1004' Metoden ShowDataForm for klassen Worksheet mislykkedes! Hvis jeg kalder via hurtigvalg-knappen fungerer det? Her min kode: Sheets("booking").Select (har også prøvet med worksheets Sheets("booking").Activate Range("A7").Select (her starter overskriften som jeg også står på for at få hurtigvalg til at virke) ActiveSheet.ShowDataForm Arket går fra A-Z og 50 linier så funktionens begrænsning skulle ikke være nået. (virker da også uden knap) Debug stopper ved showdataform. Kan du evt gennemskue fejlen - jeg kopierede faktis på noget der virkede over på til en anden funktion. mvh Poul |
Besked fra: H_Frandsen
Posteringsdato: 11.Aug.2011 kl. 13:22
|
Hej Poul Ved ikke om du stadig bikser med dette problem men fandt en løsning, da jeg selv løb ind i samme problemstilling MS har givet følgende løsning http://support.microsoft.com/kb/110462 Kort fortalt virker det som om Excel leder i A1:B1 efter noget der ligner en database. Hvis den ikke kan finde det her fejler den. hvis du derimod definere det område hvor du har dine nuværende data med navnet Database vhar jeg fået det til at virke. Måske et forsøg værd //Henrik |