Deze browser wordt niet meer ondersteund.
Upgrade naar Microsoft Edge om te profiteren van de nieuwste functies, beveiligingsupdates en technische ondersteuning.
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(128, 8%, 22%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3EA%3C/text%3E%3C/svg%3E)
Hallo forumleden, in Excel heb ik een lijst begrippen in kolom A (vanaf A2). Bestaat er een tool of add-on die daar d.m.v. tekstanalyse een Wordcloud van kan maken? Het gaat mij om een methode die inzichtelijk maakt welke begrippen inclusief samenhangende termen het meest vaak in de kolom staan. De woorden zijn afkomstig uit een survey.
Groeten, NFG.
Een familie van Microsoft-spreadsheetsoftware met hulpmiddelen voor het analyseren, in kaart brengen en communiceren van gegevens.
Vergrendelde vraag. Deze vraag is gemigreerd vanuit de Microsoft Ondersteuning-community. U kunt met een stem aangeven of de inhoud nuttig is, maar u kunt geen opmerkingen of antwoorden toevoegen of de vraag volgen.
Duidelijk.
Ik stuur nu een mail met het bestand, nu gezipt, wellicht dat het dan wel werkt.
Norbert,
Het bestand is verstuurd.
Jan
Norbert,
Ik denk dat ik het precies zo doe.
In de afbeelding die je toont is de vorige woordwolk nog (net) aanwezig.
Twee stappen verder (2× op F8 drukken) en alle woorden verdwijnen: shD.cells.Clear
Is dat niet het geval, dan lijkt je scherm niet te worden bijgewerkt en kan het zijn dat je de regel
Application.ScreenUpdating = False
even moet voorzien van een voorafgaande apostrof (daarmee wordt de regel uitgeschakeld)
'Application.ScreenUpdating = False
en de code nog eens opnieuw uitvoeren.
Verder gaan met (herhaaldelijk indrukken van) F8 moet er vervolgens voor zorgen dat de woorden een voor een verschijnen.
Lukt het nu wel?
Jan
Als ik op F8 druk blijft het scherm met code in beeld. Wellicht moet ik op tabblad Woordwolk gaan staan en dan F8 drukken, na eerst het tabblad leeg gemaakt te hebben. Nu staat dat er vermoedelijk achter...
De samenhang die ik meende te zien is toeval. In mijn toepassing werk ik met woorden en maximaal 10 synoniemen daarvan. Als het woord zelf vaak voorkomt zullen de bijbehorende synoniemen ook vaak voorkomen, waardoor het gewenste resultaat vanzelf wordt behaald.
Norbert,
Set lst = shS.ListObjects("tblWoordwolk")
lst.QueryTable.Refresh False
Do Until lst.QueryTable.Refreshing = False
DoEvents
Loop
In dit stukje code wordt de tabel (die met PQ is gemaakt) op blad Frequentie ververst. Dat is natuurlijk met name nodig als je de data in de tabel op blad Datablad hebt gewijzigd.
De Do….Loop zorgt ervoor dat de (VBA) code pas verder gaat als het verversen achter de rug is: zolang Refreshing nog bezig is (True is) blijft de code in deze loop.
DoEvents zorgt ervoor dat mogelijk andere gebeurtenissen doorgang kunnen vinden gedurende de tijd dat de code in deze lus zit.
Voor de rest loopt (For Each......Next) de code door de items van de tabel op blad Frequentie en plaatst elk woord in een cel op blad WoordWolk. De grootte van het lettertype wordt bepaald door de waarde in kolom Aantal.
De uitlijning binnen de cel (verticaal en hrizontaal) wordt min of meer random ingesteld.
Je noemt in je oorspronkelijke vraag iets over samenhangende termen.
Dat is hier (nog) niet toegepast.
Je zult daarvoor moeten aangeven welke termen bijelkaar horen.
Het doorlopen van de code met F8 lukt bij mij wel waarbij ik dan de woorden een voor een zie verschijnen. Wat gebeurt er bij jou waar je zegt dat dat niet lukt?
=
Het resultaat is natuurlijk wat statisch: steeds dezelfde woorden in dezelfde cellen.
Je zou de VBA code kunnen uitbreiden en daarmee woorden alfabetisch laten plaatsen of bv op- /aflopend qua frequentie, of juist willekeurig.
En als je op een of andere manier een verband tussen woorden kunt aangeven (een extra kolom met daarin een zelfde code voor woorden die bijelkaar horen) dan zou dat ook verwerkt kunnen worden in het resultaat.
Jan