Работа с объектами_ЭТ. Задача о Кладке кирпичей

• Название: Задача о Кладке кирпичей
• Дата: 11.12.2021
• Размер: 30.5 Kb.
• Имя файла: Работа с объектами_ЭТ.doc
• Тип: Задача; #299765

Упражнение_1.

Последовательная заливка и обрамление ячеек электронной таблицы.

Задача о «Кладке кирпичей».
Sub Обрамление_ячейки_ (i, j) ‘ Создано с помощью Макрорекордера

Cells(i, j).Select

Selection.Borders(xlDiagonalDown).LineStyle = xlNone

Selection.Borders(xlDiagonalUp).LineStyle = xlNone

With Selection.Borders(xlEdgeLeft)

.LineStyle = xlDash

.Color = -16777024

.TintAndShade = 0

.Weight = xlMedium

End With

With Selection.Borders(xlEdgeTop)

.LineStyle = xlDash

.Color = -16777024

.TintAndShade = 0

.Weight = xlMedium

End With

With Selection.Borders(xlEdgeBottom)

.LineStyle = xlDash

.Color = -16777024

.TintAndShade = 0

.Weight = xlMedium

End With

With Selection.Borders(xlEdgeRight)

.LineStyle = xlDash

.Color = -16777024

.TintAndShade = 0

.Weight = xlMedium

End With

Selection.Borders(xlInsideVertical).LineStyle = xlNone

Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

End Sub’ Обрамление ячейки
Sub Кладка_Стены()

For i = 1 To 10

For j = 1 To 10

Range(Cells(12 - i, 12 - j), Cells(12 - i, 12 - j)).Interior.ColorIndex = 9

Обрамление_ячейки 12 - i, 12 - j, 7

Задержка 100, 200, 300

Next j

Next i

End Sub
Sub Задержка(n1, n2, n3)

For i1 = 1 To n1

For i2 = 1 To n2

For i3 = 1 To n3

Next i3

Next i2

Next i1

End Sub

Sub Обрамление_ячейки(i, j, k)

Range(Cells(i, j), Cells(i, j)).Borders.ColorIndex = k

End Sub
Sub Разборка_Стены()

For i = 1 To 10

For j = 1 To 10

Range(Cells(i + i, j + 1), Cells(i + 1, j + 1)).Interior.ColorIndex = 0

Обрамление_ячейки 12 - i, 12 - j, 1

Задержка 100, 200, 300

Next j

Next i

Cells.Clear

End Sub
Задание на самостоятельную работу

1. 
   Отредактируйте код макросов для решения задачи в произвольном листе рабочей книги, для произвольного диапазона ячеек, произвольного цвета заливки ячеек, нужного цвета линии обрамления ячейки.
   
2. 
   Отредактируйте код макросов для задачи «Кладка из блоков из несколько ячеек электронной таблицы».
   
3. 
   Отредактируйте задачу о «кладке» и «разборке» по схеме: сначала вертикально, затем горизонтально.
   
4. 
   Реализуйте задачу «Кладка с проемами для окон и дверей»
   
5. 
   Реализуйте задачу о «разборке имеющейся кладки и создании новой кладки из того массива ячеек-кирпичей».