Søg
Avatar billede nixon Juniormester
14. september 2009 - 22:22 Der er 6 kommentarer og
1 løsning

Værdi afhængig af Cellens farve

Hvordan får jeg Cellens farve med ind som en aktiv del af en værdi

feks
Hvis Celle1 er gul og indeholder teksten "FF" så skal det give en værdi 3, hvis den ikke er gul men stadigvæk indeholder teksten "FF" er værdien 0

...
Så hvis jeg ser på cellerne fra A2-A9 og der er fire celler der opfylder mit krav (gul og teksten "FF")så giver det en værdi = 4x3=12

...

På forhånd
Tak for din tid
Avatar billede supertekst Ekspert
14. september 2009 - 23:02 #1
Public Sub tælFFarve()
Dim værdi As Byte
   
    værdi = 0
    For Each cc In Range("A2:A9").Cells
        If cc.Value = "FF" And cc.Interior.ColorIndex = 6 Then
            værdi = værdi + 3
        End If
    Next
   
    MsgBox ("FF/Gul-værdi = " & CStr(værdi))
End Sub
Avatar billede nixon Juniormester
15. september 2009 - 21:00 #2
Tak for svaret supertekst, har du også mulighed far at fortælle hvordan jeg ligger det ind i en Celle ..

Hvis jeg kopier det "hvilket jeg troede man gjorde" så skriver den teksten ind i en celle, uden at aktivere funktionen/koden.

På forhånd tak
Avatar billede nixon Juniormester
15. september 2009 - 21:21 #3
Jeg har gættet mig frem til at det er en VisualBasic kode, hvorfor jeg har aktiveret "udvikler" fanen, som så igen giver mig adgang til VisualBasic editoren ... men hvad nu?

Når scriptet virker, kommer der så en popup med resultatet, eller kommer det til at stå i cellen??
Avatar billede supertekst Ekspert
15. september 2009 - 22:43 #4
I 2003: Højreklik på den relevante arkfane - vælg Vis programkode - kopier ovennævnte VBA-kode heri.

Hvis man er i VBA-vinduet kan koden iværksættes med knappen F5.

Ellers send en mail til mig (adr. under min profil) - så sender jeg dig filen.
Avatar billede supertekst Ekspert
15. september 2009 - 22:44 #5
PS: Der kommer en meddelelsesboks til slut og viser værdien.
=  MsgBox ("FF/Gul-værdi = " & CStr(værdi))
Avatar billede supertekst Ekspert
16. september 2009 - 20:57 #6
Du må jo hellere få et svar - hvis du kan anvende det.
Avatar billede nixon Juniormester
16. september 2009 - 21:22 #7
;D Tak
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview
Kategori
Excel kurser
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig
Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel Indlæg Oprettet Seneste aktivitet
Samle data fra flere kolonner i 1 Af FinnLauridsen i Excel 5 17/04/202616:11 27/04/202617:58
Træk data fra ny lokation ved måneds skift Af Hezo i Excel 6 13/04/202614:32 15/04/202611:04
Makro der gemmer vedhæftet fil fra Msg og omdøber filen Af lokesa i Excel 2 31/03/202610:22 31/03/202611:47
Stempel ur start og stop Af lurup i Excel 3 23/03/202613:24 07/05/202614:01
Hvordan bruges indeks & sammenlign når der skal søges over flere kolonner? Af Laugesen1 i Excel 4 08/03/202611:56 08/03/202613:57
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I dag 17:11 Har glemt navn på min ene konto på eksperten! Af ErikHg i Fri debat
I dag 15:00 RIP af DVD med MakeMKV Af dcedata1977 i Servere
I dag 10:08 slet windows Af jajoh i Windows
07/0514:15 PHP Html Af Asky i Programmeringsværktøjer
07/0511:06 Rufus mange muligheder - valg ved install Windows Af Uvanga i Windows
White papers
Flere white papers »