###Excel VBA
Excel VBA
###Excel VBA
Excel VBA
###Excel VBA
Dim l() As String
w = InputBox("w")
n = InputBox("n")
ReDim l(Len(w))
Var = w
q = Len(w)
For i = 1 To Len(w)
l(i) = Left(Var, 1)
Var = Right(Var, Len(w) - i)
Next i
Cells(Int((q) * Rnd + 1), Int(((n - q) * Rnd + 1))).Select
r = Int((3) * Rnd + 1)
If r = 1 Then
For i = 0 To q - 1
ActiveCell.Offset(0, i) = l(i + 1)
Next
ElseIf r = 2 Then
For i = 0 To q - 1
ActiveCell.Offset(i, 0) = l(i + 1)
Next
ElseIf r = 3 Then
For i = 0 To q - 1
ActiveCell.Offset(i, i) = l(i + 1)
Next
End If
For i = 1 To n
For j = 1 To n
If Cells(i, j) = "" Then
Cells(i, j) = l(Int((q - 1) * Rnd + 1))
End If
Next j
Next i
It works by first randomly placing the word in the spread sheet, random in both position and direction, then filling the non-empty spaces in the surrounding grid by randomly choosing from all but the last letter of the word.
BANANA Output (2, 1):
N B N A N A N N A B B A
A A N A A A B A N A A N
N N A B A N B N B A N N
B A B N A N N A N A B N
N N A N A N N A A A A B
A A B A N N A B A N A A
A A A A A N A N A A N A
A N A B B A N A N B N N
A A N N A B A N A B N A
A N A N A N B A B N A A
A N A A B A B N N N B A
B A A A N N N A B N A A
ELEMENT Output (6, 5):
E E L M M M L E E N M M E E
E E M E L E E M E E E E E L
E N E E E E E L E N E E E E
L E M M M E E L E L N L M E
E L L L E E M L E M M E E E
L E M L N N L M E E L E M N
L L N E M M M E E N E E E L
E E N E N L E N M L N N N M
M E E M M N E E M E E E E L
N E M M M E E L N L N E L E
L M E L M M N N L E E T E M
E E E N L M E E M E E E E E
M E E E E L N M L E E E E E
N L L M E M E L E M E M N E
ABRACADABRA Output (2, 3):
R B A R A R D R D A A R R D R A A C A R B A
C B B R R A A A R A B A C R A A A D D A C A
B A B R A C A D A B R A R A A R D B B B C R
C R C A A R B D R A A A R A R D D B R B D A
C A D A C A A D B A R D A A D D B D R A R B
A A R R R B R B R B A A R C R B C A A A A A
A R A B R A R A C D R A A R C A D C B C C D
D R A A A D B C C R A A R B B A B A R B C R
A R B R R C D R R B D A B A C C B A A A R R
A A D A A A B D R A B A R A D B A A B B D R
C A A B R R B A B B R A A C A D A R A A A A
A R R C R R A R C A B A A A R A A R A R C R
D B C A B A A A A B C A B B D A R R B B R A
B A C B B D C B D B A A A A D A R R C C A R
A A R R R R D A R C A A B A B C C A A R A R
C A B A B R B C B B C B D A A R A R A B D D
R A A A C B R D R B B R A R C D A A C A D A
A D B A C R A C B A R A A A A C A R D A D B
A R B B A A R A B A R A A R A R B R D B D A
R B D B B A B R C D A C A A R C B A B B D R
B C B A B A B D D B B R B B B A A R R A A C
R D A C A A A R C R R A C R C A B R B A R A