Auto opdatering af dato
Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Formler
Forum beskrivelse: Hjælp til formler i regneark og/eller brugen af disse.
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=1472
Udskrevet den: 01.Maj.2024 kl. 21:35
Emne: Auto opdatering af dato
Besked fra: angi
Emne: Auto opdatering af dato
Posteringsdato: 10.Dec.2013 kl. 21:47
|
Hvis jeg har en række med 4 felter(kolonner) som er udfyldt. I samme række i felt 5 står en dato som jeg ønsker opdateret med dagens dato, hvis jeg ændrer i bare en af de 4 første felter. En som har et forslag til hvordan jeg løser den opgave?
|
Svar:
Besked fra: EXCELGAARD
Posteringsdato: 15.Dec.2013 kl. 07:19
Ja, benyt 'Worksheet_Change' eventen til at holde din dato opdateret...
Eventen kunne f.eks. se således ud:
Private Sub Worksheet_Change(ByVal Target As Range)
' * ' Initialize
Const Celle_Dato As String = "A5"
Const Celler_Input As String = "A1:A4"
' * ' Test, if we should insert date
If Target.Cells.Count > 1 Then Exit Sub
If Target.Address(False, False) = Celle_Dato Then Exit Sub
If Intersect(Range(Celler_Input), Target) Is Nothing Then Exit Sub
ES: ' End of Sub
Range(Celle_Dato).Value = Date
End Sub |
Du kan selv rette celleområderne til dine egne celle områder blot ved at ændre konstanterne i starten af makroen.
Hvis du ikke ved, hvordan du indsætter makrokode ind i dine regneark, så kan du se det her:
www.excelgaard.dk/Bib/Makroer/Indsaet/ www.excelgaard.dk/Bib/Makroer/Indsaet/
-------------
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
|
|