VBA kode
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=106
Udskrevet den: 20.Maj.2024 kl. 14:17
Emne: VBA kode
Besked fra: tingen
Emne: VBA kode
Posteringsdato: 20.Okt.2010 kl. 15:21
|
Hej Jeg skal bruge hjælp til en VBA kode, som skal kunne sammenligne en dato fra eks. celle (A1) og sammenligne med en dato i (A2). Og hvis (A1) så er ældre, så skal cellen farves rød. Har prøvet med Conditional formatting og =AND(A2-TODAY()>=0,A2-TODAY()<=30) Men det virker ikke på forhånd tak. - tingen |
Svar:
Besked fra: Allan
Posteringsdato: 20.Okt.2010 kl. 15:36
|
Hej tingen, Hvis spørgsmålet er at måle om A1 er mindre end A2 og farve en celle rød hvis den er SAND, kan dette måske bruges:
Hvis du stadig ønsker at bruge Conditional formatting (Betinget formatering), kan dette bruges:
=A1<A2
Den isolerede problemstilling, kan også løses med denne stump kode:
If Range("A1").Value < Range("A2").Value Then
Range("A1").Interior.ColorIndex = 3 Else Range("A1").Interior.ColorIndex = xlNone End If //Allan
|
Besked fra: tingen
Posteringsdato: 20.Okt.2010 kl. 15:45
|
Tak :) men hmm formålet er at fra (C14) til og med (C75) står der datoer med deadlines, og hvis de så overskrider dags dato, skal feltet farves rødt. - Kan godt lave et dato felt, hvis det er nødvendigt? :D |
Besked fra: Allan
Posteringsdato: 20.Okt.2010 kl. 16:03
OK, så prøver vi bare den 
Tilgiv mig, at jeg bruger en Dansk version, kan ikke huske de engelske betegnelser.
Celler bliver med denne fremgangsmåde, farvet røde hvis datoen er mindre end dags dato.
Marker C14:C75
Betinget formattering / Formater kun celler, der indeholder / celleværdi mindre end / =TODAY()
Eksempel findes her: /uploads/1/farv_deadlines.xlsx - uploads/1/farv_deadlines.xlsx
Det skulle kunne gøre det.
//Allan
|
Besked fra: tingen
Posteringsdato: 21.Okt.2010 kl. 08:52
|
Tak for det hurtige svar :P Det virker Mange tak Allan :D og fortsat god dag |