07. december 2005 - 23:06Der er
10 kommentarer og 1 løsning
Kolonne B skal ALTID være rød
Hejsa Kan jeg sikre mig at uanset om man kopierer tekst ind i en række, at baggrunde ALTID vil være fx. rød?
Jeg har en tabel hvor man løbende skal indsætte en del data fra et andet regneark, men der er ingen farver i dette ark. Men for bedre at kunne kende de vigtige kolonner vil jeg gerne om det var muligt at formarere fx. kolonne B til altid at være en bestemt farve.
Kan man det?
Kan man evt. også lave en funktione der laver hver anden linie lys grå så man bedre kan adskille linierne også?
De fleste virksomheder har efterhånden bevist, at AI virker.
Pilotprojekter leverer resultater. Medarbejdere bruger generative AI-værktøjer. Nye use cases dukker op på tværs af organisationen.
til første del af dit spm. Denne kode indsættes i arkets eget kodemodul (højreklik på arkfanen og vælg vis programkoder) Hvis der ændres en celle i kol B. trigges makroen
Private Sub Worksheet_Change(ByVal Target As Range) Dim r As Range If Not Intersect(Target, Range("B:B")) Is Nothing Then Range("B:B").Interior.Color = vbRed End If End Sub
Private Sub Worksheet_Change(ByVal Target As Range) Dim r As Range If Not Intersect(Target, Range("B:B")) Is Nothing Then Range("B:B").Interior.ColorIndex = 36 End If End Sub
grunden til at cellerne ikke blev røde fra starten er at jeg antog at de allerede var farvede, inden makroen kører første gang. Som sagt kræver det en ændring af en tilfældig celle i kolonne B for at trigge makroen. Dette vil fx. ske når nogen kopierer over fa et andet ark.
Sub SetGrey() Const Grey As Long = 15 Dim r As Long, x As Long r = ActiveSheet.UsedRange.Rows.Count For x = 2 To r Step 2 Cells(x, 1).EntireRow.Interior.ColorIndex = Grey Next End Sub
Synes godt om
Ny brugerNybegynder
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.
