26. januar 2009 - 14:48Der er
3 kommentarer og 1 løsning
Formatering efter opslag
Jeg sidder og laver gantkort, til dem der nu måtte vide hvad det er ....!
Her har jeg omkring 25 forskellige arbejdsfunktioner som jeg sætter ind i et skema som viser en dag delt ind i 5 min. intervaler. Disse arbejdsopgaver har hver deres baggrundsfarve og skriftfarve, med andre ord de er unike. Desværre foregår formateringen manuelt.
Kan jeg lave et opslag som hedder noget i retningen af:
Hvis cellen="BIM" så er formateringen mørkeblå med hvid skrift osv osv osv med ca. 25 forskelige forkortelser og dertil hørende farver (både baggrund og skrifttype)
Smid denne makro i arkets modul, ret selv område til og fortsæt med at skrive koden
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A2:Y30")) Is Nothing Then ' området den kikker på Select Case Target Case "BIM" Target.Interior.ColorIndex = 5 Target.Font.ColorIndex = 2 Case "ooo" ' så laver du selv resten
Case Else Target.Interior.ColorIndex = xlNone Target.Font.ColorIndex = 0 End Select End If End Sub
Super godt, koden virker lige som den skal og det var tilmed nemt at følge din instruks, så tak for det.
Et lille tillægs-spørgsmål om jeg må. Er det svært at få det til at virke på en celle som henter sit indhold fra en anden celle? Altså en celle som ikke bliver udfyldt manuelt.
Jeg er ikke helt stærk i denne her accepter funktion. Hvis jeg gerne vil skrive en kommentar til dig skal, skal jeg så først acceptere (altså i dette tilfælde hvor svaret jo er rigtigt) og så sende min kommentar/svar bagefter.
Jeg skal lige svare først, inden du kan give point ;-))
En celle der opdateres via formel, trikker IKKE koden, det gør kun direkte editering i cellen
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.
