'Now we have 2 randomized list: possible directions and possible start positions (written as: r-c)ДЇor RC = LBound(NrMatrix) To UBound(NrMatrix) NrMatrix = GetFromToMatrix(ParamsDict('rStartMin'), ParamsDict('rStartMax'), ParamsDict('cStartMin'), ParamsDict('cStartMax')) NrMatrix = GetFromToMatrix(ParamsDict('rStartMin'), ParamsDict('rStartMax'), ParamsDict('cStartMax'), ParamsDict('cStartMin')) NrMatrix = GetFromToMatrix(ParamsDict('rStartMax'), ParamsDict('rStartMin'), ParamsDict('cStartMin'), ParamsDict('cStartMax')) NrMatrix = GetFromToMatrix(ParamsDict('rStartMax'), ParamsDict('rStartMin'), ParamsDict('cStartMax'), ParamsDict('cStartMin')) If ParamsDict('cStartMin') > ParamsDict('cStartMax') Then If ParamsDict('rStartMin') > ParamsDict('rStartMax') Then 'Debug.Print DirList(d), ParamsDict('dirR'), ParamsDict('dirC'), ParamsDict('cStartMin'), ParamsDict('cStartMax'), ParamsDict('rStartMin'), ParamsDict('rStartMax') Set ParamsDict = GetDirectionParams(Wrd, SrchRng, DirList(d)) 'Get Parameters: direction, min&max start position, etc. 'Get the randomized list of possible directions, start with the first and loop through them if needed MyWords = 'perception,grandmother,revolution,expression,employment,ambition,promotion,psychology,activity,departure,information,possibility,politics,imagination,negotiation' 'List of words, comma separated, used for testing purposes Rw2 = (, StartInputWords.Column).End(xlUp).RowДЄrrWords(Rw - Rw1) = StartInputWords.Offset(Rw - Rw1, 0).Value 'StartInputWords = Worksheets('Input').Range('A2') StartInputWords.Offset(0, 2).Resize(100, 1).ClearContents Set StartInputWords = Worksheets('Input').Range('A2') Set wrdRng = SrchRng.Offset(0, + 2).Resize(1, 1) Set srchSht = ThisWorkbook.Worksheets('WordSearch')

Excel crossword maker