Een kruiswoordraadsel in Excel

Voorbeeldbestanden bij dit artikel:
  • Kruiswoordraadsels
  • Inleiding

    Gisteren nog postte ik een artikel waarin ik het had over kruiswoordraadsels. Vandaag zet ik dan het volledige bestand op de site dat aan de grondslag lag van het artikel. Dit bestand is een samenwerking met dhr. Isi Denis, die ik hartelijk bedank om het bestand op de site te mogen plaatsen. De kruiswoordraadsels die u vindt in het bestand zijn afkomstig van / copyright van, (de website van) het Nieuwsblad.

    Het bestand kan gebruikt worden om kruiswoordraadsels in te vullen. Ik besef dat zoiets ook online kan, ja ook met apps op telefoon of tablet. Niettemin is het een goede oefening om via Excel en VBA één en ander te faciliteren in een gewoon werkblad.

    Het bestand gaat zelf geen nieuw raadsel genereren noch oplossen. Bedoeling is dat de antwoorden bijgehouden worden op een apart werkblad. Bij het invullen van een opgave kan er dan gevalideerd worden met de oplossing: zit men juist of niet ? Indien niet, dan kan men via een knop de fout ingevulde letter(s) weghalen.

    Met behulp van voorwaardelijke opmaak en een stuk VBA-code wordt visueel aangegeven waar men zit: zowel in groen in het rooster, als welke opgave in kolom S moet beantwoord worden in de groene cellen.

    Als je de cursor verplaatst lichten andere delen in het rooster op, naargelang het woord dat volgens jouw cursor/selectie dient ingevuld te worden. Als er in een selectie een conflict is tussen een horizontale en een verticale selectie/opgave (zoals te zien op de afbeeldingen) dan heeft horizontaal de voorkeur. Middels een dubbelklik in de cel kan je dan de verticale selectie bekomen.

    Cel AC3 is belangrijk: daar gebeurt de check of jouw oplossing juist is. Uiteraard moet Excel dan weten waar het rooster met de oplossing staat. Daarvoor kijk je rechts in de tabel naar de celadressen van de oplossing. Die celadressen breng je in in de formule van cel AC3. Dat is een matrixformule dus die moet bevestigd worden met Ctrl + Shift + Enter in plaats van gewoon Enter.

    Voor een nieuwe opgave en dito rooster kan je kopiëren van op het blad 'Opgaven' en plak je als waarden. Voorwaardelijke opmaak doet de rest wel !

    Voor het overige zou ik zeggen, probeer het eens uit op een druilerige zondagnamiddag ;-)




    Over Wim

    Wim Gielis is Business Intelligence consultant en Excel expert

    Andere links