Из квадратного листа картона вырезается коробка в форме куба с известной стороной. определить процент неиспользованного материала, если размеры листа заданы.

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