@Dianka05
Всегда на позитиве :Р

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

Нужно чтобы по горизонтали было А-Н
а по вертикали 1-8.
  • Вопрос задан
  • 110 просмотров
Решения вопроса 1
idShura
@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


604740ebbb837795854926.gif
Ответ написан
Пригласить эксперта
Ваш ответ на вопрос

Войдите, чтобы написать ответ

Войти через центр авторизации
Похожие вопросы