Доброго времени суток.
У меня возникла проблем с написанием кода для программы.
Реализуя задачу по информатике. эта реализация прикреплена.
На листе оценка кредитоспособности должны расчитываться коэффициенты, исаользуя данные с бух баланса и данные с отчета о приьылях и убытках.
считая первый показатель я наткнулась на проблему. здесь как бы получается просто калькулятор:

Sub расчет()
Sheets("Оценка_кредитоспособности").Cells(3, 2) = Sheets("Бухгалтерский_баланс").Cells(2, 3) + Sheets("Бухгалтерский_баланс").Cells(2, 4) + Sheets("Бухгалтерский_баланс").Cells(2, 5) / Sheets("Бухгалтерский_баланс").Cells(2, 8)
End Sub

но это конечно же не работает. а нужно еще расчитать остальные показатели по определенным формулам, но исходя из данных все того же баланса и отчета. А также сравнить эти показатели с допустимым значением. и сделать заключение о кредитоспособности.

VladConn,

Она и с кнопкой выполняться не будет, потому что я там не правильные адреса листов ввела. Я нашла эту ошибку.

теперь я хочу чтобы через кнопку проихводился расчет, выводилось окно код предприятия и дата, на лист расчет в определенные ячейки выходил собственно код предприятия и дата, и по коду распозновалось по какому преприятию из бух отчетности сохдавалась проверка о кредитоспособсноти.
но блин че то там снова не работает :)

может взгляд профессионала сразу вычленит ошибку: поглядите там в модуле 1. написан этот код.

Shocker.Pro,

Ух ты, и правда!!!

Спасибо всем, кто заинтересовался проблемой. Проблема решена.