ΠΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»ΡΡΠΊΠΈΠ΅ ΡΡΠ½ΠΊΡΠΈΠΈ ΡΠ°Π±ΠΎΡΠ΅Π³ΠΎ Π»ΠΈΡΡΠ° Visual Basic
Π Π΅Π·ΡΠ»ΡΡΠ°Ρ Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΡ ΠΡΠΈΠΌΠ΅Ρ 2. Π‘ΠΎΠ·Π΄Π°Π½ΠΈΠ΅ ΡΡΠ½ΠΊΡΠΈΠΈ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ ΠΠ΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΡΠΎΠ·Π΄Π°ΡΡ ΡΡΠ½ΠΊΡΠΈΡ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½ΠΈΡ ΡΡΠΌΠΌΡ Π·Π°ΡΠ°Π±ΠΎΡΠ½ΠΎΠΉ ΠΏΠ»Π°ΡΡ ΡΠΎΡΡΡΠ΄Π½ΠΈΠΊΠ° Π·Π° ΠΎΡΡΠ°Π±ΠΎΡΠ°Π½Π½ΡΠ΅ Π΄Π½ΠΈ. ΠΡΠ³ΡΠΌΠ΅Π½ΡΠ°ΠΌΠΈ ΡΡΠ½ΠΊΡΠΈΠΈ ΡΠ²Π»ΡΡΡΡΡ: Π²Π΅Π»ΠΈΡΠΈΠ½Π° ΠΌΠ΅ΡΡΡΠ½ΠΎΠ³ΠΎ ΠΎΠΊΠ»Π°Π΄Π° ΡΠΎΡΡΡΠ΄Π½ΠΈΠΊΠ°, ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΡΠ°Π±ΠΎΡΠΈΡ Π΄Π½Π΅ΠΉ Π² ΠΌΠ΅ΡΡΡΠ΅, ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΠΎΡΡΠ°Π±ΠΎΡΠ°Π½Π½ΡΡ ΡΠΎΡΡΡΠ΄Π½ΠΈΠΊΠΎΠΌ Π΄Π½Π΅ΠΉ. ΠΠΎΠ±Π°Π²ΡΡΠ΅ Π² ΠΏΡΠΎΠ΅ΠΊΡ ΡΡΠ°Π½Π΄Π°ΡΡΠ½ΡΠΉ ΠΌΠΎΠ΄ΡΠ»Ρ ΠΊΠΎΠΌΠ°Π½Π΄ΠΎΠΉ Insert Module. Π ΠΎΠΊΠ½Π΅ ΠΌΠΎΠ΄ΡΠ»Ρ Π½Π°Π±Π΅ΡΠΈΡΠ΅ ΠΊΠΎΠ΄… Π§ΠΈΡΠ°ΡΡ Π΅ΡΡ >
ΠΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»ΡΡΠΊΠΈΠ΅ ΡΡΠ½ΠΊΡΠΈΠΈ ΡΠ°Π±ΠΎΡΠ΅Π³ΠΎ Π»ΠΈΡΡΠ° Visual Basic (ΡΠ΅ΡΠ΅ΡΠ°Ρ, ΠΊΡΡΡΠΎΠ²Π°Ρ, Π΄ΠΈΠΏΠ»ΠΎΠΌ, ΠΊΠΎΠ½ΡΡΠΎΠ»ΡΠ½Π°Ρ)
ΠΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»ΡΡΠΊΠΈΠ΅ ΡΡΠ½ΠΊΡΠΈΠΈ ΡΠ°Π±ΠΎΡΠ΅Π³ΠΎ Π»ΠΈΡΡΠ° VBA.
Π€ΡΠ½ΠΊΡΠΈΡ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ.
ΠΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ ΠΌΠΎΠΆΠ΅Ρ ΡΠΎΠ·Π΄Π°ΡΡ ΡΠΎΠ±ΡΡΠ²Π΅Π½Π½ΡΡ ΡΡΠ½ΠΊΡΠΈΡ Π² ΡΡΠ°Π½Π΄Π°ΡΡΠ½ΠΎΠΌ ΠΌΠΎΠ΄ΡΠ»Π΅ ΡΠ΅Π΄Π°ΠΊΡΠΎΡΠ° VBA.
ΠΠ»Ρ Π²ΡΠ·ΠΎΠ²Π° ΡΠ΅Π΄Π°ΠΊΡΠΎΡΠ° VBA Π·Π°Π΄Π°ΠΉΡΠ΅ ΠΊΠΎΠΌΠ°Π½Π΄Ρ Π‘Π΅ΡΠ²ΠΈΡ ΠΠ°ΠΊΡΠΎΡ Π Π΅Π΄Π°ΠΊΡΠΎΡ Visual Basic ΠΈΠ»ΠΈ Π½Π°ΠΆΠΌΠΈΡΠ΅ ΠΊΠΎΠΌΠ±ΠΈΠ½Π°ΡΠΈΡ ΠΊΠ»Π°Π²ΠΈΡ Alt+F11. Π ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ΅ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ ΠΏΠΎΠΏΠ°Π΄Π°Π΅Ρ Π² ΠΈΠ½ΡΠ΅Π³ΡΠΈΡΡΠ΅ΠΌΡΡ ΡΡΠ΅Π΄Ρ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠΉ IDE ΡΠ΅Π΄Π°ΠΊΡΠΎΡΠ° Visual Basic. ΠΠ½Π° ΠΈΠΌΠ΅Π΅Ρ ΡΡΠ°Π½Π΄Π°ΡΡΠ½ΡΠΉ Π²ΠΈΠ΄ Π΄Π»Ρ Windows-ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠΉ:
ΡΡΡΠΎΠΊΠ° ΠΌΠ΅Π½Ρ, ΠΏΠ°Π½Π΅Π»Ρ ΠΈΠ½ΡΡΡΡΠΌΠ΅Π½ΡΠΎΠ² (Π² Π΄Π°Π½Π½ΠΎΠΌ ΡΠ»ΡΡΠ°Π΅ Standart),.
Π΄Π²Π° ΠΎΠΊΠ½Π° Project — VBAProject ΠΈ Properties.
Π ΠΎΠΊΠ½Π΅ Project — VBAProject ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°Π΅ΡΡΡ ΡΠ΅Π΅ΡΡΡ ΠΌΠΎΠ΄ΡΠ»Π΅ΠΉ ΠΈ ΡΠΎΡΠΌ, Π²Ρ ΠΎΠ΄ΡΡΠΈΡ Π² ΡΠΎΠ·Π΄Π°Π²Π°Π΅ΠΌΡΠΉ ΠΏΡΠΎΠ΅ΠΊΡ.
ΠΠΎΠ΄ΡΠ»Ρ — ΡΡΠΎ Π»ΠΈΡΡ (Π½Π΅ ΠΏΡΡΠ°ΡΡ Ρ ΡΠ°Π±ΠΎΡΠΈΠΌ Π»ΠΈΡΡΠΎΠΌ), Π² ΠΊΠΎΡΠΎΡΠΎΠΌ Π½Π°Π±ΠΈΡΠ°Π΅ΡΡΡ ΠΊΠΎΠ΄.
ΠΠ²ΠΎΠΉΠ½ΡΠΌ ΡΠ΅Π»ΡΠΊΠΎΠΌ Π½Π° Π·Π½Π°ΡΠΊΠ΅ ΠΌΠΎΠ΄ΡΠ»Ρ Π² ΠΎΠΊΠ½Π΅ Project — VBAProject ΠΌΠΎΠΆΠ½ΠΎ ΠΎΡΠΊΡΡΡΡ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠΈΠΉ ΠΌΠΎΠ΄ΡΠ»Ρ. ΠΠ½Π°ΡΠΎΠΊ Π°ΠΊΡΠΈΠ²Π½ΠΎΠ³ΠΎ ΠΌΠΎΠ΄ΡΠ»Ρ Π² ΠΎΠΊΠ½Π΅ Project — VBAProject Π²ΡΠ΄Π΅Π»ΡΠ΅ΡΡΡ ΡΠ΅ΡΡΠΌ ΡΠ²Π΅ΡΠΎΠΌ.
Π VBA Ρ ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ ΡΠ°Π±ΠΎΡΠ΅Π³ΠΎ Π»ΠΈΡΡΠ° ΠΈΠΌΠ΅Π΅ΡΡΡ ΡΠΎΠ±ΡΡΠ²Π΅Π½Π½ΡΠΉ ΠΌΠΎΠ΄ΡΠ»Ρ. ΠΡΠΎΠΌΠ΅ ΡΠΎΠ³ΠΎ, ΡΠ°Π±ΠΎΡΠ°Ρ ΠΊΠ½ΠΈΠ³Π° ΠΎΠ±Π»Π°Π΄Π°Π΅Ρ ΡΠ²ΠΎΠΈΠΌ, ΠΈ Π΅ΡΠ»ΠΈ Π² ΠΏΡΠΎΠ΅ΠΊΡΠ΅ ΡΠΎΠ·Π΄Π°ΡΡΡΡ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»ΡΡΠΊΠΈΠ΅ ΡΠΎΡΠΌΡ, ΡΠΎ ΠΊΠ°ΠΆΠ΄Π°Ρ ΠΈΠ· Π½ΠΈΡ ΠΈΠΌΠ΅Π΅Ρ ΠΏΠΎ ΠΌΠΎΠ΄ΡΠ»Ρ. Π ΠΏΡΠΎΠ΅ΠΊΡΠ΅ ΡΠ°ΠΊΠΆΠ΅ ΠΌΠΎΠΆΠ½ΠΎ Π΄ΠΎΠ±Π°Π²Π»ΡΡΡ ΠΌΠΎΠ΄ΡΠ»ΠΈ ΠΊΠ»Π°ΡΡΠΎΠ² Π΄Π»Ρ ΠΎΠΏΠΈΡΠ°Π½ΠΈΡ ΡΠΎΠ·Π΄Π°Π²Π°Π΅ΠΌΡΡ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»ΡΡΠΊΠΈΡ ΠΊΠ»Π°ΡΡΠΎΠ² (ΡΡΠΈ ΠΌΠΎΠ΄ΡΠ»ΠΈ Π±ΡΠ΄ΡΡ ΡΠ°ΡΡΠΌΠΎΡΡΠ΅Π½Ρ ΠΏΠΎΠ·ΠΆΠ΅). ΠΠ΄ΠΈΠ½ΡΠΉ ΠΌΠΎΠ΄ΡΠ»Ρ, ΠΊΠΎΡΠΎΡΡΠΉ Π½Π°ΠΌ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌ, — ΡΡΠΎ ΡΡΠ°Π½Π΄Π°ΡΡΠ½ΡΠΉ ΠΌΠΎΠ΄ΡΠ»Ρ. ΠΠ»Ρ ΡΠΎΠ³ΠΎ ΡΡΠΎΠ±Ρ Π΅Π³ΠΎ Π΄ΠΎΠ±Π°Π²ΠΈΡΡ Π² ΠΏΡΠΎΠ΅ΠΊΡ, Π²ΡΠ±Π΅ΡΠΈΡΠ΅ ΠΊΠΎΠΌΠ°Π½Π΄Ρ InsertModule.
Π‘ΡΡΡΠΊΡΡΡΠ° ΠΊΠΎΠ΄Π° ΡΡΠ½ΠΊΡΠΈΠΈ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ.
Π ΠΎΠΊΠ½Π΅ ΡΡΠ°Π½Π΄Π°ΡΡΠ½ΠΎΠ³ΠΎ ΠΌΠΎΠ΄ΡΠ»Ρ Ρ ΠΊΠ»Π°Π²ΠΈΠ°ΡΡΡΡ Π½Π°Π±ΠΈΡΠ°Π΅ΡΡΡ ΡΠ΅ΠΊΡΡ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ — ΡΡΠ½ΠΊΡΠΈΠΈ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ. Π ΠΎΠ±ΡΠ΅ΠΌ ΡΠ»ΡΡΠ°Π΅ ΡΡΠ½ΠΊΡΠΈΡ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ ΠΈΠΌΠ΅Π΅Ρ ΡΠ»Π΅Π΄ΡΡΡΡΡ ΡΡΡΡΠΊΡΡΡΡ:
Function ΠΈΠΌΡ_ΡΡΠ½ΠΊΡΠΈΠΈ (ΡΠΏΠΈΡΠΎΠΊ_Π°ΡΠ³ΡΠΌΠ΅Π½ΡΠΎΠ²).
[ΠΈΠ½ΡΡΡΡΠΊΡΠΈΠΈ].
End Function.
Π³Π΄Π΅ ΠΈΠΌΡ_ΡΡΠ½ΠΊΡΠΈΠΈ — ΠΈΠΌΡ ΡΠΎΠ·Π΄Π°Π²Π°Π΅ΠΌΠΎΠΉ ΡΡΠ½ΠΊΡΠΈΠΈ, ΠΏΡΠΈΠ΄ΡΠΌΠ°Π½Π½ΠΎΠ΅ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Π΅ΠΌ;
ΡΠΏΠΈΡΠΎΠΊ_Π°ΡΠ³ΡΠΌΠ΅Π½ΡΠΎΠ² — ΡΠΏΠΈΡΠΎΠΊ Π°ΡΠ³ΡΠΌΠ΅Π½ΡΠΎΠ²;
ΠΈΠ½ΡΡΡΡΠΊΡΠΈΠΈ — ΡΡΠΎ ΠΏΠΎΡΠ»Π΅Π΄ΠΎΠ²Π°ΡΠ΅Π»ΡΠ½ΠΎΡΡΡ ΠΊΠΎΠΌΠ°Π½Π΄, Π²ΡΠΏΠΎΠ»Π½ΡΠ΅ΠΌΡΡ ΠΏΡΠΈ Π½Π°Ρ ΠΎΠΆΠ΄Π΅Π½ΠΈΠΈ Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΡΡΠ½ΠΊΡΠΈΠΈ. Π ΡΠΎΠ²ΠΎΠΊΡΠΏΠ½ΠΎΡΡΠΈ ΠΎΠ½ΠΈ ΠΎΠ±ΡΠ°Π·ΡΡΡ ΡΠ΅Π»ΠΎ ΡΡΠ½ΠΊΡΠΈΠΈ.
ΠΠ°ΠΆΠ½Π°Ρ ΠΎΡΠΎΠ±Π΅Π½Π½ΠΎΡΡΡ ΡΡΠ½ΠΊΡΠΈΠΈ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ Π·Π°ΠΊΠ»ΡΡΠ°Π΅ΡΡΡ Π² ΡΠΎΠΌ, ΡΡΠΎ Π½ΠΎΡΠΈΡΠ΅Π»Π΅ΠΌ Π²ΠΎΠ·Π²ΡΠ°ΡΠ°Π΅ΠΌΠΎΠ³ΠΎ Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΡΠ²Π»ΡΠ΅ΡΡΡ Π΅Π΅ ΠΈΠΌΡ (ΠΈΠ΄Π΅Π½ΡΠΈΡΠΈΠΊΠ°ΡΠΎΡ ΠΈΠΌΡ_ΡΡΠ½ΠΊΡΠΈΠΈ). ΠΠΎΡΡΠΎΠΌΡ ΡΡΠ΅Π΄ΠΈ ΠΈΠ½ΡΡΡΡΠΊΡΠΈΠΉ Π΄ΠΎΠ»ΠΆΠ½Π° ΠΏΡΠΈΡΡΡΡΡΠ²ΠΎΠ²Π°ΡΡ, ΠΏΠΎ ΠΊΡΠ°ΠΉΠ½Π΅ΠΉ ΠΌΠ΅ΡΠ΅, ΠΎΠ΄Π½Π°, ΠΊΠΎΡΠΎΡΠ°Ρ ΡΠ²Π»ΡΠ΅ΡΡΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΠΎΠΌ ΠΏΡΠΈΡΠ²Π°ΠΈΠ²Π°Π½ΠΈΡ ΠΈΠΌΠ΅Π½ΠΈ ΡΡΠ½ΠΊΡΠΈΠΈ Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΠΊΠ°ΠΊΠΎΠ³ΠΎ-Π»ΠΈΠ±ΠΎ Π²ΡΡΠ°ΠΆΠ΅Π½ΠΈΡ.
ΠΡΠΈΠΌΠ΅ΡΠ°Π½ΠΈΠ΅. Π Π°Π·ΡΠ΅ΡΠ°Π΅ΡΡΡ Π΄ΠΎΡΡΠΎΡΠ½ΡΠΉ Π²ΡΡ ΠΎΠ΄ ΠΈΠ· ΡΡΠ½ΠΊΡΠΈΠΈ ΠΏΠΎ ΠΈΠ½ΡΡΡΡΠΊΡΠΈΠΈ Exit Function. Π ΡΠ΅Π»Π΅ ΡΡΠ½ΠΊΡΠΈΠΈ ΠΌΠΎΠΆΠ΅Ρ ΡΠ°ΡΠΏΠΎΠ»Π°Π³Π°ΡΡΡΡ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΎ ΠΈΠ½ΡΡΡΡΠΊΡΠΈΠΉ Exit Function.
ΠΡΠΈΠΌΠ΅Ρ 1. Π‘ΠΎΠ·Π΄Π°Π½ΠΈΠ΅ ΡΡΠ½ΠΊΡΠΈΠΈ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ Π Π°ΡΡΠΌΠΎΡΡΠΈΠΌ ΠΏΠΎΡΡΡΠΎΠ΅Π½ΠΈΠ΅ ΠΏΡΠΎΡΡΠΎΠΉ ΡΡΠ½ΠΊΡΠΈΠΈ, ΠΊΠΎΡΠΎΡΠ°Ρ Π²ΠΎΠ·Π²ΡΠ°ΡΠ°Π΅Ρ ΡΡΠΎΠΈΠΌΠΎΡΡΡ ΡΠΎΠ²Π°ΡΠ° ΠΏΠΎ Π΅Π³ΠΎ ΡΡΠΎΠΈΠΌΠΎΡΡΠΈ Π±Π΅Π· ΠΠΠ‘ ΠΈ Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΡΡΠ°Π²ΠΊΠΈ ΠΠΠ‘.
ΠΡΠ·ΠΎΠ²ΠΈΡΠ΅ ΡΠ΅Π΄Π°ΠΊΡΠΎΡ VBA ΠΊΠΎΠΌΠ°Π½Π΄ΠΎΠΉ Π‘Π΅ΡΠ²ΠΈΡ ΠΠ°ΠΊΡΠΎΡ Π Π΅Π΄Π°ΠΊΡΠΎΡ Visual Basic ΠΈΠ»ΠΈ ΠΊΠΎΠΌΠ±ΠΈΠ½Π°ΡΠΈΠ΅ΠΉ ΠΊΠ»Π°Π²ΠΈΡ Alt+F11. ΠΠΎΠ±Π°Π²ΡΡΠ΅ Π² ΠΏΡΠΎΠ΅ΠΊΡ ΡΡΠ°Π½Π΄Π°ΡΡΠ½ΡΠΉ ΠΌΠΎΠ΄ΡΠ»Ρ ΠΊΠΎΠΌΠ°Π½Π΄ΠΎΠΉ Insert Module. Π ΠΎΠΊΠ½Π΅ ΠΌΠΎΠ΄ΡΠ»Ρ Π½Π°Π±Π΅ΡΠΈΡΠ΅ ΠΊΠΎΠ΄, ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»Π΅Π½Π½ΡΠΉ Π² Π»ΠΈΡΡΠΈΠ½Π³Π΅ 1.
ΠΠΈΡΡΠΈΠ½Π³ 1. ΠΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»ΡΡΠΊΠ°Ρ ΡΡΠ½ΠΊΡΠΈΡ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½ΠΈΡ ΡΡΠΎΠΈΠΌΠΎΡΡΠΈ ΡΠΎΠ²Π°ΡΠ°.
Function Π‘ΡΠΎΠΈΠΌΠΎΡΡΡ (Π‘ΡΠΎΠΈΠΌΠΎΡΡΡΠΠ΅Π·ΠΠΠ‘, ΠΠΠ‘) Π‘ΡΠΎΠΈΠΌΠΎΡΡΡ = Π‘ΡΠΎΠΈΠΌΠΎΡΡΡΠΠ΅Π·ΠΠΠ‘ * (1 + ΠΠΠ‘ / 100).
End Function.
ΠΡΠΈΠΌΠ΅Π½Π΅Π½ΠΈΠ΅ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»ΡΡΠΊΠΎΠΉ ΡΡΠ½ΠΊΡΠΈΠΈ Π΄Π»Ρ ΡΠ΅ΡΠ΅Π½ΠΈΡ Π·Π°Π΄Π°ΡΠΈ.
Π ΡΠΎΠ·Π΄Π°Π½Π½ΠΎΠΉ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»ΡΡΠΊΠΎΠΉ ΡΡΠ½ΠΊΡΠΈΠΈ ΠΌΠΎΠΆΠ½ΠΎ ΠΎΠ±ΡΠ°ΡΠΈΡΡΡΡ ΡΠ΅ΡΠ΅Π· ΠΠ°ΡΡΠ΅Ρ ΡΡΠ½ΠΊΡΠΈΠΉ. ΠΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ ΠΎΠ½Π° ΠΏΠΎΠΏΠ°Π΄Π°Π΅Ρ Π² ΡΠ°Π·Π΄Π΅Π» ΠΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Π½ΡΠ΅ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Π΅ΠΌ ΡΠΏΠΈΡΠΊΠ° ΠΠ°ΡΠ΅Π³ΠΎΡΠΈΡ ΠΎΠΊΠ½Π° ΠΠ°ΡΡΠ΅ΡΠ° ΡΡΠ½ΠΊΡΠΈΠΉ. ΠΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΠΌ ΡΠΎΠ·Π΄Π°Π½Π½ΡΡ ΡΡΠ½ΠΊΡΠΈΡ Π΄Π»Ρ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½ΠΈΡ ΡΡΠΎΠΈΠΌΠΎΡΡΠΈ ΡΠΎΠ²Π°ΡΠ° Ρ ΡΡΠ΅ΡΠΎΠΌ ΠΠΠ‘ ΠΏΡΠΈ ΡΡΠ»ΠΎΠ²ΠΈΠΈ, ΡΡΠΎ ΠΠΠ‘ ΡΠ°Π²Π΅Π½, Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ, 25%, Π° ΡΡΠΎΠΈΠΌΠΎΡΡΡ ΡΠΎΠ²Π°ΡΠ° Π±Π΅Π· ΡΡΠ΅ΡΠ° ΠΠΠ‘ ΡΠ°Π²Π½Π° 1000.
ΠΠ»Π³ΠΎΡΠΈΡΠΌ ΠΏΡΠΈΠΌΠ΅Π½Π΅Π½ΠΈΡ ΡΡΠ½ΠΊΡΠΈΠΈ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ Π Π°Π·ΠΌΠ΅ΡΡΠΈΡΠ΅ Π΄Π°Π½Π½ΡΠ΅, Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΡΠ΅ Π΄Π»Ρ ΡΠ΅ΡΠ΅Π½ΠΈΡ Π·Π°Π΄Π°ΡΠΈ, Π½Π° ΡΠ°Π±ΠΎΡΠ΅ΠΌ Π»ΠΈΡΡΠ΅ ΠΊΠ°ΠΊ ΠΏΠΎΠΊΠ°Π·Π°Π½ΠΎ Π½Π° ΡΠΈΡΡΠ½ΠΊΠ΅:
Π ΡΡΠ΅ΠΉΠΊΡ Π2 Π²Π²Π΅Π΄ΠΈΡΠ΅ ΡΠΈΡΠ»ΠΎ 1000 (ΡΡΠΎΠΈΠΌΠΎΡΡΡ Π±Π΅Π· ΠΠΠ‘), Π° Π² ΡΡΠ΅ΠΉΠΊΡ Π2 — ΡΠΈΡΠ»ΠΎ 25 (ΠΠΠ‘).
ΠΠ»Ρ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½ΠΈΡ Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΡΡΠΎΠΈΠΌΠΎΡΡΠΈ ΡΠΎΠ²Π°ΡΠ° Ρ ΡΡΠ΅ΡΠΎΠΌ ΠΠΠ‘ ΠΏΠ΅ΡΠ΅ΠΌΠ΅ΡΡΠΈΡΠ΅ ΡΠ°Π±Π»ΠΈΡΠ½ΡΠΉ ΠΊΡΡΡΠΎΡ Π² ΡΡΠ΅ΠΉΠΊΡ Π‘2 ΠΈ Π²ΡΠ·ΠΎΠ²ΠΈΡΠ΅ ΠΠ°ΡΡΠ΅Ρ ΡΡΠ½ΠΊΡΠΈΠΉ (Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ, ΠΊΠΎΠΌΠ°Π½Π΄ΠΎΠΉ ΠΡΡΠ°Π²ΠΊΠ° Π€ΡΠ½ΠΊΡΠΈΡ).
Π ΠΎΠΊΠ½Π΅ ΠΠ°ΡΡΠ΅ΡΠ° ΡΡΠ½ΠΊΡΠΈΠΉ Π² ΡΠΏΠΈΡΠΊΠ΅ ΠΠ°ΡΠ΅Π³ΠΎΡΠΈΡ Π½Π°ΠΉΠ΄ΠΈΡΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΠΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Π½ΡΠ΅ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Π΅ΠΌ, Π·Π°ΡΠ΅ΠΌ Π² ΡΠΏΠΈΡΠΊΠ΅ Π€ΡΠ½ΠΊΡΠΈΡ Π²ΡΠ±Π΅ΡΠΈΡΠ΅ ΡΡΠ½ΠΊΡΠΈΡ Π‘ΡΠΎΠΈΠΌΠΎΡΡΡ ΠΈ ΠΏΠΎΠ΄ΡΠ²Π΅ΡΠ΄ΠΈΡΠ΅ ΡΠ²ΠΎΠΉ Π²ΡΠ±ΠΎΡ ΡΠ΅Π»ΡΠΊΠΎΠΌ ΠΏΠΎ ΠΊΠΎΠΌΠ°Π½Π΄Π½ΠΎΠΉ ΠΊΠ½ΠΎΠΏΠΊΠ΅ ΠΠ.
Π ΠΏΠΎΡΠ²ΠΈΠ²ΡΠ΅ΠΌΡΡ ΠΎΠΊΠ½Π΅ ΡΡΠ½ΠΊΡΠΈΠΈ Π‘ΡΠΎΠΈΠΌΠΎΡΡΡ Π² ΠΏΠΎΠ»ΡΡ Π‘ΡΠΎΠΈΠΌΠΎΡΡΡΠΠ΅Π·ΠΠΠ‘ ΠΈ ΠΠΠ‘ Π·Π°Π΄Π°ΠΉΡΠ΅ ΡΡΡΠ»ΠΊΠΈ Π½Π° ΡΡΠ΅ΠΉΠΊΠΈ Π2 ΠΈ Π2 Ρ ΠΈΡΡ ΠΎΠ΄Π½ΡΠΌΠΈ Π΄Π°Π½Π½ΡΠΌΠΈ Π΄Π»Ρ ΡΡΠΈΡ Π°ΡΠ³ΡΠΌΠ΅Π½ΡΠΎΠ² (ΡΠ΅Π»ΠΊΠ½ΠΈΡΠ΅ Π»Π΅Π²ΠΎΠΉ ΠΊΠ½ΠΎΠΏΠΊΠΎΠΉ ΠΌΡΡΠΈ ΠΏΠΎ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠΈΠΌ ΡΡΠ΅ΠΉΠΊΠ°ΠΌ, ΡΡΠΎΠ±Ρ Π½Π΅ Π½Π°Π±ΠΈΡΠ°ΡΡ Π²ΡΡΡΠ½ΡΡ Ρ ΠΊΠ»Π°Π²ΠΈΠ°ΡΡΡΡ ΠΈΡ Π°Π΄ΡΠ΅ΡΠ°) ΠΈ Π½Π°ΠΆΠΌΠΈΡΠ΅ ΠΊΠΎΠΌΠ°Π½Π΄Π½ΡΡ ΠΊΠ½ΠΎΠΏΠΊΡ ΠΠ.
ΠΡΠΈΠΌΠ΅ΡΠ°Π½ΠΈΠ΅. ΠΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ Π² ΠΊΠ°ΡΠ΅ΡΡΠ²Π΅ ΠΈΠΌΠ΅Π½ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ ΡΡΡΡΠΊΠΈΠ΅ Π½Π°Π·Π²Π°Π½ΠΈΡ Π½ΠΎΠ²Π°Ρ ΡΡΠ½ΠΊΡΠΈΡ ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ Π»Π΅Π³ΠΊΠΎ ΡΠ°ΡΠΏΠΎΠ·Π½Π°Π½Π° Π»ΡΠ±ΡΠΌ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Π΅ΠΌ ΠΏΠΎ Π΅Π΅ ΠΈΠΌΠ΅Π½ΠΈ, ΠΈ ΡΠΌΡΡΠ» ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠΎΠ² ΡΡΠ½ΠΊΡΠΈΠΈ ΡΡΠ°Π½ΠΎΠ²ΠΈΡΡΡ ΠΏΠΎΠ½ΡΡΠ½ΡΠΌ.
Π Π΅Π·ΡΠ»ΡΡΠ°Ρ Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΡ ΠΡΠΈΠΌΠ΅Ρ 2. Π‘ΠΎΠ·Π΄Π°Π½ΠΈΠ΅ ΡΡΠ½ΠΊΡΠΈΠΈ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ ΠΠ΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΡΠΎΠ·Π΄Π°ΡΡ ΡΡΠ½ΠΊΡΠΈΡ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½ΠΈΡ ΡΡΠΌΠΌΡ Π·Π°ΡΠ°Π±ΠΎΡΠ½ΠΎΠΉ ΠΏΠ»Π°ΡΡ ΡΠΎΡΡΡΠ΄Π½ΠΈΠΊΠ° Π·Π° ΠΎΡΡΠ°Π±ΠΎΡΠ°Π½Π½ΡΠ΅ Π΄Π½ΠΈ. ΠΡΠ³ΡΠΌΠ΅Π½ΡΠ°ΠΌΠΈ ΡΡΠ½ΠΊΡΠΈΠΈ ΡΠ²Π»ΡΡΡΡΡ: Π²Π΅Π»ΠΈΡΠΈΠ½Π° ΠΌΠ΅ΡΡΡΠ½ΠΎΠ³ΠΎ ΠΎΠΊΠ»Π°Π΄Π° ΡΠΎΡΡΡΠ΄Π½ΠΈΠΊΠ°, ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΡΠ°Π±ΠΎΡΠΈΡ Π΄Π½Π΅ΠΉ Π² ΠΌΠ΅ΡΡΡΠ΅, ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΠΎΡΡΠ°Π±ΠΎΡΠ°Π½Π½ΡΡ ΡΠΎΡΡΡΠ΄Π½ΠΈΠΊΠΎΠΌ Π΄Π½Π΅ΠΉ. ΠΠΎΠ±Π°Π²ΡΡΠ΅ Π² ΠΏΡΠΎΠ΅ΠΊΡ ΡΡΠ°Π½Π΄Π°ΡΡΠ½ΡΠΉ ΠΌΠΎΠ΄ΡΠ»Ρ ΠΊΠΎΠΌΠ°Π½Π΄ΠΎΠΉ Insert Module. Π ΠΎΠΊΠ½Π΅ ΠΌΠΎΠ΄ΡΠ»Ρ Π½Π°Π±Π΅ΡΠΈΡΠ΅ ΠΊΠΎΠ΄, ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»Π΅Π½Π½ΡΠΉ Π² Π»ΠΈΡΡΠΈΠ½Π³Π΅ 2.
ΠΠΈΡΡΠΈΠ½Π³ 2. ΠΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»ΡΡΠΊΠ°Ρ ΡΡΠ½ΠΊΡΠΈΡ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½ΠΈΡ ΡΡΠΌΠΌΡ Π·Π°ΡΠ°Π±ΠΎΡΠ½ΠΎΠΉ ΠΏΠ»Π°ΡΡ ΡΠΎΡΡΡΠ΄Π½ΠΈΠΊΠ° Π·Π° ΠΎΡΡΠ°Π±ΠΎΡΠ°Π½Π½ΡΠ΅ Π΄Π½ΠΈ.
Function ΠΠ°Ρ_ΠΏΠ»Π°ΡΠ°_ΠΎΡΡΠ°Π±_Π²ΡΠ΅ΠΌΡ (ΠΠΊΠ»Π°Π΄, Π Π°Π±ΠΠ½ΠΈ, ΠΡΡΠ°Π±ΠΠ½ΠΈ) ΠΠ°Ρ_ΠΏΠ»Π°ΡΠ°_ΠΎΡΡΠ°Π±_Π²ΡΠ΅ΠΌΡ = ΠΠΊΠ»Π°Π΄ / Π Π°Π±ΠΠ½ΠΈ * ΠΡΡΠ°Π±ΠΠ½ΠΈ.
End Function.
ΠΠ»Π³ΠΎΡΠΈΡΠΌ ΠΏΡΠΈΠΌΠ΅Π½Π΅Π½ΠΈΡ ΡΡΠ½ΠΊΡΠΈΠΈ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ Π Π°Π·ΠΌΠ΅ΡΡΠΈΡΠ΅ Π΄Π°Π½Π½ΡΠ΅, Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΡΠ΅ Π΄Π»Ρ ΡΠ΅ΡΠ΅Π½ΠΈΡ Π·Π°Π΄Π°ΡΠΈ, Π½Π° ΡΠ°Π±ΠΎΡΠ΅ΠΌ Π»ΠΈΡΡΠ΅ ΠΊΠ°ΠΊ ΠΏΠΎΠΊΠ°Π·Π°Π½ΠΎ Π½Π° ΡΠΈΡΡΠ½ΠΊΠ΅:
ΠΠ΅ΡΠ΅ΠΌΠ΅ΡΡΠΈΡΠ΅ ΡΠ°Π±Π»ΠΈΡΠ½ΡΠΉ ΠΊΡΡΡΠΎΡ Π² ΡΡΠ΅ΠΉΠΊΡ Π2 ΠΈ Π²ΡΠ·ΠΎΠ²ΠΈΡΠ΅ ΠΠ°ΡΡΠ΅Ρ ΡΡΠ½ΠΊΡΠΈΠΉ, Π² ΠΎΠΊΠ½Π΅ ΠΠ°ΡΡΠ΅ΡΠ° ΡΡΠ½ΠΊΡΠΈΠΉ Π² ΡΠΏΠΈΡΠΊΠ΅ ΠΠ°ΡΠ΅Π³ΠΎΡΠΈΡ Π²ΡΠ±Π΅ΡΠΈΡΠ΅ ΠΏΡΠ½ΠΊΡ ΠΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Π½ΡΠ΅ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Π΅ΠΌ, Π·Π°ΡΠ΅ΠΌ Π² ΡΠΏΠΈΡΠΊΠ΅ Π€ΡΠ½ΠΊΡΠΈΡ — ΡΡΠ½ΠΊΡΠΈΡ ΠΠ°Ρ_ΠΏΠ»Π°ΡΠ°_ΠΎΡΡΠ°Π±_Π²ΡΠ΅ΠΌΡ ΠΈ ΠΏΠΎΠ΄ΡΠ²Π΅ΡΠ΄ΠΈΡΠ΅ ΡΠ²ΠΎΠΉ Π²ΡΠ±ΠΎΡ ΡΠ΅Π»ΡΠΊΠΎΠΌ ΠΏΠΎ ΠΊΠΎΠΌΠ°Π½Π΄Π½ΠΎΠΉ ΠΊΠ½ΠΎΠΏΠΊΠ΅ ΠΠ. Π ΠΏΠΎΡΠ²ΠΈΠ²ΡΠ΅ΠΌΡΡ ΠΎΠΊΠ½Π΅ ΡΡΠ½ΠΊΡΠΈΠΈ ΠΠ°Ρ_ΠΏΠ»Π°ΡΠ°_ΠΎΡΡΠ°Π±_Π²ΡΠ΅ΠΌΡ Π² ΠΏΠΎΠ»ΡΡ ΠΠΊΠ»Π°Π΄, Π Π°Π±ΠΠ½ΠΈ ΠΈ ΠΡΡΠ°Π±ΠΠ½ΠΈ Π·Π°Π΄Π°ΠΉΡΠ΅ ΡΡΡΠ»ΠΊΠΈ Π½Π° ΡΡΠ΅ΠΉΠΊΠΈ Π2, Π‘2 ΠΈ D2 Ρ ΠΈΡΡ ΠΎΠ΄Π½ΡΠΌΠΈ Π΄Π°Π½Π½ΡΠΌΠΈ Π΄Π»Ρ ΡΡΠΈΡ Π°ΡΠ³ΡΠΌΠ΅Π½ΡΠΎΠ² ΠΈ Π½Π°ΠΆΠΌΠΈΡΠ΅ ΠΊΠΎΠΌΠ°Π½Π΄Π½ΡΡ ΠΊΠ½ΠΎΠΏΠΊΡ ΠΠ:
Π Π΅Π·ΡΠ»ΡΡΠ°Ρ Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΡ ΠΡΠΈΠΌΠ΅Ρ 3. Π‘ΠΎΠ·Π΄Π°Π½ΠΈΠ΅ ΡΡΠ½ΠΊΡΠΈΠΈ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ΠΌ ΡΡΠ°Π½Π΄Π°ΡΡΠ½ΡΡ ΠΌΠ°ΡΠ΅ΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΈΡ ΡΡΠ½ΠΊΡΠΈΠΉ ΠΠ°ΡΠ΅ΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΈΠ΅ ΡΡΠ½ΠΊΡΠΈΠΈ ΠΡΠΈ ΡΠΎΠ·Π΄Π°Π½ΠΈΠΈ ΡΡΠ½ΠΊΡΠΈΠΉ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ ΠΌΠΎΠ³ΡΡ ΠΏΠΎΡΡΠ΅Π±ΠΎΠ²Π°ΡΡΡΡ Π²ΡΡΡΠΎΠ΅Π½Π½ΡΠ΅ Π² VBA ΠΌΠ°ΡΠ΅ΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΈΠ΅ ΡΡΠ½ΠΊΡΠΈΠΈ. ΠΠ΅ΡΠ΅ΡΠ΅Π½Ρ ΡΠ°ΠΊΠΈΡ ΡΡΠ½ΠΊΡΠΈΠΉ ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»Π΅Π½ Π² ΡΠ°Π±Π»ΠΈΡΠ΅ 1.
Π’Π°Π±Π»ΠΈΡΠ° 1. ΠΡΡΡΠΎΠ΅Π½Π½ΡΠ΅ ΠΌΠ°ΡΠ΅ΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΈΠ΅ ΡΡΠ½ΠΊΡΠΈΠΈ VBA.
Π€ΡΠ½ΠΊΡΠΈΡ. | ΠΠΎΠ·Π²ΡΠ°ΡΠ°Π΅ΠΌΠΎΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅. | |
Abs (number). | Π°Π±ΡΠΎΠ»ΡΡΠ½Π°Ρ Π²Π΅Π»ΠΈΡΠΈΠ½Π° (ΠΌΠΎΠ΄ΡΠ»Ρ) ΡΠΈΡΠ»Π°. | |
Atn (number). | Π°ΡΠΊΡΠ°Π½Π³Π΅Π½Ρ. | |
Cos (number). | ΠΊΠΎΡΠΈΠ½ΡΡ. | |
Exp (number). | ΡΠΊΡΠΏΠΎΠ½Π΅Π½ΡΠ° Π΅Ρ (ΡΠ΅Π·ΡΠ»ΡΡΠ°Ρ Π²ΠΎΠ·Π²Π΅Π΄Π΅Π½ΠΈΡ ΠΎΡΠ½ΠΎΠ²Π°Π½ΠΈΡ Π½Π°ΡΡΡΠ°Π»ΡΠ½ΠΎΠ³ΠΎ Π»ΠΎΠ³Π°ΡΠΈΡΠΌΠ° Π² ΡΠΊΠ°Π·Π°Π½Π½ΡΡ ΡΡΠ΅ΠΏΠ΅Π½Ρ). | |
Log (number). | Π½Π°ΡΡΡΠ°Π»ΡΠ½ΡΠΉ Π»ΠΎΠ³Π°ΡΠΈΡΠΌ. | |
Rnd (number). | ΡΠ»ΡΡΠ°ΠΉΠ½ΠΎΠ΅ ΡΠΈΡΠ»ΠΎ ΠΌΠ΅ΠΆΠ΄Ρ 0 ΠΈ 1. ΠΡΠ»ΠΈ Π°ΡΠ³ΡΠΌΠ΅Π½Ρ number ΠΌΠ΅Π½ΡΡΠ΅ Π½ΡΠ»Ρ, ΡΠΎ ΡΡΠ½ΠΊΡΠΈΡ Rnd Π²ΠΎΠ·Π²ΡΠ°ΡΠ°Π΅Ρ ΠΊΠ°ΠΆΠ΄ΡΠΉ ΡΠ°Π· ΠΎΠ΄Π½ΠΎ ΠΈ ΡΠΎ ΠΆΠ΅ ΡΠΈΡΠ»ΠΎ. ΠΡΠ»ΠΈ number Π±ΠΎΠ»ΡΡΠ΅ Π½ΡΠ»Ρ ΠΈΠ»ΠΈ ΠΎΠΏΡΡΠ΅Π½ΠΎ, ΡΠΎ Rnd Π²ΠΎΠ·Π²ΡΠ°ΡΠ°Π΅Ρ ΡΠ»Π΅Π΄ΡΡΡΠ΅Π΅ ΡΠ»ΡΡΠ°ΠΉΠ½ΠΎΠ΅ ΡΠΈΡΠ»ΠΎ Π² ΠΏΠΎΡΠ»Π΅Π΄ΠΎΠ²Π°ΡΠ΅Π»ΡΠ½ΠΎΡΡΠΈ. ΠΡΠ»ΠΈ number ΡΠ°Π²Π½ΡΠ΅ΡΡΡ Π½ΡΠ»Ρ, ΡΠΎ Rnd Π²ΠΎΠ·Π²ΡΠ°ΡΠ°Π΅Ρ ΡΠ»ΡΡΠ°ΠΉΠ½ΠΎΠ΅ ΡΠΈΡΠ»ΠΎ, ΠΏΠΎΠ»ΡΡΠ΅Π½Π½ΠΎΠ΅ ΠΏΡΠΈ ΠΏΡΠ΅Π΄ΡΠ΄ΡΡΠ΅ΠΌ Π²ΡΠ·ΠΎΠ²Π΅ ΡΡΠΎΠΉ ΡΡΠ½ΠΊΡΠΈΠΈ. ΠΠ΅ΡΠ΅Π΄ Π²ΡΠ·ΠΎΠ²ΠΎΠΌ ΡΡΠ½ΠΊΡΠΈΠΈ Rnd ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠΉΡΠ΅ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡ Randomize. | |
Sgn (number). | Π·Π½Π°ΠΊ ΡΠΈΡΠ»Π° (Π²ΠΎΠ·Π²ΡΠ°ΡΠ°Π΅Ρ 1, Π΅ΡΠ»ΠΈ Π°ΡΠ³ΡΠΌΠ΅Π½Ρ ΡΠ²Π»ΡΠ΅ΡΡΡ ΠΏΠΎΠ»ΠΎΠΆΠΈΡΠ΅Π»ΡΠ½ΡΠΌ; -1, Π΅ΡΠ»ΠΈ Π°ΡΠ³ΡΠΌΠ΅Π½Ρ — ΠΎΡΡΠΈΡΠ°ΡΠ΅Π»ΡΠ½ΡΠΉ; 0, Π΅ΡΠ»ΠΈ Π°ΡΠ³ΡΠΌΠ΅Π½Ρ ΡΠ°Π²Π΅Π½ Π½ΡΠ»Ρ). | |
Sin (number). | ΡΠΈΠ½ΡΡ. | |
Sqr (number). | ΠΊΠ²Π°Π΄ΡΠ°ΡΠ½ΡΠΉ ΠΊΠΎΡΠ΅Π½Ρ ΠΈΠ· ΡΠΈΡΠ»Π°. | |
Tan (number). | ΡΠ°Π½Π³Π΅Π½Ρ. | |
Fix (number). Int (number). | ΠΎΠ±Π΅ ΡΡΠ½ΠΊΡΠΈΠΈ Fix, Int ΠΎΡΠ±ΡΠ°ΡΡΠ²Π°ΡΡ Π΄ΡΠΎΠ±Π½ΡΡ ΡΠ°ΡΡΡ ΡΠΈΡΠ»Π° ΠΈ Π²ΠΎΠ·Π²ΡΠ°ΡΠ°ΡΡ ΡΠ΅Π»ΠΎΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅. Π Π°Π·Π»ΠΈΡΠΈΠ΅ ΠΌΠ΅ΠΆΠ΄Ρ Π΄Π°Π½Π½ΡΠΌΠΈ ΡΡΠ½ΠΊΡΠΈΡΠΌΠΈ ΡΠΎΡΡΠΎΠΈΡ Π² ΡΠΎΠΌ, ΡΡΠΎ Π΄Π»Ρ ΠΎΡΡΠΈΡΠ°ΡΠ΅Π»ΡΠ½ΠΎΠ³ΠΎ Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠ° ΡΠΈΡΠ»ΠΎ ΡΡΠ½ΠΊΡΠΈΡ Int Π²ΠΎΠ·Π²ΡΠ°ΡΠ°Π΅Ρ Π±Π»ΠΈΠΆΠ°ΠΉΡΠ΅Π΅ ΠΎΡΡΠΈΡΠ°ΡΠ΅Π»ΡΠ½ΠΎΠ΅ ΡΠ΅Π»ΠΎΠ΅ ΡΠΈΡΠ»ΠΎ, ΠΌΠ΅Π½ΡΡΠ΅Π΅ Π»ΠΈΠ±ΠΎ ΡΠ°Π²Π½ΠΎΠ΅ ΡΠΊΠ°Π·Π°Π½Π½ΠΎΠΌΡ, Π° Fix — Π±Π»ΠΈΠΆΠ°ΠΉΡΠ΅Π΅ ΠΎΡΡΠΈΡΠ°ΡΠ΅Π»ΡΠ½ΠΎΠ΅ ΡΠ΅Π»ΠΎΠ΅ ΡΠΈΡΠ»ΠΎ, Π±ΠΎΠ»ΡΡΠ΅Π΅ Π»ΠΈΠ±ΠΎ ΡΠ°Π²Π½ΠΎΠ΅ ΡΠΊΠ°Π·Π°Π½Π½ΠΎΠΌΡ. | |
Π‘ΠΎΠ·Π΄Π°Π΄ΠΈΠΌ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»ΡΡΠΊΡΡ ΡΡΠ½ΠΊΡΠΈΡ:
.
Π Π½ΠΎΠ²ΠΎΠΌ ΡΡΠ°Π½Π΄Π°ΡΡΠ½ΠΎΠΌ ΠΌΠΎΠ΄ΡΠ»Π΅ Π½Π°Π±Π΅ΡΠΈΡΠ΅ ΠΊΠΎΠ΄, ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»Π΅Π½Π½ΡΠΉ Π² Π»ΠΈΡΡΠΈΠ½Π³Π΅ 3.
ΠΠΈΡΡΠΈΠ½Π³ 3. ΠΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»ΡΡΠΊΠ°Ρ ΡΡΠ½ΠΊΡΠΈΡ Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ΠΌ Π²ΡΡΡΠΎΠ΅Π½Π½ΠΎΠΉ ΠΌΠ°ΡΠ΅ΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΎΠΉ ΡΡΠ½ΠΊΡΠΈΠΈ.
Function F (x).
Pi = Atn (1) * 4.
F = Cos (Pi * x) ^ 2.
End Function.
Π VBA Π½Π΅Ρ ΡΡΠ½ΠΊΡΠΈΠΈ, Π²ΠΎΠ·Π²ΡΠ°ΡΠ°ΡΡΠ΅ΠΉ ΡΠΈΡΠ»ΠΎ Π («ΠΏΠΈ»), ΠΏΠΎΡΡΠΎΠΌΡ ΠΎΠ½ΠΎ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΠ΅ΡΡΡ ΡΠ΅ΡΠ΅Π· ΡΡΠ½ΠΊΡΠΈΡ Ant (Π°ΡΠΊΡΠ°Π½Π³Π΅Π½Ρ): Pi = 4 * Atn (1). Π§ΠΈΡΠ»ΠΎ Π ΠΌΠΎΠΆΠ½ΠΎ Π·Π°Π΄Π°ΡΡ ΡΠ²Π½ΠΎ, ΡΠΊΠ°Π·Π°Π² Π΄ΠΎΡΡΠ°ΡΠΎΡΠ½ΠΎΠ΅ ΡΠΈΡΠ»ΠΎ Π·Π½Π°ΡΠ°ΡΠΈΡ ΡΠΈΡΡ, Π½ΠΎ ΡΡΠΎΡ ΠΏΠΎΠ΄Ρ ΠΎΠ΄ ΠΌΠ΅Π½Π΅Π΅ ΡΠ»Π΅Π³Π°Π½ΡΠ΅Π½, ΡΠ΅ΠΌ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΡΡΠ½ΠΊΡΠΈΠΈ Ant.
ΠΠ»Π³ΠΎΡΠΈΡΠΌ ΠΏΡΠΈΠΌΠ΅Π½Π΅Π½ΠΈΡ ΡΡΠ½ΠΊΡΠΈΠΈ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ Π Π°Π·ΠΌΠ΅ΡΡΠΈΡΠ΅ Π΄Π°Π½Π½ΡΠ΅, Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΡΠ΅ Π΄Π»Ρ ΡΠ΅ΡΠ΅Π½ΠΈΡ Π·Π°Π΄Π°ΡΠΈ, Π½Π° ΡΠ°Π±ΠΎΡΠ΅ΠΌ Π»ΠΈΡΡΠ΅ (ΠΊΠ°ΠΊ ΠΏΠΎΠΊΠ°Π·Π°Π½ΠΎ Π½Π° ΡΠΈΡΡΠ½ΠΊΠ΅) ΠΈ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΠΠ°ΡΡΠ΅ΡΠ° ΡΡΠ½ΠΊΡΠΈΠΉ Π²ΡΠ·ΠΎΠ²ΠΈΡΠ΅ Π½ΠΎΠ²ΡΡ ΡΡΠ½ΠΊΡΠΈΡ:
ΠΠΏΠ΅ΡΠ°ΡΠΎΡ ΡΡΠ»ΠΎΠ²Π½ΠΎΠ³ΠΎ ΠΏΠ΅ΡΠ΅Ρ ΠΎΠ΄Π° ΠΠΏΠ΅ΡΠ°ΡΠΎΡ ΡΡΠ»ΠΎΠ²Π½ΠΎΠ³ΠΎ ΠΏΠ΅ΡΠ΅Ρ ΠΎΠ΄Π° Π·Π°Π΄Π°Π΅Ρ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΠ΅ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Π½ΡΡ Π³ΡΡΠΏΠΏ ΠΈΠ½ΡΡΡΡΠΊΡΠΈΠΉ Π² Π·Π°Π²ΠΈΡΠΈΠΌΠΎΡΡΠΈ ΠΎΡ Π·Π½Π°ΡΠ΅Π½ΠΈΡ Π²ΡΡΠ°ΠΆΠ΅Π½ΠΈΡ.
Π‘ΠΈΠ½ΡΠ°ΠΊΡΠΈΡ:
If condition Then [statements ] [ Else elsestatements ].
ΠΡΠ»ΠΈ ΡΡΠ»ΠΎΠ²ΠΈΠ΅ condition ΠΏΡΠΈΠ½ΠΈΠΌΠ°Π΅Ρ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ True, ΡΠΎ Π²ΡΠΏΠΎΠ»Π½ΡΡΡΡΡ ΠΈΠ½ΡΡΡΡΠΊΡΠΈΠΈ statements, Π΅ΡΠ»ΠΈ False, ΡΠΎ ΠΈΠ½ΡΡΡΡΠΊΡΠΈΠΈ elsestatements. ΠΠ΅ΡΠ²Ρ Else ΡΠ²Π»ΡΠ΅ΡΡΡ Π½Π΅ΠΎΠ±ΡΠ·Π°ΡΠ΅Π»ΡΠ½ΠΎ.
ΠΠ°ΠΏΡΠΈΠΌΠ΅Ρ, Π΅ΡΠ»ΠΈ ΡΠΊΠΈΠ΄ΠΊΠ° (ΡΠΊΠ°ΠΆΠ΅ΠΌ 50%) ΠΏΡΠΈΠΌΠ΅Π½ΡΠ΅ΡΡΡ ΡΠΎΠ»ΡΠΊΠΎ ΠΊ ΡΡΠΌΠΌΠ°ΠΌ Π±ΠΎΠ»ΡΡΠ΅ 10 0011 ΠΠ΄Π΅ΡΡ ΠΈ Π΄Π°Π»Π΅Π΅, Π΅ΡΠ»ΠΈ Π½Π΅ ΡΠΊΠ°Π·Π°Π½Π° Π΄Π΅Π½Π΅ΠΆΠ½Π°Ρ Π΅Π΄ΠΈΠ½ΠΈΡΠ°, ΡΠΎ ΠΈΠΌΠ΅ΡΡΡΡ Π² Π²ΠΈΠ΄Ρ Π½Π΅ΠΊΠΈΠ΅ ΡΡΠ»ΠΎΠ²Π½ΡΠ΅ Π΅Π΄ΠΈΠ½ΠΈΡΡ., ΡΠΎ Π² VBA ΡΡΠΎ ΠΌΠΎΠΆΠ½ΠΎ Π·Π°ΠΏΠΈΡΠ°ΡΡ ΡΠ»Π΅Π΄ΡΡΡΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ:
If Money > 1000 Then Discount = 0.05 Else Discount = 0.
ΠΈΠ»ΠΈ, ΡΡΠΎ ΡΠ°Π²Π½ΠΎΡΠΈΠ»ΡΠ½ΠΎ.
If Money > 1000 Then Discount = 0.05.
ΠΠΎΠΏΡΡΠΊΠ°Π΅ΡΡΡ ΡΠ°ΠΊΠΆΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ Π±Π»ΠΎΡΠ½ΠΎΠΉ ΡΠΎΡΠΌΡ ΡΠΈΠ½ΡΠ°ΠΊΡΠΈΡΠ°, ΠΊΠΎΡΠΎΡΠ°Ρ ΡΠ°ΡΡΠΎ ΡΠΏΡΠΎΡΠ°Π΅Ρ Π²ΠΎΡΠΏΡΠΈΡΡΠΈΠ΅ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΠ° ΡΡΠ»ΠΎΠ²Π½ΠΎΠ³ΠΎ ΠΏΠ΅ΡΠ΅Ρ ΠΎΠ΄Π°. ΠΠ±ΡΠ°ΡΠΈΡΠ΅ Π²Π½ΠΈΠΌΠ°Π½ΠΈΠ΅ Π½Π° ΡΠΎ, ΡΡΠΎ ΠΏΡΠΈ Π±Π»ΠΎΡΠ½ΠΎΠΉ ΠΎΡΠ³Π°Π½ΠΈΠ·Π°ΡΠΈΠΈ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΠ° ΡΡΠ»ΠΎΠ²Π½ΠΎΠ³ΠΎ ΠΏΠ΅ΡΠ΅Ρ ΠΎΠ΄Π° ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ ΠΊΠ»ΡΡΠ΅Π²ΠΎΠ΅ ΡΠ»ΠΎΠ²Π° End If Π΄Π»Ρ ΠΎΠ±ΠΎΠ·Π½Π°ΡΠ΅Π½ΠΈΡ ΠΎΠΊΠΎΠ½ΡΠ°Π½ΠΈΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΠ°.
If condition Then.
[statements ].
[ Else.
[elsestatements ]].
End If.
ΠΡΠΈΠ²Π΅Π΄Π΅Π½Π½ΡΠΉ Π²ΡΡΠ΅ ΠΏΡΠΈΠΌΠ΅Ρ ΡΠΎ ΡΠΊΠΈΠ΄ΠΊΠΎΠΉ ΠΌΠΎΠΆΠ½ΠΎ Π·Π°ΠΏΠΈΡΠ°ΡΡ Π² ΡΠ»Π΅Π΄ΡΡΡΠ΅ΠΉ ΡΠΊΠ²ΠΈΠ²Π°Π»Π΅Π½ΡΠ½ΠΎΠΉ Π±Π»ΠΎΡΠ½ΠΎΠΉ ΡΡΡΡΠΊΡΡΡΠ΅:
If Money > 1000 Then.
Discount = 0.05.
Else.
Discount = 0.
End If.
ΠΈΠ»ΠΈ.
If Money > 1000 Then.
Discount = 0.05.
End If.
ΠΠ΅ΡΠ΅Π²ΠΎ ΡΡΠ»ΠΎΠ²ΠΈΠΉ ΠΌΠΎΠΆΠ΅Ρ ΠΎΠΊΠ°Π·Π°ΡΡΡΡ Π³ΠΎΡΠ°Π·Π΄ΠΎ Π±ΠΎΠ»Π΅Π΅ ΡΠ»ΠΎΠΆΠ½ΡΠΌ, ΡΠ΅ΠΌ ΠΏΡΠΎΡΡΠΎ ΠΏΡΠΎΠ²Π΅ΡΠΊΠ° ΠΎΠ΄Π½ΠΎΠ³ΠΎ ΡΡΠ»ΠΎΠ²ΠΈΡ. Π ΡΡΠΎΠΌ ΡΠ»ΡΡΠ°Π΅ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡ If… Then…ElseIf, ΠΊΠΎΡΠΎΡΡΠΉ ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ ΠΏΡΠΎΠ²Π΅ΡΡΡΡ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²Π΅Π½Π½ΡΠ΅ ΡΡΠ»ΠΎΠ²ΠΈΡ. Π‘Π»Π΅Π΄ΡΡΡΠΈΠΉ ΠΏΡΠΈΠΌΠ΅Ρ ΠΏΠΎΠΊΠ°Π·ΡΠ²Π°Π΅Ρ ΠΏΠΎΡΡΠ΄ΠΎΠΊ ΠΏΡΠΎΠ²Π΅ΡΠΊΠΈ ΡΡΠ»ΠΎΠ²ΠΈΠΉ.
If condition-1 Then.
[Statements].
[ElseIf condition-2 Then.
[elseifstatements].
[Else.
[elsestatements]].
End If.
ΠΠ΅ΡΠ²ΡΠΌ ΠΏΠΎΠ²Π΅ΡΡΠ΅ΡΡΡ ΡΡΠ»ΠΎΠ²ΠΈΠ΅ condition-1. ΠΡΠ»ΠΈ ΠΎΠ½ΠΎ ΠΈΠΌΠ΅Π΅Ρ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ True, ΡΠΎ Π²ΡΠΏΠΎΠ»Π½ΡΡΡΡΡ ΠΈΠ½ΡΡΡΡΠΊΡΠΈΠΈ Statements ΠΈ Π΄Π°Π»Π΅Π΅ ΡΠ°Π±ΠΎΡΠ° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΏΡΠΎΠ΄ΠΎΠ»ΠΆΠΈΡΡΡ ΡΠΎ ΡΡΡΠΎΠΊΠΈ, ΠΊΠΎΡΠΎΡΠ°Ρ ΡΠ»Π΅Π΄ΡΠ΅Ρ Π·Π° ΠΊΠ»ΡΡΠ΅Π²ΡΠΌ ΡΠ»ΠΎΠ²ΠΎΠΌ End If. ΠΡΠ»ΠΈ ΡΡΠ»ΠΎΠ²ΠΈΠ΅ condition-1 Π²ΠΎΠ·Π²ΡΠ°ΡΠ°Π΅Ρ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ False, ΡΠΎ ΠΏΡΠΎΠ²Π΅ΡΡΠ΅ΡΡΡ ΡΡΠ»ΠΎΠ²ΠΈΠ΅ condition-2 ΠΈ Ρ. Π΄., ΠΏΠΎΠΊΠ° Π½Π΅ Π²ΡΡΡΠ΅ΡΠΈΡΡΡ ΡΡΠ»ΠΎΠ²ΠΈΠ΅, Π²ΠΎΠ·Π²ΡΠ°ΡΠ°ΡΡΠ΅Π΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ True, ΠΈΠ»ΠΈ Π½Π΅ Π²ΡΡΡΠ΅ΡΠ°Π΅ΡΡΡ ΠΊΠ»ΡΡΠ΅Π²ΠΎΠ΅ ΡΠ»ΠΎΠ²ΠΎ Else.
ΠΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»ΡΡΠΊΠ°Ρ ΡΡΠ½ΠΊΡΠΈΡ Ρ Π΄Π²ΡΠΌΡ ΡΡΠ»ΠΎΠ²ΠΈΡΠΌΠΈ ΠΠΎΡΠΌΠΎΡΡΠΈΠΌ Π΄Π»Ρ ΡΡΠ½ΠΊΡΠΈΠΈ Π² ΡΡΠ°Π½Π΄Π°ΡΡΠ½ΠΎΠΌ ΠΌΠΎΠ΄ΡΠ»Π΅ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»ΡΡΠΊΡΡ ΡΡΠ½ΠΊΡΠΈΡ (Π»ΠΈΡΡΠΈΠ½Π³ 3).
ΠΠΈΡΡΠΈΠ½Π³ 4. ΠΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»ΡΡΠΊΠ°Ρ ΡΡΠ½ΠΊΡΠΈΡ Ρ Π΄Π²ΡΠΌΡ ΡΡΠ»ΠΎΠ²ΠΈΡΠΌΠΈ (Π²Π°ΡΠΈΠ°Π½Ρ 1).
Function Y (x).
If x < 0.5 Then.
Y=(1+Abs (0.2-x))/(1+x+x2).
Else.
Y=x^(1/3).
End If.
End Function.
ΠΠΎΠ½Π΅ΡΠ½ΠΎ, ΡΡ ΠΆΠ΅ ΡΠ°ΠΌΡΡ ΠΌΠΎΠΆΠ½ΠΎ Π±ΡΠ»ΠΎ Π±Ρ Π·Π°ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°ΡΡ Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ΠΌ Π΄Π²ΡΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΠΎΠ² If. ΠΠΎ Ρ ΠΎΡΡ ΡΡΠΎΡ ΠΊΠΎΠ΄ ΡΠΎΠ΄Π΅ΡΠΆΠΈΡ ΠΌΠ΅Π½ΡΡΠ΅ ΡΡΡΠΎΠΊ, ΠΎΠ½ ΠΌΠ΅Π½Π΅Π΅ ΠΏΡΠ΅Π΄ΠΏΠΎΡΡΠΈΡΠ΅Π»ΡΠ½Π΅Π΅ (Π»ΠΈΡΡΠΈΠ½Π³ 4).
ΠΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»ΡΡΠΊΠ°Ρ ΡΡΠ½ΠΊΡΠΈΡ Ρ ΡΡΠ΅ΠΌΡ ΡΡΠ»ΠΎΠ²ΠΈΡΠΌΠΈ Π‘ΠΎΠ·Π΄Π°Π΄ΠΈΠΌ Π² ΡΡΠ°Π½Π΄Π°ΡΡΠ½ΠΎΠΌ ΠΌΠΎΠ΄ΡΠ»Π΅ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»ΡΡΠΊΡΡ ΡΡΠ½ΠΊΡΠΈΡ (Π»ΠΈΡΡΠΈΠ½Π³ 5).Π΄Π»Ρ ΡΡΠ½ΠΊΡΠΈΠΈ ΠΠΈΡΡΠΈΠ½Π³ 5. ΠΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»ΡΡΠΊΠ°Ρ ΡΡΠ½ΠΊΡΠΈΡ Ρ Π΄Π²ΡΠΌΡ ΡΡΠ»ΠΎΠ²ΠΈΡΠΌΠΈ (Π²Π°ΡΠΈΠ°Π½Ρ 1).
Function Z (x).
Select case x.
Case Is < 0.2.
Z=1+ Log (1 + Abs (x)).
Case Is <= 0.8.
Z=(1+x^(½))/(1+x).
Case Else.
Z=2*Exp (-2*x).
End Select.
End Function.
ΠΡΡ ΡΡΠ½ΠΊΡΠΈΡ ΠΌΠΎΠΆΠ½ΠΎ Π·Π°ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°ΡΡ Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ΠΌ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΠ° If.
ΠΠΈΡΡΠΈΠ½Π³ 6. ΠΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»ΡΡΠΊΠ°Ρ ΡΡΠ½ΠΊΡΠΈΡ Ρ Π΄Π²ΡΠΌΡ ΡΡΠ»ΠΎΠ²ΠΈΡΠΌΠΈ (Π²Π°ΡΠΈΠ°Π½Ρ 2).
Function ΡΡΠ½ΠΊΡΠΈΡZ1(x).
If x < 0.2 Then.
ΡΡΠ½ΠΊΡΠΈΡZ1 = 1 + Log (1 + Abs (x)).
ElseIf x > 3.8 Then.
ΡΡΠ½ΠΊΡΠΈΡZ1 = 2 * Exp (-2 * x).
Else.
ΡΡΠ½ΠΊΡΠΈΡZ1 = (1 + x ^ (1 / 2)) / (1 + x).
End If.
End Function.
ΠΠ±Π»Π°ΡΡΡ Π²ΠΈΠ΄ΠΈΠΌΠΎΡΡΠΈ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ.
Π ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅ Π²ΡΠ΅ ΠΈΠ΄Π΅Π½ΡΠΈΡΠΈΠΊΠ°ΡΠΎΡΡ (Π² ΡΠ°ΡΡΠ½ΠΎΡΡΠΈ, ΠΈΠΌΠ΅Π½Π° ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ ΠΈ ΡΡΠ½ΠΊΡΠΈΠΉ) ΠΈΠΌΠ΅ΡΡ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Π½ΡΡ ΠΎΠ±Π»Π°ΡΡΡ Π²ΠΈΠ΄ΠΈΠΌΠΎΡΡΠΈ (scope). ΠΠ±Π»Π°ΡΡΡ Π²ΠΈΠ΄ΠΈΠΌΠΎΡΡΠΈ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΠ΅Ρ ΡΡ ΠΎΠ±Π»Π°ΡΡΡ ΠΊΠΎΠ΄Π°, ΠΊΠΎΡΠΎΡΠ°Ρ «Π·Π½Π°Π΅Ρ» ΠΎ ΡΡΡΠ΅ΡΡΠ²ΠΎΠ²Π°Π½ΠΈΠΈ Π΄Π°Π½Π½ΠΎΠΉ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ.
ΠΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ, ΠΎΠ±ΡΠ΅Π΄ΠΈΠ½Π΅Π½Π½Π°Ρ Π²Π½ΡΡΡΠΈ ΡΡΠ½ΠΊΡΠΈΠΈ, Π½Π΅ ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½Π° ΠΈΠ»ΠΈ ΠΎΠ±Π½Π°ΡΡΠΆΠ΅Π½Π° Π²Π½Π΅ Π΄Π°Π½Π½ΠΎΠΉ ΡΡΠ½ΠΊΡΠΈΠΈ. ΠΡΠΎ ΠΎΠ·Π½Π°ΡΠ°Π΅Ρ, ΡΡΠΎ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ ΠΌΠΎΠΆΠ΅Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΡΠΎ ΠΆΠ΅ ΡΠ°ΠΌΠΎΠ΅ ΠΈΠΌΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ Π² Π΄ΡΡΠ³ΠΎΠΉ ΡΡΠ½ΠΊΡΠΈΠΈ, ΠΈ VBA Π½Π΅ ΠΏΠ΅ΡΠ΅ΠΏΡΡΠ°Π΅Ρ ΠΈΡ .
Π’Π°ΠΊΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ, Π΄Π»Ρ ΠΊΠ°ΠΆΠ΄ΠΎΠΉ ΠΈΠ· ΡΠ°ΡΡΠΌΠΎΡΡΠ΅Π½Π½ΡΡ Π²ΡΡΠ΅ ΡΡΠ½ΠΊΡΠΈΠΉ Π½Π΅Ρ Π½ΡΠΆΠ΄Ρ ΡΠΎΠ·Π΄Π°Π²Π°ΡΡ ΡΠ²ΠΎΠΉ ΡΡΠ°Π½Π΄Π°ΡΡΠ½ΡΠΉ ΠΌΠΎΠ΄ΡΠ»Ρ.
ΠΡ Π²ΡΠ΅ ΠΌΠΎΠΆΠ½ΠΎ ΡΠ°ΡΠΏΠΎΠ»ΠΎΠΆΠΈΡΡ Π² ΠΎΠ΄Π½ΠΎΠΌ ΠΌΠΎΠ΄ΡΠ»Π΅, ΠΈ VBA Π½Π΅ Π·Π°ΠΏΡΡΠ°Π΅ΡΡΡ.
ΠΠΎΠ΄ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΈΡ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»ΡΡΠΊΠΈΡ ΡΡΠ½ΠΊΡΠΈΠΉ Π² ΠΌΠΎΠ΄ΡΠ»Π΅ ΠΡΠΈΠΌΠ΅ΡΠ°Π½ΠΈΠ΅. Π Π΅Π΄Π°ΠΊΡΠΎΡ Visual Basic Π΄Π»Ρ ΠΎΠ±Π»Π΅Π³ΡΠ΅Π½ΠΈΡ Π²ΠΈΠ·ΡΠ°Π»ΡΠ½ΠΎΠ³ΠΎ ΡΠ°Π·Π²ΠΈΡΠΈΡ ΠΌΠ΅ΡΡΠΎΠΏΠΎΠ»ΠΎΠΆΠ΅Π½ΠΈΡ ΡΡΠ½ΠΊΡΠΈΠΉ Π² ΠΌΠΎΠ΄ΡΠ»Π΅ ΡΠΎΠ·Π΄Π°Π΅Ρ ΠΌΠ΅ΠΆΠ΄Ρ Π½ΠΈΠΌΠΈ ΡΠ°Π·Π΄Π΅Π»ΠΈΡΠ΅Π»ΡΠ½ΡΠ΅ Π»ΠΈΠ½ΠΈΠΈ. ΠΠ»Ρ ΡΠΎΠ³ΠΎ ΡΡΠΎΠ±Ρ ΡΡΠΈ ΡΠ°Π·Π΄Π΅Π»ΠΈΡΠ΅Π»ΡΠ½ΡΠ΅ Π»ΠΈΠ½ΠΈΠΈ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°Π»ΠΈΡΡ Π½Π° ΡΠΊΡΠ°Π½Π΅, Π²ΡΠ±Π΅ΡΠΈΡΠ΅ ΠΊΠΎΠΌΠ°Π½Π΄Ρ Tools Options. ΠΠ° ΡΠΊΡΠ°Π½Π΅ ΠΎΡΠΎΠ±ΡΠ°Π·ΠΈΡΡΡ Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠ΅ ΠΎΠΊΠ½ΠΎ Options. ΠΠ° Π²ΠΊΠ»Π°Π΄ΠΊΠ΅ Editor Π² Π³ΡΡΠΏΠΏΠ΅ Window Settings ΡΡΡΠ°Π½ΠΎΠ²ΠΈΡΠ΅ ΡΠ»Π°ΠΆΠΎΠΊ Procedure Separator.
Π Π°ΡΡΠ΅Ρ ΠΊΠΎΠΌΠΈΡΡΠΈΠΎΠ½Π½ΡΡ .
Π Π°ΡΡΠΌΠΎΡΡΠΈΠΌ Π·Π°Π΄Π°ΡΡ: ΠΌΠ΅Π½Π΅Π΄ΠΆΠ΅ΡΡ ΠΏΠΎ ΠΏΡΠΎΠ΄Π°ΠΆΠ°ΠΌ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠ°ΡΡ ΡΡΠ½ΠΊΡΠΈΡ, ΠΏΠΎΠ·Π²ΠΎΠ»ΡΡΡΡΡ ΡΠ°ΡΡΡΠΈΡΡΠ²Π°ΡΡ ΠΊΠΎΠΌΠΈΡΡΠΈΠΎΠ½Π½ΡΠ΅. ΠΡΠΎΡΠ΅Π½Ρ ΠΊΠΎΠΌΠΈΡΡΠΈΠΎΠ½Π½ΡΡ Π·Π°Π²ΠΈΡΠΈΡ ΠΎΡ ΠΎΠ±ΡΠ΅ΠΌΠ° ΠΏΡΠΎΠ΄Π°Π½Π½ΠΎΠ³ΠΎ ΡΠΎΠ²Π°ΡΠ° ΠΈ Π½Π°ΡΠΈΡΠ»ΡΠ΅ΡΡΡ ΠΏΠΎ ΡΠ»Π΅Π΄ΡΡΡΠ΅ΠΌΡ ΠΏΡΠ°Π²ΠΈΠ»Ρ, ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»Π΅Π½Π½ΠΎΠΌΡ Π² ΡΠ°Π±Π»ΠΈΡΠ΅.
ΠΠ±ΡΠ΅ΠΌ ΠΏΡΠΎΠ΄Π°ΠΆ Π·Π° Π½Π΅Π΄Π΅Π»Ρ, ΡΡΠ±. | ΠΠΎΠΌΠΈΡΡΠΈΠΎΠ½Π½ΡΠ΅, %. | |
ΠΎΡ 0 Π΄ΠΎ 9999. | ||
ΠΎΡ 10 000 Π΄ΠΎ 19 999. | ||
ΠΎΡ 20 000 Π΄ΠΎ 39 999. | ||
ΠΠΎΠ»Π΅Π΅ 40 000. | ||
ΠΠΎΡΡΡΠΎΠΈΠΌ Π΄Π»Ρ ΡΠ°ΡΡΠ΅ΡΠ° ΠΊΠΎΠΌΠΈΡΡΠΈΠΎΠ½Π½ΡΡ Π² ΡΡΠ°Π½Π΄Π°ΡΡΠ½ΠΎΠΌ ΠΌΠΎΠ΄ΡΠ»Π΅ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»ΡΡΠΊΡΡ ΡΡΠ½ΠΊΡΠΈΡ (Π»ΠΈΡΡΠΈΠ½Π³ 7).
ΠΠΈΡΡΠΈΠ½Π³ 7. Π Π°ΡΡΠ΅Ρ ΠΊΠΎΠΌΠΈΡΡΠΈΠΎΠ½Π½ΡΡ .
Function ΠΠΎΠΌΠΈΡΡΠΈΠΎΠ½Π½ΡΠ΅1(ΠΡΠΎΠ΄Π°ΠΆΠΈ).
If ΠΡΠΎΠ΄Π°ΠΆΠΈ <= 9999 Then.
ΠΠΎΠΌΠΈΡΡΠΈΠΎΠ½Π½ΡΠ΅1 = ΠΡΠΎΠ΄Π°ΠΆΠΈ * 0.08.
ElseIf ΠΡΠΎΠ΄Π°ΠΆΠΈ <= 19 999 Then.
ΠΠΎΠΌΠΈΡΡΠΈΠΎΠ½Π½ΡΠ΅1 = ΠΡΠΎΠ΄Π°ΠΆΠΈ * 0.1.
ElseIf ΠΡΠΎΠ΄Π°ΠΆΠΈ <= 39 999 Then.
ΠΠΎΠΌΠΈΡΡΠΈΠΎΠ½Π½ΡΠ΅1 = ΠΡΠΎΠ΄Π°ΠΆΠΈ * 0.12.
Else.
ΠΠΎΠΌΠΈΡΡΠΈΠΎΠ½Π½ΡΠ΅1 = ΠΡΠΎΠ΄Π°ΠΆΠΈ * 0.14.
End If.
End Function.
Π£ΡΠ»ΠΎΠΆΠ½ΠΈΠΌ Π·Π°Π΄Π°ΡΡ. ΠΡΠ΄Π΅ΠΌ ΡΡΠΈΡΠ°ΡΡ, ΡΡΠΎ ΠΊΠΎΠΌΠΈΡΡΠΈΠΎΠ½Π½ΡΠ΅ Π·Π°Π²ΠΈΡΡΡ ΠΎΡ ΡΡΠ°Π²ΠΊΠΈ, Π·Π°Π½ΠΈΠΌΠ°Π΅ΠΌΠΎΠΉ ΠΌΠ΅Π½Π΅Π΄ΠΆΠ΅ΡΠΎΠΌ. ΠΡΠ»ΠΈ ΠΎΠ½ ΠΏΡΠΈΠ½ΡΡ Π² ΠΏΠΎΡΡΠΎΡΠ½Π½ΡΠΉ ΡΡΠ°Ρ ΡΠΈΡΠΌΡ, ΡΠΎ ΠΊΠΎΠΌΠΈΡΡΠΈΠΎΠ½Π½ΡΠ΅ Π½Π°ΡΠΈΡΠ»ΡΡΡΡΡ ΠΏΠΎ ΠΎΠΏΠΈΡΠ°Π½Π½ΠΎΠΌΡ Π²ΡΡΠ΅ Π·Π°ΠΊΠΎΠ½Ρ. ΠΡΠ»ΠΈ ΠΆΠ΅ ΠΎΠ½ Π½Π°Ρ ΠΎΠ΄ΠΈΡΡΡ Π½Π° ΠΈΡΠΏΡΡΠ°ΡΠ΅Π»ΡΠ½ΠΎΠΌ ΡΡΠΎΠΊΠ΅, ΡΠΎ Π΅Π³ΠΎ ΠΊΠΎΠΌΠΈΡΡΠΈΠΎΠ½Π½ΡΠ΅ ΡΠΎΡΡΠ°Π²Π»ΡΡΡ 75% ΠΎΡ Π½ΠΎΠΌΠΈΠ½Π°Π»Π°.
ΠΠ»Ρ ΡΠ΅ΡΠ΅Π½ΠΈΡ ΡΡΠΎΠΉ Π·Π°Π΄Π°ΡΠΈ ΠΊ ΡΡΠ½ΠΊΡΠΈΠΈ ΠΠΎΠΌΠΈΡΡΠΈΠΎΠ½Π½ΡΠ΅1 Π½Π°Π΄ΠΎ Π΄ΠΎΠ±Π°Π²ΠΈΡΡ Π΅ΡΠ΅ ΠΎΠ΄ΠΈΠ½ Π°ΡΠ³ΡΠΌΠ΅Π½Ρ — Π‘ΡΠ°Π²ΠΊΠ°, ΠΊΠΎΡΠΎΡΡΠΉ ΠΈ ΠΈΠ΄Π΅Π½ΡΠΈΡΠΈΡΠΈΡΡΠ΅Ρ ΡΡΠ°Π²ΠΊΡ ΠΌΠ΅Π½Π΅Π΄ΠΆΠ΅ΡΠ°. ΠΡΠ»ΠΈ ΠΌΠ΅Π½Π΅Π΄ΠΆΠ΅Ρ Π½Π°Ρ ΠΎΠ΄ΠΈΡΡΡ Π½Π° ΠΈΡΠΏΡΡΠ°ΡΠ΅Π»ΡΠ½ΠΎΠΌ ΡΡΠΎΠΊΠ΅, ΡΠΎ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ Π°ΡΠ³ΡΠΌΠ΅Π½ΡΠ° Π‘ΡΠ°Π²ΠΊΠ° ΠΏΠΎΠ»Π°Π³Π°Π΅ΡΡΡ ΡΠ°Π²Π½ΡΠΌ 0, Π° Π΅ΡΠ»ΠΈ ΠΎΠ½ Π·Π°ΡΠΈΡΠ»Π΅Π½ Π² ΠΏΠΎΡΡΠΎΡΠ½Π½ΡΠΉ ΡΡΠ°Ρ, ΡΠΎ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ Π°ΡΠ³ΡΠΌΠ΅Π½ΡΠ° Π‘ΡΠ°Π²ΠΊΠ° ΠΏΠΎΠ»Π°Π³Π°Π΅ΡΡΡ ΡΠ°Π²Π½ΡΠΌ 1. Π’ΠΎΠ³Π΄Π°, ΡΡΠ½ΠΊΡΠΈΡ ΠΠΎΠΌΠΈΡΡΠΈΠΎΠ½Π½ΡΠ΅2 ΠΏΡΠΈΠΌΠ΅Ρ Π²ΠΈΠ΄, ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»Π΅Π½Π½ΡΠΉ Π² Π»ΠΈΡΡΠΈΠ½Π³Π΅ 8.
ΠΠΈΡΡΠΈΠ½Π³ 8. Π Π°ΡΡΠ΅Ρ ΠΊΠΎΠΌΠΈΡΡΠΈΠΎΠ½Π½ΡΡ Ρ ΡΡΠ΅ΡΠΎΠΌ ΡΡΠ°Π²ΠΊΠΈ ΠΌΠ΅Π½Π΅Π΄ΠΆΠ΅ΡΠ°.
Function ΠΠΎΠΌΠΈΡΡΠΈΠΎΠ½Π½ΡΠ΅2(ΠΡΠΎΠ΄Π°ΠΆΠΈ, Π‘ΡΠ°Π²ΠΊΠ°).
Select Case ΠΡΠΎΠ΄Π°ΠΆΠΈ.
Case Is <= 9999.
ΠΠΏΠ»Π°ΡΠ° = ΠΡΠΎΠ΄Π°ΠΆΠΈ * 0.08.
Case Is <= 19 999.
ΠΠΏΠ»Π°ΡΠ° = ΠΡΠΎΠ΄Π°ΠΆΠΈ * 0.1.
Case Is <= 39 999.
ΠΠΏΠ»Π°ΡΠ° = ΠΡΠΎΠ΄Π°ΠΆΠΈ * 0.12.
Case Else.
ΠΠΏΠ»Π°ΡΠ° = ΠΡΠΎΠ΄Π°ΠΆΠΈ * 0.14.
End Select.
If Π‘ΡΠ°Π²ΠΊΠ° = 0 Then.
ΠΠΎΠΌΠΈΡΡΠΈΠΎΠ½Π½ΡΠ΅2 = 0.75 * ΠΠΏΠ»Π°ΡΠ°.
Else.
ΠΠΎΠΌΠΈΡΡΠΈΠΎΠ½Π½ΡΠ΅2 = ΠΠΏΠ»Π°ΡΠ°.
End If.
End Function.