ΠΠΎΠΌΠΏΡΡΡΠ΅ΡΠ½Π°Ρ ΠΏΠΎΠ΄Π³ΠΎΡΠΎΠ²ΠΊΠ°
Π Π½Π°ΡΡΠΎΡΡΠ΅ΠΉ ΡΠ°Π±ΠΎΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡΡΡΡ Π½Π°ΠΈΠ±ΠΎΠ»Π΅Π΅ ΡΠ°ΡΡΠΎ ΡΠΏΠΎΡΡΠ΅Π±Π»ΡΠ΅ΠΌΡΠ΅ ΡΠ»Π΅ΠΌΠ΅Π½ΡΡ ΠΏΡΠΎΠ΅ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠΉ Π΄Π»Ρ MS Excel. Π ΡΠΎΠΌ ΡΠΈΡΠ»Π΅: ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ (ΠΏΠΎΠ΄ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΈ ΡΡΠ½ΠΊΡΠΈΠΈ), ΠΌΠΎΠ΄ΡΠ»ΠΈ ΠΈ ΡΠΎΡΠΌΡ. Π ΠΊΠΎΠ΄Π΅ VBA ΠΏΡΠΈΠΌΠ΅Π½ΡΠ»ΠΈΡΡ ΡΠ°Π·Π»ΠΈΡΠ½ΡΠ΅ ΡΠΈΠΏΡ Π΄Π°Π½Π½ΡΡ (Π²ΠΊΠ»ΡΡΠ°Ρ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Π½ΡΠ΅ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»ΡΠΌ ΠΎΠΏΠΈΡΠ°Π½ΠΈΡ ΡΠΈΠΏΠΎΠ²), ΠΌΠ½ΠΎΠ³ΠΎΡΡΠΎΠ²Π½Π΅Π²ΡΠ΅ ΡΡΠ»ΠΎΠ²Π½ΡΠ΅ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΡ ΠΈ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΡ ΡΠΈΠΊΠ»ΠΎΠ². ΠΠ»Ρ ΡΠ΅Π°Π»ΠΈΠ·Π°ΡΠΈΠΈ Ρ ΡΠ°Π½Π΅Π½ΠΈΡ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ Π²ΠΎ Π²Π½Π΅ΡΠ½Π΅ΠΌ ΡΠ°ΠΉΠ»Π΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½Ρ… Π§ΠΈΡΠ°ΡΡ Π΅ΡΡ >
ΠΠΎΠΌΠΏΡΡΡΠ΅ΡΠ½Π°Ρ ΠΏΠΎΠ΄Π³ΠΎΡΠΎΠ²ΠΊΠ° (ΡΠ΅ΡΠ΅ΡΠ°Ρ, ΠΊΡΡΡΠΎΠ²Π°Ρ, Π΄ΠΈΠΏΠ»ΠΎΠΌ, ΠΊΠΎΠ½ΡΡΠΎΠ»ΡΠ½Π°Ρ)
ΠΠΎΠΌΠΏΡΡΡΠ΅ΡΠ½Π°Ρ ΠΏΠΎΠ΄Π³ΠΎΡΠΎΠ²ΠΊΠ°
ΠΡΡΡΠΎΠ²Π°Ρ ΡΠ°Π±ΠΎΡΠ°.
ΠΡΠΏΠΎΠ»Π½ΠΈΠ» ΡΡΡΠ΄Π΅Π½Ρ Π’ΠΠ¦ΠΠ Π³Ρ.: Π·-472−27Π± ΡΠΏΠ΅ΡΠΈΠ°Π»ΡΠ½ΠΎΡΡΠΈ 61 000 ΠΠ°ΡΠΊΠ΅Π»ΠΎΠ²Π° Π.Π.
Π’ΠΎΠΌΡΠΊΠΈΠΉ Π³ΠΎΡΡΠ΄Π°ΡΡΡΠ²Π΅Π½Π½ΡΠΉ ΡΠ½ΠΈΠ²Π΅ΡΡΠΈΡΠ΅Ρ ΡΠΈΡΡΠ΅ΠΌ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ ΠΈ ΡΠ°Π΄ΠΈΠΎΡΠ»Π΅ΠΊΡΡΠΎΠ½ΠΈΠΊΠΈ (Π’Π£Π‘Π£Π ) ΠΠ°ΡΠ΅Π΄ΡΠ° Π°Π²ΡΠΎΠΌΠ°ΡΠΈΠ·Π°ΡΠΈΠΈ ΠΎΠ±ΡΠ°Π±ΠΎΡΠΊΠΈ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ.
Π³. ΠΠ±Π°ΠΊΠ°Π½.
2005 Π³.
ΠΠ°ΠΏΠΈΡΠ°ΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ, ΠΊΠΎΡΠΎΡΠ°Ρ ΡΠΎΡΠΌΠΈΡΡΠ΅Ρ Π±Π°Π·Ρ «Π’Π΅Π»Π΅ΡΠΎΠ½Π½ΡΠΉ ΡΠΏΡΠ°Π²ΠΎΡΠ½ΠΈΠΊ», ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΡΡ ΡΠ»Π΅Π΄ΡΡΡΠΈΠ΅ ΡΠ²Π΅Π΄Π΅Π½ΠΈΡ: Π€ΠΠ, Π°Π΄ΡΠ΅Ρ, ΡΠ΅Π»Π΅ΡΠΎΠ½. ΠΡΠΎΡΠΌΠΎΡΡ Π±Π°Π·Ρ ΠΈ ΠΎΠ±ΡΠ°Π±ΠΎΡΠΊΠ° Π΄ΠΎΠ»ΠΆΠ½Π° Π²ΡΠΏΠΎΠ»Π½ΡΡΡΡΡ Π² ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅ Excel.
ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° Π΄ΠΎΠ»ΠΆΠ½Π° ΡΠ΄ΠΎΠ²Π»Π΅ΡΠ²ΠΎΡΡΡΡ ΡΠ»Π΅Π΄ΡΡΡΠΈΠΌ ΡΡΠ΅Π±ΠΎΠ²Π°Π½ΠΈΡΠΌ:
ΠΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ Π²ΡΠΏΠΎΠ»Π½ΠΈΡΡ Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ΠΌ ΡΠ·ΡΠΊΠ° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ VBA Π΄Π»Ρ MS Excel.
ΠΡΠΈ ΠΎΡΠΊΡΡΡΠΈΠΈ ΠΊΠ½ΠΈΠ³ΠΈ Excel, ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΠ΅ΠΉ ΠΏΡΠΎΠ΅ΠΊΡ, ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠΈΡΡ ΠΎΠ΄ΠΈΠ½ ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ, Π½Π° ΠΊΠΎΡΠΎΡΠΎΠΌ ΠΎΡΠΎΡΠΌΠΈΡΡ ΡΠ΅ΠΊΠ»Π°ΠΌΠ½ΡΡ Π·Π°ΡΡΠ°Π²ΠΊΡ ΠΏΡΠΎΠ΅ΠΊΡΠ° ΠΈ ΠΏΠΎΠΌΠ΅ΡΡΠΈΡΡ ΡΠ»Π΅ΠΌΠ΅Π½Ρ Π·Π°ΠΏΡΡΠΊΠ° ΠΏΡΠΎΠ΅ΠΊΡΠ° Π½Π° ΠΈΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΠ΅.
ΠΡΠΎΠ΅ΠΊΡ Π΄ΠΎΠ»ΠΆΠ΅Π½ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠΈΠ²Π°ΡΡ ΡΠ»Π΅Π΄ΡΡΡΠΈΠ΅ ΡΠ΅ΠΆΠΈΠΌΡ ΡΠ°Π±ΠΎΡΡ:
Π²Π²ΠΎΠ΄ ΠΈΡΡ ΠΎΠ΄Π½ΡΡ Π΄Π°Π½Π½ΡΡ ΠΈ ΡΠΎΡΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ Π±Π°Π·Ρ;
ΠΊΠΎΡΡΠ΅ΠΊΡΠΈΡΠΎΠ²ΠΊΠ° Π΄Π°Π½Π½ΡΡ (ΠΈΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΠ΅, Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΠ΅, ΡΠ΄Π°Π»Π΅Π½ΠΈΠ΅);
ΡΠ°Π±ΠΎΡΠ° Ρ Π΄Π°Π½Π½ΡΠΌΠΈ (ΠΏΠΎΠΈΡΠΊ, ΡΠΎΡΡΠΈΡΠΎΠ²ΠΊΠ°, ΠΏΡΠΎΡΠΌΠΎΡΡ);
ΡΠΎΡΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ ΡΡΠ°ΡΠΈΡΡΠΈΠΊΠΈ:
ΠΎΠ±ΡΠ΅Π΅ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ Π°Π±ΠΎΠ½Π΅Π½ΡΠΎΠ² ΡΠ΅Π»Π΅ΡΠΎΠ½Π½ΠΎΠΉ ΡΠ΅ΡΠΈ;
ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΡΠ΅Π»Π΅ΡΠΎΠ½ΠΎΠ² Π½Π° ΡΠΊΠ°Π·Π°Π½Π½ΠΎΠΉ ΡΠ»ΠΈΡΠ΅;
ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΡΠ΅Π»Π΅ΡΠΎΠ½ΠΎΠ² Π² ΡΠΊΠ°Π·Π°Π½Π½ΠΎΠΌ Π΄ΠΎΠΌΠ΅.
ΠΠ»Ρ ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ ΡΠ΅ΠΆΠΈΠΌΠ° ΡΠ°Π±ΠΎΡΡ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΠΈΡΡ ΠΊΠ½ΠΎΠΏΠΊΡ Π·Π°ΠΏΡΡΠΊΠ° ΠΈ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»ΡΡΠΊΡΡ ΡΠΎΡΠΌΡ.
ΠΠ° ΡΠΊΡΠ°Π½Π΅ ΡΠ°Π·ΠΌΠ΅ΡΡΠΈΡΡ ΠΎΠ΄Π½Ρ ΠΏΠ°Π½Π΅Π»Ρ ΠΈΠ½ΡΡΡΡΠΌΠ΅Π½ΡΠΎΠ², ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠΈΠ²Π°ΡΡΡΡ ΡΠ°Π±ΠΎΡΡ ΠΏΡΠΎΠ΅ΠΊΡΠ°. ΠΡΡΠ°Π»ΡΠ½ΡΠ΅ ΠΏΠ°Π½Π΅Π»ΠΈ ΡΠΊΡΡΡΡ.
ΠΠ°Π½Π½ΡΠ΅ ΠΏΡΠΎΠ΅ΠΊΡΠ° ΡΠΎΡ ΡΠ°Π½ΡΡΡ Π² ΡΠ°ΠΉΠ»Π΅.
ΠΡΠΈ Π²Π²ΠΎΠ΄Π΅ ΡΠΈΡΠ»ΠΎΠ²ΡΡ Π΄Π°Π½Π½ΡΡ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠΈΡΡ ΠΎΠ±ΡΠ°Π±ΠΎΡΠΊΡ ΠΎΡΠΈΠ±ΠΎΠΊ Π½Π΅ΠΊΠΎΡΡΠ΅ΠΊΡΠ½ΠΎΠ³ΠΎ Π²Π²ΠΎΠ΄Π°.
Π¦Π΅Π»Ρ ΡΠ°Π±ΠΎΡΡ: Π·Π°ΠΊΡΠ΅ΠΏΠ»Π΅Π½ΠΈΠ΅ Π·Π½Π°Π½ΠΈΠΉ, ΠΏΠΎΠ»ΡΡΠ΅Π½Π½ΡΡ ΠΏΡΠΈ ΠΈΠ·ΡΡΠ΅Π½ΠΈΠΈ ΠΊΡΡΡΠ° «ΠΠΎΠΌΠΏΡΡΡΠ΅ΡΠ½Π°Ρ ΠΏΠΎΠ΄Π³ΠΎΡΠΎΠ²ΠΊΠ°», Π° ΡΠ°ΠΊΠΆΠ΅ ΠΏΡΠΈΠΎΠ±ΡΠ΅ΡΠ΅Π½ΠΈΠ΅ Π½ΠΎΠ²ΡΡ Π½Π°Π²ΡΠΊΠΎΠ² ΡΠΎΠ·Π΄Π°Π½ΠΈΡ Π·Π°Π²Π΅ΡΡΠ΅Π½Π½ΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΡΡ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠΉ Π΄Π»Ρ MS Excel.
Π Π΄ΠΎΠΏΠΎΠ»Π½Π΅Π½ΠΈΠ΅ ΠΊ ΠΎΠ³ΡΠΎΠΌΠ½ΡΠΌ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΡΠΌ MS Excel, Π²Ρ ΠΎΠ΄ΡΡΠ΅Π³ΠΎ Π² ΡΠΎΡΡΠ°Π² Microsoft Office ΠΊΠ²Π°Π»ΠΈΡΠΈΡΠΈΡΠΎΠ²Π°Π½Π½ΠΎΠΌΡ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ Π΄ΠΎΡΡΡΠΏΠ΅Π½ ΠΏΠΎΠ»Π½ΠΎΡΠ΅Π½Π½ΡΠΉ ΡΠ·ΡΠΊ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ Visual Basic for Applications (VBA), ΠΏΠΎΠ·Π²ΠΎΠ»ΡΡΡΠΈΠΉ ΠΎΠΆΠΈΠ²ΠΈΡΡ ΡΡΡΠ°Π½ΠΈΡΡ ΡΠ»Π΅ΠΊΡΡΠΎΠ½Π½ΡΡ ΡΠ°Π±Π»ΠΈΡ, ΠΏΡΠ΅Π²ΡΠ°ΡΠΈΠ² ΠΈΡ Π² ΡΠ»ΠΎΠΆΠ½ΠΎΠ΅ Windows — ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅, ΠΎΡΡΡΠ΅ΡΡΠ²Π»ΡΡΡΠ΅Π΅ ΠΌΠ½ΠΎΠ³ΠΎΠ³ΡΠ°Π½Π½ΡΡ ΠΎΠ±ΡΠ°Π±ΠΎΡΠΊΡ Π΄Π°Π½Π½ΡΡ ΠΏΠΎΠ΄ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΠ΅ΠΌ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΠ°. ΠΡΠΈ ΡΡΠΎΠΌ, Π±ΠΎΠ»ΡΡΠΈΠ½ΡΡΠ²ΠΎ ΡΠ°ΡΡΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΠΌΡΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΡΠ΅ΡΡΡ Π·Π°ΡΠ°Π½Π΅Π΅, ΡΡΠΎ ΡΠΏΡΠΎΡΠ°Π΅Ρ ΡΠ°Π±ΠΎΡΡ ΠΊΠΎΠ½Π΅ΡΠ½ΠΎΠ³ΠΎ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ ΠΈ Π·Π½Π°ΡΠΈΡΠ΅Π»ΡΠ½ΠΎ ΡΠ½ΠΈΠΆΠ°Π΅Ρ Π²Π΅ΡΠΎΡΡΠ½ΠΎΡΡΡ Π²ΠΎΠ·Π½ΠΈΠΊΠ½ΠΎΠ²Π΅Π½ΠΈΡ ΠΎΡΠΈΠ±ΠΊΠΈ ΠΊΠ°ΠΊ Π½Π° ΡΡΠ°ΠΏΠ΅ Π²Π²ΠΎΠ΄Π° ΠΈΡΡ ΠΎΠ΄Π½ΡΡ Π΄Π°Π½Π½ΡΡ , ΡΠ°ΠΊ ΠΈ ΠΏΡΠΈ ΠΈΡ ΠΏΠΎΡΠ»Π΅Π΄ΡΡΡΠ΅ΠΉ ΠΎΠ±ΡΠ°Π±ΠΎΡΠΊΠ΅.
Π Π½Π°ΡΡΠΎΡΡΠ΅ΠΉ ΡΠ°Π±ΠΎΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡΡΡΡ Π½Π°ΠΈΠ±ΠΎΠ»Π΅Π΅ ΡΠ°ΡΡΠΎ ΡΠΏΠΎΡΡΠ΅Π±Π»ΡΠ΅ΠΌΡΠ΅ ΡΠ»Π΅ΠΌΠ΅Π½ΡΡ ΠΏΡΠΎΠ΅ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠΉ Π΄Π»Ρ MS Excel. Π ΡΠΎΠΌ ΡΠΈΡΠ»Π΅: ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ (ΠΏΠΎΠ΄ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΈ ΡΡΠ½ΠΊΡΠΈΠΈ), ΠΌΠΎΠ΄ΡΠ»ΠΈ ΠΈ ΡΠΎΡΠΌΡ. Π ΠΊΠΎΠ΄Π΅ VBA ΠΏΡΠΈΠΌΠ΅Π½ΡΠ»ΠΈΡΡ ΡΠ°Π·Π»ΠΈΡΠ½ΡΠ΅ ΡΠΈΠΏΡ Π΄Π°Π½Π½ΡΡ (Π²ΠΊΠ»ΡΡΠ°Ρ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Π½ΡΠ΅ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»ΡΠΌ ΠΎΠΏΠΈΡΠ°Π½ΠΈΡ ΡΠΈΠΏΠΎΠ²), ΠΌΠ½ΠΎΠ³ΠΎΡΡΠΎΠ²Π½Π΅Π²ΡΠ΅ ΡΡΠ»ΠΎΠ²Π½ΡΠ΅ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΡ ΠΈ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΡ ΡΠΈΠΊΠ»ΠΎΠ². ΠΠ»Ρ ΡΠ΅Π°Π»ΠΈΠ·Π°ΡΠΈΠΈ Ρ ΡΠ°Π½Π΅Π½ΠΈΡ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ Π²ΠΎ Π²Π½Π΅ΡΠ½Π΅ΠΌ ΡΠ°ΠΉΠ»Π΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½Ρ Π²ΡΡΡΠΎΠ΅Π½Π½ΡΠ΅ ΡΡΠ½ΠΊΡΠΈΠΈ ΡΠ°Π±ΠΎΡΡ Ρ ΡΠ°ΠΉΠ»Π°ΠΌΠΈ (ΠΏΠΎΡΠ»Π΅Π΄ΠΎΠ²Π°ΡΠ΅Π»ΡΠ½ΡΠΉ Π΄ΠΎΡΡΡΠΏ).
ΠΠΈΠ°Π»ΠΎΠ³ Ρ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Π΅ΠΌ ΡΠ΅Π°Π»ΠΈΠ·ΠΎΠ²Π°Π½ ΠΏΡΠΈ ΠΏΠΎΠΌΠΎΡΠΈ ΡΡΠ½ΠΊΡΠΈΠΉ Π²Π²ΠΎΠ΄Π°/Π²ΡΠ²ΠΎΠ΄Π° ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ InputBox ΠΈ MsgBox, Π° ΡΠ°ΠΊΠΆΠ΅ ΡΡΠ΄Π° ΡΠΏΠ΅ΡΠΈΠ°Π»ΡΠ½ΠΎ ΡΠΎΠ·Π΄Π°Π½Π½ΡΡ ΡΠΎΡΠΌ. Π ΡΠΊΠ°Π·Π°Π½Π½ΡΡ ΡΠΎΡΠΌΠ°Ρ ΠΏΡΠΈΠΌΠ΅Π½Π΅Π½Ρ ΡΠ»Π΅ΠΌΠ΅Π½ΡΡ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ ΡΠΈΠΏΠ°: Π½Π°Π΄ΠΏΠΈΡΡ, ΠΏΠΎΠ»Π΅, ΡΠ°ΠΌΠΊΠ°, ΠΏΠ΅ΡΠ΅ΠΊΠ»ΡΡΠ°ΡΠ΅Π»Ρ, ΠΊΠ½ΠΎΠΏΠΊΠ°.
ΠΠΎΡΠΊΠΎΠ»ΡΠΊΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ Π½Π° VBA ΠΏΠΎΡΡΡΠΎΠ΅Π½ΠΎ Π½Π° ΠΎΡΠ½ΠΎΠ²Π΅ ΡΠΎΠ±ΡΡΠΈΠΉΠ½ΠΎΠΉ ΠΌΠΎΠ΄Π΅Π»ΠΈ, ΡΠΎ ΠΈ Π² Π΄Π°Π½Π½ΠΎΠΉ ΡΠ°Π±ΠΎΡΠ΅ ΠΎΠ±ΡΠ°Π±ΠΎΡΠΊΠ° ΡΠΎΠ±ΡΡΠΈΠΉ ΡΠ²Π»ΡΠ΅ΡΡΡ ΠΎΡΠ½ΠΎΠ²ΠΎΠΉ Π΄Π»Ρ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ ΡΠ΅Ρ ΠΈΠ»ΠΈ ΠΈΠ½ΡΡ Π΄Π΅ΠΉΡΡΠ²ΠΈΠΉ, Π½Π°ΠΏΡΠ°Π²Π»Π΅Π½Π½ΡΡ Π½Π° ΡΠ΅ΡΠ΅Π½ΠΈΠ΅ ΠΊΠΎΠ½ΠΊΡΠ΅ΡΠ½ΡΡ Π·Π°Π΄Π°Ρ.
MS Excel ΠΈΠΌΠ΅Π΅Ρ Π±ΠΎΠ³Π°ΡΡΡ ΠΎΠ±ΡΠ΅ΠΊΡΠ½ΡΡ ΠΌΠΎΠ΄Π΅Π»Ρ. ΠΡΠΈ ΡΠ΅ΡΠ΅Π½ΠΈΠΈ ΠΏΠΎΡΡΠ°Π²Π»Π΅Π½Π½ΠΎΠΉ Π·Π°Π΄Π°ΡΠΈ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π»ΠΈΡΡ ΠΎΠ±ΡΠ΅ΠΊΡΡ ΡΠ»Π΅Π΄ΡΡΡΠΈΡ ΡΠΈΠΏΠΎΠ²: Application, Workbook, Worksheet, Range, CommandBar, Π° ΡΠ°ΠΊΠΆΠ΅ ΠΊΠΎΠ»Π»Π΅ΠΊΡΠΈΠΈ Workbooks ΠΈ Worksheets.
Π Π°Π±ΠΎΡΠ° Π²ΡΠΏΠΎΠ»Π½Π΅Π½Π° Π² ΡΡΠ΅Π΄Π΅ Microsoft Excel 2002.
Π‘ΡΡΡΠΊΡΡΡΠ° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΠΎΠ³ΠΎ ΠΊΠΎΠΌΠΏΠ»Π΅ΠΊΡΠ°.
Π‘ΠΎΡΡΠ°Π² ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΠΎΠ³ΠΎ ΠΊΠΎΠΌΠΏΠ»Π΅ΠΊΡΠ°.
ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΡΠΉ ΠΊΠΎΠΌΠΏΠ»Π΅ΠΊΡ «Π’Π΅Π»Π΅ΡΠΎΠ½Π½ΡΠΉ ΡΠΏΡΠ°Π²ΠΎΡΠ½ΠΈΠΊ» ΡΠΎΡΡΠΎΠΈΡ ΠΈΠ· Π΄Π²ΡΡ ΡΠ°ΠΉΠ»ΠΎΠ², ΡΠ°ΡΠΏΠΎΠ»Π°Π³Π°Π΅ΠΌΡΡ Π² ΠΊΠ°ΡΠ°Π»ΠΎΠ³Π΅ «c:tmp»:
" Π’Π΅Π»Π΅ΡΠΎΠ½Π½ΡΠΉ ΡΠΏΡΠ°Π²ΠΎΡΠ½ΠΈΠΊ. xls «- ΠΎΡΠ½ΠΎΠ²Π½ΠΎΠΉ ΡΠ°ΠΉΠ», ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΠΈΠΉ ΡΠ°Π±Π»ΠΈΡΡ ΠΏΡΠΎΡΠΌΠΎΡΡΠ° Π±Π°Π·Ρ Π΄Π°Π½Π½ΡΡ ΠΈ ΠΈΠ½ΡΡΡΡΠΌΠ΅Π½ΡΡ, Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΡΠ΅ Π΄Π»Ρ ΡΠ°Π±ΠΎΡΡ Ρ Π½Π΅ΠΉ.
" phones. db «- Π²ΡΠΏΠΎΠΌΠΎΠ³Π°ΡΠ΅Π»ΡΠ½ΡΠΉ ΡΠ΅ΠΊΡΡΠΎΠ²ΡΠΉ ΡΠ°ΠΉΠ», ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΠΌΡΠΉ Π΄Π»Ρ Ρ ΡΠ°Π½Π΅Π½ΠΈΡ Π±Π°Π·Ρ Π΄Π°Π½Π½ΡΡ .
Π Π°Π±ΠΎΡΠ° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΎΡΡΡΠ΅ΡΡΠ²Π»ΡΠ΅ΡΡΡ ΠΏΠΎΠ΄ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΠ΅ΠΌ Microsoft Excel, Π²Ρ ΠΎΠ΄ΡΡΠ΅Π³ΠΎ Π² ΡΠΎΡΡΠ°Π² ΠΏΠ°ΠΊΠ΅ΡΠ° Microsoft Office, ΠΏΠΎΡΡΠΎΠΌΡ Π΄Π»Ρ Π΅Π΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΡ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ Π½Π°Π»ΠΈΡΠΈΠ΅ ΡΠΊΠ°Π·Π°Π½Π½ΠΎΠ³ΠΎ ΠΏΠ°ΠΊΠ΅ΡΠ° Π½Π° ΠΊΠ»ΠΈΠ΅Π½ΡΡΠΊΠΎΠΌ ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠ΅.
ΠΠ΅ΡΠ°ΡΡ ΠΈΡ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ².
ΠΠΏΠΈΡΡΠ²Π°Π΅ΠΌΠΎΠ΅ Excel-ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ Π² ΡΠ²ΠΎΠ΅ΠΌ ΡΠΎΡΡΠ°Π²Π΅ ΡΠΎΠ΄Π΅ΡΠΆΠΈΡ:
Π Π°Π±ΠΎΡΡΡ ΠΊΠ½ΠΈΠ³Ρ Workbook «Π’Π΅Π»Π΅ΡΠΎΠ½Π½ΡΠΉ ΡΠΏΡΠ°Π²ΠΎΡΠ½ΠΈΠΊ» + ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΡΠΉ ΠΊΠΎΠ΄ VBA, ΡΠΎΡΡΠΎΡΡΡΡ ΠΈΠ· Π΄Π²ΡΡ Π»ΠΈΡΡΠΎΠ²:
Worksheet ΠΠΈΡΡ1 (Π‘ΡΠ°ΡΡ) + ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΡΠΉ ΠΊΠΎΠ΄ VBA.
Worksheet ΠΠΈΡΡ2 (ΠΠ°Π·Π° Π΄Π°Π½Π½ΡΡ ) + ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΡΠΉ ΠΊΠΎΠ΄ VBA.
ΠΡΡΡ ΡΠΎΡΠΌ + ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΡΠΉ ΠΊΠΎΠ΄ VBA:
addRowForm — Π΄Π»Ρ ΡΠ΅ΠΆΠΈΠΌΠ° Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΡ Π½ΠΎΠ²ΠΎΠΉ Π·Π°ΠΏΠΈΡΠΈ.
delRowForm — Π΄Π»Ρ ΡΠ΅ΠΆΠΈΠΌΠ° ΡΠ΄Π°Π»Π΅Π½ΠΈΡ Π·Π°ΠΏΠΈΡΠΈ.
editRowForm — Π΄Π»Ρ ΡΠ΅ΠΆΠΈΠΌΠ° ΡΠ΅Π΄Π°ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ Π·Π°ΠΏΠΈΡΠΈ.
reportForm — Π΄Π»Ρ ΡΠ΅ΠΆΠΈΠΌΠ° ΡΠΎΡΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΡΡΠ°ΡΠΈΡΡΠΈΠΊΠΈ.
sortForm — Π΄Π»Ρ ΡΠ΅ΠΆΠΈΠΌΠ° ΡΠΎΡΡΠΈΡΠΎΠ²ΠΊΠΈ Π±Π°Π·Ρ Π΄Π°Π½Π½ΡΡ ΠΠΎΠ΄ΡΠ»Ρ Module1, ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΠΈΠΉ ΠΎΠΏΠΈΡΠ°Π½ΠΈΠ΅ ΡΠΈΠΏΠ° Π΄Π°Π½Π½ΡΡ Record Π΄Π»Ρ ΠΎΠ΄Π½ΠΎΠΉ Π·Π°ΠΏΠΈΡΠΈ ΠΎΠ± Π°Π±ΠΎΠ½Π΅Π½ΡΠ΅, Π° ΡΠ°ΠΊΠΆΠ΅ ΡΡΠ½ΠΊΡΠΈΠΈ ΡΠ°Π±ΠΎΡΡ (ΡΡΠ΅Π½ΠΈΡ/Π·Π°ΠΏΠΈΡΠΈ) Ρ ΡΠ°ΠΊΠΈΠΌΠΈ Π΄Π°Π½Π½ΡΠΌΠΈ ΠΈ Π²Π½Π΅ΡΠ½ΠΈΠΌ ΡΠ°ΠΉΠ»ΠΎΠΌ.
ΠΠ°Π½Π΅Π»Ρ ΠΈΠ½ΡΡΡΡΠΌΠ΅Π½ΡΠΎΠ² «Phones», ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠΈΠ²Π°ΡΡΡΡ ΡΠ°Π±ΠΎΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΈ ΡΠΎΡΡΠΎΡΡΡΡ ΠΈΠ· Π΄Π΅Π²ΡΡΠΈ ΠΊΠ½ΠΎΠΏΠΎΠΊ:
ΡΡΠ΅Π½ΠΈΠ΅ Π±Π°Π·Ρ Π΄Π°Π½Π½ΡΡ ;
Π·Π°ΠΏΠΈΡΡ Π±Π°Π·Ρ Π΄Π°Π½Π½ΡΡ ;
Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΠ΅ Π·Π°ΠΏΠΈΡΠΈ;
ΠΊΠΎΡΡΠ΅ΠΊΡΠΈΡΠΎΠ²ΠΊΠ° Π·Π°ΠΏΠΈΡΠΈ;
ΡΠ΄Π°Π»Π΅Π½ΠΈΠ΅ Π·Π°ΠΏΠΈΡΠΈ;
ΠΏΠΎΠΈΡΠΊ;
ΡΠΎΡΡΠΈΡΠΎΠ²ΠΊΠ°;
ΠΎΡΡΠ΅Ρ (ΡΡΠ°ΡΠΈΡΡΠΈΠΊΠ°);
Π²ΡΡ ΠΎΠ΄ ΠΈΠ· ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ.
Π ΡΠΊΠΎΠ²ΠΎΠ΄ΡΡΠ²ΠΎ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ.
ΠΠ°ΠΏΡΡΠΊ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ.
ΠΠ»Ρ Π·Π°ΠΏΡΡΠΊΠ° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ Π² MS Excel ΠΎΡΠΊΡΡΡΡ ΠΊΠ½ΠΈΠ³Ρ:
«Π’Π΅Π»Π΅ΡΠΎΠ½Π½ΡΠΉ ΡΠΏΡΠ°Π²ΠΎΡΠ½ΠΈΠΊ. xls».
ΠΡ ΡΠ²ΠΈΠ΄ΠΈΡΠ΅ ΠΎΠ΄ΠΈΠ½ Π»ΠΈΡΡ Ρ ΡΠ΅ΠΊΠ»Π°ΠΌΠ½ΠΎΠΉ Π½Π°Π΄ΠΏΠΈΡΡΡ ΠΈ Π΄Π²ΡΠΌΡ ΠΊΠ½ΠΎΠΏΠΊΠ°ΠΌΠΈ. ΠΠ»Ρ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΡ Π»ΠΈΡΡΠ° Ρ Π±Π°Π·ΠΎΠΉ Π΄Π°Π½Π½ΡΡ Π½Π°ΠΆΠΌΠΈΡΠ΅ Π½Π° ΠΊΠ½ΠΎΠΏΠΊΡ «ΠΠ°ΡΠ°ΡΡ ΡΠ°Π±ΠΎΡΡ».
.
Π ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ΅, ΡΠ΅ΠΊΠ»Π°ΠΌΠ½Π°Ρ ΡΡΡΠ°Π½ΠΈΡΠ° ΠΈΡΡΠ΅Π·Π½Π΅Ρ, Π° Π²ΠΌΠ΅ΡΡΠΎ Π½Π΅Π΅ ΠΏΠΎΡΠ²ΠΈΡΡΡ ΠΎΡΠ½ΠΎΠ²Π½ΠΎΠΉ Π»ΠΈΡΡ, ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΠΈΠΉ ΡΠ°ΠΏΠΊΡ Π±Π°Π·Ρ Π΄Π°Π½Π½ΡΡ ΠΈ ΠΏΠ°Π½Π΅Π»Ρ ΠΈΠ½ΡΡΡΡΠΌΠ΅Π½ΡΠΎΠ² Π΄Π»Ρ ΡΠ°Π±ΠΎΡΡ.
.
Π§ΡΠ΅Π½ΠΈΠ΅ / Π·Π°ΠΏΠΈΡΡ Π±Π°Π·Ρ Π΄Π°Π½Π½ΡΡ .
ΠΠΎΡΠΊΠΎΠ»ΡΠΊΡ Π²ΡΡ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ Ρ ΡΠ°Π½ΠΈΡΡΡ Π²ΠΎ Π²Π½Π΅ΡΠ½Π΅ΠΌ ΡΠ°ΠΉΠ»Π΅, ΡΠΎ Π΄Π»Ρ Π·Π°Π³ΡΡΠ·ΠΊΠΈ Π±Π°Π·Ρ Π΄Π°Π½Π½ΡΡ Π½Π° Π»ΠΈΡΡ Excel ΡΠ°Π±Π»ΠΈΡΡ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ Π½Π° ΠΏΠ°Π½Π΅Π»ΠΈ ΠΈΠ½ΡΡΡΡΠΌΠ΅Π½ΡΠΎΠ² Π½Π°ΠΆΠ°ΡΡ ΠΊΠ½ΠΎΠΏΠΊΡ «ΠΡΠΊΡΡΡΡ Π±Π°Π·Ρ Π΄Π°Π½Π½ΡΡ ». ΠΡΠΈ ΡΡΠΎΠΌ ΡΡΡΠ΅ΡΡΠ²ΡΡΡΠΈΠ΅ Π½Π° Π»ΠΈΡΡΠ΅ Π΄Π°Π½Π½ΡΠ΅ Π±ΡΠ΄ΡΡ Π·Π°ΠΌΠ΅Π½Π΅Π½Ρ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠ΅ΠΉ ΠΈΠ· Π²Π½Π΅ΡΠ½Π΅Π³ΠΎ ΡΠ°ΠΉΠ»Π° «phones.db».
.
ΠΠ»Ρ ΡΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΡ ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠΎΠ² ΡΠ°Π±ΠΎΡΡ Ρ Π±Π°Π·ΠΎΠΉ Π΄Π°Π½Π½ΡΡ Π½Π°ΠΆΠΌΠΈΡΠ΅ ΠΊΠ½ΠΎΠΏΠΊΡ «Π‘ΠΎΡ ΡΠ°Π½ΠΈΡΡ Π±Π°Π·Ρ Π΄Π°Π½Π½ΡΡ » Π½Π° ΠΏΠ°Π½Π΅Π»ΠΈ ΠΈΠ½ΡΡΡΡΠΌΠ΅Π½ΡΠΎΠ². ΠΡΡ ΡΠ΅ΠΊΡΡΠ°Ρ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ, ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°Π΅ΠΌΠ°Ρ Π½Π° Π»ΠΈΡΡΠ΅, Π±ΡΠ΄Π΅Ρ Π·Π°ΠΏΠΈΡΠ°Π½Π° Π²ΠΎ Π²Π½Π΅ΡΠ½ΠΈΠΉ ΡΠ°ΠΉΠ» «phones.db».
Π Π΅ΠΆΠΈΠΌΡ ΠΊΠΎΡΡΠ΅ΠΊΡΠΈΡΠΎΠ²ΠΊΠΈ Π΄Π°Π½Π½ΡΡ .
Π ΡΠ΅Π»ΡΡ Π±Π΅Π·ΠΎΠΏΠ°ΡΠ½ΠΎΡΡΠΈ, Π»ΠΈΡΡΡ ΠΊΠ½ΠΈΠ³ΠΈ Π·Π°ΡΠΈΡΠ΅Π½Ρ ΠΎΡ ΠΊΠΎΡΡΠ΅ΠΊΡΠΈΡΠΎΠ²ΠΊΠΈ ΠΎΠ±ΡΡΠ½ΡΠΌΠΈ ΡΠΏΠΎΡΠΎΠ±Π°ΠΌΠΈ. ΠΠΎΡΡΠΎΠΌΡ Π΄Π»Ρ Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΡ, ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΡ ΠΈ ΡΠ΄Π°Π»Π΅Π½ΠΈΡ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ ΠΏΡΠ΅Π΄ΡΡΠΌΠΎΡΡΠ΅Π½Ρ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠΈΠ΅ ΡΠ΅ΠΆΠΈΠΌΡ ΡΠ°Π±ΠΎΡΡ, ΠΈΠ½ΠΈΡΠΈΠΈΡΡΠ΅ΠΌΡΠ΅ Π²ΡΠΎΡΠΎΠΉ Π³ΡΡΠΏΠΏΠΎΠΉ ΠΊΠ½ΠΎΠΏΠΎΠΊ ΠΏΠ°Π½Π΅Π»ΠΈ ΠΈΠ½ΡΡΡΡΠΌΠ΅Π½ΡΠΎΠ².
ΠΡΠΈ Π½Π°ΠΆΠ°ΡΠΈΠΈ Π½Π° Π»ΡΠ±ΡΡ ΠΈΠ· Π½ΠΈΡ , Π±ΡΠ΄Π΅Ρ ΠΏΡΠ΅Π΄Π»ΠΎΠΆΠ΅Π½ΠΎ Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠ΅ ΠΎΠΊΠ½ΠΎ, Π² ΠΊΠΎΡΠΎΡΠΎΠΌ Π² ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠΈΠ΅ ΠΏΠΎΠ»Ρ Π½ΡΠΆΠ½ΠΎ Π·Π°Π½Π΅ΡΡΠΈ Π½ΠΎΠ²ΡΡ (ΠΎΡΠΊΠΎΡΡΠ΅ΠΊΡΠΈΡΠΎΠ²Π°ΡΡ ΡΡΡΠ΅ΡΡΠ²ΡΡΡΡΡ) ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ ΠΈ Π½Π°ΠΆΠ°ΡΡ ΠΊΠ½ΠΎΠΏΠΊΡ ΠΏΠΎΠ΄ΡΠ²Π΅ΡΠΆΠ΄Π΅Π½ΠΈΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΈ.
.
ΠΡΠ»ΠΈ ΠΏΠ΅ΡΠ΅Π΄ Π²ΡΠ±ΠΎΡΠΎΠΌ ΡΠ΅ΠΆΠΈΠΌΠ° ΡΠ΄Π°Π»Π΅Π½ΠΈΡ Π·Π°ΠΏΠΈΡΠΈ Π±ΡΠ»ΠΈ ΠΎΡΠΌΠ΅ΡΠ΅Π½Ρ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΎ ΡΡΡΠΎΠΊ Π±Π°Π·Ρ Π΄Π°Π½Π½ΡΡ , ΡΠΎ Π²ΠΌΠ΅ΡΡΠΎ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΡ ΡΠΎΡΠΌΡ Ρ ΡΠ΄Π°Π»ΡΠ΅ΠΌΠΎΠΉ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠ΅ΠΉ Π±ΡΠ΄Π΅Ρ ΠΏΡΠΎΡΡΠΎ ΠΏΡΠ΅Π΄Π»ΠΎΠΆΠ΅Π½ΠΎ ΠΏΠΎΠ΄ΡΠ²Π΅ΡΠ΄ΠΈΡΡ ΡΠ΄Π°Π»Π΅Π½ΠΈΠ΅ ΠΎΡΠΌΠ΅ΡΠ΅Π½Π½ΡΡ Π·Π°ΠΏΠΈΡΠ΅ΠΉ.
.
ΠΠ½ΠΈΠΌΠ°Π½ΠΈΠ΅. Π ΡΠ΅ΠΆΠΈΠΌΠ΅ Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΡ/ΠΊΠΎΡΡΠ΅ΠΊΡΠΈΡΠΎΠ²ΠΊΠΈ Π·Π°ΠΏΠΈΡΠΈ ΠΎΠ±ΡΠ·Π°ΡΠ΅Π»ΡΠ½Ρ Π΄Π»Ρ Π·Π°ΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ ΠΏΠΎΠ»Ρ: Π€Π°ΠΌΠΈΠ»ΠΈΡ, ΠΠΌΡ, ΠΡΡΠ΅ΡΡΠ²ΠΎ, Π£Π»ΠΈΡΠ°, ΠΠΎΠΌ, Π’Π΅Π»Π΅ΡΠΎΠ½. ΠΡΠΎΠΌΠ΅ ΡΠΎΠ³ΠΎ, Π² ΠΏΠΎΠ»Π΅ Π’Π΅Π»Π΅ΡΠΎΠ½ Π΄ΠΎΠΏΡΡΠΊΠ°Π΅ΡΡΡ Π²Π²ΠΎΠ΄ ΡΠΎΠ»ΡΠΊΠΎ ΡΠΈΡΠ»ΠΎΠ²ΡΡ Π΄Π°Π½Π½ΡΡ (Π½Π΅ Π±ΠΎΠ»Π΅Π΅ 10 ΡΠΈΡΡ).
ΠΠΎΠΈΡΠΊ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ.
ΠΠ»Ρ ΠΏΠΎΠΈΡΠΊΠ° Π½ΡΠΆΠ½ΠΎΠΉ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ Π½Π°ΠΆΠΌΠΈΡΠ΅ ΠΊΠ½ΠΎΠΏΠΊΡ «ΠΠ°ΠΉΡΠΈ» Π½Π° ΠΏΠ°Π½Π΅Π»ΠΈ ΠΈΠ½ΡΡΡΡΠΌΠ΅Π½ΡΠΎΠ². ΠΡΠ΄Π΅Ρ Π·Π°ΠΏΡΡΠ΅Π½ ΡΡΠ°Π½Π΄Π°ΡΡΠ½ΡΠΉ ΠΌΠ΅Ρ Π°Π½ΠΈΠ·ΠΌ ΠΏΠΎΠΈΡΠΊΠ° ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ ΠΏΠΎ Π»ΠΈΡΡΡ MS Excel.
.
Π Π΅ΠΆΠΈΠΌΡ ΡΠΎΡΡΠΈΡΠΎΠ²ΠΊΠΈ.
Π ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅ ΠΏΡΠ΅Π΄ΡΡΠΌΠΎΡΡΠ΅Π½ΠΎ ΡΡΠΈ ΡΠ΅ΠΆΠΈΠΌΠ° ΡΠΎΡΡΠΈΡΠΎΠ²ΠΊΠΈ Π΄Π°Π½Π½ΡΡ :
ΠΠΎ Π°Π±ΠΎΠ½Π΅Π½ΡΡ (ΡΠ°ΠΌΠΈΠ»ΠΈΡ + ΠΈΠΌΡ + ΠΎΡΡΠ΅ΡΡΠ²ΠΎ);
ΠΠΎ Π°Π΄ΡΠ΅ΡΡ (ΡΠ»ΠΈΡΠ° + Π΄ΠΎΠΌ + ΠΊΠ²Π°ΡΡΠΈΡΠ°);
ΠΠΎ ΡΠ΅Π»Π΅ΡΠΎΠ½Ρ.
ΠΠ»Ρ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ ΡΠΎΡΡΠΈΡΠΎΠ²ΠΊΠΈ Π΄ΠΎΡΡΠ°ΡΠΎΡΠ½ΠΎ Π½Π°ΠΆΠ°ΡΡ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΡΡ ΠΊΠ½ΠΎΠΏΠΊΡ Π½Π° ΠΏΠ°Π½Π΅Π»ΠΈ ΠΈΠ½ΡΡΡΡΠΌΠ΅Π½ΡΠΎΠ² ΠΈ Π²ΡΠ±ΡΠ°ΡΡ ΠΎΠ΄ΠΈΠ½ ΠΈΠ· ΡΡΠ΅Ρ ΠΏΡΠ΅Π΄Π»ΠΎΠΆΠ΅Π½Π½ΡΡ ΡΠ΅ΠΆΠΈΠΌΠΎΠ².
.
Π€ΠΎΡΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ ΡΡΠ°ΡΠΈΡΡΠΈΠΊΠΈ.
Π‘ΠΎΠ³Π»Π°ΡΠ½ΠΎ Π·Π°Π΄Π°Π½ΠΈΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ ΡΠ°ΡΡΡΠΈΡΠ°ΡΡ ΡΠ»Π΅Π΄ΡΡΡΡΡ ΡΡΠ°ΡΠΈΡΡΠΈΠΊΡ:
ΠΠ±ΡΠ΅Π΅ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ Π°Π±ΠΎΠ½Π΅Π½ΡΠΎΠ² ΡΠ΅Π»Π΅ΡΠΎΠ½Π½ΠΎΠΉ ΡΠ΅ΡΠΈ;
ΠΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΡΠ΅Π»Π΅ΡΠΎΠ½ΠΎΠ² Π½Π° ΡΠΊΠ°Π·Π°Π½Π½ΠΎΠΉ ΡΠ»ΠΈΡΠ΅;
ΠΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΡΠ΅Π»Π΅ΡΠΎΠ½ΠΎΠ² Π² ΡΠΊΠ°Π·Π°Π½Π½ΠΎΠΌ Π΄ΠΎΠΌΠ΅.
.
ΠΠΎΠΉΠ΄ΠΈΡΠ΅ Π² ΡΠ΅ΠΆΠΈΠΌ «ΠΡΡΠ΅Ρ», Π²ΡΠ±Π΅ΡΠΈΡΠ΅ ΡΡΠ΅Π±ΡΠ΅ΠΌΡΠΉ ΠΎΡΡΠ΅Ρ ΠΈ, ΠΏΡΠΈ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎΡΡΠΈ, Π·Π°Π΄Π°ΠΉΡΠ΅ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΡ Π΅Π³ΠΎ ΡΠΎΡΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ. ΠΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ Π°Π±ΠΎΠ½Π΅Π½ΡΠΎΠ² ΠΏΠΎ Π·Π°Π΄Π°Π½Π½ΡΠΌ ΡΠ΅ΠΊΠ²ΠΈΠ·ΠΈΡΠ°ΠΌ Π±ΡΠ΄Π΅Ρ ΠΏΠΎΡΡΠΈΡΠ°Π½ΠΎ ΠΈ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΎ Π² Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠΌ ΠΎΠΊΠ½Π΅.
.
.
ΠΠ°Π²Π΅ΡΡΠ΅Π½ΠΈΠ΅ ΡΠ°Π±ΠΎΡΡ Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΎΠΉ.
ΠΠ»Ρ Π·Π°Π²Π΅ΡΡΠ΅Π½ΠΈΡ ΡΠ°Π±ΠΎΡΡ Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΎΠΉ Π½Π°ΠΆΠΌΠΈΡΠ΅ ΠΊΠ½ΠΎΠΏΠΊΡ «ΠΡΡ ΠΎΠ΄» Π½Π° ΠΏΠ°Π½Π΅Π»ΠΈ ΠΈΠ½ΡΡΡΡΠΌΠ΅Π½ΡΠΎΠ². ΠΠΈΡΡ Ρ Π±Π°Π·ΠΎΠΉ Π΄Π°Π½Π½ΠΎΠΉ Π±ΡΠ΄Π΅Ρ ΡΠΊΡΡΡ, Π° ΠΏΠΎΡΠ²ΠΈΡΡΡ Π»ΠΈΡΡ Ρ ΡΠ΅ΠΊΠ»Π°ΠΌΠ½ΠΎΠΉ Π·Π°ΡΡΠ°Π²ΠΊΠΎΠΉ. ΠΠ»Ρ ΠΏΠΎΠ΄ΡΠ²Π΅ΡΠΆΠ΄Π΅Π½ΠΈΡ Π²ΡΡ ΠΎΠ΄Π° ΠΏΠΎΠ²ΡΠΎΡΠ½ΠΎ Π²ΡΠ±Π΅ΡΠΈΡΠ΅ ΠΊΠ½ΠΎΠΏΠΊΡ «ΠΡΡ ΠΎΠ΄». ΠΡΠ»ΠΈ «Π’Π΅Π»Π΅ΡΠΎΠ½Π½ΡΠΉ ΡΠΏΡΠ°Π²ΠΎΡΠ½ΠΈΠΊ» Π±ΡΠ» Π΅Π΄ΠΈΠ½ΡΡΠ²Π΅Π½Π½ΠΎΠΉ ΠΎΡΠΊΡΡΡΠΎΠΉ ΠΊΠ½ΠΈΠ³ΠΎΠΉ, ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ MS Excel Π±ΡΠ΄Π΅Ρ ΠΏΠΎΠ»Π½ΠΎΡΡΡΡ Π·Π°ΠΊΡΡΡΠΎ, Π² ΠΏΡΠΎΡΠΈΠ²Π½ΠΎΠΌ ΡΠ»ΡΡΠ°Π΅ — Π·Π°ΠΊΡΠΎΠ΅ΡΡΡ ΡΠΎΠ»ΡΠΊΠΎ ΠΊΠ½ΠΈΠ³Π° Ρ ΠΎΠΏΠΈΡΡΠ²Π°Π΅ΠΌΠΎΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΎΠΉ.
ΠΠ½ΠΈΠΌΠ°Π½ΠΈΠ΅. ΠΠ΅ Π·Π°Π±ΡΠ²Π°ΠΉΡΠ΅ ΡΠΎΡ ΡΠ°Π½ΡΡΡ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ Π²ΠΎ Π²Π½Π΅ΡΠ½Π΅ΠΌ ΡΠ°ΠΉΠ»Π΅, ΠΈΠ½Π°ΡΠ΅ ΠΏΠΎΡΠ»Π΅Π΄Π½ΠΈΠ΅ ΠΊΠΎΡΡΠ΅ΠΊΡΠΈΡΠΎΠ²ΠΊΠΈ ΠΌΠΎΠ³ΡΡ Π±ΡΡΡ ΡΡΠ΅ΡΡΠ½Ρ.
ΠΠΎΠΏΠΎΠ»Π½Π΅Π½ΠΈΠ΅.
ΠΡΠ΅ ΡΡΠ°Π½Π΄Π°ΡΡΠ½ΡΠ΅ ΠΏΠ°Π½Π΅Π»ΠΈ ΠΈΠ½ΡΡΡΡΠΌΠ΅Π½ΡΠΎΠ² ΡΠΊΡΡΠ²Π°ΡΡΡΡ ΠΈ Π²ΠΎΡΡΡΠ°Π½Π°Π²Π»ΠΈΠ²Π°ΡΡΡΡ ΠΏΡΠΈ ΠΎΡΠΊΡΡΡΠΈΠΈ / Π·Π°ΠΊΡΡΡΠΈΠΈ ΠΊΠ½ΠΈΠ³ΠΈ «Π’Π΅Π»Π΅ΡΠΎΠ½Π½ΡΠΉ ΡΠΏΡΠ°Π²ΠΎΡΠ½ΠΈΠΊ», Π° ΡΠ°ΠΊΠΆΠ΅ ΠΏΡΠΈ ΠΏΠ΅ΡΠ΅ΠΊΠ»ΡΡΠ΅Π½ΠΈΠΈ ΠΌΠ΅ΠΆΠ΄Ρ ΠΎΠΊΠ½Π°ΠΌΠΈ. ΠΠΎ ΠΈΠ·Π±Π΅ΠΆΠ°Π½ΠΈΠ΅ ΠΏΡΠΎΠ±Π»Π΅ΠΌ Ρ Π²ΠΎΡΡΡΠ°Π½ΠΎΠ²Π»Π΅Π½ΠΈΠ΅ΠΌ ΡΡΠ°Π½Π΄Π°ΡΡΠ½ΠΎΠ³ΠΎ Π½Π°Π±ΠΎΡΠ° ΠΏΠ°Π½Π΅Π»Π΅ΠΉ ΠΈΠ½ΡΡΡΡΠΌΠ΅Π½ΡΠΎΠ² Π½Π΅ ΡΠ΅ΠΊΠΎΠΌΠ΅Π½Π΄ΡΠ΅ΡΡΡ ΡΠ°ΠΌΠΎΡΡΠΎΡΡΠ΅Π»ΡΠ½ΠΎ ΠΌΠ΅Π½ΡΡΡ Π½Π°Π±ΠΎΡ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°Π΅ΠΌΡΡ ΠΏΠ°Π½Π΅Π»Π΅ΠΉ ΠΈΠ½ΡΡΡΡΠΌΠ΅Π½ΡΠΎΠ² ΠΏΠΎΠΊΠ° ΠΎΠΏΠΈΡΡΠ²Π°Π΅ΠΌΠ°Ρ ΠΊΠ½ΠΈΠ³Π° ΠΎΡΡΠ°Π΅ΡΡΡ ΠΎΡΠΊΡΡΡΠ°.
ΠΡΠΈ Π²ΠΎΠ·Π½ΠΈΠΊΠ½ΠΎΠ²Π΅Π½ΠΈΠΈ Π»ΡΠ±ΠΎΠΉ Π½Π΅ΡΡΠ°Π½Π΄Π°ΡΡΠ½ΠΎΠΉ ΡΠΈΡΡΠ°ΡΠΈΠΈ ΡΠ»Π΅Π΄ΡΠ΅Ρ Π·Π°ΠΊΡΡΡΡ ΠΊΠ½ΠΈΠ³Ρ «Π’Π΅Π»Π΅ΡΠΎΠ½Π½ΡΠΉ ΡΠΏΡΠ°Π²ΠΎΡΠ½ΠΈΠΊ» ΠΈ Π²ΡΡΡΠ°Π²ΠΈΡΡ Π½ΡΠΆΠ½ΡΠ΅ ΠΏΠ°Π½Π΅Π»ΠΈ ΡΠ΅ΡΠ΅Π· ΠΌΠ΅Π½Ρ «ΠΠΈΠ΄».
ΠΠ°ΠΊΠ»ΡΡΠ΅Π½ΠΈΠ΅.
Π Ρ ΠΎΠ΄Π΅ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ ΡΠ°Π±ΠΎΡΡ Π±ΡΠ»ΠΈ Π·Π°ΠΊΡΠ΅ΠΏΠ»Π΅Π½Ρ Π·Π½Π°Π½ΠΈΡ ΠΏΠΎ ΡΠ°Π±ΠΎΡΠ΅ Π² MS Excel ΠΈ ΠΎΡΠ½ΠΎΠ²Π°ΠΌ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ Π½Π° VBA, Π° ΡΠ°ΠΊΠΆΠ΅ ΠΏΡΠΈΠΎΠ±ΡΠ΅ΡΠ΅Π½Ρ ΠΏΡΠ°ΠΊΡΠΈΡΠ΅ΡΠΊΠΈΠ΅ Π½Π°Π²ΡΠΊΠΈ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ Π·Π°Π²Π΅ΡΡΠ΅Π½Π½ΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΡΡ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠΉ Π΄Π»Ρ MS Excel.
Π Π΅Π·ΡΠ»ΡΡΠ°ΡΠΎΠΌ ΠΏΡΠΎΠ΄Π΅Π»Π°Π½Π½ΠΎΠΉ ΡΠ°Π±ΠΎΡΡ ΡΠ²Π»ΡΠ΅ΡΡΡ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ «Π’Π΅Π»Π΅ΡΠΎΠ½Π½ΡΠΉ ΡΠΏΡΠ°Π²ΠΎΡΠ½ΠΈΠΊ», ΡΡΠ½ΠΊΡΠΈΠΎΠ½Π°Π»ΡΠ½ΠΎ Π²ΡΠΏΠΎΠ»Π½ΡΡΡΠ΅Π΅ ΠΎΡΠ½ΠΎΠ²Π½ΡΠ΅ Π·Π°Π΄Π°ΡΠΈ, ΡΡΠΎΡΡΠΈΠ΅ ΠΏΠ΅ΡΠ΅Π΄ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ΠΌ ΡΠ°ΠΊΠΎΠ³ΠΎ ΡΡΠΎΠ²Π½Ρ ΠΈ Π½Π°Π·Π½Π°ΡΠ΅Π½ΠΈΡ.
Π Π°Π·ΡΠΌΠ΅Π΅ΡΡΡ, Π²ΡΠΏΠΎΠ»Π½Π΅Π½Π½ΡΠΉ ΠΏΡΠΎΠ΅ΠΊΡ Π½Π΅ ΡΠ²Π»ΡΠ΅ΡΡΡ Π·Π°Π²Π΅ΡΡΠ΅Π½Π½ΡΠΌ Π² ΠΏΠΎΠ»Π½ΠΎΠΉ ΠΌΠ΅ΡΠ΅. Π ΠΊΠ°ΡΠ΅ΡΡΠ²Π΅ Π½Π°ΠΏΡΠ°Π²Π»Π΅Π½ΠΈΠΉ Π΄Π»Ρ ΡΠ°Π·Π²ΠΈΡΠΈΡ ΠΏΡΠΎΠ΅ΠΊΡΠ° ΠΌΠΎΠΆΠ½ΠΎ ΡΠΏΠΎΠΌΡΠ½ΡΡΡ, Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ, Π±ΠΎΠ»Π΅Π΅ ΠΊΠΎΠ½ΠΊΡΠ΅ΡΠΈΠ·ΠΈΡΠΎΠ²Π°Π½Π½ΡΠΉ ΠΌΠ΅Ρ Π°Π½ΠΈΠ·ΠΌ ΠΏΠΎΠΈΡΠΊΠ° ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ ΠΈΠ»ΠΈ ΡΠ΅Π°Π»ΠΈΠ·Π°ΡΠΈΡ ΠΎΠΏΡΠΈΠΌΠ°Π»ΡΠ½ΡΡ ΠΌΠ΅ΡΠΎΠ΄ΠΎΠ² ΡΠΎΡΡΠΈΡΠΎΠ²ΠΊΠΈ (ΡΡΠΎ ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ Π±ΠΎΠ»Π΅Π΅ ΡΡΡΠ΅ΠΊΡΠΈΠ²Π½ΡΠΌ Π½Π° Π±ΠΎΠ»ΡΡΠΈΡ ΠΎΠ±ΡΠ΅ΠΌΠ°Ρ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ).
ΠΠΎΡΠ°Ρ ΠΎΠ²Π° Π. Π. ΠΠΎΠΌΠΏΡΡΡΠ΅ΡΠ½Π°Ρ ΠΏΠΎΠ΄Π³ΠΎΡΠΎΠ²ΠΊΠ°. ΠΡΠΈΡΠ½ΠΎΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅: Π£ΡΠ΅Π±Π½ΠΎΠ΅ ΠΏΠΎΡΠΎΠ±ΠΈΠ΅. — Π’ΠΎΠΌΡΠΊ: Π’ΠΎΠΌΡΠΊΠΈΠΉ ΠΌΠ΅ΠΆΠ²ΡΠ·ΠΎΠ²ΡΠΊΠΈΠΉ ΡΠ΅Π½ΡΡ Π΄ΠΈΡΡΠ°Π½ΡΠΈΠΎΠ½Π½ΠΎΠ³ΠΎ ΠΎΠ±ΡΠ°Π·ΠΎΠ²Π°Π½ΠΈΡ, 2004. — 181Ρ.
Π‘ΠΏΡΠ°Π²ΠΎΡΠ½ΠΎΠ΅ ΡΡΠΊΠΎΠ²ΠΎΠ΄ΡΡΠ²ΠΎ ΠΏΠΎ MS Excel ΠΈ Visual Basic for Applications: Microsoft Corp., 2001.
ΠΠ΅ΠΌΠΈΠ΄ΠΎΠ²Π° Π.Π., ΠΡΠ»ΡΠΊΠΈΠ½ Π. Π. ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ Π² ΡΡΠ΅Π΄Π΅ Visual Basic for Applications: ΠΡΠ°ΠΊΡΠΈΠΊΡΠΌ — Π.: ΠΠΎΡΡΡΠ°Ρ Π»ΠΈΠ½ΠΈΡ — Π’Π΅Π»Π΅ΠΊΠΎΠΌ, 2004. — 175Ρ.
ΠΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅. ΠΠΈΡΡΠΈΠ½Π³ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌ VBA.
Π Π°Π±ΠΎΡΠ°Ρ ΠΊΠ½ΠΈΠ³Π°.
Dim oldBars (20) As Long, kol As Integer.
Private Sub Workbook_Activate ().
kol = 0.
Dim bar As CommandBar.
For Each bar In Application.CommandBars.
If bar. Visible And Not (bar.Protection = msoBarNoChangeVisible) _.
And (bar.Type = msoBarTypeNormal) And Not (bar.Name = «Phones ») Then.
kol = kol + 1.
oldBars (kol) = bar.index.
End If.
Next bar.
For i = 1 To kol.
Application. CommandBars (oldBars (i)).Visible = False.
Next.
If ThisWorkbook.ActiveSheet.Name = «ΠΠ°Π·Π° Π΄Π°Π½Π½ΡΡ «Then.
showTools.
End If.
End Sub.
Private Sub Workbook_Deactivate ().
Dim i As Integer.
For i = kol To 1 Step -1.
Application. CommandBars (oldBars (i)).Visible = True.
Next.
hideTools.
End Sub.
Private Sub Workbook_Open ().
ThisWorkbook. Worksheets («Π‘ΡΠ°ΡΡ »).Visible = True «ΡΠΏΡΡΡΠ°ΡΡ ΡΡΠ°ΡΡΠΎΠ²ΡΠΉ Π»ΠΈΡΡ.
ThisWorkbook. Worksheets («Π‘ΡΠ°ΡΡ »).Activate «ΡΠ΄Π΅Π»Π°ΡΡ Π°ΠΊΡΠΈΠ²Π½ΡΠΌ Π»ΠΈΡΡ Ρ ΠΠ.
ThisWorkbook. Worksheets («ΠΠ°Π·Π° Π΄Π°Π½Π½ΡΡ »).Visible = False «ΠΏΠΎΠΊΠ°Π·Π°ΡΡ Π±Π°Π·Ρ Π΄Π°Π½Π½ΡΡ .
End Sub.
ΠΠΈΡΡ 1 (Π‘ΡΠ°ΡΡ).
Private Sub ExitButton_Click ().
ExitProject.
End Sub.
Private Sub StartButton_Click ().
«Commandbars.
ThisWorkbook. Worksheets («ΠΠ°Π·Π° Π΄Π°Π½Π½ΡΡ »).Visible = True «ΠΏΠΎΠΊΠ°Π·Π°ΡΡ Π±Π°Π·Ρ Π΄Π°Π½Π½ΡΡ .
ThisWorkbook. Worksheets («ΠΠ°Π·Π° Π΄Π°Π½Π½ΡΡ »).Activate «ΡΠ΄Π΅Π»Π°ΡΡ Π°ΠΊΡΠΈΠ²Π½ΡΠΌ Π»ΠΈΡΡ Ρ ΠΠ.
ThisWorkbook. Worksheets («Π‘ΡΠ°ΡΡ »).Visible = False «ΡΠΏΡΡΡΠ°ΡΡ ΡΡΠ°ΡΡΠΎΠ²ΡΠΉ Π»ΠΈΡΡ.
End Sub.
ΠΠΈΡΡ2 (ΠΠ°Π·Π° Π΄Π°Π½Π½ΡΡ ).
Private Sub Worksheet_Activate ().
showTools.
End Sub.
Private Sub Worksheet_Deactivate ().
hideTools.
End Sub.
Sub addRecord ().
If (ActiveCell.row < 5) Or (Len (ActiveCell.EntireRow.Cells (, 1).Value) = 0) Then.
Range («A5 »).Activate.
End If.
ThisWorkbook.ActiveSheet.Unprotect.
addRowForm. Show vbModal.
ThisWorkbook.ActiveSheet.Protect.
End Sub.
Sub delRecord ().
If (ActiveCell.row < 5) Or (Len (ActiveCell.EntireRow.Cells (, 1).Value) = 0) Then.
Exit Sub.
End If.
ThisWorkbook.ActiveSheet.Unprotect.
If Selection.Rows.count = 1 Then.
delRowForm. Show vbModal.
Else.
Dim response.
response = MsgBox («ΠΡΠΌΠ΅ΡΠ΅Π½ΠΎ Π·Π°ΠΏΠΈΡΠ΅ΠΉ: «+ Str (Selection.Rows.count) + Chr (13) + «Π£Π΄Π°Π»ΠΈΡΡ Π²ΡΠ΅? », vbYesNoCancel, «ΠΠ½ΠΈΠΌΠ°Π½ΠΈΠ΅! »).
If response = vbYes Then.
Selection.EntireRow.Delete.
End If.
End If.
ThisWorkbook.ActiveSheet.Protect.
End Sub.
Sub editRecord ().
If (ActiveCell.row < 5) Or (Len (ActiveCell.EntireRow.Cells (, 1).Value) = 0) Then.
Exit Sub.
End If.
ThisWorkbook.ActiveSheet.Unprotect.
editRowForm. Show vbModal.
ThisWorkbook.ActiveSheet.Protect.
End Sub.
Sub sort ().
ThisWorkbook.ActiveSheet.Unprotect.
sortForm. Show vbModal.
ThisWorkbook.ActiveSheet.Protect.
End Sub.
Sub report ().
Dim oldCell As Range.
ThisWorkbook.ActiveSheet.Unprotect.
Set oldCell = ActiveCell.
reportForm. Show vbModal.
oldCell.Activate.
ThisWorkbook.ActiveSheet.Protect.
End Sub.
addRowForm.
Private Sub UserForm_Activate ().
FamBox. Value = ««.
ImBox. Value = ««.
OtBox. Value = ««.
StreetBox. Value = ««.
NoBox. Value = ««.
FlatBox. Value = ««.
PhoneBox. Value = ««.
FamBox.SetFocus.
End Sub.
Private Sub CancelButton_Click ().
addRowForm.Hide.
End Sub.
Private Sub OKButton_Click ().
«ΠΏΡΠΎΠ²Π΅ΡΠΊΠ° ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ.
Dim box As Variant, boxes As Variant.
boxes = Array (FamBox, ImBox, OtBox, StreetBox, NoBox, PhoneBox).
For Each box In boxes.
If Len (Trim (box.Value)) = 0 Then.
box.SetFocus.
Exit Sub.
End If.
Next box.
If Len (Trim (PhoneBox.Value)) > 10 Then.
MsgBox «ΠΠΎΠ»Π΅Π΅ 10 ΡΠΈΡΡ Π² Π½ΠΎΠΌΠ΅ΡΠ΅ ΡΠ΅Π»Π΅ΡΠΎΠ½Π° «.
PhoneBox.SetFocus.
Else.
«Π·Π°ΠΏΠΎΠ»Π½Π΅Π½ΠΈΠ΅ Π·Π°ΠΏΠΈΡΠΈ ΠΈΠ· ΡΠΎΡΠΌΡ.
Dim myRecord As Record.
myRecord. Fam = FamBox.Value.
myRecord. Im = ImBox.Value.
myRecord. Ot = OtBox.Value.
myRecord. street = StreetBox.Value.
myRecord. no = NoBox.Value.
myRecord. Flat = FlatBox.Value.
myRecord. Phone = Val (PhoneBox.Value).
«Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΠ΅ ΡΡΡΠΎΠΊΠΈ Π½Π° Π»ΠΈΡΡ ΠΈ Π΅Π΅ Π·Π°ΠΏΠΎΠ»Π½Π΅Π½ΠΈΠ΅.
ActiveCell.EntireRow.Insert.
putRecord ActiveCell. EntireRow, myRecord.
«ΡΠΊΡΡΡΠΈΠ΅ ΡΠΎΡΠΌΡ.
addRowForm.Hide.
End If.
End Sub.
Private Sub PhoneBox_KeyPress (ByVal KeyAscii As MSForms. ReturnInteger).
If (KeyAscii Asc («9 »)) Then.
MsgBox «ΠΠΎΠΏΡΡΠΊΠ°Π΅ΡΡΡ Π²Π²ΠΎΠ΄ ΡΠΎΠ»ΡΠΊΠΎ ΡΠΈΡΡ! «.
KeyAscii. Value = 0.
End If.
End Sub.
delRowForm.
Private Sub CancelButton_Click ().
delRowForm.Hide.
End Sub.
Private Sub OKButton_Click ().
«ΡΠ΄Π°Π»Π΅Π½ΠΈΠ΅ ΡΠ΅ΠΊΡΡΠ΅ΠΉ ΡΡΡΠΎΠΊΠΈ.
ActiveCell.EntireRow.Delete.
«ΡΠΊΡΡΡΠΈΠ΅ ΡΠΎΡΠΌΡ.
delRowForm.Hide.
End Sub.
Private Sub UserForm_Activate ().
Dim myRecord As Record.
myRecord = getRecord (ActiveCell.EntireRow).
FamBox. Value = myRecord.Fam.
ImBox. Value = myRecord.Im.
OtBox. Value = myRecord.Ot.
StreetBox. Value = myRecord.street.
NoBox. Value = myRecord.no.
FlatBox. Value = myRecord.Flat.
PhoneBox. Value = myRecord.Phone.
OKButton.SetFocus.
End Sub.
editRowForm.
Private Sub UserForm_Activate ().
Dim myRecord As Record.
myRecord = getRecord (ActiveCell.EntireRow).
FamBox. Value = myRecord.Fam.
ImBox. Value = myRecord.Im.
OtBox. Value = myRecord.Ot.
StreetBox. Value = myRecord.street.
NoBox. Value = myRecord.no.
FlatBox. Value = myRecord.Flat.
PhoneBox. Value = myRecord.Phone.
FamBox.SetFocus.
End Sub.
Private Sub CancelButton_Click ().
editRowForm.Hide.
End Sub.
Private Sub OKButton_Click ().
«ΠΏΡΠΎΠ²Π΅ΡΠΊΠ° ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ.
Dim box As Variant, boxes As Variant.
boxes = Array (FamBox, ImBox, OtBox, StreetBox, NoBox, PhoneBox).
For Each box In boxes.
If Len (Trim (box.Value)) = 0 Then.
box.SetFocus.
Exit Sub.
End If.
Next box.
If Len (Trim (PhoneBox.Value)) > 10 Then.
MsgBox «ΠΠΎΠ»Π΅Π΅ 10 ΡΠΈΡΡ Π² Π½ΠΎΠΌΠ΅ΡΠ΅ ΡΠ΅Π»Π΅ΡΠΎΠ½Π° «.
PhoneBox.SetFocus.
Else.
«Π·Π°ΠΏΠΎΠ»Π½Π΅Π½ΠΈΠ΅ Π·Π°ΠΏΠΈΡΠΈ ΠΈΠ· ΡΠΎΡΠΌΡ.
Dim myRecord As Record.
myRecord. Fam = FamBox.Value.
myRecord. Im = ImBox.Value.
myRecord. Ot = OtBox.Value.
myRecord. street = StreetBox.Value.
myRecord. no = NoBox.Value.
myRecord. Flat = FlatBox.Value.
myRecord. Phone = Val (PhoneBox.Value).
«Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΠ΅ ΡΡΡΠΎΠΊΠΈ Π½Π° Π»ΠΈΡΡ ΠΈ Π΅Π΅ Π·Π°ΠΏΠΎΠ»Π½Π΅Π½ΠΈΠ΅.
putRecord ActiveCell. EntireRow, myRecord.
«ΡΠΊΡΡΡΠΈΠ΅ ΡΠΎΡΠΌΡ.
editRowForm.Hide.
End If.
End Sub.
Private Sub PhoneBox_KeyPress (ByVal KeyAscii As MSForms. ReturnInteger).
If (KeyAscii Asc («9 »)) Then.
MsgBox «ΠΠΎΠΏΡΡΠΊΠ°Π΅ΡΡΡ Π²Π²ΠΎΠ΄ ΡΠΎΠ»ΡΠΊΠΎ ΡΠΈΡΡ! «.
KeyAscii. Value = 0.
End If.
End Sub.
reportForm.
Private Sub UserForm_Activate ().
AllOption. Value = True.
OKButton. Caption = «Π Π°ΡΡΠ΅Ρ «.
OKButton.SetFocus.
End Sub.
Private Sub AllOption_Click ().
OKButton. Caption = «Π Π°ΡΡΠ΅Ρ «.
End Sub.
Private Sub StreetOption_Click ().
OKButton. Caption = «ΠΠ°ΡΠ°ΠΌΠ΅ΡΡΡ… «.
End Sub.
Private Sub HouseOption_Click ().
OKButton. Caption = «ΠΠ°ΡΠ°ΠΌΠ΅ΡΡΡ… «.
End Sub.
Private Sub CancelButton_Click ().
reportForm.Hide.
End Sub.
Private Sub OKButton_Click ().
Dim myRecord As Record.
Dim counter As Long.
Dim street As String, no As String, title As String.
If AllOption. Value Then.
counter = count ().
MsgBox «ΠΠ±ΡΠ΅Π΅ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ Π°Π±ΠΎΠ½Π΅Π½ΡΠΎΠ²: «+ Str (counter).
Else.
myRecord = getRecord (ActiveCell.EntireRow).
If StreetOption. Value Then.
title = «ΠΡΡΠ΅Ρ ΠΏΠΎ ΡΠ»ΠΈΡΠ΅ «.
street = InputBox («ΠΠ°Π΄Π°ΠΉΡΠ΅ Π½Π°ΠΈΠΌΠ΅Π½ΠΎΠ²Π°Π½ΠΈΠ΅ ΡΠ»ΠΈΡΡ: », title, myRecord. street).
If Len (street) > 0 Then.
street = Trim (street).
counter = count (street).
MsgBox «ΠΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΡΠ΅Π»Π΅ΡΠΎΠ½ΠΎΠ² Π½Π° ΡΠ»ΠΈΡΠ΅ «» + street + «»: «+ Str (counter).
End If.
Else.
title = «ΠΡΡΠ΅Ρ ΠΏΠΎ Π΄ΠΎΠΌΡ «.
street = InputBox («ΠΠ°Π΄Π°ΠΉΡΠ΅ Π½Π°ΠΈΠΌΠ΅Π½ΠΎΠ²Π°Π½ΠΈΠ΅ ΡΠ»ΠΈΡΡ: », title, myRecord. street).
If Len (street) > 0 Then.
street = Trim (street).
no = InputBox («Π£Π»ΠΈΡΠ° «» + street + «» «+ Chr (10) + «ΠΠ°Π΄Π°ΠΉΡΠ΅ Π½ΠΎΠΌΠ΅Ρ Π΄ΠΎΠΌΠ°: », title, myRecord. no).
If Len (no) > 0 Then.
no = Trim (no).
counter = count (street, no).
MsgBox «ΠΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΡΠ΅Π»Π΅ΡΠΎΠ½ΠΎΠ² Π² Π΄ΠΎΠΌΠ΅ «» + street + «» + no + «»: «+ Str (counter).
End If.
End If.
End If.
End If.
reportForm.Hide.
End Sub.
Private Function count (Optional street, Optional no) As Long.
Dim myRecord As Record.
Dim data As Range, curRow As Range.
Dim doCalc As Boolean, counter As Long.
counter = 0.
Range («A5 »).Activate.
Set data = ActiveCell.CurrentRegion.
For Each curRow In data.Rows.
myRecord = getRecord (curRow).
doCalc = False.
If IsMissing (street) Then.
«Π²ΡΠ΅ Π°Π±ΠΎΠ½Π΅Π½ΡΡ.
doCalc = True.
Else.
If IsMissing (no) Then.
«ΠΏΠΎ ΡΠ»ΠΈΡΠ΅.
doCalc = (Trim (myRecord.street) = street).
Else.
«ΠΏΠΎ Π΄ΠΎΠΌΡ.
doCalc = (Trim (myRecord.street) = street) And (Trim (myRecord.no) = no).
End If.
End If.
If doCalc Then counter = counter + 1.
Next curRow.
count = counter.
End Function.
sortForm.
Private Sub UserForm_Activate ().
OKButton.SetFocus.
End Sub.
Private Sub CancelButton_Click ().
sortForm.Hide.
End Sub.
Private Sub OKButton_Click ().
Dim sht As Worksheet.
Dim rng As Range.
Set sht = ThisWorkbook.ActiveSheet.
Set rng = sht. Range (sht.Cells (5, 1), sht. Cells (65 536, 1).End (xlUp).Offset (, 7)).
If NameOption. Value Then.
«ΡΠΎΡΡΠΈΡΠΎΠ²Π°ΡΡ ΠΏΠΎ Π€ΠΠ.
rng. sort Key1:=sht.Columns («A »), Order1:=xlAscending, Key2:=sht.Columns («B »), Order2:=xlAscending, Key3:=sht.Columns («C »), Order3:=xlAscending, Header:=xlNo.
Else.
If AddressOption. Value Then.
«ΡΠΎΡΡΠΈΡΠΎΠ²Π°ΡΡ ΠΏΠΎ Π°Π΄ΡΠ΅ΡΡ.
rng. sort Key1:=sht.Columns («D »), Order1:=xlAscending, Key2:=sht.Columns («E »), Order2:=xlAscending, Key3:=sht.Columns («F »), Order3:=xlAscending, Header:=xlNo.
Else.
«ΡΠΎΡΡΠΈΡΠΎΠ²Π°ΡΡ ΠΏΠΎ ΡΠ΅Π»Π΅ΡΠΎΠ½Ρ.
rng. sort Key1:=sht.Columns («G »), Order1:=xlAscending, Header:=xlNo.
End If.
End If.
sortForm.Hide.
End Sub.
Module1.
Public Type Record.
Fam As String.
Im As String.
Ot As String.
street As String.
no As String.
Flat As String.
Phone As Long.
End Type.
Public Function dbFileName () As String.
dbFileName = ThisWorkbook. Path + «phones.db «.
End Function.
Sub ToolbarExitButton ().
If ThisWorkbook.ActiveSheet.Name = «Π‘ΡΠ°ΡΡ «Then.
ExitProject.
Else.
ThisWorkbook. Worksheets («Π‘ΡΠ°ΡΡ »).Visible = True «ΡΠΏΡΡΡΠ°ΡΡ ΡΡΠ°ΡΡΠΎΠ²ΡΠΉ Π»ΠΈΡΡ.
ThisWorkbook. Worksheets («Π‘ΡΠ°ΡΡ »).Activate «ΡΠ΄Π΅Π»Π°ΡΡ Π°ΠΊΡΠΈΠ²Π½ΡΠΌ Π»ΠΈΡΡ Ρ ΠΠ.
ThisWorkbook. Worksheets («ΠΠ°Π·Π° Π΄Π°Π½Π½ΡΡ »).Visible = False «ΠΏΠΎΠΊΠ°Π·Π°ΡΡ Π±Π°Π·Ρ Π΄Π°Π½Π½ΡΡ .
End If.
End Sub.
Sub ExitProject ().
ThisWorkbook. Saved = True.
If Application.Workbooks.count = 1 Then.
Application. Quit «Π·Π°Π²Π΅ΡΡΠΈΡΡ ΡΠ°Π±ΠΎΡΡ Excel.
Else.
ThisWorkbook. Close «Π·Π°Π²Π΅ΡΡΠΈΡΡ ΡΠ°Π±ΠΎΡΡ ΠΏΡΠΎΠ΅ΠΊΡΠ°.
End If.
End Sub.
Sub dbRead ().
ThisWorkbook.ActiveSheet.Unprotect.
Dim myRecord As Record.
Dim data As Range, curRow As Range.
Dim row As Integer.
Range («A5 »).Activate.
Set data = ActiveCell.CurrentRegion.
data.ClearContents.
Open dbFileName For Input As #1.
row = 1.
Do While Not EOF (1).
Input #1, myRecord. Fam, myRecord. Im, myRecord. Ot, myRecord. street, myRecord. no, myRecord. Flat, myRecord.Phone.
putRecord ActiveCell. Cells (row), myRecord.
row = row + 1.
Loop.
Close #1.
ThisWorkbook.ActiveSheet.Protect.
End Sub.
Sub dbWrite ().
ThisWorkbook.ActiveSheet.Unprotect.
Dim myRecord As Record.
Dim data As Range, curRow As Range.
Range («A5 »).Activate.
Set data = ActiveCell.CurrentRegion.
Open dbFileName For Output As #1.
For Each curRow In data.Rows.
myRecord = getRecord (curRow).
Write #1, myRecord. Fam, myRecord. Im, myRecord. Ot, myRecord. street, myRecord. no, myRecord. Flat, myRecord.Phone.
Next curRow.
Close #1.
ThisWorkbook.ActiveSheet.Protect.
End Sub.
Function getRecord (row As Range) As Record.
Dim myRecord As Record.
myRecord. Fam = row. Cells (, 1).Value.
myRecord. Im = row. Cells (, 2).Value.
myRecord. Ot = row. Cells (, 3).Value.
myRecord. street = row. Cells (, 4).Value.
myRecord. no = row. Cells (, 5).Value.
myRecord. Flat = row. Cells (, 6).Value.
myRecord. Phone = row. Cells (, 7).Value.
getRecord = myRecord.
End Function.
Sub putRecord (row As Range, myRecord As Record).
row. Cells (, 1).Value = myRecord.Fam.
row. Cells (, 2).Value = myRecord.Im.
row. Cells (, 3).Value = myRecord.Ot.
row. Cells (, 4).Value = myRecord.street.
row. Cells (, 5).Value = myRecord.no.
row. Cells (, 6).Value = myRecord.Flat.
row. Cells (, 7).Value = myRecord.Phone.
End Sub.
Sub showTools ().
Application. CommandBars («Phones »).Enabled = True.
Application. CommandBars («Phones »).Visible = True.
End Sub.
Sub hideTools ().
Application. CommandBars («Phones »).Visible = False.
Application. CommandBars («Phones »).Enabled = False.
End Sub.