Вот когда-то делал для знакомых - поиграться!
Просьба если будут косяки не судить строго - это был мой второй макрос!
А потом переделывать необходимости не было!

Пролестни ниже там ведь на каждый месяц считается из фактического количества дней, хотя может я чего-то не понял.
Именно поэтому нужно выкладывать файл с проблемой и почётче описывать задачу!

А пароль к модулю дашь, а то события задолбали отключить хочу!
В целом создаётся впечатление что перемудрено, всё как то сложно!

KL (XL) DeggasadА пароль к модулю дашь, а то события задолбали отключить хочу!
В целом создаётся впечатление что перемудрено, всё как то сложно!

Для того чтобы отключить события, не надо залезать в модули - просто запусти из окна Immediate след. инструкцию




KL
[MVP - Microsoft Excel]

Спаслил с потрохами...
:)

Появилось время - посмотрел!
Конечно пару рублей не хватает:
Твы же сумму процентов ("Відсотки внеску") считаешь факт/365 ,
А сумма аннуитетного платежа ("Сума внеску") у тебя всё равно считается по формуле ПЛТ
А потом ты находишь уплату основного долга ("Капітал внеску") как разницу ("Сума внеску") - ("Відсотки внеску"). Конечно эта сумма не сходится с суммой кредита.

Как с этим бороться:
Мой файл возможно прост и не решает поставленных перед тобой задач, но советую тебе его посмотреть! Потому что там изначально заложен другой принцип расчёта, который каждый месяц учитывает фактическое кол-во дней и использует подбор параметра для определения размера аннуитетного платежа. При любительском, беглом изучении проблемы мне показалось, что финансовыми функциями типа ПЛТ() вообще лучше не пользоваться, потому что они могут возвращать ошибочное значение и это сразу не заметишь. Так что предлагаю вам воспользоваться подбором параметра, например по тому же событию изменения листа.
Ну а если не хочется, то с учётом сделанных замечаний меняйте свою форму, хотя уж слишком сложно...

Хелпя

Это было в целом моя проблема. Я думал что просто поставив рассчет процентов другим методом все будет считатьь нормально, н окак оказалося это не вышло. По рассчету Deggasad, вашег окалькулятора, я увидел что аннуитет у вас считается суммированием тела кредита и процентов, что как мне известно не есть методом аннуитета.



Так тебе известно или нет что такое аннуитет и как он считается? Если да, то расскажи. Ты же сам говоришь, что ты работник банка?

На мой обывательских взгляд, неоднократно потдверждённый экспериментально, хотя тут особых подтверждений вроде и не нужно, расчёт представленный в прилагаемом мной файле находит как раз аннуитет (специально упрощённый пример сделал для однозначности понимания предлагаемого решения). А там уж как ты будешь проценты считать это твоё дело: хочешь 1/12, хочешь факт/365.

ХелпяВсем доброе утро!!!!

вообщем вроде у меня получилося, т.е. с АБС банка сходится и эт шлавное :)....

Вот по какой формуле я считал аннуитет :)....

Сумма кредита*((СТЕПЕНЬ(1+Месячная комиссия % *факт.к-во дней пользов.кред;Срок кредита)*Месячная комиссия % *факт.к-во дней пользов.кред)/(СТЕПЕНЬ(1+$Месячная комиссия % *факт.к-во дней пользов.кред;Срок кредита)-1))+комисии

Вот такая дурная формула. А Месячная комиссия % я нашел таким вот образом: Номинальную ставку процентов поделил, не на 12, а на 365....

Может кому-то и пригодиться.....

Но вот и появляется следующая ошибка, которую я писал уже в другом форме ,вот сцылочка... а файл тот же...посмотрите плизз..

http://sql.ru/forum/actualthread.aspx?tid=441374&pg=1&hl=%f5%e5%eb%ef%ff?

а именно предпоследняя сцилка

А фактическое кол-во дней пользования кредитом ведь в каждом месяце разное ???
и в засисимости от этого меняется остаток кредита и соответственно %

Добавлю пожалуй!
Перестаньте мучаться и попробуйте мой пример, а то ведь перестану вас скоро уговаривать, неблагодарное это дело - вы попросили помощи и упорно не хотите её принимать!

А нафига вид менять? Поменяёте принцип расчёта.
Скажите у Вас он считает по той формуле которую вы выложили?

ХелпяСтарый вариант выложенного файла да...новый еще не выкладывал...
проблемс в том, что когда добавил скрипт (что бы в листе приложения скрывались не нужные строки):

If Target = Range("G11") Then
Sheets("2").Rows("21:260").Hidden = False
Sheets("2").Rows(21 + Range("G11").Value & ":" & 260).Hidden = True
End If

выдает ошибочку Run Time error 13: Type mistache. А когда убирай этот скрипт то все в порядке.... как избежать этого и в чем вообще фигня?

Вот уже меня это интересует, а формула раз прошла, значит все

Куда она формула прошла то? Я никак не пойму? Если она неправильно считает? Что у Вас за банк такой?
Выложите для примера расчёт погашения кредита 100 000 со ставкой 20% на 12 с использованием вашей формулы, чтобы было видно уплаченные каждый месяц проценты и сумму основного долга?

ХелпяЯ сразу звЫняюсь за то что морочу голову, но.... мне ексель выдает ошибочку Run Time error 13: Type mistache.

Когда в скрипте ВБА есть такие строчки

Private Sub Worksheet_Change(ByVal Target As Range)

.......... еще текст скрипта

If Target = Range("G11") Then
Sheets("2").Rows("21:260").Hidden = False
Sheets("2").Rows(21 + Range("G11").Value & ":" & 260).Hidden = True
End If
End Sub

Вообщем может эт я переработался, н оя не пойму что вы от меня хтите....может завтра с свежей головой пойму

1) Вопрос остаётся в силе - насчёт формулы
2) Есть ли у Вас лист с наименованием "2" или вам нужен лист с индексом 2, тогда пишите
Sheets(2) - без кавычек
3) Возможно из-за того что у вас лист защищён, нужно при защите разрешить форматирование строк или снимать защиту перед скрытием строк и опять защищать позже!

ХелпяХорошо пасибо......а вот каким скриптом прпопистаь, то что вы мне сказалаи по поводу п.3, ка это сделать?



А на вопрос ответишь?

Ах да всё хотел сказать посмотри справку про условное форматирование. Формат - условное форматирование. И откажить от пробегания по всем ячейкам при каждой смене курсора, а то раздрожает жуть!

Хелпябррр... эти строки вставить когда и где??? на листе 2??
Вокруг твое кода скрытия строк, т.е. твой код между этих строк!

ХелпяБлин...идеотский нет..... я сделал как все мне сказал, н опри нажатии на кнопку он все-равно выдает ошибк уи кидает во тн а эту строку : If Target = Range("G11") Then

А ошибка тажа......в чем проблема тогда может быть?

А если в другой книге попробовать - получается?

1) уже бы давно файл с ошибкой выложил, сколько же у тебя терпения. У же бы давно разобрались. Только без паролей всяких - чтобы код можно было посмотреть (я конечно и сам могу открытьтолько зачем же)

2) Со вторым вопросом можно сначала по форуму посмотреть (примеров много есть). тем более что постановка пока довольно обстрактная.

ХелпяХорошо....я ж выложил его ранее......просто получается, что мой предыдущий сотрудник начал его делать, форма понравилась, и мне был осказано что делать по такому подобию. А он то такой паразит закрыл случайным паролем ВБА, а как отркыть забыл....пришлось поламать прогой.. так что может сразу и скажите где отключить пароль
В том файле который вы выложили никакой ошибки нет, выложите новый и скажите что сделать, чтобы воспроизвести ошибку. А пароль отключить по VBAProject правой кнопкой выбери VBAProjectProperties и дальше сам догадаешься, или пароль напиши и файл выложи!
Вообщем думай!

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

Какой новый? сними вообще пароль (пустую строку оставь и галку по-моему убрать нужно) и сохрани, потом когда нибуть свой поставишь.

ХелпяВот выложил, все пароли снял...спс, что подсказали.. :) Когда нажмете кнопку Очистить он выдаст ошибку.... вот про это я и говорил

Нифига не снял, пиши пароль чтобы VBAProject открыть, у меня на работе ломалки нет.

И вообще в файле ничего не поменялось, так же считается ПЛТ(), так же пробегают все ячейки вместо того чтобы сделать условное форматирование да и всё? Вы вообще что нибуть делаете в этом направлении или только вопросы на форум пишите?
В любом случае сейчас ничего подсказать не могу, т.к. VBAProject заблокирован паролем!

Хелпяуважаемый Deggasad Вы мне можете написать математическим языком по какой формуле у Вас считается аннуитет
Нет формылы - подбор параметра (если ручками - сервис - подбор параметра). Устанавливаем на конец срока пользования кредитом желаемый результата по полю сумма кредита - ноль, ставим изменять значение аннуитета и он сам подбирает. А на ячейку с аннуитетом ссылаемя по всем месяцам как единый платёж, соответственно сумма процентов зависит от фактического срока пользования кредитом за период и сумы остатка кредита, а сумма уплаты основного долга как разность между аннуитетом (который подбирается) и суммой уплаченных процентов.

Хелпя pbohdanПрофессиональная программа расчета аннуитета для баз 30/360 и факт/360. Возможны любые доработки. Пишите на pbohdan@mail.ru

всем снова драсте!!!

у мня вот вопросик к этому файлику.... там идеть такой капитальный расчет что без бутылки не разберусь, корресктировки и прочее, но ясно одно, что работа сделанная не маленькая. Если возможно, хотелось бы получить (где-то я это уже писал ;)) формулу математическим языком, что бы я мог представить ее на обозрение и обговаривание..... возможно такое*????


Да нет никакой формулы, тот же ваш ПЛТ() подбором ищет.

Хелпя DeggasadАх да всё хотел сказать посмотри справку про условное форматирование. Формат - условное форматирование. И откажить от пробегания по всем ячейкам при каждой смене курсора, а то раздрожает жуть!

я чего-то не оч понял что вы имели ввиду под "условное форматирование"?? То что при нажатии на любую ячейку пробегает по всему фалу?? Или что?? Если 1-е то я не нашел этого в "условное форматирование"

Н-да. А зачем ваш макрос пробегает по всем ячейкам при каждой смене ячейки? Могёте сформулировать?

Сам отвечу: Самое долгоиграющее на событии "на изменение выделения" у тебя - пробегать по ячейкам и помечать цветом по определённому условию, если я правльно помню. Так вот как раз это и делает условное форматирование и вразы быстрее, а главное без постоянных дёрганий при любом изменении выделения.