ExcelJ95 Seniormester
14. marts 2019 - 10:14 Der er 5 kommentarer og
1 løsning

Giv flere celler flere værdier VBA

Hej.

Jeg sidder og er ved at skrive noget kode, som skal give cellerne A1:A42 værdi så fx der i celle a2 står værdien fra den ovenstående celle (her a1) plus 1, altså 2 og så videre derned af.

Men kan ikke rigtigt få lavet en løsning jeg synes der fungerer.
Nogen der har et hurtigt bud?

PFT
ExcelJ95 Seniormester
14. marts 2019 - 10:16 #1
Er klar over, at man kan gøre der relativt simpelt ved at sige =a2+a1 og så trække den ned.
Opgaven for mig består bare i at skrive det som kode.
finb Ekspert
14. marts 2019 - 10:58 #2
Utestet:

For each CL in range ( A1:A42 )
CL.value = CL.row
Next
store-morten Ekspert
14. marts 2019 - 11:30 #3
For Each c In Range("A2:A42")
    c.FormulaR1C1 = "=R[-1]C+1"
Next c
store-morten Ekspert
14. marts 2019 - 11:37 #4
For Each c In Range("A2:A42")
c.Select
    ActiveCell = c.Offset(-1, 0) + 1
Next c
store-morten Ekspert
14. marts 2019 - 11:44 #5
Range("A2").FormulaR1C1 = "=R[-1]C+1"
    Selection.AutoFill Destination:=Range("A2:A42"), Type:=xlFillDefault
ExcelJ95 Seniormester
14. marts 2019 - 11:51 #6
Tak!
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

Opret Preview

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





Premium
Datatilsynet vil ikke forholde sig til danske skolers brug af Microsoft 365: "Det er lidt ud over det normale pensum"
Interview: Datatilsynet vil ikke komme med en klar anbefaling til, om danske skoler kan bruge udenlandske cloud-løsninger, før man har set konkrete eksempler. “Det er helt bestemt et område, der har vores bevågenhed og hele tiden bliver vurderet.”
Computerworld
Huaweis topchef: Vores nye styresystem er betydelig hurtigere end Android
Huawei er svært tilfreds med selskabets nye operativsystem, der hedder Hongmeng. Systemet er meget hurtigere end Android, lover topchefen, og Huawei vil udbrede det til en masse andre enheder.
CIO
The Digital Edge: Ørsteds CIO Michael Biermann styrker it-afdelingen: "Vi får en masse nye kollegaer med kompetencer, som vi overhovedet ikke har set før. Det er virkeligt spændende"
The Digital Edge: Et styrket fokus på it-arkitektur, agile og værktøjer som design thinking har på få år sat fart på den 780 personer store it-afdeling hos energikoncernen Ørsted. Hør hele historien om transformationen og hvad fremtiden byder direkte fra CIO Michael Biermann.
Job & Karriere
Nye danskkrav får ansøgertallet til at falde på IT-Universitetet
Et nyt sprogkrav, der skal begrænse antallet af internationale studerende, har betydet, at 16 procent færre har søgt om at blive optaget på en bacheloruddannelse på IT-Universitetet i København.
White paper
Bliv klogere: Dataprotection by the numbers - for dummies
Kvantitative metrics gør dig i stand til, at sammenligne ledigheds- og beskyttelses-alternativer objektivt, uden bias i forhold til erfaringer og fordomme eller udbyderpræference. I dette whitepaper går vi i dybden med adskillige metrics, og starter med at definere hver og en, hvorefter vi tilføjer dem til diskussionen om hvilke slags data protection, data retention og data availabilty, som du kan bruge i forskellige scenarier. Formålet er at hjælpe dig som it-professionel, som sidder med ansvaret for data protection, med at kommunikere overfor finansielle stakeholders i din organisation.