Return to Answer

#Excel VBA (Immediate Window), 82 bytes

For i=1To 9:Cells(i Mod 3+1,(i+1)/3).Interior.ColorIndex=Mid("673486857",i,1):Next

#Excel VBA (Function), 98 bytes Sub g() For i=1To 9 Cells(i Mod 3+1,(i+1)/3).Interior.ColorIndex=Mid("673486857",i,1) Next End Sub

Not a horrible tool for the job... I appreciate the fact that Excel already shows a grid so it is a matter of setting the background color.

Credit to @Neil for suggesting I use ColorIndex instead of Color leading to a 43 byte savings.

-21 bytes thanks to @Keeta

-16 bytes thanks to @Chronocidal for suggesting the "Immediate Window"

#Excel VBA (Immediate Window), 80 bytes

For i=1To 9:Cells(i Mod 3+1,(i+1)/3).Interior.ColorIndex=Mid(673486857,i,1):Next

#Excel VBA (Function), 96 bytes Sub g() For i=1To 9 Cells(i Mod 3+1,(i+1)/3).Interior.ColorIndex=Mid(673486857,i,1) Next End Sub

Not a horrible tool for the job... I appreciate the fact that Excel already shows a grid so it is a matter of setting the background color.

Credit to @Neil for suggesting I use ColorIndex instead of Color leading to a 43 byte savings.

-21 bytes thanks to @Keeta

-16 bytes thanks to @Chronocidal for suggesting the "Immediate Window"

-2 bytes thanks to @i_saw_drones

Lots of changes from my original submission :)

#Excel VBA, 98 bytes

Sub g()
For i=1To 9
 Cells(i Mod 3+1,(i+1)/3).Interior.ColorIndex=Mid("673486857",i,1)
 Next
End Sub

Not a horrible tool for the job... I appreciate the fact that Excel already shows a grid so it is a matter of setting the background color.

Credit to @Neil for suggesting I use ColorIndex instead of Color leading to a 43 byte savings.

-21 bytes thanks to @Keeta

#Excel VBA (Immediate Window), 82 bytes

For i=1To 9:Cells(i Mod 3+1,(i+1)/3).Interior.ColorIndex=Mid("673486857",i,1):Next

#Excel VBA (Function), 98 bytes Sub g() For i=1To 9 Cells(i Mod 3+1,(i+1)/3).Interior.ColorIndex=Mid("673486857",i,1) Next End Sub

Not a horrible tool for the job... I appreciate the fact that Excel already shows a grid so it is a matter of setting the background color.

Credit to @Neil for suggesting I use ColorIndex instead of Color leading to a 43 byte savings.

-21 bytes thanks to @Keeta

-16 bytes thanks to @Chronocidal for suggesting the "Immediate Window"

#Excel VBA, 119 bytes

Function f()
For i=1 To 3
For j=1 To 3
Cells(i,j).Interior.ColorIndex=Mid("367408005",i*j,1)
Next j
Next i
End Function

Not a horrible tool for the job... I appreciate the fact that Excel already shows a grid so it is a matter of setting the background color.

Credit to @Neil for suggesting I use ColorIndex instead of Color leading to a 43 byte savings.

#Excel VBA, 98 bytes

Sub g()
For i=1To 9
Cells(i Mod 3+1,(i+1)/3).Interior.ColorIndex=Mid("673486857",i,1)
Next
End Sub

Not a horrible tool for the job... I appreciate the fact that Excel already shows a grid so it is a matter of setting the background color.

Credit to @Neil for suggesting I use ColorIndex instead of Color leading to a 43 byte savings.

-21 bytes thanks to @Keeta