Hej igen,
Måske kan du bruge følgende. Jeg har valgt cellen C3
til at indtaste heltallene.
1. Højreklik arkfanen og vælg "Vis programkode"
2. I højre vindue indsættes koden:
Private Sub Worksheet_Change(ByVal Target As Range)
'Leo Heuser, 12-5-2002
Dim Fields As Variant
Dim ColIndex As Variant
Fields = Array("Artist", "Sang", "Dato", "Placering", "Antal uger")
ColIndex = Array(3, 4, 6, 7, 8)
On Error Resume Next
If Target = Range("C3") Then
ActiveSheet.UsedRange.Interior.ColorIndex = ColIndex(Target.Value -
1)
End If
End Sub
3. Gå tilbage til arket med <Alt><F11> og gem projektmappen.
4. Du er nu klar til farveshowet
Indtastes 1 i C3 bliver området farvet rødt (3), indtastes 2 farves grønt
(4)
osv.
Variablen Fields bruges ikke af programmet, men er udelukkende med
for at se, hvilke farver der tildeles til de forskellige emner.
"rtist"svarer til rød, "Sang" svarer til grøn osv.
Du kan selv udvide Fields og ColIndex, som du lyster.
--
Med venlig hilsen
Leo Heuser
"Michael Lund Sørensen" <hold-diskussionen-i@nyhedsgruppen-tak.dk> skrev i
en meddelelse news:ugRC8.276$4f4.13843@news000.worldonline.dk...
> Hej Leo
>
> Jeg har en række data celler og nogle sorteringsceller
>
> Dato, Artist, Sang, Placering, Antal_uger, [og uden for det synlige felt:]
> Prioritet, Data_type, alfa
> (og et par stykker mere)
>
> Det egentligt data felter er Dato .... Antal_uger (men der er flere) og
> kontrol/styrer cellerne er Prioritet og data_type..
>
> Data_type indeholder mit heltal (indtastet manuelt). Når jeg sortere
efter
> Dato, vil jeg gerne have en baggrundsfarve, når jeg sortere efter Artist,
en
> anden, osv
>
> Årsagen til mit ønske er en række non-data linier, fx overskriftelinier.
Når
> jeg sortere efter Dato kommer der en linie med Årstallet ind i mellem
hvert
> årstal. Når jeg sortere efter Artist skal der komme en linie med "A".. og
så
> videre. Disse linier er ikke synlige ved andet end deres egen sortering.
>
> Jeg kan selvfølgelig farve dem fra starten og tilsvarende droppe betinget
> formatering, men jeg har flere opnået flere fordele med den betingede
> formatering, så som skrifttype formatering og den vil jeg gerne beholde.
>
> Data er fra en bog med hitliste placeringer. 7.500 artister og ca 26.000
> sange (reelt ca 34.000 sange) så det er en ret stor database.
>
> --
> Hilsen
> Michael Lund Sørensen
>
www.milux.dk
>
>
> "Leo Heuser" <leo.heuser@adslhome.dk> skrev i en meddelelse
> news:3cdbb8bf$0$78787$edfadb0f@dspool01.news.tele.dk...
> > Michael
> >
> > Det må være det gode vejr, for jeg forstår stadig ikke,
> > hvordan din base er bygget op, og hvad det er for celler,
> > der skal farves.
> >
> > Hvad mener du med "(altså ikke den samme celle) "?
> > Hvad er det for en celle (flere celler), der tilsyneladende kan
indeholde
> > værdier fra samtlige felter? Hvordan får denne/disse celler deres værdi?
> >
> > --
> > Med venlig hilsen
> > Leo Heuser
> >
> >
> >
> >
> > "Michael Lund Sørensen" <hold-diskussionen-i@nyhedsgruppen-tak.dk> skrev
i
> > en meddelelse news:BGAC8.608$gQ1.110309@news000.worldonline.dk...
> > >
> > > Jeg har en heltalsvariabel, som bestemmer om cellen (altså ikke den
> samme
> > > celle) indeholder Artist (en farve), Sang (en anden farve), dato,
> > placering,
> > > antal uger.... Jeg vil gerne hurtigt kunne se hvad cellen indeholder
> bare
> > > ved baggrundsfarven.
> >
> >
> >
>
>