20. december 2011 - 07:26Der er
15 kommentarer og 1 løsning
stigende tal i ark ved åbning
har brug for at indsætte et tal i en celle som stiger med 1 ved hver åbning eller ved tryk på knap. hvordan kan man gøre det? office 2010 er nybegynder så svar skal helst skæres ud i pap :-)
I dette særtema om aspekter af AI ser vi på skiftet fra sprogmodeller til AI-agenter, og hvordan virksomheder kan navigere i spændet mellem teknologisk hastighed og behovet for menneskelig kontrol.
Jeg ved for lidt om VBA til at råde dig, du bliver sikkert bare forvirret af mine gætterier. :-) Så vi må vente til der kommer en mere kyndig forbi spørgsmålet.
Har ikke forstand på fletning desværre. Den faktura skabelon jeg har, der er koden kun beregnet til en celle. Så derfor må jeg nok desværre holde mig lidt i baggrunden. Det eneste jeg kan gøre er at kopiere koden ind. Om du kan tilpasse den det må komme an på en prøve.
Dim aktuelleCelle As String Sub FakNr() ' FakNr Makro ' tildeler fakturanummer i feltet G7 Range("G7").Select If ActiveCell.Value <> "" And IsNumeric(ActiveCell.Value) Then ' ingenting - er kørt tidligere bare sæt cursor i G8 Range("B8").Select Else ' opdater fakturanummer, og skriv i G7 fil$ = "C:\FakNr.txt" Open fil$ For Input As 1 Input #1, aktnavn Close 1 aktnavn = aktnavn + 1 Open fil$ For Output As 1 Write #1, aktnavn Close 1 ActiveCell.FormulaR1C1 = aktnavn Range("B8").Select End If End Sub
Jeg har oprettet et tekst dokument på c der hedder FakNr, og tildelet det nummer som jeg var kommet til med faktura. Skal du starte forfra så skal du skrive 1 på første linie og gemme tekstfil. Når macro køres vil 1 komme til at stå i din skalbelon, og der lægges 1 til og den gemmes til næste gang. Mit faktura nummer står i G7 Efter macro er kørt hopper curser til G8. Er der nummer i cellen hvor nummer skal pladceres tildeles ikke nyt nummer.
#7 Man copy/paster koden ind i arket.Hvis du højreklikker på din ark fane nederst og vælger vis programkode, så kommer du ind i vba editor. Her ligger du koden ind. For at køre den skal man tilføje en knap til det. Den tilføjes ved at gå ind i indstillinger for Excel under værktøjslilien hurtig adgang. Her kan du flytte "knap" (formularkontrolelement) over til højre, så du får adgang til at oprette disse knapper. Når man så lagt knappen ud på arket højreklikker man på den og vælger "tildel macro". Du skulle nu få muligheden for at se navnet på den macro du har lagt ind, og vælger denne. #8 Henvisningen får man ved at det navn og parameter som der står i macro også findes i virkeligheden. Står der "C:\FakNr.txt" opretter du et tekstdokument på roden af c drevet og omdøber den FakNr. .txt skal du ikke skrive, da dette tilføjes automatisk af Windows. Det nummer som filen skal starte med indsætter du i den første linie og gemmer. Når macro køres hentes nummer, og nummeret øges automatisn med 1 og tallet gemmes til næste kørsel.
nu har jeg fået knappen frem, men har problemer med at få den på arket. skal jeg ikke bare stille mig i feltet G7 og trykke på knappen? den skriver "kommandoen kunne ikke fuldføres..."
Du venstreklikker på knappen i værktøjslinien. Så skulle der komme en boks frem hvor du tildeler den kode du har lagt ind. Når du vælger koden og siger ok til dette, skulle knappen komme til syne i arket. Denne kan du omdøbe til det du ønsker, og er makroer aktiveret vil den tildele tal i den celle du refererer til.
Du behøver ikke at markere feltet før makro køres. Det finder den selv ud af. Har du ikke lavet ændringer i min kode skal B8 blive markeret. Det er her du skal rette det til i koden så det passer lige til dit ark, både men nummeret og hvor den skal flyttes hen bagefter.
ligegyldig hvad jeg gør markere den hverken det ene eller andet.. har du ikke en fil hvor du bare har den knap liggende i og ikke noget personligt som jeg kunne få en kopi af?
Jeg lægger et svar her, hvis du kan bruge min løsning.
Hvis det ikke duer når du har testet, vender du tilbage og så håber jeg der kommer andre forslag. Og så ser du bare bort fra dette svar. God jul
Synes godt om
Ny brugerNybegynder
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.