Print side | Luk vindue

Diagram af tekst fra rulleliste

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=1029
Udskrevet den: 06.Mar.2025 kl. 14:34


Emne: Diagram af tekst fra rulleliste
Besked fra: KaDuuz
Emne: Diagram af tekst fra rulleliste
Posteringsdato: 11.Jan.2013 kl. 13:18
Hej,
 
Jeg er ny til dette forum og til dels til Excel. Jeg er ved at lave et Excel ark hvor jeg har tre tekster i en rulleliste fx. Afd. 1, Afd. 2 og Afd.3. Der vil måske være 100 indtastninger hvor der bliver valgt imellem disse tre udsagn.
Mit spørgsmål er kan man lave et diagram over fordelling af disse udsagn, så man kan se hvad der oftes bliver valgt?


Svar:
Besked fra: excelent
Posteringsdato: 14.Jan.2013 kl. 15:16
Ja mon ikke, hvordan havde du tænkt dig det skulle se ud ?

-------------
Jeg anvender Excel 2016 DK. Hvad anvender DU ? HUSK TILBAGEMELDING !!!

Besked fra: KaDuuz
Posteringsdato: 15.Jan.2013 kl. 14:23
Hej,
 
Jeg havde forstillet mig et Cirkel diagram hvis det er det du mener, jeg håber at det kan lade sig gøre.
 
Jeg har lavet rullelisten med de forskellige udsagn, det er mere at konventere dataen til et diagram der har drillet mig.

Besked fra: excelent
Posteringsdato: 15.Jan.2013 kl. 18:57

Jamen så må du få et eks. på en opstilling da jeg jo ikke kan gætte mig til hvordan din er

Celle C3 indeholder din DV-list
Celle B8 indeholder overskriften Afd.1
Celle C8 indeholder overskriften Afd.2
Celle D8 indeholder overskriften Afd.3
Celle B9 optæller via koden Valg af Afd.1 i DV-listen
Celle C9 optæller via koden Valg af Afd.2 i DV-listen
Celle D9 optæller via koden Valg af Afd.3 i DV-listen
 
Opret et cirkeldiagram ud fra disse celler B8:D9
 
Højreklik på arkfanen og vælg Vis Programkode
indsæt følgende koder der.
 
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("C3")) Is Nothing Then Exit Sub
Cells(9, Right(Target, 1) + 1) = Cells(9, Right(Target, 1) + 1) + 1
End Sub


-------------
Jeg anvender Excel 2016 DK. Hvad anvender DU ? HUSK TILBAGEMELDING !!!

Besked fra: KaDuuz
Posteringsdato: 16.Jan.2013 kl. 08:14
uploads/749/Ex-2013.xls" rel="nofollow - uploads/749/Ex-2013.xls
Hej, mange tak for for svaret.
 
Jeg har prøvet at uploade det jeg arbejder med i øjeblikket, det gør det nok lidt nemmere at forstå hvad jeg mener.
Vil du prøve at ligge din formel ind i dette ark, så forstår jeg det nok bedre.
 
På forhånd mange tak.
Duus

Besked fra: excelent
Posteringsdato: 16.Jan.2013 kl. 15:41
uploads/248/Ex-2013.xls" rel="nofollow - uploads/248/Ex-2013.xls


-------------
Jeg anvender Excel 2016 DK. Hvad anvender DU ? HUSK TILBAGEMELDING !!!

Besked fra: KaDuuz
Posteringsdato: 17.Jan.2013 kl. 07:37
Super... Mange tak for hjælpen.


Print side | Luk vindue