Avatar billede jensen363 Forsker
02. maj 2011 - 15:16 Der er 2 kommentarer og
2 løsninger

Makro indsæt ny + kopi + formattering

Et regneark består af 10.000 rækker med data

Linie 1 er overskrifter
Linie 2 er data

I liner 3 skai indsættes en blank linie, og indhold af linie 2 skal kopieres ned i rækken, men kun data til og med kolonne E

Hele række 3 skal markeres med grøn baggrundsfarve

Øvelsen gentages indtil slut på regnearket
Avatar billede johs_j Novice
02. maj 2011 - 15:31 #1
Den nemmeste løsning er at starte Makrooptageren og så udføre de ting som makroen skal lave. Derefter stopper du optageren, og du har en færdig makro.
Avatar billede jensen363 Forsker
02. maj 2011 - 15:36 #2
Den er jeg med på, men jeg skal have makroen til selv at udføre opgaven det antal gange der er rækker, altså hver anden gang ind til alle rækker er behandlst
Avatar billede jensen363 Forsker
02. maj 2011 - 15:51 #3
Det er noget i denne stil, som bare udfører det hele

Public Sub IndSætLinie()
Dim i
    For i = 1 To 10000 Step 2  'Tilret 100 til hvor mange rækker
    Range("a2").Offset(i, 0).EntireRow.Insert
Next
End Sub
Avatar billede jensen363 Forsker
02. maj 2011 - 16:31 #4
Klarer mig med dette


Public Sub ()

Dim i

    For i = 1 To 10000 Step 2 
    Range("a2").Offset(i, 0).EntireRow.Insert
Next
    For i = 1 To 20000 Step 2
    Range("a2").Offset(i, 0).EntireRow.Interior.ColorIndex = 36
Next

End Sub
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
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

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