Dansk Regneark Forum
  Hjælp Hjælp  Søg i forum   Arrangementer   Opret ny bruger Opret ny bruger  Log ind Log ind


Emne lukketidentificer skrifttype
 Besvar Besvar
Forfatter
  Emne Søg Emne Søg  Emne funktioner Emne funktioner
Lars Gissel Se dropdown
Forum Begynder
Forum Begynder


Medlem: 06.Jul.2010
Land: DK
Status: Offline
Point: 2 		Direkte link til dette indlæg Emne: identificer skrifttype
    Sendt: 06.Jul.2010 kl. 13:02
Hej. Jeg har behov for noget i stil med: =hvis(A1="kursiv";1;2)     Altså en "hvis-reaktion" på om en anden celle er skrevet i kursiv.
Kan nogen genier hjælpe?
Til top



Til top
Allan Se dropdown
Forum Admin
Forum Admin
Avatar
Forum Admin

Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330 		Direkte link til dette indlæg Sendt: 07.Jul.2010 kl. 22:24
Hej Lars,
 
Jeg er ikke bekendt med en formel som kan det du erfterspørger, måske andre kan hjælpe?
 
Er du bekendt med VBA (makroer)?
Hvis ja, så skriver jeg gerne en lille stump kode som kan klare din udfordring.
 
//Allan
Til top
Lars Gissel Se dropdown
Forum Begynder
Forum Begynder


Medlem: 06.Jul.2010
Land: DK
Status: Offline
Point: 2 		Direkte link til dette indlæg Sendt: 08.Jul.2010 kl. 07:16
Hej Allan. Tak for dit svar.
Ja - jeg har arbejdet med makroer før, og vil meget gerne se din kode!
 
Venlig hilsen Lars
Til top
Allan Se dropdown
Forum Admin
Forum Admin
Avatar
Forum Admin

Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330 		Direkte link til dette indlæg Sendt: 08.Jul.2010 kl. 13:04
Hej Lars,
 
Sæt denne UDF ind i et modul.
Tryk ALT+F11
Højreklik på THISWORKBOOK og indsæt et Modul
I det nye modul, indsætter du følgende:
 
 
Function TælKursiv(Celler As Range)
Antal = 0
For Each Celler In Celler
    If Celler.Font.Italic = True And Celler.Value <> "" Then Antal = Antal + 1
Next
TælKursiv = Antal
End Function
 
Forklaring:
Nu har du fået en ny formel i Excel som kan tilgås fra formellinjen som normale formler.
 
Skriv f.eks. =TælKursiv(A1)
Nu tælles om A1 er kursiv eller ej.
 
Skriv f.eks. =TælKursiv(A1:A100)
Nu tælles hvor mange kursive celler der er i området A1:A100
 
Bemærk at en ændring af et format ikke tvinger Excel til at genberegne formler, så formlen beregner først når der tastes i arket.
 
Din formel vil så blive noget ála =HVIS(TælKursiv(A1)>0;1;2) 
 
Virker det efter hensigten?
 
//Allan
 
Til top
Lars Gissel Se dropdown
Forum Begynder
Forum Begynder


Medlem: 06.Jul.2010
Land: DK
Status: Offline
Point: 2 		Direkte link til dette indlæg Sendt: 09.Jul.2010 kl. 10:25
Hej Allan - Det er genialt!!!
 
Jeg skulle lige forstå at den (naturligvis) kun virker i det regneark som makroen ligger i (i starten troede jeg at den skulle ligge i en anden fil og ville virke generelt på alle regneark) men det er perfekt til mit behov.
 
Tusind tak for hjælpen
Til top
Allan Se dropdown
Forum Admin
Forum Admin
Avatar
Forum Admin

Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330 		Direkte link til dette indlæg Sendt: 17.Jul.2010 kl. 23:04

Hej Lars,

Velbekomme, det var en fornøjelse at kunne hjælpe.
HVIS du skal bruge denne funktion i alle regneark du åbner, kan det sagtens lade sig gøre.
Når/hvis behovet melder sig, så sig endelig til, der er flere muligheder.
 
God sommer
//Allan 
Til top
 Besvar Besvar

Skift forum Forum tilladelser Se dropdown

© 2010 - 2024 Dansk Regneark Forum - en del af Excel-regneark.dk