Goedemiddag pitufo,
je macro is net wat ik nodig heb, omdat deze (weer) een 100-tal loops moet draaien.
Maar net daarom, en door mijn nul-kennis van functies, laat ik je functies even aan de kant.
Ik ben natuurlijk met teveel zaken gelijktijdig bezig, elk idee zet ik snel om in voorlopige code, want straks ben ik het weer vergeten.
Eigenlijk ben ik (toch weer) de Sudoku gedeeltelijk aan het laten oplossen door macro's. Nu ik toch al zo ver ben.
Maar het moet leesbaar blijven voor mij, en dat is je vorige code zeker. Die kan ik goed gebruiken.
De Sudoku volledig laten oplossen zal er wel niet in zitten, ik weet hoeveel valkuilen er zijn. Maar we zien wel....
In bijlage mijn versie.5, waarin:
1 - In het werkblad, rechts van de linker sudoku (de echte waar het om gaat) heb ik een =Als(Aantal.als()) formule gezet
en doorgetrokken. En deze toont mij alle cijfers die maar 1 keer voorkomen in de horizontale Range. Spijtig dat ik
MergeCell niet tot mijn beschikking heb in het werkblad, want nu toont hij ook de cijfers in de Merged Cells.
En omdat dit dus toch naar VBA moest durfde ik, na zelf goed gezocht te hebben, om hulp vragen.
2 - Er staan nu een reeks knoppen onder de Sudoku, die natuurlijk moeten gaan dienen om de macro in te vullen.
Deze zijn er enkel grafisch, nog niet in gebruik dus.
3 - Omdat je bij het invullen van een definitief (gevonden) cijfer een Niet-Samengevoegde veld (van 3 x 3) moet omzetten
naar een Samengevoegde wil ik beneden een cijfer-Commandbutton de focus geven bij click, en dan op de cellen in de
Sudoku klikken om de cellen te Mergen, en de waarde te geven onder de CommandButton.
Maar.... dan moet je de linker-boven cel van dat groepje klikken. Dat wilde ik opvangen door een transparante knop
over elk veld te zetten. toch hoop ik het straks in de code te kunnen doen zonder die transparante drukknoppen, want
dat lijkt me toch een heel gedoe (81 knoppen extra
).
Die transparante heb ik als proef al eens aangemaakt in het rechter Sudoku-test-veld.
Dat zal het wel geweest zijn voor vandaag. als ik hiermee al iets vooruitgang boek ben ik al blij.
Bedankt en groeten,
SoftAid