Как сделать шахматную разметку?

Question

[Diana Stoyka]

Нужно чтобы по горизонтали было А-Н
а по вертикали 1-8.

Comments

[idShura]

Это задание, а не вопрос.

[Diana Stoyka]

idShura, од части это вопрос с заданием, я искала как сделать не особо знаю, а саму шахматную доску я имею, просто не знаю как именно это сделать.

Answer 1

[idShura]

Sub MM1()
For c = 1 To 8
    For r = 1 To 8
        Cells(1, 1).Offset(r - 1, c - 1).Interior.ColorIndex = (r + c) Mod 2 + 1
    Next r
    Cells(1, 1).Offset(0, c - 1).ColumnWidth = 2.5
Next c
End Sub

Comments

[Diana Stoyka]

спасибо)

[idShura]

Отметь решением, если это то, что нужно.

[Diana Stoyka]

idShura, только один вопрос, можно ли через код изменить форму ячейки с прямоугольника на квадрат?

[Александр]

Diana Stoyka, можно.

[idShura]

Diana Stoyka, Внес изменения в код

[Diana Stoyka]

idShura, спасибо большое!