Søg
Avatar billede kef Nybegynder
23. april 2004 - 16:06 Der er 4 kommentarer og
1 løsning

Simpel Markro til formatering af celler.

Hej

Jeg skal bruge en simpel markro som kan formaterer en hel række felter i excel samt tilføje tekst i nogle af cellerne hver gang markroen køres.

Eks

Markroen "Afsluttet" skal farvelægge hele den aktive linien hvor cursoren står med rød og i celle C skal der teksten stå "Afsluttet" i cellen F skal der stå dato og tid for afslutning. dvs. dags dato når markroen køres.
Avatar billede jkrons Professor
23. april 2004 - 16:20 #1
Denne makro burde gøre det, du ønsker

Sub Afslut()

    ActiveCell.Rows("1:1").EntireRow.Select
    With Selection.Interior
        .ColorIndex = 3
        .Pattern = xlSolid
    End With
    rk = ActiveCell.Row
    Range("c" & rk).Value = "Afsluttet"
    Range("f" & rk).Value = Now()
   
End Sub
Avatar billede kef Nybegynder
23. april 2004 - 16:28 #2
Sorry
Glemte at skrive det var teksten i cellerne jeg ønskede at formatere med en farve og eventuelt fed eller kursiv. Kan denne parameter styres også.

Ellers virker den ok
Avatar billede jkrons Professor
23. april 2004 - 16:33 #3
Prøv med denne:

Sub Afslut()

    ActiveCell.Rows("1:1").EntireRow.Select
    With Selection
    .Font.ColorIndex = 3
    .Font.Bold = True
    End With
    rk = ActiveCell.Row
    Range("c" & rk).Value = "Afsluttet"
    Range("f" & rk).Value = Now()
   
End Sub
Avatar billede kef Nybegynder
23. april 2004 - 16:47 #4
Virker super, jeg kan bare ike finde ud af at lave den kursiv også

Men Takker
Avatar billede jkrons Professor
23. april 2004 - 23:50 #5
Velbekomme!

Lige efter .font.bold = True tilføjer du

.Font.Italic = True

Så er den også kursiv.
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
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig
Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel Indlæg Oprettet Seneste aktivitet
Inverse formler Af tdktman i Excel 4 26/05/202616:16 I dag 01:06
Flere brugere i 1 delt pivottabel Af mira96ac i Excel 2 26/05/202609:09 26/05/202610:28
Beregning af flextid - formler Af Slettet bruger i Excel 0 25/05/202618:29 -
Udseende af datoer Af ErikHg i Excel 8 24/05/202614:56 25/05/202619:06
Samle data fra flere kolonner i 1 Af FinnLauridsen i Excel 5 17/04/202616:11 27/04/202617:58
Se alle spørgsmål i kategorien Opret spørgsmål

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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 13:18 Lokal konto Af Bent i Windows
26/0516:16 Inverse formler Af tdktman i Excel
26/0515:33 disk plads på server Af dcedata1977 i Servere
26/0509:09 Flere brugere i 1 delt pivottabel Af mira96ac i Excel
25/0518:29 Beregning af flextid - formler Af Slettet bruger i Excel
White papers
Flere white papers »