24. januar 2015 - 22:46Der er
4 kommentarer og 1 løsning
Automatisk ændre skrifttype farve
Kan man automatisk ændre skrifttype farve ved ny indtastede data eller ved ændring af indtastede data siden sidste gemte version til f.eks. rød. Og den røde farve skifter så tilbage til sort næste gang man indtaster nye data ind i arket og gemmer. Hvis det kan lade sig gøre, vil det være fedt hvis den røde skrifttype farve, ikke ændre sig hvis man kommer til at gemme uden at have lavet ændringer eller indtastet nye data.
Funktionen skal bruges til at man nemt kan få et overblik over hvad der er blevet ændret siden sidste gemte version.
Funktionen hedder track changes i Engelsk Excel 2007 ligger den i menuen review.
Den er ikke lige så kompleks som det du beder om, da man skal acceptere før ændringerne ikke optræder længere, men en VBA som automatisk accepterer disse ved åbning eller lukning kunne nok løse dit ønske.
Filen kan evt. sendes - send en mail og jeg returnerer den. @-adresse under min profil.
Rem VBA-koden er indsat i Denne_projektmappe (ThisWorkbook) Rem Der er oprettet en "CustomProperty" under navnet FarveKode Rem Kan ses under Egenskaber / Avanceret Egenskaber Option Explicit Public farveKode, nyFarvekode Private Sub Workbook_BeforeClose(Cancel As Boolean) If farveKode = 0 Then nyFarvekode = 255 'rød Else nyFarvekode = 0 'sort End If
ActiveWorkbook.CustomDocumentProperties("Farvekode") = nyFarvekode ActiveWorkbook.Save Application.DisplayAlerts = False End Sub Private Sub Workbook_Open() farveKode = ActiveWorkbook.CustomDocumentProperties("Farvekode") End Sub Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Dim adr adr = ActiveCell.Address Target.Select Selection.Font.Color = farveKode Range(adr).Select End Sub
Hej Supertekst, Det er for langhåret for mig at finde ud af. Jeg beklager jeg ikke har svaret før, men jeg har været ude at rejse og har desværre ikke haft muligheden. Dit tilbud og at jeg kan sende filen er meget generøs og jeg tror jeg vil bruge det, men jeg skal dog lige have tømt arket først, da det indeholder person følsomme data.
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.