Hi,
> Wir sollen gerade mit VBA ein Sudoku programmieren.
das hatte ich mal mit Zufallszahlen gelöst.
> in der vierten soll das 3x3 Quadrat überprüft werden.
> Ich hätte gerne eine
> Funktion in der ich nur die Koordinaten übergebe und die Funktion die
> überprüft, weiß selber welches der neun 3x3 Quadrate überprüft werden soll.
Muss da nicht noch die Zahl übergeben werden, auf die geprüft werden soll?
> Private function quadrat (x as integer, y as integer) as Boolean
> ‘ hier fehlt mir die Idee
> End Function
Das würde ich mit Range und Cells machen:
for each objzelle in range(cells(x, y), cells(x + 2, y + 2))
if objzelle = zahl then …
next
Wobei x und y hier etwas irreführend sind - x ist die Zeile, y die Spalte.
Archiv