Π§ΠΈΡ‚Π°ΠΉΡ‚Π΅ ΠΊΠ½ΠΈΠ³ΠΈ ΠΎΠ½Π»Π°ΠΉΠ½ Π½Π° Bookidrom.ru! БСсплатныС ΠΊΠ½ΠΈΠ³ΠΈ Π² ΠΎΠ΄Π½ΠΎΠΌ ΠΊΠ»ΠΈΠΊΠ΅

Π§ΠΈΡ‚Π°Ρ‚ΡŒ ΠΎΠ½Π»Π°ΠΉΠ½ Β«ΠžΡ„ΠΈΡΠ½ΠΎΠ΅ ΠΏΡ€ΠΎΠ³Ρ€Π°ΠΌΠΌΠΈΡ€ΠΎΠ²Π°Π½ΠΈΠ΅Β». Π‘Ρ‚Ρ€Π°Π½ΠΈΡ†Π° 25

Автор Π˜Ρ€ΠΈΠ½Π° Π€Ρ€ΠΈΠ·Π΅Π½

ΠŸΡ€ΠΈΠΌΠ΅Ρ€ 51. Π‘ΠΎΠ·Π΄Π°Ρ‚ΡŒ ΠΏΡ€ΠΎΠ³Ρ€Π°ΠΌΠΌΡƒ, которая ΠΏΠΎ Π²Π²Π΅Π΄Π΅Π½Π½Ρ‹ΠΌ Π² ΡΠΎΠΎΡ‚Π²Π΅Ρ‚ΡΡ‚Π²ΡƒΡŽΡ‰ΠΈΠ΅ тСкстовыС поля Ρ„ΠΎΡ€ΠΌΡ‹ Π΄Π°Π½Π½Ρ‹ΠΌ Π°Π²Ρ‚ΠΎΠΌΠ°Ρ‚ΠΈΠ·ΠΈΡ€ΡƒΠ΅Ρ‚ Π²Π²ΠΎΠ΄ Π΄Π°Π½Π½Ρ‹Ρ… Π½Π° студСнтов ΠΎΠΏΡ€Π΅Π΄Π΅Π»Π΅Π½Π½ΠΎΠΉ ΡΠΏΠ΅Ρ†ΠΈΠ°Π»ΡŒΠ½ΠΎΡΡ‚ΠΈ. Π”Π°Π½Π½Ρ‹Π΅ выводятся Π½Π° Ρ€Π°Π±ΠΎΡ‡ΠΈΠΉ лист excel. ΠŸΡ€Π΅Π΄ΡƒΡΠΌΠΎΡ‚Ρ€Π΅Ρ‚ΡŒ Π½Π° листС excel ΠΊΠ½ΠΎΠΏΠΊΡƒ, которая Π²Ρ‹Π·Ρ‹Π²Π°Π΅Ρ‚ Π½Π΅ΠΎΠ±Ρ…ΠΎΠ΄ΠΈΠΌΡƒΡŽ Ρ„ΠΎΡ€ΠΌΡƒ для ΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚Π΅Π»Ρ, Π½Π΅ загруТая Ρ€Π΅Π΄Π°ΠΊΡ‚ΠΎΡ€ vba.

ВСхнология выполнСния

1. Π‘ΠΎΡ…Ρ€Π°Π½ΠΈΡ‚Π΅ Π½ΠΎΠ²Ρ‹ΠΉ Π΄ΠΎΠΊΡƒΠΌΠ΅Π½Ρ‚ Excel.

2. Π‘ΠΎΠ·Π΄Π°ΠΉΡ‚Π΅ Ρ„ΠΎΡ€ΠΌΡƒ прилоТСния, ΠΎΡ‚Π²Π΅Ρ‡Π°ΡŽΡ‰ΡƒΡŽ трСбованиям Π·Π°Π΄Π°Ρ‡ΠΈ (см. рис. 99Π°).

3. ΠŸΡ€ΠΎΠΏΠΈΡˆΠΈΡ‚Π΅ ΠΏΡ€ΠΎΡ†Π΅Π΄ΡƒΡ€Ρ‹ ΠΎΠ±Ρ€Π°Π±ΠΎΡ‚ΠΊΠΈ наТатия ΠΊΠ½ΠΎΠΏΠΎΠΊ Π‘ΠΎΠ·Π΄Π°Ρ‚ΡŒ ΠΎΡ‚Ρ‡Π΅Ρ‚Π½ΡƒΡŽ Ρ‚Π°Π±Π»ΠΈΡ†Ρƒ, Π”ΠΎΠ±Π°Π²ΠΈΡ‚ΡŒ строку ΠΈ Π—Π°ΠΊΠΎΠ½Ρ‡ΠΈΡ‚ΡŒ (см. ΠΏΡ€ΠΈΠΌΠ΅Ρ€ 47).

4. ΠŸΡ€ΠΈ Π²Ρ‹Π²ΠΎΠ΄Π΅ ΠΈΠ½Ρ„ΠΎΡ€ΠΌΠ°Ρ†ΠΈΠΈ Π½Π° Ρ€Π°Π±ΠΎΡ‡ΠΈΠΉ лист Excel ΠΏΡ€ΠΈΠ΄Π΅Ρ€ΠΆΠΈΠ²Π°ΠΉΡ‚Π΅ΡΡŒ оформлСния, ΠΏΡ€Π΅Π΄Π»ΠΎΠΆΠ΅Π½Π½ΠΎΠ³ΠΎ Π½Π° рис. 99Π±.


Рис. 99Π°. Разработанная Ρ„ΠΎΡ€ΠΌΠ° ΠΏΡ€ΠΈΠΌΠ΅Ρ€Π° 51 Π² Ρ€Π°Π±ΠΎΡ‡Π΅ΠΌ состоянии


Рис. 99Π±. Π’Ρ‹Π²ΠΎΠ΄ ΠΈΠ½Ρ„ΠΎΡ€ΠΌΠ°Ρ†ΠΈΠΈ Π½Π° лист excel послС наТатия ΠΊΠ½ΠΎΠΏΠΊΠΈ Β«Π—Π°ΠΊΠΎΠ½Ρ‡ΠΈΡ‚ΡŒΒ»


5. ΠŸΡ€ΠΎΠΈΠ·Π²Π΅Π΄Π΅ΠΌ Ρ€Π΅Π·Π΅Π½Ρ‚Π°Ρ†ΠΈΡŽ Ρ„ΠΎΡ€ΠΌΡ‹, Ρ‚. Π΅. создадим ΠΊΠ½ΠΎΠΏΠΊΡƒ запуска Ρ„ΠΎΡ€ΠΌΡ‹ нСпосрСдствСнно Π½Π° листС Excel, Ρ‚Π°ΠΊ ΠΊΠ°ΠΊ Π·Π°ΠΏΡƒΡΠΊΠ°Ρ‚ΡŒ Ρ„ΠΎΡ€ΠΌΡƒ Π½Π° Π²Ρ‹ΠΏΠΎΠ»Π½Π΅Π½ΠΈΠ΅ ΠΊΠ°ΠΆΠ΄Ρ‹ΠΉ Ρ€Π°Π· ΠΈΠ· Ρ€Π΅Π΄Π°ΠΊΡ‚ΠΎΡ€Π° VBA Π½Π΅ ΠΎΡ‡Π΅Π½ΡŒ красиво ΠΈ Π½Π΅ΡƒΠ΄ΠΎΠ±Π½ΠΎ для ΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚Π΅Π»Ρ. Для простоты использования Ρ„ΠΎΡ€ΠΌΡ‹ поступим ΡΠ»Π΅Π΄ΡƒΡŽΡ‰ΠΈΠΌ ΠΎΠ±Ρ€Π°Π·ΠΎΠΌ: установим Π½Π° Ρ€Π°Π±ΠΎΡ‡Π΅ΠΌ листС Excel со списком Π³Ρ€ΡƒΠΏΠΏΡ‹ ΠΊΠ½ΠΎΠΏΠΊΡƒ Β«Π”ΠΈΠ°Π»ΠΎΠ³Β», Π½Π°ΠΆΠ°Ρ‚ΠΈΠ΅ ΠΊΠΎΡ‚ΠΎΡ€ΠΎΠΉ Π±ΡƒΠ΄Π΅Ρ‚ ΠΏΡ€ΠΈΠ²ΠΎΠ΄ΠΈΡ‚ΡŒ ΠΊ появлСнию Ρ€Π°Π·Ρ€Π°Π±ΠΎΡ‚Π°Π½Π½ΠΎΠΉ Ρ„ΠΎΡ€ΠΌΡ‹ (Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠ³ΠΎ ΠΎΠΊΠ½Π°). Для этого:

1) Π²Ρ‹Π±Π΅Ρ€ΠΈΡ‚Π΅ Π² Π³Π»Π°Π²Π½ΠΎΠΌ мСню Microsoft Excel <БСрвис> <ΠœΠ°ΠΊΡ€ΠΎΡ><ΠœΠ°ΠΊΡ€ΠΎΡΡ‹β€¦>;

2) ΡƒΠΊΠ°ΠΆΠΈΡ‚Π΅ имя макроса, Π½Π°ΠΏΡ€ΠΈΠΌΠ΅Ρ€ ΠœΠ°ΠΊΡ€ΠΎΡ1, ΠΈ Π½Π°ΠΆΠΌΠΈΡ‚Π΅ <Π‘ΠΎΠ·Π΄Π°Ρ‚ΡŒ>. ПослС этого загрузится Ρ€Π΅Π΄Π°ΠΊΡ‚ΠΎΡ€ VBA с Π·Π°Π³ΠΎΡ‚ΠΎΠ²ΠΊΠΎΠΉ

Sub ΠœΠ°ΠΊΡ€ΠΎΡ1()

End Sub

3) Π²ΡΡ‚Π°Π²ΡŒΡ‚Π΅ Π² эту Π·Π°Π³ΠΎΡ‚ΠΎΠ²ΠΊΡƒ ΠΎΠΏΠ΅Ρ€Π°Ρ‚ΠΎΡ€ UserForm1.Show, Π°ΠΊΡ‚ΠΈΠ²ΠΈΠ·ΠΈΡ€ΡƒΡŽΡ‰ΠΈΠΉ ΡΠΎΠ·Π΄Π°Π½Π½ΡƒΡŽ Ρ„ΠΎΡ€ΠΌΡƒ;

4) Π΄Π°Π»Π΅Π΅ Π²Ρ‹Π±Π΅Ρ€ΠΈΡ‚Π΅ Π² Π³Π»Π°Π²Π½ΠΎΠΌ мСню ΠΊΠ½ΠΈΠ³ΠΈ Excel <Π’ΠΈΠ΄><ПанСли инструмСнтов><Π€ΠΎΡ€ΠΌΡ‹>. ΠŸΠΎΡΠ²ΠΈΡ‚ΡΡ панСль с элСмСнтами управлСния. Π’Ρ‹Π±Π΅Ρ€ΠΈΡ‚Π΅ <Кнопка>, послС Ρ‡Π΅Π³ΠΎ ΠΌΠΎΠΆΠ½ΠΎ Π½Π°Ρ€ΠΈΡΠΎΠ²Π°Ρ‚ΡŒ ΠΊΠ½ΠΎΠΏΠΊΡƒ Π½Π° Ρ€Π°Π±ΠΎΡ‡Π΅ΠΌ листС Excel;

5) ΠΏΠΎΡΠ»Π΅ этого сразу появляСтся Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠ΅ ΠΎΠΊΠ½ΠΎ Β«ΠΠ°Π·Π½Π°Ρ‡ΠΈΡ‚ΡŒ макрос ΠΎΠ±ΡŠΠ΅ΠΊΡ‚ΡƒΒ». Π’Ρ‹Π±Π΅Ρ€ΠΈΡ‚Π΅ ΠœΠ°ΠΊΡ€ΠΎΡ1;

6) Ρ‡Ρ‚ΠΎΠ±Ρ‹ Π½Π°Π·Π²Π°Π½ΠΈΠ΅ ΠΊΠ½ΠΎΠΏΠΊΠΈ Π±Ρ‹Π»ΠΎ Π±ΠΎΠ»Π΅Π΅ ΡΠΎΠ΄Π΅Ρ€ΠΆΠ°Ρ‚Π΅Π»ΡŒΠ½Ρ‹ΠΌ, Ρ‰Π΅Π»ΠΊΠ½ΠΈΡ‚Π΅ Π½Π° Π½Π΅ΠΉ ΠΏΡ€Π°Π²ΠΎΠΉ клавишСй ΠΌΡ‹ΡˆΠΈ. Π’ появившСмся рядом мСню Π²Ρ‹Π±Π΅Ρ€ΠΈΡ‚Π΅ <Π˜Π·ΠΌΠ΅Π½ΠΈΡ‚ΡŒ тСкст>. ПослС этого установитС тСкст Β«Π”ΠΈΠ°Π»ΠΎΠ³Β».

Π’Π΅ΠΏΠ΅Ρ€ΡŒ ΠΏΡ€ΠΈ Π½Π°ΠΆΠ°Ρ‚ΠΈΠΈ ΠΊΠ½ΠΎΠΏΠΊΠΈ Β«Π”ΠΈΠ°Π»ΠΎΠ³Β» Π½Π° Ρ€Π°Π±ΠΎΡ‡Π΅ΠΌ листС появится Ρ€Π°Π·Ρ€Π°Π±ΠΎΡ‚Π°Π½Π½ΠΎΠ΅ Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠ΅ ΠΎΠΊΠ½ΠΎ ΠΏΡ€ΠΈΠΌΠ΅Ρ€Π°.

7.3. ЀинансовыС Ρ„ΡƒΠ½ΠΊΡ†ΠΈΠΈ

РасчСт Π°ΠΌΠΎΡ€Ρ‚ΠΈΠ·Π°Ρ†ΠΈΠΈ

VBA прСдоставляСт ряд встроСнных Ρ„ΡƒΠ½ΠΊΡ†ΠΈΠΉ, ΠΊΠΎΡ‚ΠΎΡ€Ρ‹Π΅ ΠΌΠΎΠΆΠ½ΠΎ ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚ΡŒ для выполнСния финансовых расчСтов. Они Ρ€Π°Π·Π±ΠΈΡ‚Ρ‹ Π½Π° Ρ‚Ρ€ΠΈ основныС Π³Ρ€ΡƒΠΏΠΏΡ‹: Ρ„ΡƒΠ½ΠΊΡ†ΠΈΠΈ ΡƒΡ‡Π΅Ρ‚Π° Π°ΠΌΠΎΡ€Ρ‚ΠΈΠ·Π°Ρ†ΠΈΠΈ, Ρ„ΡƒΠ½ΠΊΡ†ΠΈΠΈ ΡƒΡ‡Π΅Ρ‚Π° отчислСний ΠΈ Ρ„ΡƒΠ½ΠΊΡ†ΠΈΠΈ ΡƒΡ‡Π΅Ρ‚Π° Π΄Π΅Π½Π΅ΠΆΠ½Ρ‹Ρ… ΠΏΠΎΡ‚ΠΎΠΊΠΎΠ². ΠœΡ‹ рассмотрим ΠΎΠ΄Π½Ρƒ ΠΈΡ… этих Π³Ρ€ΡƒΠΏΠΏ – Ρ„ΡƒΠ½ΠΊΡ†ΠΈΠΈ ΡƒΡ‡Π΅Ρ‚Π° Π°ΠΌΠΎΡ€Ρ‚ΠΈΠ·Π°Ρ†ΠΈΠΈ. Π­Ρ‚ΠΈ Ρ„ΡƒΠ½ΠΊΡ†ΠΈΠΈ ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΡƒΡŽΡ‚ΡΡ Π² бухгалтСрском Π΄Π΅Π»Π΅ для прСдоставлСния Π² Π΄Π΅Π½Π΅ΠΆΠ½ΠΎΠΌ Π²Ρ‹Ρ€Π°ΠΆΠ΅Π½ΠΈΠΈ обСсцСнивания основных срСдств Π·Π° ΠΎΠΏΡ€Π΅Π΄Π΅Π»Π΅Π½Π½Ρ‹ΠΉ ΠΏΠ΅Ρ€ΠΈΠΎΠ΄ Π²Ρ€Π΅ΠΌΠ΅Π½ΠΈ. НапримСр, Ρ„ΠΈΡ€ΠΌΠ΅, ΡΠ²Π»ΡΡŽΡ‰Π΅ΠΉΡΡ Π²Π»Π°Π΄Π΅Π»ΡŒΡ†Π΅ΠΌ Π³Ρ€ΡƒΠ·ΠΎΠ²ΠΎΠ³ΠΎ автомобиля, Π½Π΅ΠΎΠ±Ρ…ΠΎΠ΄ΠΈΠΌΠΎ Ρ€Π°ΡΡΡ‡ΠΈΡ‚Π°Ρ‚ΡŒ сумму Π΅ΠΆΠ΅Π³ΠΎΠ΄Π½ΠΎΠΉ Π°ΠΌΠΎΡ€Ρ‚ΠΈΠ·Π°Ρ†ΠΈΠΈ Π³Ρ€ΡƒΠ·ΠΎΠ²ΠΈΠΊΠ° для вычислСния Ρ‚Π΅ΠΊΡƒΡ‰Π΅ΠΉ стоимости Π³Ρ€ΡƒΠ·ΠΎΠ²ΠΈΠΊΠ° Π² любой ΠΌΠΎΠΌΠ΅Π½Ρ‚ Π²Ρ€Π΅ΠΌΠ΅Π½ΠΈ. ΠŸΠΎΡΠΊΠΎΠ»ΡŒΠΊΡƒ амортизация влияСт Π½Π° Ρ€Π°Π·ΠΌΠ΅Ρ€ Π½Π°Π»ΠΎΠ³ΠΎΠ², ΠΏΡ€Π°Π²ΠΈΡ‚Π΅Π»ΡŒΡΡ‚Π²ΠΎ часто устанавливаСт ΠΎΠ±ΡΠ·Π°Ρ‚Π΅Π»ΡŒΠ½Ρ‹Π΅ Ρ„ΠΎΡ€ΠΌΡƒΠ»Ρ‹, ΠΊΠΎΡ‚ΠΎΡ€Ρ‹Π΅ слСдуСт ΠΏΡ€ΠΈΠΌΠ΅Π½ΡΡ‚ΡŒ для расчСта Π°ΠΌΠΎΡ€Ρ‚ΠΈΠ·Π°Ρ†ΠΈΠΈ.

Под Π°ΠΌΠΎΡ€Ρ‚ΠΈΠ·Π°Ρ†ΠΈΠ΅ΠΉ ΠΏΠΎΠ½ΠΈΠΌΠ°ΡŽΡ‚ ΡƒΠΌΠ΅Π½ΡŒΡˆΠ΅Π½ΠΈΠ΅ стоимости имущСства (основных срСдств) Π² процСссС эксплуатации. ΠžΠ±Ρ‹Ρ‡Π½ΠΎ ΠΎΡ†Π΅Π½ΠΈΠ²Π°ΡŽΡ‚ Π²Π΅Π»ΠΈΡ‡ΠΈΠ½Ρƒ этого ΡƒΠΌΠ΅Π½ΡŒΡˆΠ΅Π½ΠΈΡ, ΠΏΡ€ΠΈΡ…ΠΎΠ΄ΡΡ‰ΡƒΡŽΡΡ Π½Π° Π΅Π΄ΠΈΠ½ΠΈΡ†Ρƒ Π²Ρ€Π΅ΠΌΠ΅Π½ΠΈ. Π’ финансовый ΠΏΠ°ΠΊΠ΅Ρ‚ VBA Π²ΠΊΠ»ΡŽΡ‡Π΅Π½Ρ‹ Ρ‚Ρ€ΠΈ Ρ„ΡƒΠ½ΠΊΡ†ΠΈΠΈ для расчСтов Π°ΠΌΠΎΡ€Ρ‚ΠΈΠ·Π°Ρ†ΠΈΠΈ (Ρ‚Π°Π±Π». 21).


Π’Π°Π±Π»ΠΈΡ†Π° 21

ΠžΠ±Ρ‰ΠΈΠ΅ ΠΏΠ°Ρ€Π°ΠΌΠ΅Ρ‚Ρ€Ρ‹ Ρ„ΡƒΠ½ΠΊΡ†ΠΈΠΉ для расчСтов Π°ΠΌΠΎΡ€Ρ‚ΠΈΠ·Π°Ρ†ΠΈΠΈ

Ѐункция SLN вычисляСт Π°ΠΌΠΎΡ€Ρ‚ΠΈΠ·Π°Ρ†ΠΈΡŽ (сниТСниС стоимости) Π·Π° ΠΎΠ΄ΠΈΠ½ ΠΏΠ΅Ρ€ΠΈΠΎΠ΄ Π²Ρ€Π΅ΠΌΠ΅Π½ΠΈ, ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΡƒΡ ΠΌΠ΅Ρ‚ΠΎΠ΄ Ρ€Π°Π²Π½ΠΎΠΌΠ΅Ρ€Π½ΠΎΠΉ Π°ΠΌΠΎΡ€Ρ‚ΠΈΠ·Π°Ρ†ΠΈΠΈ. Π•Π΅ Π²Ρ‹Π·ΠΎΠ² ΠΈΠΌΠ΅Π΅Ρ‚ Π²ΠΈΠ΄:

SLN(cost, salvage, life) =SLN(ΡΡ‚ΠΎΠΈΠΌΠΎΡΡ‚ΡŒ, остаток, ΠΏΠ΅Ρ€ΠΈΠΎΠ΄)

ΠŸΡƒΡΡ‚ΡŒ ΠΊΠΎΠΌΠΏΡŒΡŽΡ‚Π΅Ρ€ ΡΡ‚ΠΎΠΈΠΌΠΎΡΡ‚ΡŒΡŽ 6000 Ρ€ΡƒΠ±. ΠΈΠΌΠ΅Π΅Ρ‚ срок эксплуатации 5 Π»Π΅Ρ‚, послС Ρ‡Π΅Π³ΠΎ Π΅Π³ΠΎ ΡΡ‚ΠΎΠΈΠΌΠΎΡΡ‚ΡŒ оцСниваСтся Π² 1500 Ρ€ΡƒΠ±. Π’ΠΎΠ³Π΄Π° Π΅Π³ΠΎ СТСгодная амортизация составит (ΠΏΡ€ΠΈ Ρ€Π°Π²Π½ΠΎΠΌΠ΅Ρ€Π½ΠΎΠΌ ΠΌΠ΅Ρ‚ΠΎΠ΄Π΅ ΠΎΡ†Π΅Π½ΠΊΠΈ): SLN(6000,1500, 5) = 900 Ρ€ΡƒΠ±.

Ѐункция SYD ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΡƒΠ΅Ρ‚ΡΡ для расчСта Π³ΠΎΠ΄ΠΎΠ²ΠΎΠΉ Π°ΠΌΠΎΡ€Ρ‚ΠΈΠ·Π°Ρ†ΠΈΠΈ ΠΏΠΎ Π»ΠΈΠ½Π΅ΠΉΠ½ΠΎΠΌΡƒ ΠΌΠ΅Ρ‚ΠΎΠ΄Ρƒ. Π‘ΡƒΠΌΠΌΠ° Π΄ΠΎΠ»Π΅ΠΉ Π°ΠΌΠΎΡ€Ρ‚ΠΈΠ·Π°Ρ†ΠΈΠΈ Π² этом ΠΌΠ΅Ρ‚ΠΎΠ΄Π΅ опрСдСляСтся ΠΊΠ°ΠΊ сумма Π½ΠΎΠΌΠ΅Ρ€ΠΎΠ² Π»Π΅Ρ‚ эксплуатации:

1+2+…+ life = life(life+1)/2,

Π° доля Π°ΠΌΠΎΡ€Ρ‚ΠΈΠ·Π°Ρ†ΠΈΠΈ Π·Π° i-ΠΉ Π³ΠΎΠ΄ ΠΏΡ€ΠΎΠΏΠΎΡ€Ρ†ΠΈΠΎΠ½Π°Π»ΡŒΠ½Π° количСству Π»Π΅Ρ‚ (life – i +1), ΠΎΡΡ‚Π°Π²ΡˆΠΈΡ…ΡΡ Π΄ΠΎ ΠΊΠΎΠ½Ρ†Π° ΠΏΠ΅Ρ€ΠΈΠΎΠ΄Π° эксплуатации. Бинтаксис этой Ρ„ΡƒΠ½ΠΊΡ†ΠΈΠΈ:

SYD(cost, salvage, life, period) =SYD(ΡΡ‚ΠΎΠΈΠΌΠΎΡΡ‚ΡŒ, остаток, врСмя_экспл, ΠΏΠ΅Ρ€ΠΈΠΎΠ΄)

ΠŸΡ€ΠΈ расчСтС ΠΏΡ€Π΅Π΄Ρ‹Π΄ΡƒΡ‰Π΅Π³ΠΎ ΠΏΡ€ΠΈΠΌΠ΅Ρ€Π° ΠΏΠΎΠ»ΡƒΡ‡ΠΈΠΌ Π·Π° ΠΏΠ΅Ρ€Π²Ρ‹ΠΉ Π³ΠΎΠ΄ эксплуатации ΠΊΠΎΠΌΠΏΡŒΡŽΡ‚Π΅Ρ€Π° Π°ΠΌΠΎΡ€Ρ‚ΠΈΠ·Π°Ρ†ΠΈΡŽ

SYD(6000,1500,5,1)= 1500 Ρ€ΡƒΠ±.

Π° Π·Π° послСдний Π³ΠΎΠ΄ β€”

SYD(6000,1500,5,5)= 300 Ρ€ΡƒΠ±.

ΠŸΡ€ΠΈΠΌΠ΅Ρ‡Π°Π½ΠΈΠ΅. ВсС ΠΏΠ°Ρ€Π°ΠΌΠ΅Ρ‚Ρ€Ρ‹ ΡƒΠΊΠ°Π·Ρ‹Π²Π°ΡŽΡ‚ΡΡ Ρ‡Π΅Ρ€Π΅Π· Π·Π°ΠΏΡΡ‚ΡƒΡŽ.

Ѐункция DDB вычисляСт Π²Π΅Π»ΠΈΡ‡ΠΈΠ½Ρƒ Π°ΠΌΠΎΡ€Ρ‚ΠΈΠ·Π°Ρ†ΠΈΠΈ имущСства для Π·Π°Π΄Π°Π½Π½ΠΎΠ³ΠΎ ΠΏΠ΅Ρ€ΠΈΠΎΠ΄Π° с ΠΏΡ€ΠΈΠΌΠ΅Π½Π΅Π½ΠΈΠ΅ΠΌ ΠΌΠ΅Ρ‚ΠΎΠ΄Π° Π΄Π²ΡƒΠΊΡ€Π°Ρ‚Π½ΠΎΠ³ΠΎ (ΠΈΠ»ΠΈ k-ΠΊΡ€Π°Ρ‚Π½ΠΎΠ³ΠΎ) ΡƒΡ‡Π΅Ρ‚Π° Π°ΠΌΠΎΡ€Ρ‚ΠΈΠ·Π°Ρ†ΠΈΠΈ. Π’ этом ΠΌΠ΅Ρ‚ΠΎΠ΄Π΅ амортизация максимальна Π² ΠΏΠ΅Ρ€Π²Ρ‹ΠΉ ΠΏΠ΅Ρ€ΠΈΠΎΠ΄ ΠΈ сниТаСтся Π² ΠΏΠΎΡΠ»Π΅Π΄ΡƒΡŽΡ‰ΠΈΠ΅ ΠΏΠ΅Ρ€ΠΈΠΎΠ΄Ρ‹.

Бинтаксис:

DDB(cost, salvage, life, periodi, factor)=DDB(Π½Π°Ρ‡_ стоим, остаток, врСмя_экспл, ΠΏΠ΅Ρ€ΠΈΠΎΠ΄, коэффициСнт)

ΠŸΠ°Ρ€Π°ΠΌΠ΅Ρ‚Ρ€ factor (коэффициСнт) – это Π½ΠΎΡ€ΠΌΠ° сниТСния балансовой стоимости (Π°ΠΌΠΎΡ€Ρ‚ΠΈΠ·Π°Ρ†ΠΈΠΈ). По ΡƒΠΌΠΎΠ»Ρ‡Π°Π½ΠΈΡŽ ΠΎΠ½ Ρ€Π°Π²Π΅Π½ 2 (ΠΌΠ΅Ρ‚ΠΎΠ΄ Π΄Π²ΡƒΠΊΡ€Π°Ρ‚Π½ΠΎΠ³ΠΎ ΡƒΡ‡Π΅Ρ‚Π° Π°ΠΌΠΎΡ€Ρ‚ΠΈΠ·Π°Ρ†ΠΈΠΈ).

Ѐункция DDB ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΡƒΠ΅Ρ‚ ΡΠ»Π΅Π΄ΡƒΡŽΡ‰ΡƒΡŽ Ρ„ΠΎΡ€ΠΌΡƒΠ»Ρƒ для вычислСния Π°ΠΌΠΎΡ€Ρ‚ΠΈΠ·Π°Ρ†ΠΈΠΈ Π·Π° ΠΏΠ΅Ρ€ΠΈΠΎΠ΄:

Если Π½ΡƒΠΆΠ½ΠΎ ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚ΡŒ Π΄Ρ€ΡƒΠ³ΠΎΠΉ ΠΌΠ΅Ρ‚ΠΎΠ΄ вычислСния Π°ΠΌΠΎΡ€Ρ‚ΠΈΠ·Π°Ρ†ΠΈΠΈ, ΠΈΠ·ΠΌΠ΅Π½ΠΈΡ‚Π΅ Π·Π½Π°Ρ‡Π΅Π½ΠΈΠ΅ коэффициСнта.

Π’ ΠΏΡ€ΠΈΠΌΠ΅Ρ€Π΅ с ΠΊΠΎΠΌΠΏΡŒΡŽΡ‚Π΅Ρ€ΠΎΠΌ ΠΏΠΎ ΠΌΠ΅Ρ‚ΠΎΠ΄Ρƒ Π΄Π²ΡƒΠΊΡ€Π°Ρ‚Π½ΠΎΠΉ Π°ΠΌΠΎΡ€Ρ‚ΠΈΠ·Π°Ρ†ΠΈΠΈ ΠΎΠ½Π° составит:

Π·Π° ΠΏΠ΅Ρ€Π²Ρ‹ΠΉ Π³ΠΎΠ΄: DDB(6000,1500, 5,1) = 2400 Ρ€ΡƒΠ±.;

Π·Π° Π²Ρ‚ΠΎΡ€ΠΎΠΉ – 1440 Ρ€ΡƒΠ±.;

Π·Π° Ρ‚Ρ€Π΅Ρ‚ΠΈΠΉ – 660 Ρ€ΡƒΠ±.;

Π° Π·Π° Ρ‡Π΅Ρ‚Π²Π΅Ρ€Ρ‚Ρ‹ΠΉ ΠΈ пятый Π±ΡƒΠ΄Π΅Ρ‚ Ρ€Π°Π²Π½Π° 0.

ВсС ΠΏΡΡ‚ΡŒ Π°Ρ€Π³ΡƒΠΌΠ΅Π½Ρ‚ΠΎΠ² Π΄ΠΎΠ»ΠΆΠ½Ρ‹ Π±Ρ‹Ρ‚ΡŒ ΠΏΠΎΠ»ΠΎΠΆΠΈΡ‚Π΅Π»ΡŒΠ½Ρ‹ΠΌΠΈ числами.

ЗамСчания. ΠœΠ΅Ρ‚ΠΎΠ΄ Π΄Π²ΠΎΠΉΠ½ΠΎΠ³ΠΎ ΠΏΡ€ΠΎΡ†Π΅Π½Ρ‚Π° со ΡΠ½ΠΈΠΆΠ°ΡŽΡ‰Π΅Π³ΠΎΡΡ остатка вычисляСт Π°ΠΌΠΎΡ€Ρ‚ΠΈΠ·Π°Ρ†ΠΈΡŽ, ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΡƒΡ ΡƒΠ²Π΅Π»ΠΈΡ‡Π΅Π½Π½Ρ‹ΠΉ коэффициСнт. Амортизация максимальна Π² ΠΏΠ΅Ρ€Π²Ρ‹ΠΉ ΠΏΠ΅Ρ€ΠΈΠΎΠ΄, Π² ΠΏΠΎΡΠ»Π΅Π΄ΡƒΡŽΡ‰ΠΈΠ΅ ΠΏΠ΅Ρ€ΠΈΠΎΠ΄Ρ‹ ΡƒΠΌΠ΅Π½ΡŒΡˆΠ°Π΅Ρ‚ΡΡ.

ΠŸΡ€ΠΈΠΌΠ΅Ρ€Ρ‹. ΠŸΡ€Π΅Π΄ΠΏΠΎΠ»ΠΎΠΆΠΈΠΌ, Ρ‡Ρ‚ΠΎ прСдприятиС ΠΏΡ€ΠΈΠΎΠ±Ρ€Π΅Π»ΠΎ Π½ΠΎΠ²ΡƒΡŽ ΠΌΠ°ΡˆΠΈΠ½Ρƒ. Машина стоит 2400 $ ΠΈ ΠΈΠΌΠ΅Π΅Ρ‚ срок слуТбы 10 Π»Π΅Ρ‚. ΠžΡΡ‚Π°Ρ‚ΠΎΡ‡Π½Π°Ρ ΡΡ‚ΠΎΠΈΠΌΠΎΡΡ‚ΡŒ составляСт 300 $. Π‘Π»Π΅Π΄ΡƒΡŽΡ‰ΠΈΠ΅ ΠΏΡ€ΠΈΠΌΠ΅Ρ€Ρ‹ ΠΏΠΎΠΊΠ°Π·Ρ‹Π²Π°ΡŽΡ‚ Π°ΠΌΠΎΡ€Ρ‚ΠΈΠ·Π°Ρ†ΠΈΡŽ Π·Π° нСсколько ΠΏΠ΅Ρ€ΠΈΠΎΠ΄ΠΎΠ². Π Π΅Π·ΡƒΠ»ΡŒΡ‚Π°Ρ‚Ρ‹ ΠΎΠΊΡ€ΡƒΠ³Π»ΡΡŽΡ‚ΡΡ Π΄ΠΎ Π΄Π²ΡƒΡ… Π·Π½Π°ΠΊΠΎΠ² послС запятой.

ddb(2400,300,3650,1) равняСтся 1,32 $, амортизация Π·Π° ΠΏΠ΅Ρ€Π²Ρ‹ΠΉ дСнь.

Microsoft Excel автоматичСски ΠΏΡ€Π΅Π΄ΠΏΠΎΠ»Π°Π³Π°Π΅Ρ‚, Ρ‡Ρ‚ΠΎ коэффициСнт Ρ€Π°Π²Π΅Π½ 2.

ddb(2400,300,120,1) равняСтся 40,00 $, амортизация Π·Π° ΠΏΠ΅Ρ€Π²Ρ‹ΠΉ мСсяц.

ddb(2400,300,10,1) равняСтся 480,00 $, амортизация Π·Π° ΠΏΠ΅Ρ€Π²Ρ‹ΠΉ Π³ΠΎΠ΄.

ddb(2400,300,10,2,1,5) равняСтся 306,00 $, амортизация Π·Π° Π²Ρ‚ΠΎΡ€ΠΎΠΉ Π³ΠΎΠ΄ ΠΏΡ€ΠΈ использования коэффициСнта, Ρ€Π°Π²Π½ΠΎΠ³ΠΎ 1,5 (Π° Π½Π΅ ΠΌΠ΅Ρ‚ΠΎΠ΄Π° Π΄Π²ΠΎΠΉΠ½ΠΎΠ³ΠΎ ΠΏΡ€ΠΎΡ†Π΅Π½Ρ‚Π°).

ddb(2400,300,10,10) равняСтся 22,12 $, амортизация Π·Π° дСсятый Π³ΠΎΠ΄. Microsoft Excel автоматичСски ΠΏΡ€Π΅Π΄ΠΏΠΎΠ»Π°Π³Π°Π΅Ρ‚, Ρ‡Ρ‚ΠΎ коэффициСнт Ρ€Π°Π²Π΅Π½ 2.

Π‘ΠΎΠ·Π΄Π°Π½ΠΈΠ΅ VBA-ΠΏΡ€ΠΎΠ³Ρ€Π°ΠΌΠΌΡ‹

ΠŸΡ€ΠΈΠΌΠ΅Ρ€ 52. Π‘ΠΎΠ·Π΄Π°Ρ‚ΡŒ ΠΏΡ€ΠΎΠ³Ρ€Π°ΠΌΠΌΡƒ, которая ΠΏΠΎ Π²Π²Π΅Π΄Π΅Π½Π½Ρ‹ΠΌ Π΄Π°Π½Π½Ρ‹ΠΌ Π² тСкстовыС поля Ρ„ΠΎΡ€ΠΌΡ‹ рассчитываСт Π°ΠΌΠΎΡ€Ρ‚ΠΈΠ·Π°Ρ†ΠΈΡŽ имущСства Π·Π° Π·Π°Π΄Π°Π½Π½Ρ‹ΠΉ ΠΏΠ΅Ρ€ΠΈΠΎΠ΄ Π²Ρ€Π΅ΠΌΠ΅Π½ΠΈ с использованиСм ΠΌΠ΅Ρ‚ΠΎΠ΄Π° Π΄Π²ΡƒΠΊΡ€Π°Ρ‚Π½ΠΎΠ³ΠΎ ΡƒΡ‡Π΅Ρ‚Π°. Π”ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠ΅ ΠΎΠΊΠ½ΠΎ расчСта Π°ΠΌΠΎΡ€Ρ‚ΠΈΠ·Π°Ρ†ΠΈΠΈ Π΄ΠΎΠ»ΠΆΠ½ΠΎ ΠΏΡ€Π΅Π΄ΡƒΡΠΌΠ°Ρ‚Ρ€ΠΈΠ²Π°Ρ‚ΡŒ: Π²Π²ΠΎΠ΄ исходных Π΄Π°Π½Π½Ρ‹Ρ… (Π½Π°Ρ‡Π°Π»ΡŒΠ½Π°Ρ ΠΈ остаточная стоимости, срок эксплуатации Π² Π³ΠΎΠ΄Π°Ρ…), Π·Π°Π΄Π°Π½ΠΈΠ΅ ΠΏΠ°Ρ€Π°ΠΌΠ΅Ρ‚Ρ€ΠΎΠ² Π°ΠΌΠΎΡ€Ρ‚ΠΈΠ·Π°Ρ†ΠΈΠΈ (дСнь, мСсяц, Π³ΠΎΠ΄ ΠΈ ΠΊΠ°ΠΊΠΎΠΉ ΠΏΠΎ счСту). ВычислСниС Π°ΠΌΠΎΡ€Ρ‚ΠΈΠ·Π°Ρ†ΠΈΠΈ ΠΏΠΎ Π·Π°Π΄Π°Π½Π½Ρ‹ΠΌ условиям ΠΈ Π²Ρ‹Π²ΠΎΠ΄ ΠΎΡ‚Ρ‡Π΅Ρ‚Π° произвСсти Π½Π° Ρ€Π°Π±ΠΎΡ‡ΠΈΠΉ лист excel. ΠŸΡ€ΠΈ этом слСдуСт ΠΏΡ€Π΅Π΄ΡƒΡΠΌΠΎΡ‚Ρ€Π΅Ρ‚ΡŒ, Ρ‡Ρ‚ΠΎΠ±Ρ‹ ΠΊΠ½ΠΎΠΏΠΊΠ° «ВывСсти ΠΎΡ‚Ρ‡Π΅Ρ‚Β» являлась нСдоступной Π΄ΠΎ вычислСния Π°ΠΌΠΎΡ€Ρ‚ΠΈΠ·Π°Ρ†ΠΈΠΈ.

ВСхнология выполнСния

1. Π—апуститС ΠΏΡ€ΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ Excel ΠΈ сохранитС ΠΊΠ½ΠΈΠ³Ρƒ ΠΏΠΎΠ΄ ΡΠΎΠΎΡ‚Π²Π΅Ρ‚ΡΡ‚Π²ΡƒΡŽΡ‰ΠΈΠΌ ΠΈΠΌΠ΅Π½Π΅ΠΌ.

2. Π‘ΠΎΠ·Π΄Π°ΠΉΡ‚Π΅ Ρ„ΠΎΡ€ΠΌΡƒ Π°Π½Π°Π»ΠΎΠ³ΠΈΡ‡Π½ΠΎ ΠΏΡ€ΠΈΠ²Π΅Π΄Π΅Π½Π½ΠΎΠΌΡƒ рис. 100.

3. ΠŸΡ€ΠΎΠΏΠΈΡˆΠΈΡ‚Π΅ Ρ€Π°Π±ΠΎΡ‚Ρƒ ΠΊΠ½ΠΎΠΏΠΊΠΈ Β«Π’Ρ‹Ρ‡ΠΈΡΠ»ΠΈΡ‚ΡŒΒ»:

Private Sub CommandButton1_Click()

Dim timeall As Integer

Рис. 100. Разработанная Ρ„ΠΎΡ€ΠΌΠ° ΠΏΡ€ΠΈΠΌΠ΅Ρ€Π° 52 Π² Ρ€Π°Π±ΠΎΡ‡Π΅ΠΌ состоянии

Dim amort As Double

With ComboBox1

If.ListIndex = 0 Then

timeall = Textbox3.Value * 365

ElseIf.ListIndex = 1 Then

timeall = Textbox3.Value * 12

Else

timeall = Textbox3.Value

End If

End With

amort = DDB(TextBox1.Value, TextBox2.Value, timeall,

TextBox4.Value)

TextBox5.Value = amort

CommandButton2.Enabled = True

End Sub

ΠžΠ±Ρ€Π°Ρ‚ΠΈΡ‚Π΅ Π²Π½ΠΈΠΌΠ°Π½ΠΈΠ΅ Π½Π° вычислСниС Π·Π½Π°Ρ‡Π΅Π½ΠΈΠΉ ΠΏΠ°Ρ€Π°ΠΌΠ΅Ρ‚Ρ€Π° timeall Π² зависимости ΠΎΡ‚ Π²Ρ‹Π±ΠΎΡ€Π° ΠΏΡƒΠ½ΠΊΡ‚Π° Π² Ρ€Π°ΡΠΊΡ€Ρ‹Π²Π°ΡŽΡ‰Π΅ΠΌΡΡ спискС (дСнь, мСсяц, Π³ΠΎΠ΄) ΠΈ использования Ρ„ΡƒΠ½ΠΊΡ†ΠΈΠΈ DDB.

4. Π—Π°ΠΏΠΎΠ»Π½Π΅Π½ΠΈΠ΅ поля со списком происходит Π² ΠΏΡ€ΠΎΡ†Π΅Π΄ΡƒΡ€Π΅ ΠΈΠ½ΠΈΡ†ΠΈΠ°Π»ΠΈΠ·Π°Ρ†ΠΈΠΈ Ρ„ΠΎΡ€ΠΌΡ‹:

Private Sub UserForm_initialize()

With ComboBox1

AddItem «дСнь»

AddItem «мСсяц»

AddItem Β«Π³ΠΎΠ΄Β»

ListIndex = 0

End With

End Sub

Π­Ρ‚Π° ΠΏΡ€ΠΎΡ†Π΅Π΄ΡƒΡ€Π° запускаСтся ΠΏΡ€ΠΈ использовании извСстного Π²Π°ΠΌ ΠΎΠΏΠ΅Ρ€Π°Ρ‚ΠΎΡ€Π° Show.

5. ΠΠ°ΠΆΠ°Ρ‚ΠΈΠ΅ ΠΊΠ½ΠΎΠΏΠΊΠΈ «ВывСсти ΠΎΡ‚Ρ‡Π΅Ρ‚Β» Π΄ΠΎΠ»ΠΆΠ½ΠΎ ΠΏΡ€ΠΈΠ²ΠΎΠ΄ΠΈΡ‚ΡŒ ΠΊ Π²Ρ‹Π²ΠΎΠ΄Ρƒ ΠΎΡ‚Ρ‡Π΅Ρ‚Π° Π½Π° Ρ€Π°Π±ΠΎΡ‡ΠΈΠΉ лист Excel Π² ΡΠ»Π΅Π΄ΡƒΡŽΡ‰Π΅ΠΌ Ρ„ΠΎΡ€ΠΌΠ°Ρ‚Π΅ (рис. 101):


Рис. 101. Π’Ρ‹Π²ΠΎΠ΄ вычислСний Π½Π° лист excel Π² ΠΏΡ€ΠΈΠΌΠ΅Ρ€Π΅ 52

Π—Π°Π΄Π°Ρ‡Π° Π½Π° Π·Π°ΠΊΡ€Π΅ΠΏΠ»Π΅Π½ΠΈΠ΅ ΠΌΠ°Ρ‚Π΅Ρ€ΠΈΠ°Π»Π°

ΠŸΡ€ΠΈΠΌΠ΅Ρ€ 53. Ѐункция ddb() ΠΈΠΌΠ΅Π΅Ρ‚ ΠΏΡΡ‚ΡŒ Π°Ρ€Π³ΡƒΠΌΠ΅Π½Ρ‚ΠΎΠ², послСдний ΠΈΠ· ΠΊΠΎΡ‚ΠΎΡ€Ρ‹Ρ… являСтся коэффициСнтом Π°ΠΌΠΎΡ€Ρ‚ΠΈΠ·Π°Ρ†ΠΈΠΈ. НСобходимо Π² Ρ„ΠΎΡ€ΠΌΠ΅ ΠΏΡ€Π΅Π΄ΡƒΡΠΌΠΎΡ‚Ρ€Π΅Ρ‚ΡŒ Π½ΠΎΠ²ΠΎΠ΅ тСкстовоС ΠΏΠΎΠ»Π΅, ΠΊΡƒΠ΄Π° ΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚Π΅Π»ΡŒ смог Π±Ρ‹ Π²Π²ΠΎΠ΄ΠΈΡ‚ΡŒ коэффициСнт, Π° Π² ΠΊΠΎΠ΄Π΅ Π½ΡƒΠΆΠ½ΠΎ ΡƒΡ‡Π΅ΡΡ‚ΡŒ присутствиС этого коэффициСнта.