Print side | Luk vindue

identificer skrifttype

Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Generelt
Forum beskrivelse: Hjælp til generel daglig brug af programmet Excel
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=50
Udskrevet den: 21.Nov.2024 kl. 18:19


Emne: identificer skrifttype
Besked fra: Lars Gissel
Emne: identificer skrifttype
Posteringsdato: 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?


Svar:
Besked fra: Allan
Posteringsdato: 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

Besked fra: Lars Gissel
Posteringsdato: 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

Besked fra: Allan
Posteringsdato: 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
 

Besked fra: Lars Gissel
Posteringsdato: 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

Besked fra: Allan
Posteringsdato: 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 


Print side | Luk vindue