Из квадратного листа картона вырезается коробка в форме куба с известной стороной. определить процент неиспользованного материала, если размеры листа заданы.
Sub othod() d = Cells(1, 3) a = Cells(2, 3) If d < 4 * a Then MsgBox "Сторона листа D должна быть не менее 4a", vbCritical + vbOKOnly, "Критическая ошибка" Return Else so = d ^ 2 - 6 * a ^ 2 'Суммарная площадь отходов po = so / d ^ 2 'Доля отходов Cells(3, 3) = po End If End Sub
Остальное во вложении. Скачайте файл .txt и замените его расширение на xlsm
d = Cells(1, 3)
a = Cells(2, 3)
If d < 4 * a Then
MsgBox "Сторона листа D должна быть не менее 4a", vbCritical + vbOKOnly, "Критическая ошибка"
Return
Else
so = d ^ 2 - 6 * a ^ 2 'Суммарная площадь отходов
po = so / d ^ 2 'Доля отходов
Cells(3, 3) = po
End If
End Sub
Остальное во вложении. Скачайте файл .txt и замените его расширение на xlsm