Print side | Luk vindue

Julekalender

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=2823
Udskrevet den: 04.Maj.2024 kl. 07:17


Emne: Julekalender
Besked fra: Sarchian
Emne: Julekalender
Posteringsdato: 17.Nov.2016 kl. 17:32
Kan man lave en "betinget kørsel af en makro"; Makroen gør én ting hvis A1 (som indeholder dagsdato-formel) er lavere end B1/B2.. (som indeholder predefinerede datoer) og makroen gør noget andet når A1 er lig med/over B1/B2..? Det er til en ide om en julekalender


Svar:
Besked fra: BQardi
Posteringsdato: 17.Nov.2016 kl. 20:32
Du kører makroen hver gang og tjekker for dine kriterier:
If Range("B2").Value = 0 Then
    MsgBox "Du kan ikke dividere med 0!", vbExclamation
    Exit Sub
End If
If Range("A1").value < Range("B1").value / Range("B2").value Then
    'Gør noget hvis mindre end
Else
    'Gør noget andet hvis lig med eller større
End If

Besked fra: Sarchian
Posteringsdato: 21.Nov.2016 kl. 21:40
Ja, selvfølgelig.. havde forestillet mig noget mere komplekst.. men din løsning klarer opgaven. Takker

Besked fra: Sarchian
Posteringsdato: 21.Nov.2016 kl. 21:42
Nyt spørgsmål:
 
Jeg erindrer, at man - når man bruger range-kommandoer - kan undlade, at regnearket flytter med rundt til de felter, der skal indhentes data fra, men i stedet bliver stående i udgangspositionen, når makroen køres... men jeg har ikke kunne Google mig frem til den pågældende kommando Disapprove

Besked fra: BQardi
Posteringsdato: 22.Nov.2016 kl. 16:36
Det var en af de mere kryptiske spørgsmål, men er det mon:
Application.Screenupdating = False
du tænker på?

Besked fra: Sarchian
Posteringsdato: 22.Nov.2016 kl. 17:10
Ja... 100% korrekt.. (og med dit tidligere svar må det blive til i alt 200% korrekt! - Jeg takker mange mange gange. Big smile

Besked fra: BQardi
Posteringsdato: 22.Nov.2016 kl. 17:45
200% velbekomme


Print side | Luk vindue