ΠΠ½ΠΎΠΏΠΊΠ° Π΄Π»Ρ ΠΌΠ°ΠΊΡΠΎΡΠ° excel: ΠΠ°ΠΊ ΡΠ΄Π΅Π»Π°ΡΡ ΠΊΠ½ΠΎΠΏΠΊΡ Π² Excel Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΠΌΠ°ΠΊΡΠΎΡΠ° ΠΈ Π³ΠΈΠΏΠ΅ΡΡΡΡΠ»ΠΊΠΈ
ΠΠ½ΠΎΠΏΠΊΠ° Π΄Π»Ρ Π²ΡΠ·ΠΎΠ²Π° ΠΌΠ°ΠΊΡΠΎΡΠ° Π² Excel
ΠΠ½ΠΎΠΏΠΊΠ° Π΄Π»Ρ Π²ΡΠ·ΠΎΠ²Π° ΠΌΠ°ΠΊΡΠΎΡΠ° Π² Excel
ΠΠΎΠ±ΡΡΠΉ Π΄Π΅Π½Ρ, ΡΠ²Π°ΠΆΠ°Π΅ΠΌΡΠ΅ ΡΠΈΡΠ°ΡΠ΅Π»ΠΈ ΠΈ ΠΏΠΎΠ΄ΠΏΠΈΡΡΠΈΠΊΠΈ Π±Π»ΠΎΠ³Π°! ΠΠ°ΠΊ ΡΠ»Π΅Π΄ΡΠ΅Ρ ΠΈΠ· Π·Π°Π³ΠΎΠ»ΠΎΠ²ΠΊΠ°, ΡΠ΅Π³ΠΎΠ΄Π½Ρ ΡΠ΅ΡΡ ΠΏΠΎΠΉΠ΄ΡΡ ΠΎ Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΠΈ ΠΊΠ½ΠΎΠΏΠΎΠΊ Π΄Π»Ρ Π²ΡΠ·ΠΎΠ²Π° ΠΌΠ°ΠΊΡΠΎΡΠ°. ΠΠΎΠΏΡΠΎΡ, Π½Π° ΠΌΠΎΠΉ Π²Π·Π³Π»ΡΠ΄, ΠΏΡΠΎΡΡΠΎΠΉ, Π½ΠΎ ΠΏΠΎΡΠ»Π΅ ΠΏΠΎΠ»ΡΡΠ΅Π½ΠΈΡ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΈΡ Π΄Π΅ΡΡΡΠΊΠΎΠ² Π²ΠΎΠΏΡΠΎΡΠΎΠ² Π½Π° ΡΡΡ ΡΠ΅ΠΌΡ, ΡΠ΅ΡΠΈΠ» Π½Π°ΠΏΠΈΡΠ°ΡΡ ΠΎΡΠ΄Π΅Π»ΡΠ½ΡΠΉ ΠΏΠΎΡΡ.
Π ΠΏΡΠΎΡΠ»ΡΡ ΡΡΠ°ΡΡΡΡ ΡΡΠΎΡ Π²ΠΎΠΏΡΠΎΡ ΡΠ°ΡΡΠΌΠ°ΡΡΠΈΠ²Π°Π»ΡΡ Π²ΡΠΊΠΎΠ»ΡΠ·Ρ. Π’Π΅ΠΏΠ΅ΡΡ ΡΠ°ΡΡΠΌΠΎΡΡΠΈΠΌ Π΅Π³ΠΎ Π±ΠΎΠ»Π΅Π΅ ΠΏΠΎΠ΄ΡΠΎΠ±Π½ΠΎ ΠΈ ΠΎΠ±ΡΡΠΎΡΡΠ΅Π»ΡΠ½ΠΎ.
Β
ΠΡΠ·ΡΠ²Π°ΡΡ ΠΌΠ°ΠΊΡΠΎΡΡ Π² Excel ΠΌΠΎΠΆΠ½ΠΎ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΈΠΌΠΈ ΡΠΏΠΎΡΠΎΠ±Π°ΠΌΠΈ (Π΅ΡΡΠ΅ΡΡΠ²Π΅Π½Π½ΠΎ, ΠΌΠ°ΠΊΡΠΎΡΡ Π΄ΠΎΠ»ΠΆΠ½Ρ Π±ΡΡΡ Π² ΠΊΠ½ΠΈΠ³Π΅):
- Π²ΡΡΠ°Π²ΠΊΠΎΠΉ ΠΊΠ½ΠΎΠΏΠΊΠΈ;
- ΡΠΎΡΠ΅ΡΠ°Π½ΠΈΠ΅ΠΌ ΠΊΠ»Π°Π²ΠΈΡ;
- Π²ΡΡΠ°Π²ΠΊΠΎΠΉ Π°Π²ΡΠΎΡΠΈΠ³ΡΡΡ;
- Π²ΡΡΠ°Π²ΠΊΠΎΠΉ ΡΠΈΡΡΠ½ΠΊΠ°.
Β
ΠΡΡΠ°Π²ΠΊΠ° ΠΊΠ½ΠΎΠΏΠΊΠΈ.
ΠΠ΅ΡΠ΅Ρ ΠΎΠ΄ΠΈΠΌ Π½Π° Π²ΠΊΠ»Π°Π΄ΠΊΡ «Π Π°Π·ΡΠ°Π±ΠΎΡΡΠΈΠΊ», Π² Π±Π»ΠΎΠΊΠ΅ ΠΊΠ½ΠΎΠΏΠΎΠΊ «ΠΠ»Π΅ΠΌΠ΅Π½ΡΡ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ» Π½Π°ΠΆΠΈΠΌΠ°Π΅ΠΌ «ΠΡΡΠ°Π²ΠΈΡΡ», Π² ΠΏΠΎΡΠ²ΠΈΠ²ΡΠ΅ΠΌΡΡ ΡΠΏΠΈΡΠΊΠ΅ Π²ΡΠ±ΠΈΡΠ°Π΅ΠΌ Π²Π°ΡΠΈΠ°Π½Ρ «ΠΠ½ΠΎΠΏΠΊΠ°».
Β
Π Π²ΡΠΏΠ°Π²ΡΠ΅ΠΌ ΡΠΏΠΈΡΠΊΠ΅ Π΅ΡΡΡ Π΄Π²Π° Π²Π°ΡΠΈΠ°Π½ΡΠ°: ΠΊΠ½ΠΎΠΏΠΊΠ° ΠΊΠ°ΠΊ ΡΠ»Π΅ΠΌΠ΅Π½Ρ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ ΡΠΎΡΠΌΡ ΠΈ ΠΊΠ°ΠΊ ΡΠ»Π΅ΠΌΠ΅Π½Ρ ActiveX. Π ΠΏΡΠΈΠ½ΡΠΈΠΏΠ΅, Π±ΠΎΠ»ΡΡΠΎΠΉ ΡΠ°Π·Π½ΠΈΡΡ Π² Π²ΡΠ±ΠΎΡΠ΅ ΠΊΠ½ΠΎΠΏΠΎΠΊ Π½Π΅Ρ, ΡΠ°ΠΊ ΡΡΠΎ Π²ΠΎΠ·ΡΠΌΡΠΌ ΠΊΠ½ΠΎΠΏΠΊΡ ΠΈΠ· Π±Π»ΠΎΠΊΠ° «ΠΠ»Π΅ΠΌΠ΅Π½ΡΡ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ ΡΠΎΡΠΌΡ».
ΠΠΎΡΠ»Π΅ ΡΠ΅Π»ΡΠΊΠ° Π½ΠΈΡΠ΅Π³ΠΎ Π½Π΅ ΠΏΡΠΎΠΈΠ·ΠΎΠΉΠ΄ΡΡ, ΡΠ°ΠΊ ΠΊΠ°ΠΊ Π½ΡΠΆΠ½ΠΎ ΡΠΊΠ°Π·Π°ΡΡ ΠΌΠ΅ΡΡΠΎ Π΄Π»Ρ Π½Π°ΡΠ΅ΠΉ ΠΊΠ½ΠΎΠΏΠΊΠΈ (ΠΏΡΠΎΡΡΡΠΌ Π²ΡΠ΄Π΅Π»Π΅Π½ΠΈΠ΅ΠΌ). ΠΠ° ΡΠΈΡΡΠ½ΠΊΠ΅ Π½ΠΈΠΆΠ΅ Π±ΡΠ΄ΡΡ Π΄Π²Π° Π²Π°ΡΠΈΠ°Π½ΡΠ° ΠΊΠ½ΠΎΠΏΠΎΠΊ.
Β
Β
ΠΠ΅ΡΠ²ΡΠΉ — ΡΡΠΎ ΠΊΠ½ΠΎΠΏΠΊΠ° ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ ΡΠΎΡΠΌΡ, Π²ΡΠΎΡΠΎΠΉΒ — ΠΊΠ½ΠΎΠΏΠΊΠ° ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ ActiveX.
ΠΡΠ»ΠΈΡΠΈΠ΅ — Π² Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΠΈ Π²ΡΠ·ΠΎΠ²Π° ΠΌΠ°ΠΊΡΠΎΡΠ°. Π ΠΏΠ΅ΡΠ²ΠΎΠΌ ΡΠ»ΡΡΠ°Π΅ Π½ΡΠΆΠ½ΠΎ ΡΡΠ»ΠΊΠ½ΡΡΡ ΠΏΡΠ°Π²ΠΎΠΉ ΠΊΠ½ΠΎΠΏΠΊΠΎΠΉ ΠΈ Π²ΡΠ±ΡΠ°ΡΡ «ΠΠ°Π·Π½Π°ΡΠΈΡΡ ΠΌΠ°ΠΊΡΠΎΡ…», Π²ΠΎ Π²ΡΠΎΡΠΎΠΌ ΠΏΡΠΎΡΡΠΎ ΡΠ΄Π΅Π»Π°ΡΡ Π΄Π²ΠΎΠΉΠ½ΠΎΠΉ ΡΠ΅Π»ΡΠΎΠΊ ΠΏΠΎ ΠΊΠ½ΠΎΠΏΠΊΠ΅ ΠΈ Π΄ΠΎΠΏΠΈΡΠ°ΡΡ Π²ΡΠ·ΠΎΠ² ΠΌΠ°ΠΊΡΠΎΡΠ°. Π ΠΌΠΎΡΠΌ ΡΠ»ΡΡΠ°Π΅ ΡΡΠΎ «Call DF».
Β
Β
Β
Π‘ΠΎΡΠ΅ΡΠ°Π½ΠΈΠ΅ ΠΊΠ»Π°Π²ΠΈΡ
Π‘ ΡΠΎΡΠ΅ΡΠ°Π½ΠΈΠ΅ΠΌ ΠΊΠ»Π°Π²ΠΈΡ Π²ΡΡ Π³ΠΎΡΠ°Π·Π΄ΠΎ ΠΏΡΠΎΡΠ΅. ΠΠ΅ΡΠ΅Ρ ΠΎΠ΄ΠΈΠΌ Π½Π° Π²ΠΊΠ»Π°Π΄ΠΊΡ «Π Π°Π·ΡΠ°Π±ΠΎΡΡΠΈΠΊ», Π½Π°ΠΆΠΈΠΌΠ°Π΅ΠΌ ΠΊΠ½ΠΎΠΏΠΊΡ «ΠΠ°ΠΊΡΠΎΡΡ», Π² Π²ΡΠΏΠ°Π²ΡΠ΅ΠΌ ΠΎΠΊΠ½Π΅ Π²ΡΠ±ΠΈΡΠ°Π΅ΠΌ ΠΌΠ°ΠΊΡΠΎΡ (DF), Π½Π°ΠΆΠΈΠΌΠ°Π΅ΠΌ ΠΊΠ½ΠΎΠΏΠΊΡ «ΠΠ°ΡΠ°ΠΌΠ΅ΡΡΡ» ΠΈ Π½Π°Π·Π½Π°ΡΠ°Π΅ΠΌ ΡΠΎΡΠ΅ΡΠ°Π½ΠΈΠ΅ ΠΊΠ»Π°Π²ΠΈΡ. ΠΠ°ΠΊ ΠΏΡΠ°Π²ΠΈΠ»ΠΎ ΡΡΠΎ ΡΠΎΡΠ΅ΡΠ°Π½ΠΈΠ΅ Ρ ΠΊΠ»Π°Π²ΠΈΡΠ΅ΠΉ Ctrl. ΠΠ»Ρ Π²ΡΠ·ΠΎΠ²Π° ΠΌΠ°ΠΊΡΠΎΡΠ° Π½ΡΠΆΠ½ΠΎ ΠΏΡΠΎΡΡΠΎ Π½Π°ΠΆΠ°ΡΡ Π½Π°Π·Π½Π°ΡΠ΅Π½Π½ΡΠ΅ ΠΊΠ»Π°Π²ΠΈΡΠΈ.
Β
Β
ΠΠ²ΡΠΎΡΠΈΠ³ΡΡΠ°
ΠΠ΅ΡΠ΅Ρ ΠΎΠ΄ΠΈΠΌ Π½Π° Π²ΠΊΠ»Π°Π΄ΠΊΡ «ΠΡΡΠ°Π²ΠΊΠ°», Π½Π°ΠΆΠΈΠΌΠ°Π΅ΠΌ ΠΊΠ½ΠΎΠΏΠΊΡ «ΠΠ»Π»ΡΡΡΡΠ°ΡΠΈΠΈ», Π² Π²ΡΠΏΠ°Π²ΡΠ΅ΠΌ ΡΠΏΠΈΡΠΊΠ΅ Π²ΡΠ±ΠΈΡΠ°Π΅ΠΌ «Π€ΠΈΠ³ΡΡΡ» ΠΈ Π²ΡΠ±ΠΈΡΠ°Π΅ΠΌ ΡΠΈΠ³ΡΡΡ, ΠΊΠΎΡΠΎΡΡΡ Ρ ΠΎΡΠΈΠΌ Π²ΡΡΠ°Π²ΠΈΡΡ. ΠΠΎΡΠ»Π΅ Π²ΡΠ±ΠΎΡΠ° ΡΠΈΠ³ΡΡΡ Π½Π΅ Π·Π°Π±ΡΠ²Π°Π΅ΠΌ ΡΡΠ»ΠΊΠ½ΡΡΡ ΠΏΠΎ Π»ΠΈΡΡΡ, ΠΊΠ°ΠΊ ΠΈ Π² ΡΠ»ΡΡΠ°Π΅ Ρ ΠΊΠ½ΠΎΠΏΠΊΠ°ΠΌΠΈ.
Β
Β
ΠΠ°Π»Π΅Π΅, ΡΡΠ»ΠΊΠ°Π΅ΠΌ ΠΏΡΠ°Π²ΠΎΠΉ ΠΊΠ½ΠΎΠΏΠΊΠΎΠΉ ΠΌΡΡΠΊΠΈ ΠΏΠΎ ΡΠΈΠ³ΡΡΠ΅ ΠΈ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΠΌ ΠΏΡΠ½ΠΊΡ «ΠΠ°Π·Π½Π°ΡΠΈΡΡ ΠΌΠ°ΠΊΡΠΎΡ…» ΠΊΠ°ΠΊ ΠΈ Π² ΠΊΠ½ΠΎΠΏΠΊΠ°Ρ . ΠΡΠ±ΠΈΡΠ°Π΅ΠΌ Π½Π°Ρ ΠΌΠ°ΠΊΡΠΎΡ ΠΈ ΠΆΠΌΡΠΌ «OK».
Β
Β
Β
Π ΠΈΡΡΠ½ΠΎΠΊ
Β
Π‘ ΡΠΈΡΡΠ½ΠΊΠ°ΠΌΠΈ ΡΠ° ΠΆΠ΅ ΡΠΈΡΡΠ°ΡΠΈΡ, ΡΡΠΎ ΠΈ Ρ ΡΠΈΠ³ΡΡΠ°ΠΌΠΈ. ΠΠΎΡΡΠΎΠΌΡ ΠΏΠΎΠ²ΡΠΎΡΡΡΡ ΠΏΠΎΡΡΠ΄ΠΎΠΊ Π΄Π΅ΠΉΡΡΠ²ΠΈΠΉ Π½Π΅ Π±ΡΠ΄Ρ. ΠΠΌΠ΅ΡΡΠΎ «Π€ΠΈΠ³ΡΡΡ» Π½ΡΠΆΠ½ΠΎ Π²ΡΠ±ΡΠ°ΡΡ «Π ΠΈΡΡΠ½ΠΊΠΈ» ΠΈ ΡΠΊΠ°Π·Π°ΡΡ ΠΏΡΡΡ ΠΊ Π»ΡΠ±ΠΎΠΌΡ ΡΠΈΡΡΠ½ΠΊΡ Π½Π° Π²Π°ΡΠ΅ΠΌ ΠΠ.
Β
ΠΠ°Π»Π΅Π΅ ΡΠ½ΠΎΠ²Π° ΡΡΠ»ΠΊΠ°Π΅ΠΌ ΠΏΡΠ°Π²ΠΎΠΉ ΠΊΠ½ΠΎΠΏΠΊΠΎΠΉ ΠΌΡΡΠΊΠΈ ΠΈ Π²ΡΠ±ΠΈΡΠ°Π΅ΠΌ «ΠΠ°Π·Π½Π°ΡΠΈΡΡ ΠΌΠ°ΠΊΡΠΎΡ», Π²ΡΠ±ΠΈΡΠ°Π΅ΠΌ Π½ΡΠΆΠ½ΡΠΉ Π½Π°ΠΌ ΠΈ Π½Π°ΠΆΠΈΠΌΠ°Π΅ΠΌ «ΠΠ».
Β
Π ΠΈΡΠΎΠ³Π΅ Ρ Π½Π°Ρ ΠΏΠΎΡΠ²ΠΈΡΡΡ ΠΊΠ½ΠΈΠ³Π° ExcelΒ Ρ ΡΠ΅ΡΡΡΡΠΌΡ Π²Π°ΡΠΈΠ°Π½ΡΠ°ΠΌΠΈ Π²ΡΠ·ΠΎΠ²Π° ΠΌΠ°ΠΊΡΠΎΡΠΎΠ².
Β
Β
Π‘ΠΊΠ°ΠΆΡ Π½Π°ΠΏΠΎΡΠ»Π΅Π΄ΠΎΠΊ, ΡΡΠΎ ΡΠ°ΠΊΠΈΠΌ ΠΆΠ΅ ΡΠΏΠΎΡΠΎΠ±ΠΎΠΌ ΠΌΠΎΠΆΠ½ΠΎ Π½Π°Π·Π½Π°ΡΠΈΡΡ ΠΌΠ°ΠΊΡΠΎΡ ΠΈ ΠΎΠ±ΡΠ΅ΠΊΡΡ WordArt, SmarArt ΡΠΈΡΡΠ½ΠΊΡ, Π»ΡΠ±ΠΎΠΉ Π΄ΠΈΠ°Π³ΡΠ°ΠΌΠΌΠ΅.Β
ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΠΎΠ΅ Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΠ΅ ΠΊΠ½ΠΎΠΏΠΎΠΊ Π½Π° Π»ΠΈΡΡ Excel
ΠΠ°Π΄ΡΡΡΠΎΠΉΠΊΠ° ΠΏΡΠ΅Π΄Π½Π°Π·Π½Π°ΡΠ΅Π½Π° Π΄Π»Ρ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΠ·Π°ΡΠΈΠΈ Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΡ ΠΊΠ½ΠΎΠΏΠΎΠΊ Π·Π°ΠΏΡΡΠΊΠ° ΠΌΠ°ΠΊΡΠΎΡΠ° Π½Π° Π»ΠΈΡΡ Excel
ΠΠΎΡΠΊΠΎΠ»ΡΠΊΡ ΠΌΠ°ΠΊΡΠΎΡΡ ΠΌΠ½Π΅ ΠΏΡΠΈΡ ΠΎΠ΄ΠΈΡΡΡ ΠΏΠΈΡΠ°ΡΡ ΠΎΡΠ΅Π½Ρ ΡΠ°ΡΡΠΎ, ΡΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ ΠΊΠ½ΠΎΠΏΠΎΠΊ ΠΈΡ Π·Π°ΠΏΡΡΠΊΠ° ΠΎΡΠ½ΠΈΠΌΠ°Π΅Ρ Π΄ΠΎΡΡΠ°ΡΠΎΡΠ½ΠΎ ΠΌΠ½ΠΎΠ³ΠΎ Π²ΡΠ΅ΠΌΠ΅Π½ΠΈ.
Π Π΅ΡΠ΅Π½ΠΈΠ΅ΠΌ ΡΡΠ°Π»ΠΎ ΡΠΎΠ·Π΄Π°Π½ΠΈΠ΅ ΡΡΠΎΠΉ Π½Π°Π΄ΡΡΡΠΎΠΉΠΊΠΈ — ΡΠ΅ΠΏΠ΅ΡΡ Π΄ΠΎΡΡΠ°ΡΠΎΡΠ½ΠΎ Π²ΡΠ΄Π΅Π»ΠΈΡΡ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ΡΡΠ΅Π΅ΠΊ Π½Π° Π»ΠΈΡΡΠ΅ Excel, Π½Π°ΠΆΠ°ΡΡ ΠΊΠΎΠΌΠ±ΠΈΠ½Π°ΡΠΈΡ ΠΊΠ»Π°Π²ΠΈΡ ΡΠΈΠΏΠ° Alt + 1, — ΠΈ ΡΠ΅ΡΠ΅Π· ΠΌΠ³Π½ΠΎΠ²Π΅Π½ΠΈΠ΅ Π½Π° Π»ΠΈΡΡΠ΅ ΡΠΎΠ·Π΄Π°ΡΡΡΡ Π·Π΅Π»ΡΠ½Π°Ρ ΠΊΠ½ΠΎΠΏΠΊΠ° Ρ Π½Π°Π·Π²Π°Π½ΠΈΠ΅ΠΌ Β«ΠΠ°ΠΏΡΡΠΊΒ», ΡΠ°ΡΠΏΠΎΠ»ΠΎΠΆΠ΅Π½Π½Π°Ρ ΡΠΎΡΠ½ΠΎ ΠΏΠΎΠ²Π΅ΡΡ ΡΠ°Π½Π΅Π΅ Π²ΡΠ΄Π΅Π»Π΅Π½Π½ΡΡ ΡΡΠ΅Π΅ΠΊ. ΠΡΡΠ°ΡΡΡΡ ΡΠΎΠ»ΡΠΊΠΎ Π½Π°Π·Π½Π°ΡΠΈΡΡ ΡΡΠΎΠΉ ΠΊΠ½ΠΎΠΏΠΊΠ΅ ΠΌΠ°ΠΊΡΠΎΡ, ΡΠ΅Π»ΠΊΠ½ΡΠ² ΠΏΠΎ Π½Π΅ΠΉ ΠΏΡΠ°Π²ΠΎΠΉ ΠΊΠ»Π°Π²ΠΈΡΠ΅ΠΉ ΠΌΡΡΠΈ.
ΠΡΠΈΠΌΠ΅Ρ ΠΊΠΎΠ΄Π° VBA Π΄Π»Ρ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ ΠΊΠ½ΠΎΠΏΠΊΠΈ:
Sub ΠΡΠΈΠΌΠ΅ΡΠΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΡ() Π‘ΠΎΠ·Π΄Π°ΡΡΠΠ½ΠΎΠΏΠΊΡ Selection, vbGreen, "ΠΠ±ΡΠ°Π±ΠΎΡΠ°ΡΡ Π΄Π°Π½Π½ΡΠ΅": End Sub End Sub
ΠΠ»Ρ Π²ΡΠ·ΠΎΠ²Π° ΡΠΎΡΠΌΡ (Π³Π΄Π΅ ΠΌΠΎΠΆΠ½ΠΎ Π½Π°ΡΡΡΠΎΠΈΡΡ ΡΠ΅ΠΊΡΡ ΠΈ ΡΠ²Π΅Ρ Π±ΡΠ΄ΡΡΠ΅ΠΉ ΠΊΠ½ΠΎΠΏΠΊΠΈ) ΠΏΡΠ΅Π΄Π½Π°Π·Π½Π°ΡΠ΅Π½Π° ΠΊΠΎΠΌΠ±ΠΈΠ½Π°ΡΠΈΡ ΠΊΠ»Π°Π²ΠΈΡ Ctrl + Alt + Shift + B
ΠΠΎΠ΄ ΡΡΠ½ΠΊΡΠΈΠΈ Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΡ ΠΊΠ½ΠΎΠΏΠΎΠΊ Π½Π° Π»ΠΈΡΡ Excel:
Function Π‘ΠΎΠ·Π΄Π°ΡΡΠΠ½ΠΎΠΏΠΊΡ(ByRef ra As Range, Optional ByVal ButtonColor As Long = 255, _ Optional ByVal ButtonName$ = "ΠΠ°ΠΏΡΡΠΊ", Optional ByVal MacroName As String = "") ' Π€ΡΠ½ΠΊΡΠΈΡ ΡΠΈΡΡΠ΅Ρ Π°Π²ΡΠΎΡΠΈΠ³ΡΡΡ (ΠΏΡΡΠΌΠΎΡΠ³ΠΎΠ»ΡΠ½ΠΈΠΊ) ΠΏΠΎΠ²Π΅ΡΡ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π° ΡΡΠ΅Π΅ΠΊ ra ' ΠΈ ΠΎΠΊΡΠ°ΡΠΈΠ²Π°Π΅Ρ ΡΠΎΠ·Π΄Π°Π½Π½ΡΡ ΠΊΠ½ΠΎΠΏΠΊΡ (Ρ Π½Π°Π·Π²Π°Π½ΠΈΠ΅ΠΌ ) Π² ΡΠ²Π΅Ρ Button_color ' Π‘ΠΎΠ·Π΄Π°Π½Π½ΠΎΠΉ ΠΊΠ½ΠΎΠΏΠΊΠ΅ Π½Π°Π·Π½Π°ΡΠ°Π΅ΡΡΡ ΠΌΠ°ΠΊΡΠΎΡ MacroName On Error Resume Next: Err.Clear w = ra.Width: h = ra.Height: l = ra.Left: t = ra.Top w = IIf(w >= 10, w, 50): h = IIf(h >= 10, h, 50) ' Π½Π΅ ΡΠΎΠ·Π΄Π°ΡΠΌ ΠΌΠ°Π»Π΅Π½ΡΠΊΠΈΠ΅ ΠΊΠ½ΠΎΠΏΠΊΠΈ - ΠΌΠΈΠ½ΠΈΠΌΡΠΌ 10*10 ' Π΄ΠΎΠ±Π°Π²Π»ΡΠ΅ΠΌ ΠΊΠ½ΠΎΠΏΠΊΡ Π½Π° Π»ΠΈΡΡ Dim sha As Shape: Set sha = ActiveSheet.Shapes.AddShape(msoShapeRoundedRectangle, l, t, w, h) With sha ' ΠΎΡΠΎΡΠΌΠ»ΡΠ΅ΠΌ Π°Π²ΡΠΎΡΠΈΠ³ΡΡΡ .Fill.Visible = msoTrue: .Fill.Solid .Fill.ForeColor.RGB = ButtonColor: .Fill.Transparency = 0.3 .Fill.BackColor.RGB = vbWhite .Fill.TwoColorGradient msoGradientFromCenter, 2 ' Π³ΡΠ°Π΄ΠΈΠ΅Π½ΡΠ½Π°Ρ Π·Π°Π»ΠΈΠ²ΠΊΠ° .Adjustments.item(1) = 0.23: .Placement = xlFreeFloating .OLEFormat.Object.PrintObject = False ' ΠΊΠ½ΠΎΠΏΠΊΠΈ Π½Π΅ Π²ΡΠ²ΠΎΠ΄ΡΡΡΡ Π½Π° ΠΏΠ΅ΡΠ°ΡΡ .Line.Weight = 0.25: .Line.ForeColor.RGB = vbBlack ' Π΄Π΅Π»Π°Π΅ΠΌ ΡΠΎΠ½ΠΊΠΈΠΉ ΡΠ΅ΡΠ½ΡΠΉ ΠΊΠΎΠ½ΡΡΡ With .TextFrame ' Π΄ΠΎΠ±Π°Π²Π»ΡΠ΅ΠΌ ΠΈ ΡΠΎΡΠΌΠ°ΡΠΈΡΡΠ΅ΠΌ ΡΠ΅ΠΊΡΡ .Characters.Text = ButtonName$ ' Π΄ΠΎΠ±Π°Π²Π»ΡΠ΅ΠΌ ΡΠ΅ΠΊΡΡ With .Characters.Font ' ΠΈΠ·ΠΌΠ΅Π½ΡΠ΅ΠΌ Π½Π°ΡΠ΅ΡΡΠ°Π½ΠΈΠ΅ ΡΠ΅ΠΊΡΡΠ° .Size = IIf(h >= 16, 10, 8): .Bold = True: .Color = vbBlack: .Name = "Arial" ' ΡΠ²Π΅Ρ ΠΈ ΡΡΠΈΡΡ End With .HorizontalAlignment = xlCenter: .VerticalAlignment = xlVAlignCenter End With .onaction = MacroName ' Π½Π°Π·Π½Π°ΡΠ°Π΅ΠΌ ΠΊΠ½ΠΎΠΏΠΊΠ΅ ΠΌΠ°ΠΊΡΠΎΡ (Π΅ΡΠ»ΠΈ ΠΎΠ½ Π·Π°Π΄Π°Π½ Π² ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠ°Ρ ) End With End Function
ΠΠ°ΠΏΡΡΠΊ ΠΌΠ°ΠΊΡΠΎΡΠ° ΠΊΠ½ΠΎΠΏΠΊΠΎΠΉ
ΠΡΠΎ Π³Π»Π°Π²Π° ΠΈΠ· ΠΊΠ½ΠΈΠ³ΠΈ ΠΠΈΠ»Π»Π° ΠΠΆΠ΅Π»Π΅Π½Π° ΠΡΡΡ Excel ΡΠ°ΡΡΠΈΡΡΡΡ Π³ΠΎΡΠΈΠ·ΠΎΠ½ΡΡ: Π΄Π΅Π»Π°ΠΉΡΠ΅ Π½Π΅Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΠ΅ Ρ Microsoft Excel.
ΠΠ°Π΄Π°ΡΠ°: Π² ΠΏΡΠ΅Π΄ΡΠ΄ΡΡΠ΅ΠΉ Π·Π°ΠΌΠ΅ΡΠΊΠ΅ ΠΌΡ ΡΠ°ΡΡΠΊΠ°Π·Π°Π»ΠΈ, ΠΊΠ°ΠΊ Π·Π°ΠΏΡΡΠΊΠ°ΡΡ ΠΌΠ°ΠΊΡΠΎΡΡ ΠΊΠ»Π°Π²ΠΈΠ°ΡΡΡΠ½ΡΠΌΠΈ ΡΠΎΠΊΡΠ°ΡΠ΅Π½ΠΈΡΠΌΠΈ. ΠΠΎΠΆΠ½ΠΎ Π»ΠΈ Π΄Π»Ρ ΡΡΠΎΠΉ ΡΠ΅Π»ΠΈ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΠΊΠ½ΠΎΠΏΠΊΠΈ Π½Π° Π»ΠΈΡΡΠ΅?
Π Π΅ΡΠ΅Π½ΠΈΠ΅: ΡΡΡΠ΅ΡΡΠ²ΡΠ΅Ρ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²ΠΎ ΡΠΏΠΎΡΠΎΠ±ΠΎΠ² Π·Π°ΠΏΡΡΡΠΈΡΡ ΠΌΠ°ΠΊΡΠΎΡ ΠΊΠ½ΠΎΠΏΠΊΠΎΠΉ (ΡΠΈΡ. 1).
Π ΠΈΡ. 1. ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ Π·Π°ΠΏΡΡΡΠΈΡΡ ΠΌΠ°ΠΊΡΠΎΡ Ρ ΠΏΠΎΠΌΠΎΡΡΡ Π»ΡΠ±ΠΎΠ³ΠΎ ΠΈΠ· ΡΡΠΈΡ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠ²
Π‘ΠΊΠ°ΡΠ°ΡΡ Π·Π°ΠΌΠ΅ΡΠΊΡ Π² ΡΠΎΡΠΌΠ°ΡΠ΅ Word ΠΈΠ»ΠΈ pdf, ΠΏΡΠΈΠΌΠ΅ΡΡ Π² ΡΠΎΡΠΌΠ°ΡΠ΅ Excel (Ρ ΠΊΠΎΠ΄ΠΎΠΌ VBA)
Π‘ΠΏΠΎΡΠΎΠ± 1. ΠΠ»Π΅ΠΌΠ΅Π½Ρ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ ΡΠΎΡΠΌΡ ΠΠ½ΠΎΠΏΠΊΠ°
Π Excel 2007 ΠΈΠ»ΠΈ Π±ΠΎΠ»Π΅Π΅ ΠΏΠΎΠ·Π΄Π½Π΅ΠΉ Π²Π΅ΡΡΠΈΠΈ ΠΏΠ΅ΡΠ΅ΠΉΠ΄ΠΈΡΠ΅ Π½Π° Π²ΠΊΠ»Π°Π΄ΠΊΡ Π ΠΠΠ ΠΠΠΠ’Π§ΠΠ. Π ΠΎΠ±Π»Π°ΡΡΠΈ ΠΠ»Π΅ΠΌΠ΅Π½ΡΡ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ ΠΊΠ»ΠΈΠΊΠ½ΠΈΡΠ΅ Π½Π° ΠΊΠ½ΠΎΠΏΠΊΠ΅ ΠΡΡΠ°Π²ΠΈΡΡ, Π² ΡΠ°ΡΠΊΡΡΠ²Π°ΡΡΠ΅ΠΌΡΡ ΡΠΏΠΈΡΠΊΠ΅ Π²ΡΠ±Π΅ΡΠΈΡΠ΅ Π·Π½Π°ΡΠΎΠΊ ΠΠ½ΠΎΠΏΠΊΠ° (ΡΠΈΡ. 2). ΠΠ΅ΡΠ΅ΡΠ°ΡΠΈΡΠ΅ Π·Π½Π°ΡΠΎΠΊ Π½Π° Π»ΠΈΡΡ, ΠΈ Π½Π°ΡΠΈΡΡΠΉΡΠ΅ ΠΊΠ½ΠΎΠΏΠΊΡ. ΠΠΎΠ³Π΄Π° Π²Ρ Π·Π°ΠΊΠΎΠ½ΡΠΈΡΠ΅ ΠΎΡΡΠΈΡΠΎΠ²ΡΠ²Π°ΡΡ ΠΊΠ½ΠΎΠΏΠΊΡ, ΠΏΠΎΡΠ²ΠΈΡΡΡ Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠ΅ ΠΎΠΊΠ½ΠΎ ΠΠ°Π·Π½Π°ΡΠΈΡΡ ΠΌΠ°ΠΊΡΠΎΡ ΠΎΠ±ΡΠ΅ΠΊΡΡ. ΠΡΠ±Π΅ΡΠΈΡΠ΅ ΠΌΠ°ΠΊΡΠΎΡ ΠΈ Π½Π°ΠΆΠΌΠΈΡΠ΅ Ok.
Π ΠΈΡ. 2. ΠΡΡΠ°Π²ΠΊΠ° ΠΊΠ½ΠΎΠΏΠΊΠΈ, ΠΊΠ°ΠΊ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠ° ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ ΡΠΎΡΠΌΡ
ΠΡΠΈΠΌΠ΅ΡΠ°Π½ΠΈΠ΅. ΠΡΠ»ΠΈ Π²Ρ Π½Π΅ Π²ΠΈΠ΄ΠΈΡΠ΅ Π²ΠΊΠ»Π°Π΄ΠΊΡ Π ΠΠΠΠΠΠ’Π§ΠΠ, ΠΏΡΠΎΠΉΠ΄ΠΈΡΠ΅ ΠΏΠΎ ΠΌΠ΅Π½Ρ Π€ΠΠΠ β> ΠΠ°ΡΠ°ΠΌΠ΅ΡΡΡ. ΠΠ΅ΡΠ΅ΠΉΠ΄ΠΈΡΠ΅ Π½Π° Π²ΠΊΠ»Π°Π΄ΠΊΡ ΠΠ°ΡΡΡΠΎΠΈΡΡ Π»Π΅Π½ΡΡ, ΠΈ Π² ΠΏΡΠ°Π²ΠΎΠΉ ΡΠ°ΡΡΠΈ ΠΎΠΊΠ½Π° ΠΠ°ΡΠ°ΠΌΠ΅ΡΡΡ Excel β ΠΡΠ½ΠΎΠ²Π½ΡΠ΅ Π²ΠΊΠ»Π°Π΄ΠΊΠΈ ΠΏΠΎΡΡΠ°Π²ΡΡΠ΅ Π³Π°Π»ΠΎΡΠΊΡ Π½Π°ΠΏΡΠΎΡΠΈΠ² Π Π°Π·ΡΠ°Π±ΠΎΡΡΠΈΠΊ.
ΠΠ½ΠΎΠΏΠΊΠ° ΠΏΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ ΠΈΠΌΠ΅Π΅Ρ Π½Π°Π·Π²Π°Π½ΠΈΠ΅ ΠΠ½ΠΎΠΏΠΊΠ° 1. Π§ΡΠΎΠ±Ρ ΠΈΠ·ΠΌΠ΅Π½ΠΈΡΡ ΠΈΠΌΡ: Π½Π°ΠΆΠΌΠΈΡΠ΅ Ctrl ΠΈ ΠΊΠ»ΠΈΠΊΠ½ΠΈΡΠ΅ Π½Π° ΠΊΠ½ΠΎΠΏΠΊΠ΅ (ΡΡΠΎ ΠΏΠΎΠ·Π²ΠΎΠ»ΠΈΡ ΡΠ΄Π΅Π»Π°ΡΡ ΠΊΠ½ΠΎΠΏΠΊΡ Π°ΠΊΡΠΈΠ²Π½ΠΎΠΉ Π±Π΅Π· Π·Π°ΠΏΡΡΠΊΠ° ΠΌΠ°ΠΊΡΠΎΡΠ°). Π£Π΄Π°Π»ΠΈΡΠ΅ ΡΠ΅ΠΊΡΡ Ρ Π½Π°Π·Π²Π°Π½ΠΈΠ΅ΠΌ ΠΊΠ½ΠΎΠΏΠΊΠΈ ΠΈ Π½Π°Π±Π΅ΡΠΈΡΠ΅ Π½ΠΎΠ²ΠΎΠ΅ Π½Π°Π·Π²Π°Π½ΠΈΠ΅. ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΈΠ·ΠΌΠ΅Π½ΠΈΡΡ ΡΠΈΠΏ ΠΈ ΡΠ°Π·ΠΌΠ΅Ρ ΡΡΠΈΡΡΠ°, Π²ΡΡΠ°Π²Π½ΠΈΠ²Π°Π½ΠΈΠ΅ ΠΈ ΡΠ²Π΅Ρ ΡΠ΅ΠΊΡΡΠ°. ΠΡΠ»ΠΈ Π² Π±ΡΠ΄ΡΡΠ΅ΠΌ Π²Ρ Π·Π°Ρ ΠΎΡΠΈΡΠ΅ ΠΈΠ·ΠΌΠ΅Π½ΠΈΡΡ ΠΌΠ°ΠΊΡΠΎΡ, Π½Π°Π·Π½Π°ΡΠ΅Π½Π½ΡΠΉ ΠΊΠ½ΠΎΠΏΠΊΠ΅, ΠΊΠ»ΠΈΠΊΠ½ΠΈΡΠ΅ Π½Π° Π½Π΅ΠΉ ΠΏΡΠ°Π²ΠΎΠΉ ΠΊΠ½ΠΎΠΏΠΊΠΎΠΉ ΠΌΡΡΠΈ ΠΈ Π²ΡΠ±Π΅ΡΠΈΡΠ΅ ΠΎΠΏΡΠΈΡ ΠΠ°Π·Π½Π°ΡΠΈΡΡ ΠΌΠ°ΠΊΡΠΎΡ.
Π‘ΠΏΠΎΡΠΎΠ± 2. ΠΠ½ΠΎΠΏΠΊΠ° ActiveX
ΠΠ½ΠΎΠΏΠΊΠ° ActiveX Π²ΡΠ³Π»ΡΠ΄ΠΈΡ Π°Π½Π°Π»ΠΎΠ³ΠΈΡΠ½ΠΎ ΠΠ½ΠΎΠΏΠΊΠ΅ ΠΠ»Π΅ΠΌΠ΅Π½Ρ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ ΡΠΎΡΠΌΡ. ΠΡΠΈ ΡΡΠΎΠΌ ΠΠ½ΠΎΠΏΠΊΠ° ActiveX ΠΈΠΌΠ΅Π΅Ρ Π±ΠΎΠ»Π΅Π΅ Π³ΠΈΠ±ΠΊΠΈΠΉ ΡΡΠ½ΠΊΡΠΈΠΎΠ½Π°Π». ΠΡΠΏΠΎΠ»Π½ΠΈΡΠ΅ ΡΠ»Π΅Π΄ΡΡΡΠΈΠ΅ ΡΠ°Π³ΠΈ, ΡΡΠΎΠ±Ρ ΡΠΎΠ·Π΄Π°ΡΡ ΠΠ½ΠΎΠΏΠΊΡ ActiveX.
ΠΠ΅ΡΠ΅ΠΉΠ΄ΠΈΡΠ΅ Π½Π° Π²ΠΊΠ»Π°Π΄ΠΊΡ Π ΠΠΠ ΠΠΠΠ’Π§ΠΠ. Π ΠΎΠ±Π»Π°ΡΡΠΈ ΠΠ»Π΅ΠΌΠ΅Π½ΡΡ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ ΠΊΠ»ΠΈΠΊΠ½ΠΈΡΠ΅ ΠΊΠ½ΠΎΠΏΠΊΡ ΠΡΡΠ°Π²ΠΈΡΡ, ΠΈ Π² ΡΠ°ΡΠΊΡΡΠ²ΡΠ΅ΠΌΡΡ ΡΠΏΠΈΡΠΊΠ΅ Π²ΡΠ±Π΅ΡΠΈΡΠ΅ Π·Π½Π°ΡΠΎΠΊ ΠΠ½ΠΎΠΏΠΊΠ° (ΡΠΈΡ. 3). ΠΠ°ΠΆΠΌΠΈΡΠ΅ Π½Π° ΠΏΠΈΠΊΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΠ½ΠΎΠΏΠΊΠ° ΠΈ ΠΏΠ΅ΡΠ΅ΡΠ°ΡΠΈΡΠ΅ Π΅Π΅ Π½Π° ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ. ΠΠ±ΡΠ°ΡΠΈΡΠ΅ Π²Π½ΠΈΠΌΠ°Π½ΠΈΠ΅, ΡΡΠΎ Π²Ρ Π½Π°Ρ ΠΎΠ΄ΠΈΡΠ΅ΡΡ Π² ΡΠ΅ΠΆΠΈΠΌΠ΅ ΠΊΠΎΠ½ΡΡΡΡΠΊΡΠΎΡΠ°.
Π ΠΈΡ. 3. ΠΡΡΠ°Π²ΠΊΠ° ΠΊΠ½ΠΎΠΏΠΊΠΈ, ΠΊΠ°ΠΊ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠ° ActiveX
ΠΠ»ΠΈΠΊΠ½ΠΈΡΠ΅ Π½Π° ΠΠ½ΠΎΠΏΠΊΠ΅ ΠΏΡΠ°Π²ΠΎΠΉ ΠΊΠ½ΠΎΠΏΠΊΠΎΠΉ ΠΌΡΡΠΈ, ΠΈ Π²ΡΠ±Π΅ΡΠΈΡΠ΅ ΠΎΠΏΡΠΈΡ Π‘Π²ΠΎΠΉΡΡΠ²Π°. ΠΠΎΡΠ²ΠΈΡΡΡ ΠΎΠΊΠ½ΠΎ Properties (ΡΠ²ΠΎΠΉΡΡΠ²Π°, ΡΠΈΡ. 4). ΠΠ°Ρ ΠΎΠ΄ΠΈΠΌ ΡΡΡΠΎΠΊΡ Π΄Π»Ρ Π·Π°Π³ΠΎΠ»ΠΎΠ²ΠΊΠ° β Caption. Π£Π΄Π°Π»ΠΈΡΠ΅ ΡΠ΅ΠΊΡΡ CommandButton3Β [1] ΠΈ Π½Π°Π±Π΅ΡΠΈΡΠ΅ ΠΡΠΏΠΎΠ»Π½ΠΈΡΡ! ΠΠ½ΠΎΠΏΠΊΠ° ActiveX. ΠΡ ΡΠ°ΠΊΠΆΠ΅ ΠΌΠΎΠΆΠ΅ΡΠ΅ Π·Π°ΠΌΠ΅Π½ΠΈΡΡ ΡΡΠΈΡΡ Arial Π½Π° Calibri. ΠΡ ΡΠ°ΠΊΠΆΠ΅ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΈΠ·ΠΌΠ΅Π½ΠΈΡΡ Π²Π½Π΅ΡΠ½ΠΈΠΉ Π²ΠΈΠ΄ ΠΊΠ½ΠΎΠΏΠΊΠΈ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΡΠ°ΠΊΠΈΡ ΡΠ²ΠΎΠΉΡΡΠ², ΠΊΠ°ΠΊ BackColor ΠΈ ForeColor; ΠΌΠΎΠΆΠ΅ΡΠ΅ Π΄ΠΎΠ±Π°Π²ΠΈΡΡ ΠΈΠ·ΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΠ΅ Π½Π° ΠΊΠ½ΠΎΠΏΠΊΡ (ΡΠ²ΠΎΠΉΡΡΠ²ΠΎ Picture) ΠΈ Ρ.Π΄. ΠΡΠΈ ΠΎΡΠΎΠ±Π΅Π½Π½ΠΎΡΡΠΈ Π΄Π΅Π»Π°ΡΡ ΡΠ»Π΅ΠΌΠ΅Π½ΡΡ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ ActiveX Π½Π°ΠΌΠ½ΠΎΠ³ΠΎ Π±ΠΎΠ»Π΅Π΅ Π³ΠΈΠ±ΠΊΠΈΠΌΠΈ, ΡΠ΅ΠΌ ΡΠ»Π΅ΠΌΠ΅Π½ΡΡ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ ΡΠΎΡΠΌΡ. ΠΠ°ΠΊΡΠΎΠΉΡΠ΅ ΠΎΠΊΠ½ΠΎ ΡΠ²ΠΎΠΉΡΡΠ², ΠΊΠ»ΠΈΠΊΠ½ΡΠ² Π½Π° ΠΊΡΠ΅ΡΡΠΈΠΊ Π² ΠΏΡΠ°Π²ΠΎΠΌ Π²Π΅ΡΡ Π½Π΅ΠΌ ΡΠ³Π»Ρ.
Π ΠΈΡ. 4. Π‘Π²ΠΎΠΉΡΡΠ²Π° ΠΠ½ΠΎΠΏΠΊΠΈ ActiveX
ΠΡΡΠ°Π²Π°ΡΡΡ Π² ΡΠ΅ΠΆΠΈΠΌΠ΅ ΠΊΠΎΠ½ΡΡΡΡΠΊΡΠΎΡΠ°, ΠΊΠ»ΠΈΠΊΠ½ΠΈΡΠ΅ ΠΏΡΠ°Π²ΠΎΠΉ ΠΊΠ½ΠΎΠΏΠΊΠΎΠΉ ΠΌΡΡΠΈ, ΠΈ Π²ΡΠ±Π΅ΡΠΈΡΠ΅ ΠΎΠΏΡΠΈΡ ΠΡΡ ΠΎΠ΄Π½ΡΠΉ ΡΠ΅ΠΊΡΡ. ΠΡ ΠΏΠ΅ΡΠ΅ΠΉΠ΄Π΅ΡΠ΅ Π² ΠΎΠΊΠ½ΠΎ ΡΠ΅Π΄Π°ΠΊΡΠΎΡΠ° VBA Π² ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ Private Sub CommandButton3_Click (ΡΠΈΡ. 5). Π Π½Π°ΡΡΠΎΡΡΠΈΠΉ ΠΌΠΎΠΌΠ΅Π½Ρ ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° Π½Π΅ Π²ΡΠΏΠΎΠ»Π½ΡΠ΅Ρ Π½ΠΈΠΊΠ°ΠΊΠΎΠΉ ΠΊΠΎΠ΄ (ΠΎΠ½Π° ΠΏΡΡΡΠ°Ρ). ΠΠ±ΡΠ°ΡΠΈΡΠ΅ Π²Π½ΠΈΠΌΠ°Π½ΠΈΠ΅, ΡΡΠΎ ΠΊΠΎΠ΄ Β«ΠΆΠΈΠ²Π΅ΡΒ» Π½Π΅ Π² ΠΎΡΠ΄Π΅Π»ΡΠ½ΠΎΠΌ ΠΌΠΎΠ΄ΡΠ»Π΅, Π° Π² Π»ΠΈΡΡΠ΅ ΠΊΠ½ΠΈΠ³ΠΈ.
Π ΠΈΡ. 5. Π Π΅Π΄Π°ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ ΠΊΠΎΠ΄Π° VBA, Π°ΡΡΠΎΡΠΈΠΈΡΠΎΠ²Π°Π½Π½ΠΎΠ³ΠΎ Ρ ΠΠ½ΠΎΠΏΠΊΠΎΠΉ ActiveX
ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ Π½Π°ΠΏΠΈΡΠ°ΡΡ Π² ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ΅ Π»ΡΠ±ΠΎΠΉ ΠΊΠΎΠ΄. ΠΡΠ»ΠΈ Π²Ρ Ρ ΠΎΡΠΈΡΠ΅, ΡΡΠΎΠ±Ρ ΠΊΠ»ΠΈΠΊ Π½Π° ΠΠ½ΠΎΠΏΠΊΠ΅ ActiveX Π·Π°ΠΏΡΡΠΊΠ°Π» ΠΎΠ΄ΠΈΠ½ ΠΈΠ· ΡΡΡΠ΅ΡΡΠ²ΡΡΡΠΈΡ ΠΌΠ°ΠΊΡΠΎΡΠΎΠ², ΠΏΡΠΎΡΡΠΎ ΡΠΊΠ°ΠΆΠΈΡΠ΅ Π΅Π³ΠΎ ΠΈΠΌΡ Π² ΡΠ΅ΠΊΡΡΠ΅ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ (ΡΠΈΡ. 6).
Π ΠΈΡ. 6. ΠΡΠΎΡΠ΅Π΄ΡΡΠ° Private Sub CommandButton3_Click Π±ΡΠ΄Π΅Ρ ΠΈΡΠΏΠΎΠ»Π½ΡΡΡ ΠΌΠ°ΠΊΡΠΎΡ TestMacro
ΠΠ΅ΡΠ½ΠΈΡΠ΅ΡΡ ΠΈΠ· ΡΠ΅Π΄Π°ΠΊΡΠΎΡΠ° VBA Π½Π°Π·Π°Π΄ Π½Π° Π»ΠΈΡΡ Excel. ΠΡΠΉΠ΄ΠΈΡΠ΅ ΠΈΠ· ΡΠ΅ΠΆΠΈΠΌΠ° ΠΊΠΎΠ½ΡΡΡΡΠΊΡΠΎΡΠ°, ΠΊΠ»ΠΈΠΊΠ½ΡΠ² Π½Π° ΠΎΠ΄Π½ΠΎΠΈΠΌΠ΅Π½Π½ΡΡ ΠΊΠ½ΠΎΠΏΠΊΡ Π½Π° Π»Π΅Π½ΡΠ΅.
ΠΡΠΈΠΌΠ΅ΡΠ°Π½ΠΈΠ΅. Π‘Π°ΠΌ ΠΌΠ°ΠΊΡΠΎΡ TestMacro ΠΏΡΠ΅Π΄Π΅Π»ΡΠ½ΠΎ ΠΏΡΠΎΡΡ. ΠΠ½ Π²ΡΠ²ΠΎΠ΄ΠΈΡ Π½Π° ΡΠΊΡΠ°Π½ ΠΎΠΊΠ½ΠΎ ΠΠ°ΠΊΡΠΎΡ Π²ΡΠΏΠΎΠ»Π½Π΅Π½. ΠΡΠΈ ΡΡΠΎΠΌ ΠΊΠΎΠ΄ ΠΌΠ°ΠΊΡΠΎΡΠ°, ΠΊΠ°ΠΊ ΠΈ ΠΏΠΎΠ»ΠΎΠΆΠ΅Π½ΠΎ, ΡΠ°Π·ΠΌΠ΅ΡΠ΅Π½ Π² ΠΌΠΎΠ΄ΡΠ»Π΅ VBA.
Sub TestMacro()
MsgBox "
ΠΠ°ΠΊΡΠΎΡ Π²ΡΠΏΠΎΠ»Π½Π΅Π½"
End Sub
Π‘ΠΏΠΎΡΠΎΠ± 3. ΠΡΠ±Π°Ρ ΡΠΈΠ³ΡΡΠ°, ΠΊΠ°ΡΡΠΈΠ½ΠΊΠ°, ΡΠΈΡΡΠ½ΠΎΠΊ SmartArt, Clip Art
ΠΠΎΠΌΠ΅ΡΡΠΈΡΠ΅ ΠΎΠ±ΡΠ΅ΠΊΡ Π½Π° Π»ΠΈΡΡ Excel. Π©Π΅Π»ΠΊΠ½ΠΈΡΠ΅ ΠΏΡΠ°Π²ΠΎΠΉ ΠΊΠ½ΠΎΠΏΠΊΠΎΠΉ ΠΌΡΡΠΈ Π½Π° ΠΎΠ±ΡΠ΅ΠΊΡΠ΅ ΠΈ Π²ΡΠ±Π΅ΡΠΈΡΠ΅ ΠΊΠΎΠΌΠ°Π½Π΄Ρ ΠΠ°Π·Π½Π°ΡΠΈΡΡ ΠΌΠ°ΠΊΡΠΎΡ. Π ΠΎΠΊΠ½Π΅ ΠΠ°Π·Π½Π°ΡΠΈΡΡ ΠΌΠ°ΠΊΡΠΎΡ ΠΎΠ±ΡΠ΅ΠΊΡΡ Π²ΡΠ±Π΅ΡΠΈΡΠ΅ ΠΌΠ°ΠΊΡΠΎΡ ΠΈ Π½Π°ΠΆΠΌΠΈΡΠ΅ Ok.
Π‘ΠΏΠΎΡΠΎΠ± 4. Π‘ ΠΏΠΎΠΌΠΎΡΡΡ Π³ΠΈΠΏΠ΅ΡΡΡΡΠ»ΠΊΠΈ
ΠΠ°ΡΡΡΠΎΠΉΠΊΠ° ΠΌΠ°ΠΊΡΠΎΡΠ° Π΄Π»Ρ Π·Π°ΠΏΡΡΠΊΠ° Ρ ΠΏΠΎΠΌΠΎΡΡΡ Π³ΠΈΠΏΠ΅ΡΡΡΡΠ»ΠΊΠΈ Π΄ΠΎΠ²ΠΎΠ»ΡΠ½ΠΎ ΡΠ»ΠΎΠΆΠ½Π°, Π½ΠΎ ΠΈΠ½ΡΠ΅ΡΠ΅ΡΠ½Π°. ΠΠ»Ρ Π½Π°ΡΠ°Π»Π° Π²Π²Π΅Π΄ΠΈΡΠ΅ ΠΊΠ°ΠΊΠΎΠΉ-Π½ΠΈΠ±ΡΠ΄Ρ ΡΠ΅ΠΊΡΡ Π² ΡΡΠ΅ΠΉΠΊΡ β Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ, ΠΠ°ΠΏΡΡΠΊ ΠΌΠ°ΠΊΡΠΎΡΠ° Π³ΠΈΠΏΠ΅ΡΡΡΡΠ»ΠΊΠΎΠΉ. ΠΠ°ΡΠ΅ΠΌ Π½Π° Π²ΠΊΠ»Π°Π΄ΠΊΠ΅ ΠΠ‘Π’ΠΠΠΠ Π²ΡΠ±Π΅ΡΠΈΡΠ΅ ΠΊΠΎΠΌΠ°Π½Π΄Ρ ΠΠΈΠΏΠ΅ΡΡΡΡΠ»ΠΊΠ°, ΠΈ Π² ΠΎΠΊΠ½Π΅ ΠΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΠ΅ Π³ΠΈΠΏΠ΅ΡΡΡΡΠ»ΠΊΠΈ Π²Π²Π΅Π΄ΠΈΡΠ΅ Π°Π΄ΡΠ΅Ρ ΡΡΠ΅ΠΉΠΊΠΈ, Π² ΠΊΠΎΡΠΎΡΠΎΠΉ Π²Π²Π΅Π΄Π΅Π½ ΡΠ΅ΠΊΡΡ. Π Π½Π°ΡΠ΅ΠΌ ΠΏΡΠΈΠΌΠ΅ΡΠ΅ β ΡΡΠΎ Π28. ΠΡΠΎ ΠΏΠΎΠ·Π²ΠΎΠ»ΠΈΡ ΠΏΡΠΈ Π½Π°ΠΆΠ°ΡΠΈΠΈ Π³ΠΈΠΏΠ΅ΡΡΡΡΠ»ΠΊΠΈ ΠΎΡΡΠ°ΡΡΡΡ Π² ΡΡΠ΅ΠΉΠΊΠ΅.
Π ΠΈΡ. 7. ΠΠ°ΠΌΠΊΠ½ΠΈΡΠ΅ Π³ΠΈΠΏΠ΅ΡΡΡΡΠ»ΠΊΡ ΡΠ°ΠΌΡ Π½Π° ΡΠ΅Π±Ρ
ΠΠ΅ΡΠ΅ΠΉΠ΄ΠΈΡΠ΅ Π² ΡΠ΅Π΄Π°ΠΊΡΠΎΡ VBA. Π ΠΎΠΊΠ½Π΅ ΠΏΡΠΎΠ΅ΠΊΡΠ° (VBAProject) Π½Π°ΠΉΠ΄ΠΈΡΠ΅ ΡΡΡΠΎΠΊΡ Ρ Π»ΠΈΡΡΠΎΠΌ Excel, Π½Π° ΠΊΠΎΡΠΎΡΠΎΠΌ Π½Π°Ρ ΠΎΠ΄ΠΈΡΡΡ Π³ΠΈΠΏΠ΅ΡΡΡΡΠ»ΠΊΠ°. Π Π½Π°ΡΠ΅ΠΌ ΠΏΡΠΈΠΌΠ΅ΡΠ΅ Π»ΠΈΡΡ Π½Π°Π·ΡΠ²Π°Π΅ΡΡΡ Sheet1 (Π ΠΈΡ. 1). ΠΠ»ΠΈΠΊΠ½ΠΈΡΠ΅ Π½Π° ΡΡΠΎΠΉ ΡΡΡΠΎΠΊΠ΅ ΠΏΡΠ°Π²ΠΎΠΉ ΠΊΠ½ΠΎΠΏΠΊΠΎΠΉ ΠΌΡΡΠΈ, ΠΈ Π²ΡΠ±Π΅ΡΠΈΡΠ΅ ΠΊΠΎΠΌΠ°Π½Π΄Ρ View Code (ΡΠΈΡ. 8).
Π ΠΈΡ. 8. ΠΠΎΠ΄ Π΄Π»Ρ ΠΏΠ΅ΡΠ΅Ρ Π²Π°ΡΠ° Π½Π°ΠΆΠ°ΡΠΈΡ Π³ΠΈΠΏΠ΅ΡΡΡΡΠ»ΠΊΠΈ Π΄ΠΎΠ»ΠΆΠ΅Π½ Π±ΡΡΡ ΡΠ°ΡΠΏΠΎΠ»ΠΎΠΆΠ΅Π½ Π½Π° Π»ΠΈΡΡΠ΅
ΠΡΠΊΡΠΎΠ΅ΡΡΡ ΠΏΠ°Π½Π΅Π»Ρ ΠΊΠΎΠ΄Π° Π΄Π»Ρ Π»ΠΈΡΡΠ° Sheet1 (Π ΠΈΡ. 1). ΠΡΠ»ΠΈ Π²Ρ ΡΠ°Π½Π΅Π΅ Π²ΡΠΏΠΎΠ»Π½ΡΠ»ΠΈ Π΄Π΅ΠΉΡΡΠ²ΠΈΡ, ΠΎΠΏΠΈΡΠ°Π½Π½ΡΠ΅ Π²ΡΡΠ΅ Π² ΡΠ°Π·Π΄Π΅Π»Π΅ Π‘ΠΏΠΎΡΠΎΠ± 2. ΠΠ½ΠΎΠΏΠΊΠ° ActiveX Π΄Π»Ρ Π·Π°ΠΏΡΡΠΊΠ° ΠΌΠ°ΠΊΡΠΎΡΠ°, ΡΠΎ Π²Π²Π΅ΡΡ Ρ ΠΎΠΊΠ½Π° Π±ΡΠ΄Π΅Ρ ΡΠ°Π·ΠΌΠ΅ΡΠ΅Π½ΠΎ ΡΡΠΈ ΡΡΡΠΎΡΠΊΠΈ ΠΊΠΎΠ΄Π° (ΡΠΌ. ΡΠΈΡ. 6). ΠΡΠ»ΠΈ Π²Ρ Π½Π΅ Π΄Π΅Π»Π°Π»ΠΈ ΡΡΠΎΠ³ΠΎ, ΠΎΠΊΠ½ΠΎ Π±ΡΠ΄Π΅Ρ ΠΏΡΡΡΡΠΌ. Π Π»ΡΠ±ΠΎΠΌ ΡΠ»ΡΡΠ°Π΅, Π²ΠΎΡΠΏΠΎΠ»ΡΠ·ΡΠΉΡΠ΅ΡΡ Π΄Π²ΡΠΌΡ Π²ΡΠΏΠ°Π΄Π°ΡΡΠΈΠΌΠΈ ΠΌΠ΅Π½Ρ Π² Π²Π΅ΡΡ Π½Π΅ΠΉ ΡΠ°ΡΡΠΈ ΠΎΠΊΠ½Π°. Π Π»Π΅Π²ΠΎΠΌ ΡΠΏΠΈΡΠΊΠ΅ Π²ΡΠ±Π΅ΡΠΈΡΠ΅ Worksheet, Π² ΠΏΡΠ°Π²ΠΎΠΌ β FollowHyperlink. Π£ Π²Π°Ρ ΠΏΠΎΡΠ²ΠΈΡΡΡ Π·Π°Π³ΠΎΡΠΎΠ²ΠΊΠ° ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ Worksheet_FollowHyperlink ΠΏΠ΅ΡΠ΅Ρ Π²Π°ΡΡΠ²Π°ΡΡΠ΅ΠΉ ΡΠΎΠ±ΡΡΠΈΠ΅ ΠΠ°ΠΆΠ°ΡΠΈΠ΅ Π³ΠΈΠΏΠ΅ΡΡΡΡΠ»ΠΊΠΈ (ΡΠΈΡ. 9).
Π ΠΈΡ. 9. ΠΠ°ΡΡΡΠΎΠΉΠΊΠ° Π·Π°Π³ΠΎΡΠΎΠ²ΠΊΠΈ ΠΊΠΎΠ΄Π° ΠΏΡΡΠ΅ΠΌ Π²ΡΠ±ΠΎΡΠ° ΠΎΠ±ΡΠ΅ΠΊΡΠ° β Worksheet ΠΈ ΡΠΎΠ±ΡΡΠΈΡ β FollowHyperlink
ΠΠ°ΠΆΠ΄ΡΠΉ ΡΠ°Π·, ΠΊΠΎΠ³Π΄Π° ΠΊΡΠΎ-ΡΠΎ Π½Π°ΠΆΠΌΠ΅Ρ Π²Π°ΡΡ Π³ΠΈΠΏΠ΅ΡΡΡΡΠ»ΠΊΡ, Π·Π°ΠΏΡΡΡΠΈΡΡΡ ΡΡΠ° ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ°. Π¦Π΅Π»Π΅Π²Π°Ρ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ β ByVal Target As Hyperlink β ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠΈΡ ΡΡΠ°Π±Π°ΡΡΠ²Π°Π½ΠΈΠ΅ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ ΡΠΎΠ»ΡΠΊΠΎ ΠΊΠΎΠ³Π΄Π° Π½Π°ΠΆΠ°ΡΠ° ΡΡΠ΅ΠΉΠΊΠ° Ρ ΡΠ΅Π»Π΅Π²ΡΠΌ ΡΠ΅ΠΊΡΡΠΎΠΌ. ΠΡΠ»ΠΈ Π½Π° ΡΡΡΠ°Π½ΠΈΡΠ΅ ΡΠΎΠ»ΡΠΊΠΎ ΠΎΠ΄Π½Π° Π³ΠΈΠΏΠ΅ΡΡΡΡΠ»ΠΊΠ°, Π²Ρ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΎΠ³ΡΠ°Π½ΠΈΡΠΈΡΡΡΡ ΠΏΡΠΎΡΡΡΠΌ ΠΊΠΎΠ΄ΠΎΠΌ:
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
TestMacro
End Sub
ΠΡΠ»ΠΈ Π³ΠΈΠΏΠ΅ΡΡΡΡΠ»ΠΎΠΊ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΎ, Π²Ρ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΡΠ²ΠΎΠΉΡΡΠ²ΠΎ Target.TextToDisplay, ΡΡΠΎΠ±Ρ ΡΠ°Π·Π»ΠΈΡΠΈΡΡ Π³ΠΈΠΏΠ΅ΡΡΡΡΠ»ΠΊΠΈ:
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Select Case Target.TextToDisplay
Case "
Run Report 2"
TestMacro
Case "
Run Report 2"
TestMacro2
Case "
Run Report 3"
TestMacro3
End Select
End Sub
ΠΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ Π³ΠΈΠΏΠ΅ΡΡΡΡΠ»ΠΊΠΈ Π΄Π»Ρ Π·Π°ΠΏΡΡΠΊΠ° ΠΌΠ°ΠΊΡΠΎΡΠ° β ΠΎΡΠ»ΠΈΡΠ½ΡΠΉ ΡΡΡΠΊ, ΠΊΠΎΠ³Π΄Π° Π²Ρ Ρ ΠΎΡΠΈΡΠ΅ ΠΏΠ΅ΡΠ΅ΠΊΠ»ΡΡΠΈΡΡΡΡ ΠΌΠ΅ΠΆΠ΄Ρ ΡΠ°Π·Π»ΠΈΡΠ½ΡΠΌΠΈ ΡΠΎΡΡΠΎΡΠ½ΠΈΡΠΌΠΈ. ΠΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎ, Π²Ρ Ρ ΠΎΡΠΈΡΠ΅ ΠΏΠ΅ΡΠ΅ΠΉΡΠΈ ΠΎΡ ΡΠΎΡΡΠΈΡΠΎΠ²ΠΊΠΈ ΠΏΠΎ Π²ΠΎΠ·ΡΠ°ΡΡΠ°Π½ΠΈΡ ΠΊ ΡΠΎΡΡΠΈΡΠΎΠ²ΠΊΠ΅ ΠΏΠΎ ΡΠ±ΡΠ²Π°Π½ΠΈΡ. Π‘Π»Π΅Π΄ΡΡΡΠΈΠΉ ΠΌΠ°ΠΊΡΠΎΡ Π²ΡΠΏΠΎΠ»Π½ΡΠ΅Ρ ΡΠΎΡΡΠΈΡΠΎΠ²ΠΊΡ ΠΈ ΠΈΠ·ΠΌΠ΅Π½ΡΠ΅Ρ ΡΠ΅ΠΊΡΡ Π³ΠΈΠΏΠ΅ΡΡΡΡΠ»ΠΊΠΈ ΡΠ°ΠΊ, ΡΡΠΎ Π² ΡΠ»Π΅Π΄ΡΡΡΠΈΠΉ ΡΠ°Π· Π±ΡΠ΄Π΅Ρ Π²ΡΠΏΠΎΠ»Π½ΡΡΡΡΡ ΠΏΡΠΎΡΠΈΠ²ΠΎΠΏΠΎΠ»ΠΎΠΆΠ½Π°Ρ ΡΠΎΡΡΠΈΡΠΎΠ²ΠΊΠ°:
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Select Case Target.TextToDisplay
Case "
A-Z"
SortMacroAscending
Target.TextToDisplay = "
Z-A"
Case "
Z-A"
SortMacroDescending
Target.TextToDisplay = "
A-Z"
End Select
End Sub
Π Π΅Π·ΡΠΌΠ΅: Π·Π°ΠΏΡΡΠΊ ΠΌΠ°ΠΊΡΠΎΡΠ° ΠΊΠ½ΠΎΠΏΠΊΠΎΠΉ ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠ² ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ ΡΠΎΡΠΌΡ, ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠ² ActiveX, ΡΠΈΠ³ΡΡΡ SmartArt, Π³ΠΈΠΏΠ΅ΡΡΡΡΠ»ΠΊΠΈ ΠΈ Π΄Ρ.
[1] Π ΠΏΡΠΎΡΠ΅ΡΡΠ΅ Π½Π°ΠΏΠΈΡΠ°Π½ΠΈΡ Π·Π°ΠΌΠ΅ΡΠΊΠΈ Ρ ΡΠ΅ΡΡΠΈΡΠΎΠ²Π°Π» ΡΠ΅ ΠΈΠ»ΠΈ ΠΈΠ½ΡΠ΅ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΠΈ, ΠΏΠΎΡΡΠΎΠΌΡ ΠΌΠΎΡ ΠΊΠ½ΠΎΠΏΠΊΠ° ΠΈΠΌΠ΅Π΅Ρ Π½ΠΎΠΌΠ΅Ρ 3. ΠΡΠ»ΠΈ Π²Ρ Π²ΡΠΏΠΎΠ»Π½ΡΠ΅ΡΠ΅ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΡ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ ΠΠ½ΠΎΠΏΠΊΠΈ ActiveX Π²ΠΏΠ΅ΡΠ²ΡΠ΅, Π²Π°ΡΠ° ΠΠ½ΠΎΠΏΠΊΠ° Π±ΡΠ΄Π΅Ρ ΠΈΠΌΠ΅ΡΡ ΠΈΠΌΡ CommandButton1
ΠΠ°ΠΊ ΡΠΎΠ·Π΄Π°ΡΡ ΠΊΠ½ΠΎΠΏΠΊΡ Π² excel Π΄Π»Ρ ΠΌΠ°ΠΊΡΠΎΡΠ°
Π‘ΠΎΠ·Π΄Π°Π½ΠΈΠ΅ ΠΊΠ½ΠΎΠΏΠΊΠΈ Π² Microsoft Excel
βΠ‘ΠΌΠΎΡΡΠΈΡΠ΅ ΡΠ°ΠΊΠΆΠ΅β Π²ΡΡΡΠ°Π²Π»ΡΠ΅ΡΡΡ ΡΡΡΠ»ΠΊΠ°βΠ€ΠΎΡΠΌΡβΠ£ΠΏΡΠ°Π²Π»Π΅Π½ΠΈΠ΅ Π²ΡΠ΅ΠΌΠΈ Π΄ΠΎΡΡΡΠΏΠ½ΡΠΌΠΈ ΠΌΠ°ΠΊΡΠΎΡΠ°ΠΌΠΈβ ΠΎΠ½Π° Π½Π΅ ΠΏΡΠΎΡΡΠΎβΠΈβ VBA ΠΈ ΡΠ°ΠΉΠ»Ρβ ΠΎΠ΄Π½ΠΈ ΠΈ ΡΠ΅β ΡΠ»Π΅Π΄ΡΡΡΠΈΠΉ ΠΊΠΎΠ΄:β Ρ Π½Π°Π±ΠΎΡΠΎΠΌ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠ²βΠΠ°ΠΊΡΡΠ²Π°Π΅ΠΌ ΡΠ΅Π΄Π°ΠΊΡΠΎΡ, ΠΈ Π·Π°ΠΏΡΡΠΊΠ°Π΅ΠΌβ ΡΡΠΎΠΉ ΠΆΠ΅ ΠΊΠ½ΠΈΠ³Π΅βΠ’Π΅ΠΏΠ΅ΡΡ ΠΏΠΎΡΠ»Π΅ Π½Π°ΠΆΠ°ΡΠΈΡ Π½Π°β Π² Π΄ΠΎΠΊΡΠΌΠ΅Π½ΡΠ΅.βΠΠ²ΡΠΎΡ: ΠΠ°ΠΊΡΠΈΠΌ Π’ΡΡΡΡΠ΅Π²β ΠΎΠΊΠ½Π°. Π’Π΅ΠΏΠ΅ΡΡ Π²ΠΊΠ»Π°Π΄ΠΊΠ°β
β ΠΊΠΎΡΠΎΡΠΎΠΌ ΠΆΠ΅Π»Π°Π΅ΠΌ ΡΠ°ΡΠΏΠΎΠ»ΠΎΠΆΠΈΡΡβExcel ΡΠ²Π»ΡΠ΅ΡΡΡ ΠΊΠΎΠΌΠΏΠ»Π΅ΠΊΡΠ½ΡΠΌ ΡΠ°Π±Π»ΠΈΡΠ½ΡΠΌβ
ΠΡΠΎΡΠ΅Π΄ΡΡΠ° ΡΠΎΠ·Π΄Π°Π½ΠΈΡ
βKarataevβΡΠ΅ΡΠ΅Π· ΠΌΠ΅Π½Ρβ ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΠΈΡΡΡ Π² ΠΎΠΊΠ½Π΅,β Π²ΠΎΠ·ΡΠ²ΡΠ°ΡΠ°Π΅Ρ ΠΠ°Ρ Π²βEnd Subβ ΡΠΏΡΠ°Π²ΠΊΠΈ Π½Π΅ ΠΏΠ΅ΡΠ΅Π²ΠΎΠ΄ΡΡΡΡβ ΠΆΠ΅ Π΄Π΅ΠΉΡΡΠ²ΠΈΡ ΠΈβSub ΠΠ°ΠΊΡΠΎΡ 1()β Π΄Π»Ρ Π²ΡΡΠ°Π²ΠΊΠΈ. ΠΡΠ±ΠΈΡΠ°Π΅ΠΌβ ΠΌΠ°ΠΊΡΠΎΡ, ΠΊΠ°ΠΊ ΠΈβ (ΡΠ°ΠΉΠ»Π΅), Π½ΠΎ ΠΏΡΠΈβ ΠΊΠ½ΠΎΠΏΠΊΡ Π±ΡΠ΄Π΅Ρ Π²ΡΠΏΠΎΠ»Π½ΡΡΡΡΡβΠΠΎΡΠ»Π΅ Π²ΡΠ±ΠΎΡΠ° Π½Π°ΠΆΠΌΠΈΡΠ΅ ΠΊΠ½ΠΎΠΏΠΊΡβΠ’Π°Π±Π»ΠΈΡΠ½ΡΠΉ ΠΏΡΠΎΡΠ΅ΡΡΠΎΡ Excel Π²ΠΌΠ΅ΡΠ°Π΅Ρβ
Π‘ΠΏΠΎΡΠΎΠ± 1: Π°Π²ΡΠΎΡΠΈΠ³ΡΡΠ°
β ΡΠ°Π·ΡΠ°Π±ΠΎΡΡΠΈΠΊΠ° Π±ΡΠ΄Π΅Ρ Π°ΠΊΡΠΈΠ²ΠΈΡΠΎΠ²Π°Π½Π°β ΠΎΠ±ΡΠ΅ΠΊΡ. ΠΠ΅ΡΠ΅Ρ ΠΎΠ΄ΠΈΠΌ Π²ΠΎβ ΠΏΡΠΎΡΠ΅ΡΡΠΎΡΠΎΠΌ, ΠΏΠ΅ΡΠ΅Π΄ ΠΊΠΎΡΠΎΡΡΠΌβ: ΡΠ°ΠΊ ΠΌΠΎΠΆΠ½ΠΎ Π΄ΠΎΠ±Π°Π²ΠΈΡΡβ
- βΠΠΈΠ΄ — ΠΠ°Π½Π΅Π»ΠΈ ΠΈΠ½ΡΡΡΡΠΌΠ΅Π½ΡΠΎΠ²ββ ΠΊΠΎΡΠΎΡΠΎΠ΅ ΠΌΠΎΠΆΠ½ΠΎ ΠΎΡΠΊΡΡΡΡββ ΠΏΡΠ΅Π΄ΡΠ΄ΡΡΠ΅Π΅ ΡΠΎΡΡΠΎΡΠ½ΠΈΠ΅, Π½ΠΎββ- ΡΠ΅Π»ΠΎ ΠΌΠ°ΠΊΡΠΎΡΠ°,ββ ΠΊΠΎΠΌΠΏΠ°Π½ΠΈΠ΅ΠΉ Microsoft Π½Π°β ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΈ Π² Excel.βRange(«M6»).Selectββ ΠΏΠ΅ΡΠ²ΡΠΉ ΡΠ»Π΅ΠΌΠ΅Π½Ρ ActiveXββ Π² ΠΏΡΠΎΡΠ»ΡΠΉ ΡΠ°Π·.β ΠΆΠ΅Π»Π°Π½ΠΈΠΈ ΠΌΠΎΠΆΠ½ΠΎ ΡΡΡΠ°Π½ΠΎΠ²ΠΈΡΡβ ΡΠΎΡ ΠΌΠ°ΠΊΡΠΎΡ, ΠΊΠΎΡΠΎΡΡΠΉβ Β«ΠΠΒ».β Π² ΡΠ΅Π±Ρ ΠΎΠ³ΡΠΎΠΌΠ½ΠΎΠ΅β Π² Π²Π°ΡΠ΅ΠΉ Π²Π΅ΡΡΠΈΠΈβ Π²ΠΊΠ»Π°Π΄ΠΊΡβ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»ΠΈ ΡΡΠ°Π²ΡΡ ΡΠ°ΠΌΡΠ΅β Π½Π° Π»Π΅Π½ΡΡ ΠΊΠ½ΠΎΠΏΠΊΡβ
- β — Π€ΠΎΡΠΌΡ (Viewβ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΠΊΠ½ΠΎΠΏΠΊΠΈβ ΠΈ ΡΡΠΈΡΠ°Π΅Ρ ΠΏΠΎΡΠ»Π΅Π΄Π½ΡΡβ Ρ.Π΅. ΠΊΠΎΠΌΠ°Π½Π΄Ρ, ΠΊΠΎΡΠΎΡΡΠ΅β ΡΡΡΡΠΊΠΈΠΉ ΡΠ·ΡΠΊ, ΠΏΠΎΡΡΠΎΠΌΡβ ΠΡΠ±Π°Ρ ΠΎΡΠΈΡΠ½Π°Ρ ΡΠ°Π±ΠΎΡΠ°βEnd Subβ β Β«ΠΊΠ½ΠΎΠΏΠΊΡΒ» (Π²β ΠΠ°ΠΊ Π²ΠΈΠ΄ΠΈΠΌ, Π²ΡΠ»Π΅Π΄ΡΡΠ²ΠΈΠ΅β
- β Ρ
ΡΠ°Π½Π΅Π½ΠΈΠ΅ Π² Π½ΠΎΠ²ΠΎΠΉβ Π²Ρ ΡΠΊΠ°Π·Π°Π»ΠΈ. Π’Π΅ΠΏΠ΅ΡΡβΠΠ° ΡΡΠΎΠΌ ΡΠΎΠ·Π΄Π°Π½ΠΈΠ΅ ΠΊΠ½ΠΎΠΏΠΊΠΈβ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΠΎΠΏΡΠΈΠΉ ΠΈβ Excel.βΒ«ΠΡΡΠ°Π²ΠΊΠ°Β»β ΡΠ°Π·Π½ΠΎΠΎΠ±ΡΠ°Π·Π½ΡΠ΅ Π·Π°Π΄Π°ΡΠΈ. ΠΠ΄Π½ΠΎΠΉβ Π΄Π»Ρ ΠΌΠ°ΠΊΡΠΎΡΠ° ΡΡΠ΅Π΄ΡΡΠ²Π°ΠΌΠΈβ — Toolbars -βΠΠ°ΠΊΡΠΎΡΡ (Macros)β Π·Π°ΠΏΠΈΡΠ°Π½Π½ΡΡ ΠΊΠΎΠΌΠ°Π½Π΄Ρ Π½Π°ββ Π±ΡΠ΄ΡΡ Π²ΡΠΏΠΎΠ»Π½ΡΡΡΡΡ ΠΏΡΠΈββ Ρ Π°Π½Π³Π»ΠΈΠΉΡΠΊΠΈΠΌΠΈ ΠΊΠΎΠΌΠ°Π½Π΄Π°ΠΌΠΈβ
- β ΠΏΡΠ΅Π΄ΠΏΠΎΠ»Π°Π³Π°Π΅Ρ Π½Π΅ΠΊΡΡ «ΡΡΡΠΈΠ½Π½ΡΡβΠ’ΠΎΡΠ½ΠΎ ΡΠ°ΠΊ ΠΆΠ΅ ΠΌΠΎΠΆΠ½ΠΎβ Π²ΠΈΠ΄Π΅ ΡΠ΅ΡΠΎΠ³ΠΎ ΠΊΠΈΡΠΏΠΈΡΠΈΠΊΠ°).ββ Π²Π²Π΅Π΄Π΅Π½Π½ΡΡ Π½Π°ΠΌΠΈ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΠΉββ ΠΊΠ½ΠΈΠ³Π΅, ΠΈΠ»ΠΈ Π²β Π²Ρ Π·Π½Π°Π΅ΡΠ΅ Π²ΡΠ΅β ΠΏΠ΅ΡΠ²ΡΠΌ ΡΠΏΠΎΡΠΎΠ±ΠΎΠΌ Π·Π°ΠΊΠΎΠ½ΡΠ΅Π½ΠΎ.β ΡΡΠ½ΠΊΡΠΈΠΉ, Π½Π΅ ΠΈΡΠΊΠ»ΡΡΠ°ΡββΠΠΎΡΠ»Π΅ ΡΡΠΎΠ³ΠΎ ΠΏΠ΅ΡΠ΅ΠΌΠ΅ΡΠ°Π΅ΠΌΡΡ Π²ΠΎββΠΈ ΠΊΠ»ΠΈΠΊΠ°Π΅ΠΌ ΠΏΠΎβ
β ΠΈΠ· ΡΠ°ΠΊΠΈΡ Π·Π°Π΄Π°Ρβ ΡΠ°ΠΌΠΎΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ excelβ Forms)βΠ½Π° Π²ΠΊΠ»Π°Π΄ΠΊΠ΅β VBA.β
β Π·Π°ΠΏΡΡΠΊΠ΅ ΠΌΠ°ΠΊΡΠΎΡΠ°. Πββ Π² ΠΌΠ΅Π½Ρ ΠΈβ ΡΠΎΡΡΠ°Π²Π»ΡΡΡΡΡ» — ΠΎΠ΄Π½ΠΈβ
Π‘ΠΏΠΎΡΠΎΠ± 2: ΡΡΠΎΡΠΎΠ½Π½Π΅Π΅ ΠΈΠ·ΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΠ΅
β Π½Π°Π·Π½Π°ΡΠΈΡΡ ΠΌΠ°ΠΊΡΠΎΡ Π΄ΠΈΠ°Π³ΡΠ°ΠΌΠΌΠ΅,β Π’Π΅ΠΏΠ΅ΡΡ ΡΠΈΡΡΠ΅ΠΌ ΠΊΡΡΡΠΎΡΠΎΠΌβ Π±ΡΠ»Π° Π΄ΠΎΠ±Π°Π²Π»Π΅Π½Π° Π΅ΡΡβ
- β ΠΎΡΠ΄Π΅Π»ΡΠ½ΠΎΠΉ ΠΊΠ½ΠΈΠ³Π΅ ΠΌΠ°ΠΊΡΠΎΡΠΎΠ².β ΡΡΠΈ ΡΠΏΠΎΡΠΎΠ±Π°, ΠΊΠ°ΠΊβ Π’Π΅ΠΏΠ΅ΡΡ ΠΏΠΎΡΠ»Π΅ Π½Π°ΠΆΠ°ΡΠΈΡβ Π΄Π°ΠΆΠ΅ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΡ ΡΠΎΠ·Π΄Π°Π½ΠΈΡβ
- β Π²ΠΊΠ»Π°Π΄ΠΊΡβ Π·Π½Π°ΡΠΊΡβ ΡΠ²Π»ΡΠ΅ΡΡΡ ΡΠΎΠ·Π΄Π°Π½ΠΈΠ΅ ΠΊΠ½ΠΎΠΏΠΊΠΈβΠ€Π°ΠΉΠ» —> ΠΠ°ΡΠ°ΠΌΠ΅ΡΡΡ—>ΠΠ°ΡΡΡΠΎΠΉΠΊΠ°ββΠ Excel 2007 ΠΈββΠ Π°Π·ΡΠ°Π±ΠΎΡΡΠΈΠΊ (Developer)βΠ§ΡΠΎΠ±Ρ Π²ΠΊΠ»ΡΡΠΈΡΡ Π·Π°ΠΏΠΈΡΡ Π½Π΅ΠΎΠ±Ρ
ΠΎΠ΄ΠΈΠΌΠΎ:ββ Π΄Π°Π½Π½ΠΎΠΌ ΡΠ»ΡΡΠ°Π΅ ΠΌΠ°ΠΊΡΠΎΡββ ΠΎΠΊΠ½Π°Ρ
ΠΏΡΠΈΠ΄Π΅ΡΡΡ ΡΠΌΠΈΡΠΈΡΡΡΡ:β ΠΈ ΡΠ΅ ΠΆΠ΅β ΠΎΠ±ΡΠ΅ΠΊΡΠ°ΠΌ WordArt, SmartAtr.ββ ΠΊΠ½ΠΎΠΏΠΊΡ Π½Π΅ΠΎΠ±Ρ
ΠΎΠ΄ΠΈΠΌΠΎΠ³ΠΎ ΡΠ°Π·ΠΌΠ΅ΡΠ°.ββ ΠΎΠ΄Π½Π° ΡΡΠ΅ΠΉΠΊΠ° Ρβ
- β ΠΡ ΠΎΡΡΠ°Π²ΠΈΠΌ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅β ΡΠ΄Π΅Π»Π°ΡΡ ΠΊΠ½ΠΎΠΏΠΊΡ Π²β ΠΏΠΎ Π½Π΅ΠΉ Π²Ρβ ΠΊΠ½ΠΎΠΏΠΊΠΈ. ΠΠ° ΠΏΠ΅ΡΠ²ΡΠΉβΒ«Π Π°Π·ΡΠ°Π±ΠΎΡΡΠΈΠΊΒ»βΒ«Π ΠΈΡΡΠ½ΠΎΠΊΒ»β Π½Π° Π»ΠΈΡΡΠ΅, Π½Π°ΠΆΠ°ΡΠΈΠ΅β Π»Π΅Π½ΡΡ —>ΠΡΠ±ΡΠ°ΡΡ ΠΊΠΎΠΌΠ°Π½Π΄Ρβ Π½ΠΎΠ²Π΅Π΅ — ΠΎΡΠΊΡΠΎΠΉΡΠ΅ββΠΈΠ»ΠΈ — Π²ββΠ² Excel 2003 ΠΈβ
- β Π²ΡΠ΄Π΅Π»ΡΠ΅Ρ ΡΡΠ΅ΠΉΠΊΡ Π·Π°Π»ΠΈΠ²Π°Π΅ΡβΠΠ°ΠΊΡΠΎΡΡ (Ρ.Π΅. Π½Π°Π±ΠΎΡΡ ΠΊΠΎΠΌΠ°Π½Π΄β Π΅ΠΆΠ΅Π½Π΅Π΄Π΅Π»ΡΠ½ΡΠ΅ ΠΎΡΡΠ΅ΡΡ, ΠΎΠ΄Π½ΠΈβΠΠ»Ρ ΠΏΠΎΠΊΠ°Π·Π°ΡΠ΅Π»ΡΠ½ΠΎΠ³ΠΎ ΠΏΡΠΈΠΌΠ΅ΡΠ° ΡΠΎΠ·Π΄Π°ΠΉΡΠ΅βΠΠ½ΠΎΠΏΠΊΠ° β ΡΠ»Π΅ΠΌΠ΅Π½Ρ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡβ Π΄Π°Π½Π½ΡΠΌΠΈ. ΠΠ½Π° ΡΠ°ΠΊΠΆΠ΅β ΠΏΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ.β Excel.β Π±ΡΠ΄Π΅ΡΠ΅ ΠΏΠ΅ΡΠ΅Ρ
ΠΎΠ΄ΠΈΡΡ Π½Π°β
- β Π²Π·Π³Π»ΡΠ΄ Π°Π±ΡΠΎΠ»ΡΡΠ½ΠΎ Π½Π΅Π½ΡΠΆΠ½ΡΠΉβ. Π©Π΅Π»ΠΊΠ°Π΅ΠΌ ΠΏΠΎ ΠΊΠ½ΠΎΠΏΠΊΠ΅β, ΠΊΠΎΡΠΎΡΡΠΉ ΡΠ°ΡΠΏΠΎΠ»ΠΎΠΆΠ΅Π½ Π½Π°β Π½Π° ΠΊΠΎΡΠΎΡΡΡ Π·Π°ΠΏΡΡΠΊΠ°Π»ΠΎβ —>ΠΠ°ΠΊΡΠΎΡΡ—> Π²ΡΠ±Π΅ΡΠΈΡΠ΅ ΠΌΠ°ΠΊΡΠΎΡ—>ΡΠΏΡΠ°Π²Π°β Π²ΡΠΏΠ°Π΄Π°ΡΡΠΈΠΉ ΡΠΏΠΈΡΠΎΠΊβ ΡΡΠ°ΡΡΡ
Π²Π΅ΡΡΠΈΡΡ
Excelβ ΡΡΠ°ΡΡΠ΅ — Π²ΡΠ±ΡΠ°ΡΡβ Π²ΡΠ΄Π΅Π»Π΅Π½Π½ΡΡ
Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ (Selection)β Π½Π° ΡΠ·ΡΠΊΠ΅ VBA)β ΠΈ ΡΠ΅ ΠΆΠ΅β ΡΠ΅ΡΡΠΎΠ²ΡΡ ΡΠ°Π±Π»ΠΈΡΡ ΠΊΠ°ΠΊββ ΡΠΎΡΠΌΡ. Π‘Π½ΠΎΠ²Π° ΠΏΠ΅ΡΠ΅Ρ
ΠΎΠ΄ΠΈΠΌββ Π±ΡΠ»Π° Π²ΠΊΠ»ΡΡΠ΅Π½Π° Π²β
- βΠ ΡΠ°ΠΌΠΎΠΌ Π½ΠΈΠΆΠ½Π΅ΠΌ ΠΏΠΎΠ»Π΅βΠΠΎΡ ΠΌΡ ΠΈ ΡΠ°ΡΡΠΌΠΎΡΡΠ΅Π»ΠΈβ Π΄ΡΡΠ³ΠΎΠΉ Π»ΠΈΡΡ Π²β ΡΠ»Π΅ΠΌΠ΅Π½Ρ Π½Π΅ΠΊΠΎΡΠΎΡΡΠΌ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»ΡΠΌβΒ«ΠΡΡΠ°Π²ΠΈΡΡΒ»β Π»Π΅Π½ΡΠ΅ Π² Π±Π»ΠΎΠΊΠ΅β Π±Ρ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Π½ΡΠΉ ΠΏΡΠΎΡΠ΅ΡΡ.β Π²ΡΠ±Π΅ΡΠΈΡΠ΅ ΠΈΠ»ΠΈ ΡΠΎΠ·Π΄Π°ΠΉΡΠ΅βΠΡΡΠ°Π²ΠΈΡΡ (Insert)β — ΡΠ΅ΡΠ΅Π· ΠΌΠ΅Π½Ρβ Π² ΠΌΠ΅Π½Ρββ ΠΆΠ΅Π»ΡΡΠΌ ΡΠ²Π΅ΡΠΎΠΌ (ΠΊΠΎΠ΄ββ Ρ ΡΠ°Π½ΡΡΡΡ Π² ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΡΡ β
β Π΄Π΅ΠΉΡΡΠ²ΠΈΡ ΠΏΠΎ ΠΎΠ±ΡΠ°Π±ΠΎΡΠΊΠ΅β Π½Π° ΡΠΈΡΡΠ½ΠΊΠ΅:β Π½Π° Π²ΠΊΠ»Π°Π΄ΠΊΡ Β«Π Π°Π·ΡΠ°Π±ΠΎΡΡΠΈΠΊΒ».β
Excel ΠΊΠ½ΠΎΠΏΠΊΠ° Π΄Π»Ρ ΠΌΠ°ΠΊΡΠΎΡΠ°
ΠΠ°Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΠΌΠ°ΠΊΡΠΎΡΠ° ΡΠΎΡΠΌΠ΅ ΠΈΠ»ΠΈ ΠΊΠ½ΠΎΠΏΠΊΠ΅ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ
βΠ‘ΠΌΠΎΡΡΠΈΡΠ΅ ΡΠ°ΠΊΠΆΠ΅ββΠΠ°ΠΊΡΠΎΡΡβ ΠΊΠ½ΠΈΠ³ΠΈ.β ΠΈΠ»ΠΈ Π³ΡΠ°ΡΠΈΡΠ΅ΡΠΊΠΎΠΌΡ ΡΠ»Π΅ΠΌΠ΅Π½ΡΡβΠ²Π²Π΅Π΄ΠΈΡΠ΅ Π»ΡΠ±ΡΡ ΡΡΡΠΎΡΠ½ΡΡβ ΠΌΠ°ΠΊΡΠΎΡ, ΠΊΠΎΡΠΎΡΡΠΉ ΡΠ½Π°ΡΠ°Π»Π°β ΡΠΊΠΎΠΏΠΈΡΠΎΠ²Π°ΡΡ Π² Π΄ΡΡΠ³ΡΡβΠ ΠΏΠΎΠ»Π΅β ΠΎΠ±Π½ΠΎΠ²Π»ΡΠ΅Ρ ΡΠ°Π±Π»ΠΈΡΡ Π²β ΠΊΠΎ Π²ΡΠ΅ΠΌ Π°Π΄ΡΠ΅ΡΠ°ΠΌβ.βΠΊΠ½ΠΎΠΏΠΊΡ Microsoft OfficeβΠΡΠ΅ ΠΎΡΠΊΡΡΡΡΠ΅ ΠΊΠ½ΠΈΠ³ΠΈβ ΠΊΠ½ΠΎΠΏΠΊΠ΅ ΠΌΠ΅ΠΆΠ΄ΡβΠΠ°ΡΡΡΠ°ΠΈΠ²Π°Π΅ΠΌΡΠΉ Π·Π½Π°ΡΠΎΠΊ ΠΌΡΡΠΈ.β ΠΊΠ»Π°Π²ΠΈΡΡ F1, ΡΡΠΎΠ±ΡβΠ² Π³ΡΡΠΏΠΏΠ΅βΠΡΠΈΠΌΠ΅ΡΠ°Π½ΠΈΠ΅:β. Π’ΡΡ Π΄ΠΎΠ»ΠΆΠ΅Π½ ΠΏΠΎΡΠ²ΠΈΡΡΡΡβSerge_007βΠΠ° Π»ΠΈΡΡΠ΅ ΡΠ΅Π»ΠΊΠ½ΠΈΡΠ΅ ΠΏΡΠ°Π²ΠΎΠΉβ
β ΠΈΠ»ΠΈ ΠΏΡΠΎΠΏΠΈΡΠ½ΡΡ Π±ΡΠΊΠ²Ρ.β ΠΎΠ±Π½ΠΎΠ²Π»ΡΠ΅Ρ ΡΠ°Π±Π»ΠΈΡΡ Π²β ΠΊΠ½ΠΈΠ³Ρ Ρ ΠΏΠΎΠΌΠΎΡΡΡβΠΠΏΠΈΡΠ°Π½ΠΈΠ΅β Excel, Π° Π·Π°ΡΠ΅ΠΌβ Π΅Π΄ΠΈΠ½ΡΠΉ ΡΠΎΡΠΌΠ°Ρ. ΠΠ°ΠΊΡΠΎΡβΠΠ° Π²ΠΊΠ»Π°Π΄ΠΊΠ΅β, Π° Π·Π°ΡΠ΅ΠΌΒ ββ.βSubβMouseIcon (ΡΠΎΡΠΌΠ°)β ΠΎΡΠΎΠ±ΡΠ°Π·ΠΈΡΡ ΡΠ°Π·Π΄Π΅Π» ΡΠΏΡΠ°Π²ΠΊΠ°βΡΠ»Π΅ΠΌΠ΅Π½ΡΡ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡβΒ ΠΡ ΡΡΠ°ΡΠ°Π΅ΠΌΡΡ ΠΊΠ°ΠΊ ΠΌΠΎΠΆΠ½ΠΎβ ΡΠΏΠΈΡΠΎΠΊ Π΄ΠΎΡΡΡΠΏΠ½ΡΡ ΠΌΠ°ΠΊΡΠΎΡΠΎΠ²,β:β ΠΊΠ½ΠΎΠΏΠΊΠΎΠΉ ΠΌΡΡΠΈ ΠΎΠ±ΡΠ΅ΠΊΡ,β Π Π΅ΠΊΠΎΠΌΠ΅Π½Π΄ΡΠ΅ΡΡΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΡΠΎΡΠ΅ΡΠ°Π½ΠΈΡβ Excel, Π° Π·Π°ΡΠ΅ΠΌβ ΡΠ΅Π΄Π°ΠΊΡΠΎΡΠ° Microsoft VisualβΠΏΡΠΈ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎΡΡΠΈ Π²Π²Π΅Π΄ΠΈΡΠ΅β
β ΠΎΡΠΊΡΡΠ²Π°Π΅Ρ Outlook Π΄Π»Ρβ
|
β ΡΠ΄Π΅Π»Π°ΡΡ ΡΡΠΎ Π·Π°β
|
βΠ Π°Π·ΡΠ°Π±ΠΎΡΡΠΈΠΊβ ΠΊΠ½ΠΎΠΏΠΊΡβΠΡΠΈΠΌΠ΅ΡΠ°Π½ΠΈΠ΅:βΠΈβΠ’ΠΈΠΏ ΡΠΊΠ°Π·Π°ΡΠ΅Π»Ρ, ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°Π΅ΠΌΠΎΠ³ΠΎ ΠΏΡΠΈβ
β ΠΏΠΎ Visual Basic.ββΠ½Π°ΠΆΠΌΠΈΡΠ΅ ΠΊΠ½ΠΎΠΏΠΊΡβ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠ²Π½Π΅Π΅ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠΈΠ²Π°ΡΡ Π²Π°Ρβ
β Π½ΠΎ ΠΎΠ½ Π½Π΅β
βVostokβ ΡΠΈΡΡΠ½ΠΊΠ°, ΡΠΈΠ³ΡΡΡ ΠΈΠ»ΠΈβ ΠΊΠ»Π°Π²ΠΈΡ, ΠΊΠΎΡΠΎΡΡΠ΅ Π΅ΡΠ΅ββ ΠΎΡΠΊΡΡΠ²Π°Π΅Ρ Outlook Π΄Π»Ρββ Basic.β ΠΊΡΠ°ΡΠΊΠΎΠ΅ ΠΎΠΏΠΈΡΠ°Π½ΠΈΠ΅ Π΄Π΅ΠΉΡΡΠ²ΠΈΠΉβ
β Π΅Π΅ ΠΎΡΠΏΡΠ°Π²ΠΊΠΈ ΠΏΠΎβ Π²Π°Ρ. ΠΠ°ΠΏΠΈΡΡ ΠΌΠ°ΠΊΡΠΎΡΠ°,βΠ² Π³ΡΡΠΏΠΏΠ΅βΠΠ°ΡΠ°ΠΌΠ΅ΡΡΡ ExcelβΒ ΠΡΠ»ΠΈ ΠΌΠ°ΠΊΡΠΎΡ, ΠΊΠΎΡΠΎΡΡΠΉ Π½ΡΠΆΠ½ΠΎβ
ΠΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΠ΅ ΠΊΠ½ΠΎΠΏΠΊΠΈ (ΡΠ»Π΅ΠΌΠ΅Π½ΡΠ° ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ ΡΠΎΡΠΌΡ)
-
βEnd Subββ Π½Π°Π²Π΅Π΄Π΅Π½ΠΈΠΈ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Π΅ΠΌ ΡΠΊΠ°Π·Π°ΡΠ΅Π»Ρββ ΠΠΎΠΆΠ½ΠΎ ΡΠ°ΠΊΠΆΠ΅ Π²Π²Π΅ΡΡΠΈββΠΡΡΠ°Π²ΠΈΡΡββ Π°ΠΊΡΡΠ°Π»ΡΠ½ΡΠΌΠΈ ΡΠΏΡΠ°Π²ΠΎΡΠ½ΡΠΌΠΈ ΠΌΠ°ΡΠ΅ΡΠΈΠ°Π»Π°ΠΌΠΈββ ΠΏΠΎΡΠ²Π»ΡΠ΅ΡΡΡββ, cΠ²ΠΎΠΈ Π²ΠΊΠ»Π°Π΄ΠΊΠΈ ΠΈββ ΡΠ»Π΅ΠΌΠ΅Π½Ρ, ΠΊ ΠΊΠΎΡΠΎΡΠΎΠΌΡβ
β Π½Π΅ Π½Π°Π·Π½Π°ΡΠ΅Π½Ρ Π΄ΡΡΠ³ΠΈΠΌββ Π΅Π΅ ΠΎΡΠΏΡΠ°Π²ΠΊΠΈ ΠΏΠΎββΠΠ°Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΠΌΠ°ΠΊΡΠΎΡΠ° ΠΎΠ±ΡΠ΅ΠΊΡΡ, ΡΠΈΠ³ΡΡΠ΅β
-
β ΠΌΠ°ΠΊΡΠΎΡΠ°.β ΡΠ»Π΅ΠΊΡΡΠΎΠ½Π½ΠΎΠΉ ΠΏΠΎΡΡΠ΅.β ΠΏΡΠΈΠΌΠ΅Π½ΠΈΠ² Π½ΡΠΆΠ½ΡΠΉ ΡΠΎΡΠΌΠ°ΡβΠΊΠΎΠ΄β.ββ Π½Π°Π·Π½Π°ΡΠΈΡΡ ΡΠ»Π΅ΠΌΠ΅Π½ΡΡ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ,ββΠ»ΠΈΠ½ΠΈΠΈ Π²ΡΠΏΠΎΠ»Π½ΠΈΡΠ΅ ΠΎΠ΄Π½ΠΎβ
-
β ΠΌΡΡΠΈ Π½Π° ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Π½ΡΠΉβ ΠΈΠΌΡ ΡΠ²ΠΎΠΉΡΡΠ²Π° Π²ββΠΈ Π² Π³ΡΡΠΏΠΏΠ΅ββ Π½Π° Π²Π°ΡΠ΅ΠΌ ΡΠ·ΡΠΊΠ΅.β
-
βΠΠΎΠ³Π΄Π° Ρ ΠΏΡΠΎΡΡΠΎβ Π³ΡΡΠΏΠΏΡ ΠΌΠΎΠΆΠ½ΠΎ ΡΠΎΠ·Π΄Π°Π²Π°ΡΡβ Π½ΡΠΆΠ½ΠΎ Π½Π°Π·Π½Π°ΡΠΈΡΡ ΡΡΡΠ΅ΡΡΠ²ΡΡΡΠΈΠΉβ ΠΊΠΎΠΌΠ°Π½Π΄Π°ΠΌ, ΡΠ°
ΠΠ°ΠΊ ΡΠ΄Π΅Π»Π°ΡΡ ΠΊΠ½ΠΎΠΏΠΊΡ Π΄Π»Ρ Π·Π°ΠΏΡΡΠΊΠ° ΡΠ²ΠΎΠ΅Π³ΠΎ ΠΌΠ°ΠΊΡΠΎΡΠ°?
Π Π΄Π°Π½Π½ΠΎΠΉ ΡΡΠ°ΡΡΠ΅ Ρ ΡΠ°ΡΡΠΊΠ°ΠΆΡ, ΠΊΠ°ΠΊ ΡΠ΄Π΅Π»Π°ΡΡ ΠΊΠ½ΠΎΠΏΠΊΡ Π΄Π»Ρ Π·Π°ΠΏΡΡΠΊΠ° ΡΠ²ΠΎΠ΅Π³ΠΎ ΠΌΠ°ΠΊΡΠΎΡΠ°.
Π€Π°ΠΉΠ» | ΠΠΏΠΈΡΠ°Π½ΠΈΠ΅ | Π Π°Π·ΠΌΠ΅Ρ ΡΠ°ΠΉΠ»Π°: | Π‘ΠΊΠ°ΡΠΈΠ²Π°Π½ΠΈΡ |
---|---|---|---|
ΠΡΠΈΠΌΠ΅Ρ | Β | 14 ΠΠ± | 1391 |
ΠΠ°Π²Π°ΠΉΡΠ΅ Π²ΠΎΠ·ΡΠΌΠ΅ΠΌ ΡΠ°ΠΉΠ» Ρ ΠΏΡΠ΅Π΄Π²Π°ΡΠΈΡΠ΅Π»ΡΠ½ΠΎ Π·Π°ΠΏΠΈΡΠ°Π½Π½ΡΠΌ ΠΌΠ°ΠΊΡΠΎΡΠΎΠΌ ΠΈΠ»ΠΈ Π·Π°ΠΏΠΈΡΠ΅ΠΌ Π½ΠΎΠ²ΡΠΉ ΠΌΠ°ΠΊΡΠΎΡ, ΠΊΠ°ΠΊ ΡΡΠΎ ΡΠ΄Π΅Π»Π°ΡΡ ΠΎΠΏΠΈΡΠ°Π½ΠΎ Π² ΡΡΠ°ΡΡΠ΅ «ΠΠ°ΠΊ Π·Π°ΠΏΠΈΡΠ°ΡΡ ΠΌΠ°ΠΊΡΠΎΡ Π½Π΅ Π·Π½Π°Ρ ΡΠ·ΡΠΊΠ° VBA?».
Π§ΡΠΎΠ±Ρ Π²ΡΡΠ°Π²ΠΈΡΡ Π² ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡΒ ΠΠ½ΠΎΠΏΠΊΡ, Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ Π½Π°ΡΡΡΠΎΠΈΡΡ (Π²ΠΊΠ»ΡΡΠΈΡΡ) Π²ΠΊΠ»Π°Π΄ΠΊΡ «Π Π°Π·ΡΠ°Π±ΠΎΡΡΠΈΠΊ» Π½Π° Π»Π΅Π½ΡΠ΅ Π³Π»Π°Π²Π½ΠΎΠ³ΠΎ ΠΌΠ΅Π½Ρ (ΠΠ°ΠΊ Π΄ΠΎΠ±Π°Π²ΠΈΡΡ Π²ΠΊΠ»Π°Π΄ΠΊΡ «Π Π°Π·ΡΠ°Π±ΠΎΡΡΠΈΠΊ» Π½Π° Π»Π΅Π½ΡΡ?).
ΠΠΎΡΠ»Π΅ ΡΠΎΠ³ΠΎ ΠΊΠ°ΠΊ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΡΠΉ ΠΈΠ½ΡΡΡΡΠΌΠ΅Π½Ρ Π² ΠΊΠ°ΡΠ΅ΡΡΠ²Π΅ Π²ΠΊΠ»Π°Π΄ΠΊΠΈ «Π Π°Π·ΡΠ°Π±ΠΎΡΡΠΈΠΊ» Π΄ΠΎΠ±Π°Π²Π»Π΅Π½, ΠΌΠΎΠΆΠ½ΠΎ ΠΏΡΠΈΡΡΡΠΏΠ°ΡΡ ΠΊ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ ΠΊΠ½ΠΎΠΏΠΊΠΈ, ΠΊΠΎΡΠΎΡΠ°Ρ Π±ΡΠ΄Π΅Ρ Π·Π°ΠΏΡΡΠΊΠ°ΡΡ Π½Π°Ρ ΠΌΠ°ΠΊΡΠΎΡ.
ΠΠ΅ΡΠ΅Ρ ΠΎΠ΄ΠΈΠΌ Π½Π° ΡΡΡΠ°Π½ΠΈΡΡ, Π½Π° ΠΊΠΎΡΠΎΡΠΎΠΉ Π±ΡΠ΄Π΅ΠΌ ΡΠ°Π·ΠΌΠ΅ΡΠ°ΡΡ ΠΊΠ½ΠΎΠΏΠΊΡ, Π² Π³Π»Π°Π²Π½ΠΎΠΌ ΠΌΠ΅Π½Ρ Π²ΠΎ Π²ΠΊΠ»Π°Π΄ΠΊΠ΅ «Π Π°Π·ΡΠ°Π±ΠΎΡΡΠΈΠΊ» Π½Π°ΠΆΠΈΠΌΠ°Π΅ΠΌ ΠΊΠ½ΠΎΠΏΠΊΡ «ΠΡΡΠ°Π²ΠΈΡΡ», Π² Π²ΡΠΏΠ°Π²ΡΠ΅ΠΌ ΡΠΏΠΈΡΠΊΠ΅ Π²ΡΠ±ΠΈΡΠ°Π΅ΠΌ ΠΊΠΎΠΌΠ°Π½Π΄Ρ «ΠΠ½ΠΎΠΏΠΊΠ° (ΡΠ»Π΅ΠΌΠ΅Π½Ρ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ ΡΠΎΡΠΌΡ)»
ΠΠΎΡΠ»Π΅ ΡΠ΅Π³ΠΎ Π½Π°Ρ ΠΊΡΡΡΠΎΡ ΠΌΡΡΠΊΠΈ ΠΏΡΠ΅Π²ΡΠ°ΡΠΈΡΡΡΡ Π² ΠΊΡΠ΅ΡΡΠΈΠΊ, Π½Π°Π²ΠΎΠ΄ΠΈΠΌ Π΅Π³ΠΎ Π½Π° ΡΠΎ ΠΌΠ΅ΡΡΠΎ, Π² ΠΊΠΎΡΠΎΡΠΎΠ΅ Ρ ΠΎΡΠΈΠΌ Π²ΡΡΠ°Π²ΠΈΡΡ Π½Π°ΡΡ ΠΠ½ΠΎΠΏΠΊΡ, Π½Π°ΠΆΠΈΠΌΠ°Π΅ΠΌ Π»Π΅Π²ΡΡ ΠΊΠ»Π°Π²ΠΈΡΡ ΠΌΡΡΠΈ:
ΠΡΠΊΡΠΎΠ΅ΡΡΡ Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠ΅ ΠΎΠΊΠ½ΠΎ «ΠΠ°Π·Π½Π°ΡΠΈΡΡ ΠΌΠ°ΠΊΡΠΎΡ ΠΎΠ±ΡΠ΅ΠΊΡΡ»:
Π ΡΡΠΎΠΌ ΠΎΠΊΠ½Π΅ Π²ΡΠ±ΠΈΡΠ°Π΅ΠΌ Π½Π°Ρ ΠΌΠ°ΠΊΡΠΎΡ ΠΈ Π½Π°ΠΆΠΈΠΌΠ°Π΅ΠΌ «ΠΠ»:
ΠΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠ΅ ΠΎΠΊΠ½ΠΎ Π·Π°ΠΊΡΠΎΠ΅ΡΡΡ, Π° Π² ΡΠΊΠ°Π·Π°Π½Π½ΠΎΠΌ Π½Π°ΠΌΠΈ ΠΌΠ΅ΡΡΠ΅ Π½Π° Π»ΠΈΡΡΠ΅ ΠΏΠΎΡΠ²ΠΈΡΡΡΡ ΠΊΠ½ΠΎΠΏΠΊΠ°:
Π©Π΅Π»ΠΊΠ½ΠΈΡΠ΅ ΠΏΠΎ Π»ΡΠ±ΠΎΠΉ ΡΡΠ΅ΠΉΠΊΠ΅ Π»Π΅Π²ΠΎΠΉ ΠΊΠ»Π°Π²ΠΈΡΠ΅ΠΉ ΠΌΡΡΠΊΠΈ, Ρ ΠΊΠ½ΠΎΠΏΠΊΠΈ ΡΠ½ΠΈΠΌΠ΅ΡΡΡ Π²ΡΠ΄Π΅Π»Π΅Π½ΠΈΠ΅:
Π©Π΅Π»ΠΊΠ½ΠΈΡΠ΅ Π»Π΅Π²ΠΎΠΉ ΠΊΠ»Π°Π²ΠΈΡΠ΅ΠΉ ΠΌΡΡΠΊΠΈ ΠΏΠΎ ΠΊΠ½ΠΎΠΏΠΊΠ΅ — ΠΌΠ°ΠΊΡΠΎΡ Π²ΡΠΏΠΎΠ»Π½ΠΈΡΡΡΡ:
Π§ΡΠΎΠ±Ρ ΠΌΠ°ΠΊΡΠΎΡ Π²ΡΠΏΠΎΠ»Π½ΡΠ»ΡΡ ΠΏΠΎ Π½Π°ΠΆΠ°ΡΠΈΡ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Π½ΡΡ ΠΊΠ»Π°Π²ΠΈΡ, ΡΠΈΡΠ°ΠΉΡΠ΅ ΡΡΠ°ΡΡΡ «ΠΠ°ΠΊ Π½Π°Π·Π½Π°ΡΠΈΡΡ ΠΌΠ°ΠΊΡΠΎΡΡ ΡΠΎΡΠ΅ΡΠ°Π½ΠΈΠ΅ ΠΊΠ»Π°Π²ΠΈΡ?»
ΠΠΎΠ±Π°Π²ΠΈΡΡ ΠΊΠΎΠΌΠΌΠ΅Π½ΡΠ°ΡΠΈΠΉ
ΠΠ°Π·Π½Π°ΡΠΈΡΡ Π³ΠΎΡΡΡΠΈΠ΅ ΠΊΠ»Π°Π²ΠΈΡΠΈ ΠΌΠ°ΠΊΡΠΎΡΡ Π² Β«WordΒ» ΠΈ Β«ExcelΒ»
Β
ΠΠ½ΠΎΠ³Π΄Π°, Π½Π°ΠΏΠΈΡΠ°Π½Π½ΡΠΉ ΠΌΠ°ΠΊΡΠΎΡ Π΄Π»Ρ ΠΊΠ½ΠΈΠ³ΠΈ Β«ExcelΒ» ΠΈΠ»ΠΈ Β«WordΒ» ΡΡΠ΅Π±ΡΠ΅ΡΡΡ Π²ΡΠ·ΡΠ²Π°ΡΡ Π½Π΅ Π½Π°ΠΆΠ°ΡΠΈΠ΅ΠΌ Π°ΠΊΡΠΈΠ²Π½ΠΎΠΉ ΠΊΠ½ΠΎΠΏΠΊΠΈ ΠΈΠ»ΠΈ Π΄ΡΡΠ³ΠΈΠΌ ΠΌΠ°ΠΊΡΠΎΡΠΎΠΌ, Π° Π²ΡΠ·ΡΠ²Π°ΡΡ ΡΠ°Π±ΠΎΡΡ ΠΌΠ°ΠΊΡΠΎΡΠ° ΡΠΎΡΠ΅ΡΠ°Π½ΠΈΠ΅ΠΌ Π½Π°Π·Π½Π°ΡΠ΅Π½Π½ΡΡ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Π΅ΠΌ Π³ΠΎΡΡΡΠΈΡ ΠΊΠ»Π°Π²ΠΈΡ.Β
ΠΡΠΎΡΠ΅ Π²ΡΠ΅Π³ΠΎ ΠΌΠ°ΠΊΡΠΎΡ Π·Π°ΠΊΡΠ΅ΠΏΠ»ΡΠ΅ΡΡΡ Π·Π° Π³ΠΎΡΡΡΠΈΠΌΠΈ ΠΊΠ»Π°Π²ΠΈΡΠ°ΠΌΠΈ Π² Β«ExcelΒ».
ΠΠ»Ρ Π½Π°Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΠΊΠ½ΠΎΠΏΠΊΠ°ΠΌ ΠΌΠ°ΠΊΡΠΎΡΠ° Π΄ΠΎΡΡΠ°ΡΠΎΡΠ½ΠΎ ΠΏΠΎΡΠ»Π΅Π΄ΠΎΠ²Π°ΡΠ΅Π»ΡΠ½ΠΎ Π²ΡΠΏΠΎΠ»Π½ΠΈΡΡ ΡΠ»Π΅Π΄ΡΡΡΠΈΠ΅ Π΄Π΅ΠΉΡΡΠ²ΠΈΡ:
ΠΠ΅ΠΉΡΡΠ²ΠΈΠ΅ ΠΏΠ΅ΡΠ²ΠΎΠ΅:
ΠΠΎΠΉΡΠΈ Π² ΠΊΠ½ΠΈΠ³Ρ ΠΌΠ°ΠΊΡΠΎΡΠΎΠ² ΠΈ Π²ΡΠ±ΡΠ°ΡΡ (Π²ΡΠ΄Π΅Π»ΠΈΡΡ) Π½ΡΠΆΠ½ΡΠΉ Π½Π°ΠΌ ΠΌΠ°ΠΊΡΠΎΡ Π»Π΅Π²ΠΎΠΉ ΠΊΠ½ΠΎΠΏΠΊΠΎΠΉ ΠΌΡΡΠΈ.
ΠΠ΅ΠΉΡΡΠ²ΠΈΠ΅ Π²ΡΠΎΡΠΎΠ΅.
ΠΠ»ΠΈΠΊΠ½ΡΠ² ΠΏΠΎ ΠΊΠ½ΠΎΠΏΠΊΠ΅ Β«ΠΠ°ΡΠ°ΠΌΠ΅ΡΡΡΒ» Π²ΡΠ·Π²Π°ΡΡ ΠΌΠ΅Π½Ρ Π½Π°ΡΡΡΠΎΠΉΠΊΠΈ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠΎΠ².
Β
ΠΠ΅ΠΉΡΡΠ²ΠΈΠ΅ ΡΡΠ΅ΡΡΠ΅.
Π ΠΌΠ΅Π½Ρ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠΎΠ² ΠΏΡΠΎΠΏΠΈΡΠ°ΡΡ Π½ΡΠΆΠ½ΡΠ΅ Π³ΠΎΡΡΡΠΈΠ΅ ΠΊΠ»Π°Π²ΠΈΡΠΈ Π½Π° Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΠ΅ ΠΌΠ°ΠΊΡΠΎΡΠ° ΠΈ Π½Π°ΠΆΠ°ΡΡ ΠΊΠ½ΠΎΠΏΠΊΡ Β«OkΒ».
Π ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅ Β«WordΒ» Π½Π°Π·Π½Π°ΡΠΈΡΡ (Π·Π°ΠΊΡΠ΅ΠΏΠΈΡΡ) ΠΊΠ»Π°Π²ΠΈΡΡ ΠΊΠ»Π°Π²ΠΈΠ°ΡΡΡΡ Π·Π° ΠΌΠ°ΠΊΡΠΎΡΠΎΠΌ Π½Π΅ΠΌΠ½ΠΎΠ³ΠΎ ΡΠ»ΠΎΠΆΠ½Π΅Π΅.
ΠΠ»Ρ Π½Π°Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΠΌΠ°ΠΊΡΠΎΡΡ Π³ΠΎΡΡΡΠΈΡ
ΠΊΠ»Π°Π²ΠΈΡ ΠΏΡΠΈΠ΄Π΅ΡΡΡ Π²ΡΠΏΠΎΠ»Π½ΠΈΡΡ ΡΠ»Π΅Π΄ΡΡΡΡΡ ΠΏΠΎΡΠ»Π΅Π΄ΠΎΠ²Π°ΡΠ΅Π»ΡΠ½ΠΎΡΡΡ Π΄Π΅ΠΉΡΡΠ²ΠΈΠΉ:
ΠΠ΅ΠΉΡΡΠ²ΠΈΠ΅ ΠΏΠ΅ΡΠ²ΠΎΠ΅.
ΠΡΠ·Π²Π°ΡΡ ΠΊΠΎΠ½ΡΠ΅ΠΊΡΡΠ½ΠΎΠ΅ ΠΌΠ΅Π½Ρ ΠΊΠ»ΠΈΠΊΠ½ΡΠ² ΠΏΡΠ°Π²ΠΎΠΉ ΠΊΠ½ΠΎΠΏΠΊΠΎΠΉ ΠΌΡΡΠΈ ΠΏΠΎ ΠΏΠ°Π½Π΅Π»ΠΈ Π±ΡΡΡΡΠΎΠ³ΠΎ Π΄ΠΎΡΡΡΠΏΠ°.
ΠΠ΅ΠΉΡΡΠ²ΠΈΠ΅ Π²ΡΠΎΡΠΎΠ΅.
ΠΡΠ±ΡΠ°ΡΡ Π² ΠΏΠΎΡΠ²ΠΈΠ²ΡΠΈΠΌΡΡ ΠΌΠ΅Π½Ρ Β«ΠΠ°ΡΡΡΠΎΠΉΠΊΠ° Π»Π΅Π½ΡΡΒ»
ΠΠ΅ΠΉΡΡΠ²ΠΈΠ΅ ΡΡΠ΅ΡΡΠ΅.
Π ΠΏΠΎΡΠ²ΠΈΠ²ΡΠ΅ΠΌΡΡ ΠΎΠΊΠ½Π΅ Π½Π°ΡΡΡΠΎΠ΅ΠΊ Π²ΡΠ±ΡΠ°ΡΡ Β«Π‘ΠΎΡΠ΅ΡΠ°Π½ΠΈΠ΅ ΠΊΠ»Π°Π²ΠΈΡ Β«ΠΠ°ΡΡΡΠΎΠΉΠΊΠ°β¦Β»Β»
ΠΠ΅ΠΉΡΡΠ²ΠΈΠ΅ ΡΠ΅ΡΠ²Π΅ΡΡΠΎΠ΅.
Π ΡΠ°Π·Π΄Π΅Π»Π΅ Β«ΠΠ°ΡΠ΅Π³ΠΎΡΠΈΠΈΒ» ΠΎΡΠΊΡΡΠ²ΡΠ΅Π³ΠΎΡΡ ΠΎΠΊΠ½Π° Π²ΡΠ±ΡΠ°ΡΡ ΠΊΠ°ΡΠ΅Π³ΠΎΡΠΈΡ Β«ΠΠ°ΠΊΡΠΎΡΡΒ». Π ΡΠΎΡΠ΅Π΄Π½Π΅ΠΌ ΡΠ°Π·Π΄Π΅Π»Π΅ Π²ΡΠ΄Π΅Π»ΠΈΡΡ ΠΌΡΡΡΡ Π½ΡΠΆΠ½ΡΠΉ ΠΌΠ°ΠΊΡΠΎΡ.
ΠΠ΅ΠΉΡΡΠ²ΠΈΠ΅ ΠΏΡΡΠΎΠ΅.
Π ΠΏΠΎΠ»Π΅ Β«ΠΠΎΠ²ΠΎΠ΅ ΡΠΎΡΠ΅ΡΠ°Π½ΠΈΠ΅ ΠΊΠ»Π°Π²ΠΈΡΒ» Π²Π½Π΅ΡΡΠΈ ΡΠΎΡΠ΅ΡΠ°Π½ΠΈΠ΅ ΠΊΠ»Π°Π²ΠΈΡ Π΄Π»Ρ Π·Π°ΠΏΡΡΠΊΠ° ΠΌΠ°ΠΊΡΠΎΡΠ° ΠΈ Π½Π°ΠΆΠ°ΡΡ Β«ΠΠΊΒ».
Π’Π΅ΠΏΠ΅ΡΡ ΠΌΠ°ΠΊΡΠΎΡ Π±ΡΠ΄Π΅Ρ Π·Π°ΠΊΡΠ΅ΠΏΠ»Π΅Π½ Π·Π° ΡΠΊΠ°Π·Π°Π½Π½ΡΠΌ ΡΠΎΡΠ΅ΡΠ°Π½ΠΈΠ΅ΠΌ Π³ΠΎΡΡΡΠΈΡ ΠΊΠ»Π°Π²ΠΈΡ.
ΠΠΎΠΏΡΠΎΡΡ ΠΌΠΎΠΆΠ½ΠΎ Π·Π°Π΄Π°Π²Π°ΡΡ Π² ΠΊΠΎΠΌΠΌΠ΅Π½ΡΠ°ΡΠΈΡΡ ΠΊ ΡΡΠ°ΡΡΠ΅ ΠΈΠ»ΠΈ Π½Π° ΡΠΎΡΡΠΌΠ΅ ΡΠ°ΠΉΡΠ°.
Β
Β
VBA Excel. ΠΠ»Π΅ΠΌΠ΅Π½Ρ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ CommandButton (ΠΊΠ½ΠΎΠΏΠΊΠ°)
ΠΠ»Π΅ΠΌΠ΅Π½Ρ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»ΡΡΠΊΠΎΠΉ ΡΠΎΡΠΌΡ CommandButton, ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΠΌΡΠΉ Π² VBA Excel Π΄Π»Ρ Π·Π°ΠΏΡΡΠΊΠ° ΠΈ ΠΌΠ°ΠΊΡΠΎΡΠΎΠ². Π‘Π²ΠΎΠΉΡΡΠ²Π° ΠΊΠ½ΠΎΠΏΠΊΠΈ, ΠΏΡΠΈΠΌΠ΅ΡΡ ΠΊΠΎΠ΄Π° Ρ Π½Π΅ΠΉ.
ΠΠ»Π΅ΠΌΠ΅Π½Ρ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ CommandButton
UserForm.CommandButton — ΡΡΠΎ ΡΠ»Π΅ΠΌΠ΅Π½Ρ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»ΡΡΠΊΠΎΠΉ ΡΠΎΡΠΌΡ, ΠΏΡΠ΅Π΄Π½Π°Π·Π½Π°ΡΠ΅Π½Π½ΡΠΉ ΠΈΡΠΊΠ»ΡΡΠΈΡΠ΅Π»ΡΠ½ΠΎ Π΄Π»Ρ Π·Π°ΠΏΡΡΠΊΠ° ΠΈ ΠΏΡΠΎΡΠ΅Π΄ΡΡ VBA Excel.
ΠΠ»Ρ Π·Π°ΠΏΡΡΠΊΠ° ΠΏΡΠΎΡΠ΅Π΄ΡΡ ΠΈ ΠΌΠ°ΠΊΡΠΎΡΠΎΠ² ΠΎΠ±ΡΡΠ½ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ ΡΠΎΠ±ΡΡΠΈΠ΅ ΠΊΠ½ΠΎΠΏΠΊΠΈ — Click.
Π‘Π²ΠΎΠΉΡΡΠ²Π° ΡΠ»Π΅ΠΌΠ΅Π½ΡΠ° CommandButton
Π‘Π²ΠΎΠΉΡΡΠ²ΠΎ | ΠΠΏΠΈΡΠ°Π½ΠΈΠ΅ |
ΠΠ²ΡΠΎΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΈΠΉ ΡΠ°Π·ΠΌΠ΅Ρ | ΠΠ²ΡΠΎΠΏΠΎΠ΄Π±ΠΎΡ ΡΠ°Π·ΠΌΠ΅ΡΠ° ΠΊΠ½ΠΎΠΏΠΊΠΈ. True — ΡΠ°Π·ΠΌΠ΅Ρ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΈ ΠΏΠΎΠ΄ΡΡΡΠ°ΠΈΠ²Π°Π΅ΡΡΡ ΠΏΠΎΠ΄ Π΄Π»ΠΈΠ½Ρ Π²Π²Π΅Π΄Π΅Π½Π½ΠΎΠΉ Π½Π°Π΄ΠΏΠΈΡΠΈ (Π·Π°Π³ΠΎΠ»ΠΎΠ²ΠΊΠ°). False — ΡΠ°Π·ΠΌΠ΅Ρ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠ° ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΠ΅Ρ ΡΠ²ΠΎΠΉΡΡΠ²Π° Π¨ΠΈΡΠΈΠ½Π° ΠΈ ΠΡΡΠΎΡΠ°. |
Π¦Π²Π΅Ρ Π·Π°Π΄Π½Π΅ΠΉ ΠΏΠ°Π½Π΅Π»ΠΈ | Π¦Π²Π΅Ρ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠ° ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ CommandButton. |
ΠΠΎΠ΄ΠΏΠΈΡΡ | ΠΠ°Π΄ΠΏΠΈΡΡ (Π·Π°Π³ΠΎΠ»ΠΎΠ²ΠΎΠΊ) — ΡΠ΅ΠΊΡΡ, ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°Π΅ΠΌΡΠΉ Π½Π° ΠΊΠ½ΠΎΠΏΠΊΠ΅. |
ControlTipText | Π’Π΅ΠΊΡΡ Π²ΡΠΏΠ»ΡΠ²Π°ΡΡΠ΅ΠΉ ΠΏΠΎΠ΄ΡΠΊΠ°Π·ΠΊΠΈ ΠΏΡΠΈ Π½Π°Π²Π΅Π΄Π΅Π½ΠΈΠΈ ΠΊΡΡΡΠΎΡΠ° Π½Π° ΠΊΠ½ΠΎΠΏΠΊΡ. |
ΠΠΊΠ»ΡΡΠ΅Π½ΠΎ | ΠΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΡ Π²Π·Π°ΠΈΠΌΠΎΠ΄Π΅ΠΉΡΡΠ²ΠΈΡ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ Ρ ΡΠΈΡΡΠ΅ΠΌΠΎΠΉ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ CommandButton. True — Π²Π·Π°ΠΈΠΌΠΎΠ΄Π΅ΠΉΡΡΠ²ΠΈΠ΅ Π²ΠΊΠ»ΡΡΠ΅Π½ΠΎ, False — ΠΎΡΠΊΠ»ΡΡΠ΅Π½ΠΎ (ΡΠ²Π΅Ρ Π½Π°Π΄ΠΏΠΈΡΠΈ ΡΡΠ°Π½ΠΎΠ²ΠΈΡΡΡ ΡΠ΅ΡΡΠΌ). |
Π¨ΡΠΈΡΡ | Π¨ΡΠΈΡΡ, Π½Π°ΡΠ΅ΡΡΠ°Π½ΠΈΠ΅ ΠΈ ΡΠ°Π·ΠΌΠ΅Ρ ΡΠ΅ΠΊΡΡΠ° Π½Π°Π΄ΠΏΠΈΡΠΈ. |
ΠΡΡΠΎΡΠ° | ΠΡΡΠΎΡΠ° ΡΠ»Π΅ΠΌΠ΅Π½ΡΠ° ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ. |
ΠΠ΅Π²ΡΠΉ | Π Π°ΡΡΡΠΎΡΠ½ΠΈΠ΅ ΠΎΡ Π»Π΅Π²ΠΎΠ³ΠΎ ΠΊΡΠ°Ρ Π²Π½ΡΡΡΠ΅Π½Π½Π΅ΠΉ Π³ΡΠ°Π½ΠΈΡΡ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»ΡΡΠΊΠΎΠΉ ΡΠΎΡΠΌΡ Π΄ΠΎ Π»Π΅Π²ΠΎΠ³ΠΎ ΠΊΡΠ°Ρ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠ° ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ. |
ΠΠ·ΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΠ΅ | ΠΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΠ΅ ΠΈΠ·ΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΡ Π²ΠΌΠ΅ΡΡΠΎ Π·Π°Π³ΠΎΠ»ΠΎΠ²ΠΊΠ° ΠΈΠ»ΠΈ ΠΊ Π½Π΅ΠΌΡ. |
ΠΠ·ΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΠ΅ ΠΠΎΠ·ΠΈΡΠΈΡ | ΠΡΡΠ°Π²Π½ΠΈΠ²Π°Π½ΠΈΠ΅ ΠΈΠ·ΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΡ ΠΈ ΡΠ΅ΠΊΡΡΠ° Π½Π° ΠΊΠ½ΠΎΠΏΠΊΠ΅. |
TabIndex | ΠΠΏΠΈΡΠ°Π½ΠΈΠ΅ ΠΏΠΎΠ·ΠΈΡΠΈΠΈ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠ° ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ Π² ΠΎΡΠ΅ΡΠ΅Π΄ΠΈ ΠΏΠΎΠ»ΡΡΠ΅Π½ΠΈΡ ΡΠΎΠΊΡΡΠ° ΠΏΡΠΈ ΡΠ°Π±ΡΠ»ΡΡΠΈΠΈ, Π²ΡΠ·ΡΠ²Π°Π΅ΠΌΠΎΠΉ Π½Π°ΠΆΠ°ΡΠΈΠ΅ΠΌ ΠΊΠ»Π°Π²ΠΈΡ Β«TabΒ», Β«EnterΒ».ΠΡΡΡΠ΅Ρ Π½Π°ΡΠΈΠ½Π°Π΅ΡΡΡ Ρ 0. |
ΠΠ΅ΡΡ | Π Π°ΡΡΡΠΎΡΠ½ΠΈΠ΅ ΠΎΡ Π²Π΅ΡΡ Π½Π΅Π³ΠΎ ΠΊΡΠ°Ρ Π²Π½ΡΡΡΠ΅Π½Π½Π΅ΠΉ Π³ΡΠ°Π½ΠΈΡΡ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»ΡΡΠΊΠΎΠΉ ΡΠΎΡΠΌΡ Π΄ΠΎ Π²Π΅ΡΡ Π½Π΅Π³ΠΎ ΠΊΡΠ°Ρ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠ° ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ. |
Π²ΠΈΠ΄ΠΈΠΌΡΠΉ | ΠΠΈΠ΄ΠΈΠΌΠΎΡΡΡ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠ° ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ CommandButton. True — ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°Π΅ΡΡΡ Π½Π° ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»ΡΡΠΊΠΎΠΉ ΡΠΎΡΠΌΠ΅, False — ΡΠΊΡΡΡ. |
Π¨ΠΈΡΠΈΠ½Π° | Π¨ΠΈΡΠΈΠ½Π° ΡΠ»Π΅ΠΌΠ΅Π½ΡΠ° ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ. |
WordWrap | ΠΠ΅ΡΠ΅Π½ΠΎΡ ΡΠ΅ΠΊΡΡΠ° Π·Π°Π³ΠΎΠ»ΠΎΠ²ΠΊΠ° Π½Π° Π½ΠΎΠ²ΡΡ ΡΡΡΠΎΠΊΡ ΠΏΡΠΈ Π΄ΠΎΡΡΠΈΠΆΠ΅Π½ΠΈΠΈ Π΅Π΅ Π³ΡΠ°Π½ΠΈΡΡ. True — ΠΏΠ΅ΡΠ΅Π½ΠΎΡ Π²ΠΊΠ»ΡΡΠ΅Π½, False — ΠΏΠ΅ΡΠ΅Π½ΠΎΡ Π²ΡΠΊΠ»ΡΡΠ΅Π½. |
Π ΡΠ°Π±Π»ΠΈΡΠ΅ ΡΠΎΠ»ΡΠΊΠΎ ΠΎΡΠ½ΠΎΠ²Π½ΡΠ΅, ΡΠ°ΡΡΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΠΌΡΠ΅ ΡΠ²ΠΎΠΉΡΡΠ²Π° ΠΊΠ½ΠΎΠΏΠΊΠΈ. ΠΡΠ΅ Π΄ΠΎΡΡΡΠΏΠ½ΡΠ΅ ΡΠ²ΠΎΠΉΡΡΠ²Π° ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ΅Π½Ρ Π² ΠΎΠΊΠ½Π΅ Π‘Π²ΠΎΠΉΡΡΠ²Π° ΡΠ»Π΅ΠΌΠ΅Π½ΡΠ° ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ CommandButton.
ΠΡΠΈΠΌΠ΅Ρ ΠΊΠ½ΠΎΠΏΠΊΠΈ Ρ Π½Π°Π΄ΠΏΠΈΡΡΡ ΠΈ ΠΈΠ·ΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΠ΅
ΠΡΠΈΠΌΠ΅ΡΡ ΠΊΠΎΠ΄Π° VBA Excel Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΠΊΠ½ΠΎΠΏΠΊΠΈ
ΠΠ·Π½Π°ΡΠ°Π»ΡΠ½ΠΎ Π΄Π»Ρ ΡΠ΅Π°Π»ΠΈΠ·Π°ΡΠΈΠΈ ΠΏΡΠΈΠΌΠ΅ΡΠΎΠ² Π½Π° ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»ΡΡΠΊΡΡ ΡΠΎΡΠΌΡ UserForm1 Π΄ΠΎΠ±Π°Π²Π»Π΅Π½Π° ββΠΊΠ½ΠΎΠΏΠΊΠ° CommandButton1.
ΠΡΠΈΠΌΠ΅Ρ 1
ΠΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΠ΅ ΡΠ²Π΅ΡΠ° ΠΈ Π½Π°Π΄ΠΏΠΈΡΠΈ ΠΊΠ½ΠΎΠΏΠΊΠΈ ΠΏΡΠΈ Π½Π°Π²Π΅Π΄Π΅Π½ΠΈΠΈ Π½Π° Π½Π΅Π΅ ΠΊΡΡΡΠΎΡΠ°.
Π£ΡΠ»ΠΎΠ²ΠΈΠ΅ ΠΏΡΠΈΠΌΠ΅Ρ 1
- ΠΠ΅ΠΉΡΡΠ²ΠΈΡ ΠΏΡΠΈ Π·Π°Π³ΡΡΠ·ΠΊΠ΅ ΡΠΎΡΠΌΡ: Π·Π°ΠΌΠ΅Π½Π° Π·Π°Π³ΠΎΠ»ΠΎΠ²ΠΊΠ° ΡΠΎΡΠΌΡ ΠΏΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ Π½Π° Β«ΠΡΠΈΠΌΠ΅Ρ 1Β», Π·Π°ΠΌΠ΅Π½Π° Π½Π°Π΄ΠΏΠΈΡΠΈ ΠΊΠ½ΠΎΠΏΠΊΠΈ ΠΏΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ Π½Π° Β«ΠΠ½ΠΎΠΏΠΊΠ°Β», Π·Π°ΠΏΠΈΡΡ ΡΠ²Π΅ΡΠ° ΠΊΠ½ΠΎΠΏΠΊΠΈ ΠΏΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ Π² ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ ΡΡΠΎΠ²Π΅Π½Ρ ΠΌΠΎΠ΄ΡΠ»Ρ.
- Π‘Π΄Π΅Π»Π°ΡΡ, ΡΡΠΎΠ±Ρ ΠΏΡΠΈ Π½Π°Π²Π΅Π΄Π΅Π½ΠΈΠΈ ΠΊΡΡΡΠΎΡΠ° Π½Π° ΠΊΠ½ΠΎΠΏΠΊΡ, ΠΎΠ½Π° ΠΈΠ·ΠΌΠ΅Π½ΡΠ»Π° ΡΠ²Π΅Ρ Π½Π° Π·Π΅Π»Π΅Π½ΡΠΉ, Π° Π½Π°Π΄ΠΏΠΈΡΡ Β«Β» ΠΌΠ΅Π½ΡΠ»Π°ΡΡ Π½Π° Π½Π°Π΄ΠΏΠΈΡΡ Β«ΠΠ°ΠΆΠΌΠΈ!Β»
- ΠΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΠ΅ ΠΊΠΎΠ΄Π° VBA Excel, ΠΊΠΎΡΠΎΡΡΠΉ Π±ΡΠ΄Π΅Ρ ΠΏΡΠΈ ΡΠ΄Π°Π»Π΅Π½ΠΈΠΈ ΠΊΡΡΡΠΎΡΠ° Ρ ΠΊΠ½ΠΎΠΏΠΊΠΈ Π²ΠΎΠ·Π²ΡΠ°ΡΠ°ΡΡ Π΅ΠΉ ΠΏΠ΅ΡΠ²ΠΎΠ½Π°ΡΠ°Π»ΡΠ½ΡΠ΅ Π½Π°ΡΡΡΠΎΠΉΠΊΠΈ: ΡΠ²Π΅Ρ ΠΏΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ ΠΈ Π½Π°Π΄ΠΏΠΈΡΡ Β«ΠΠ½ΠΎΠΏΠΊΠ°Β».
Π Π΅ΡΠ΅Π½ΠΈΠ΅ ΠΡΠΈΠΌΠ΅Ρ 1
1. ΠΠ±ΡΡΠ²Π»ΡΠ΅ΠΌ Π² ΡΠ°Π·Π΄Π΅Π»Π΅ ΠΠ±ΡΡΠ²Π»Π΅Π½ΠΈΡ ΠΌΠΎΠ΄ΡΠ»Ρ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»ΡΡΠΊΠΎΠΉ ΡΠΎΡΠΌΡ (Π² ΡΠ°ΠΌΠΎΠΌ Π½Π°ΡΠ°Π»Π΅ ΠΌΠΎΠ΄ΡΠ»Ρ, Π΄ΠΎ ΠΏΡΠΎΡΠ΅Π΄ΡΡ) ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ myColor:
2. ΠΠ°Π³ΡΡΠΆΠ°Π΅ΠΌ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»ΡΡΠΊΡΡ ΡΠΎΡΠΌΡ Ρ Π·Π°Π΄Π°Π½Π½ΡΠΌΠΈ:
Π§Π°ΡΡΠ½Π°Ρ ΠΏΠΎΠ΄ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° UserForm_Initialize () Me.Caption = «ΠΡΠΈΠΌΠ΅Ρ 1» Π‘ CommandButton1 myColor = .BackColor .Caption = «ΠΠ½ΠΎΠΏΠΊΠ°» End With End Sub |
3. ΠΠ΅Π½ΡΠ΅ΠΌ ΡΠ²Π΅Ρ ΠΈ Π½Π°Π΄ΠΏΠΈΡΡ ΠΊΠ½ΠΎΠΏΠΊΠΈ ΠΏΡΠΈ Π½Π°Π²Π΅Π΄Π΅Π½ΠΈΠΈ Π½Π° Π½Π΅Π΅ ΠΊΡΡΡΠΎΡΠ° ΠΌΡΡΠΈ:
Private Sub CommandButton1_MouseMove (ByVal _ Button as Integer, ByVal Shift as Integer, _ ByVal X ΠΊΠ°ΠΊ Single, ByVal Y ΠΊΠ°ΠΊ Single) With CommandButton1 .BackColor = vbGreen .Caption = «ΠΠ°ΠΆΠΌΠΈ!» ΠΠΎΠ½Π΅Ρ Ρ ΠΠΎΠ½ΡΠ΅Π²ΠΎΠΉ ΠΏΠ΅ΡΠ΅Π²ΠΎΠ΄Π½ΠΈΠΊ |
4. ΠΠΎΠ·Π²ΡΠ°ΡΠ°Π΅ΠΌ ΡΠ²Π΅Ρ ΠΈ Π½Π°Π΄ΠΏΠΈΡΡ ΠΊΠ½ΠΎΠΏΠΊΠΈ ΠΏΡΠΈ ΡΠ΄Π°Π»Π΅Π½ΠΈΠΈ Ρ Π½Π΅Π΅ ΠΊΡΡΡΠΎΡΠ° ΠΌΡΡΠΈ:
Private Sub UserForm_MouseMove (ByVal _ Button as Integer, ByVal Shift as Integer, _ ByVal X ΠΊΠ°ΠΊ Single, ByVal Y ΠΊΠ°ΠΊ Single) With CommandButton1 .BackColor = myColor .Caption = «ΠΠ½ΠΎΠΏΠΊΠ°» End With End Sub |
ΠΡΠ΅ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ ΡΠ°Π·ΠΌΠ΅ΡΠ°ΡΡΡΡ Π² ΠΌΠΎΠ΄ΡΠ»Π΅ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»ΡΡΠΊΠΎΠΉ ΡΠΎΡΠΌΡ. ΠΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ myColor ΠΎΠ±ΡΡΠ²Π»ΡΠ΅ΡΡΡ Π½Π° ΡΡΠΎΠ²Π½Π΅ ΠΌΠΎΠ΄ΡΠ»Ρ, ΡΠ°ΠΊ ΠΊΠ°ΠΊ ΠΎΠ½Π° ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ Π² Π΄Π²ΡΡ ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ°Ρ .
ΠΡΠΈΠΌΠ΅Ρ 2
ΠΠ°ΠΏΡΡΠΊ ΠΊΠΎΠ΄Π°, ΡΠ°Π·ΠΌΠ΅ΡΠ΅Π½Π½ΠΎΠ³ΠΎ Π²Π½ΡΡΡΠΈ ΠΏΡΠΎΡΠ΅Π΄ΡΡ ΠΎΠ±ΡΠ°Π±ΠΎΡΠΊΠΈ ΡΠΎΠ±ΡΡΠΈΠΉ Π©Π΅Π»ΠΊΠ½ΠΈΡΠ΅ ΡΠ»Π΅ΠΌΠ΅Π½Ρ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ CommandButton:
Π§Π°ΡΡΠ½Π°Ρ ΠΏΠΎΠ΄ΠΏΠΈΡΠΊΠ° CommandButton1_Click () MsgBox Β«ΠΠΎΠ΄ Π²Π½ΡΡΡΠΈ ΠΎΠ±ΡΠ°Π±ΠΎΡΠΊΠΈ ΡΠΎΠ±ΡΡΠΈΠΉ ClickΒ» End Sub |
ΠΡΠΈΠΌΠ΅Ρ 3
ΠΠ°ΠΏΡΡΠΊ Π²Π½Π΅ΡΠ½Π΅ΠΉ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ ΠΈΠ· ΠΏΡΠΎΡΠ΅Π΄ΡΡ ΠΎΠ±ΡΠ°Π±ΠΎΡΠΊΠΈ ΡΠΎΠ±ΡΡΠΈΡ. Π©Π΅Π»ΠΊΠ½ΠΈΡΠ΅ ΡΠ»Π΅ΠΌΠ΅Π½Ρ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ CommandButton.
ΠΠ½Π΅ΡΠ½ΡΡ ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ°, ΡΠ°Π·ΠΌΠ΅ΡΠ΅Π½Π½Π°Ρ Π² ΡΡΠ°Π½Π΄Π°ΡΡΠ½ΠΎΠΌ ΠΌΠΎΠ΄ΡΠ»Π΅ ΠΏΡΠΎΠ΅ΠΊΡΠ° VBA Excel:
Sub Test () MsgBox «ΠΠ°ΠΏΡΡΠΊ Π²Π½Π΅ΡΠ½Π΅ΠΉ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ» End Sub |
ΠΡΠ·ΠΎΠ² Π²Π½Π΅ΡΠ½Π΅ΠΉ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ ΠΈΠ· ΠΊΠΎΠ΄Π° ΠΎΠ±ΡΠ°Π±ΠΎΡΠΊΠΈ ΡΠΎΠ±ΡΡΠΈΡ ΠΠ°ΠΆΠΌΠΈΡΠ΅
- Ρ ΠΊΠ»ΡΡΠ΅Π²ΡΠΌ ΡΠ»ΠΎΠ²ΠΎΠΌ ΠΠ²ΠΎΠ½ΠΎΠΊ:
Π§Π°ΡΡΠ½Π°Ρ ΠΏΠΎΠ΄ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° CommandButton1_Click () ΠΡΠΎΠ²Π΅ΡΠΊΠ° Π²ΡΠ·ΠΎΠ²Π° ΠΠΎΠ½Π΅ΡΠ½Π°Ρ ΠΏΠΎΠ΄ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° |
- Π±Π΅Π· ΠΊΠ»ΡΡΠ΅Π²ΠΎΠ³ΠΎ ΡΠ»ΠΎΠ²Π° ΠΠΎΠ·Π²ΠΎΠ½ΠΈΡΡ:
Π§Π°ΡΡΠ½Π°Ρ ΠΏΠΎΠ΄ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° CommandButton1_Click () Π’Π΅ΡΡ ΠΠΎΠ½Π΅ΡΠ½Π°Ρ ΠΏΠΎΠ΄ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° |
Π‘ΡΡΠΎΠΊΠΈ Π²ΡΠ·ΠΎΠ²Π° Π²Π½Π΅ΡΠ½Π΅ΠΉ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ Ρ ΠΊΠ»ΡΡΠ΅Π²ΡΠΌ ΡΠ»ΠΎΠ²ΠΎΠΌ Call ΠΈ Π±Π΅Π· Π½Π΅Π³ΠΎ — ΡΠ°Π²Π½ΠΎΠ·Π½Π°ΡΠ½Ρ.ΠΠ° Π²ΡΠ·ΠΎΠ²Π΅ ΡΠ»ΠΎΠ²ΠΎ ΠΌΠΎΠΆΠ½ΠΎ ΠΎΡΠΈΠ΅Π½ΡΠΈΡΠΎΠ²Π°ΡΡΡΡ ΠΊΠ°ΠΊ Π½Π° ΠΏΠΎΠ΄ΡΠΊΠ°Π·ΠΊΡ, ΠΊΠΎΡΠΎΡΠ°Ρ ΡΠΊΠ°Π·ΡΠ²Π°Π΅Ρ Π½Π° ΡΠΎ, ΡΡΠΎ ΡΡΠ° ΡΡΡΠΎΠΊΠ° Π²ΡΠ·ΡΠ²Π°Π΅Ρ Π²Π½Π΅ΡΠ½ΡΡ ΠΆΠΈΠ·Π½Ρ.
.
ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΠΎΠ΅ Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΠ΅ ΠΊΠ½ΠΎΠΏΠΎΠΊ Π½Π° Π»ΠΈΡΡ Excel
ΠΠ°Π΄ΡΡΡΠΎΠΉΠΊΠ° Π΄Π»Ρ Π·Π°Π³ΡΡΠ·ΠΊΠΈ ΠΊΠ½ΠΎΠΏΠΎΠΊ Π·Π°ΠΏΡΡΠΊΠ° ΠΌΠ°ΠΊΡΠΎΡΠ° Π½Π° Π»ΠΈΡΡ Excel
.
ΠΌΠ°ΠΊΡΠΎΡΡ ΠΌΠ½Π΅ ΠΏΡΠΈΡ ΠΎΠ΄ΠΈΡΡΡ ΠΏΠΈΡΠ°ΡΡ ΠΈΡ ΠΎΡΠ΅Π½Ρ ΡΠ°ΡΡΠΎ, ΡΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ ΠΊΠ½ΠΎΠΏΠΎΠΊ Π·Π°ΠΏΡΡΠΊΠ° ΠΎΡΠ½ΠΈΠΌΠ°Π΅Ρ Π΄ΠΎΡΡΠ°ΡΠΎΡΠ½ΠΎ ΠΌΠ½ΠΎΠ³ΠΎ Π²ΡΠ΅ΠΌΠ΅Π½ΠΈ.
Π Π΅ΡΠ΅Π½ΠΈΠ΅ΠΌ ΡΡΠ°Π»ΠΎ ΡΠΎΠ·Π΄Π°Π½ΠΈΠ΅ ΡΡΠΎΠΉ Π½Π°Π΄ΡΡΡΠΎΠΉΠΊΠΈ — ΡΠ΅ΠΏΠ΅ΡΡ Π΄ΠΎΡΡΠ°ΡΠΎΡΠ½ΠΎ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π° ΡΡΠ΅Π΅ΠΊ Π½Π° Π»ΠΈΡΡΠ΅ Excel , Π½Π°ΠΆΠΌΠΈΡΠ΅ ΠΊΠΎΠΌΠ±ΠΈΠ½Π°ΡΠΈΡ ΠΊΠ»Π°Π²ΠΈΡ ΡΠΈΠΏΠ° Alt + 1 , — ΠΈ ΡΠ΅ΡΠ΅Π· ΠΌΠ³Π½ΠΎΠ²Π΅Π½ΠΈΠ΅ Π½Π° Π»ΠΈΡΡΠ΅ ΡΠΎΠ·Π΄Π°ΡΡΡΡ Π·Π΅Π»ΡΠ½Π°Ρ ΠΊΠ½ΠΎΠΏΠΊΠ° Ρ Π½Π°Π·Π²Π°Π½ΠΈΠ΅ΠΌ Β«ΠΠ°ΠΏΡΡΠΊΒ», ΡΠ°ΡΠΏΠΎΠ»ΠΎΠΆΠ΅Π½Π½Π°Ρ ΡΠΎΡΠ½ΠΎ ΠΏΠΎΠ²Π΅ΡΡ ΡΠ°Π½Π΅Π΅ Π²ΡΠ΄Π΅Π»Π΅Π½Π½ΡΡ ΡΡΠ΅Π΅ΠΊ.ΠΡΡΠ°ΡΡΡΡ ΡΠΎΠ»ΡΠΊΠΎ Π½Π°Π·Π½Π°ΡΠΈΡΡ ΡΡΡ ΠΊΠ½ΠΎΠΏΠΊΡ ΠΌΠ°ΠΊΡΠΎΡΠ°, ΡΠ΅Π»ΠΊΠ½ΡΠ² ΠΏΠΎ Π½Π΅ΠΉ ΠΏΡΠ°Π²ΠΎΠΉ ΠΊΠ»Π°Π²ΠΈΡΠ΅ΠΉ ΠΌΡΡΠΈ.
ΠΡΠΈΠΌΠ΅Ρ ΠΊΠΎΠ΄Π° VBA Π΄Π»Ρ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ ΠΊΠ½ΠΎΠΏΠΊΠΈ:
Sub ΠΡΠΈΠΌΠ΅ΡΠΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΡ () Π‘ΠΎΠ·Π΄Π°ΡΡΠΠ½ΠΎΠΏΠΊΡ Selection, vbGreen, "ΠΠ±ΡΠ°Π±ΠΎΡΠ°ΡΡ Π΄Π°Π½Π½ΡΠ΅": End Sub ΠΠΎΠ½ΡΠ΅Π²ΠΎΠΉ ΠΏΠ΅ΡΠ΅Π²ΠΎΠ΄Π½ΠΈΠΊ
ΠΠ»Ρ Π²ΡΠ·ΠΎΠ²Π° ΡΠΎΡΠΌΡ (Π³Π΄Π΅ ΠΌΠΎΠΆΠ½ΠΎ Π½Π°ΡΡΡΠΎΠΈΡΡ ΡΠ΅ΠΊΡΡ ΠΈ ΡΠ²Π΅Ρ Π±ΡΠ΄ΡΡΠ΅ΠΉ ΠΊΠ½ΠΎΠΏΠΊΠΈ) ΡΡΠ° ΠΊΠΎΠΌΠ±ΠΈΠ½Π°ΡΠΈΡ ΠΊΠ»Π°Π²ΠΈΡ Ctrl + Alt + Shift + B
ΠΠΎΠ΄ ΡΡΠ½ΠΊΡΠΈΠΈ Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΡ ΠΊΠ½ΠΎΠΏΠΎΠΊ Π½Π° Π»ΠΈΡΡ Excel:
Π€ΡΠ½ΠΊΡΠΈΡ Π‘ΠΎΠ·Π΄Π°ΡΡΠΠ½ΠΎΠΏΠΊΡ (ByRef ra As Range, Optional ByVal ButtonColor As Long = 255, _ ΠΠ΅ΠΎΠ±ΡΠ·Π°ΡΠ΅Π»ΡΠ½ΡΠΉ ByVal ButtonName $ = "ΠΠ°ΠΏΡΡΠΊ", ΠΠ΅ΠΎΠ±ΡΠ·Π°ΡΠ΅Π»ΡΠ½ΡΠΉ ByVal MacroName As String = "") Π€ΡΠ½ΠΊΡΠΈΡ ΡΠΈΡΡΠ΅Ρ Π°Π²ΡΠΎΡΠΈΠ³ΡΡΡ (ΠΏΡΡΠΌΠΎΡΠ³ΠΎΠ»ΡΠ½ΠΈΠΊ) ΠΏΠΎΠ²Π΅ΡΡ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π° ΡΡΠ΅Π΅ΠΊ ra 'ΠΈ ΠΎΠΊΡΠ°ΡΠΈΠ²Π°Π΅Ρ ΡΠΎΠ·Π΄Π°Π½Π½ΡΡ ΠΊΠ½ΠΎΠΏΠΊΡ (Ρ Π½Π°Π·Π²Π°Π½ΠΈΠ΅ΠΌ) Π² ΡΠ²Π΅Ρ Button_color 'Π‘ΠΎΠ·Π΄Π°Π½Π½ΠΎΠΉ ΠΊΠ½ΠΎΠΏΠΊΠ΅ Π½Π°Π·Π½Π°ΡΠ°Π΅ΡΡΡ ΠΌΠ°ΠΊΡΠΎΡ MacroName ΠΡΠΈ ΠΎΡΠΈΠ±ΠΊΠ΅ ΠΠΎΠ·ΠΎΠ±Π½ΠΎΠ²ΠΈΡΡ ΡΠ»Π΅Π΄ΡΡΡΠΈΠΉ: Err.ΠΡΠΈΡΡΠΈΡΡ w = ra.Π¨ΠΈΡΠΈΠ½Π°: h = ra.Height: l = ra.Left: t = ra.Top w = IIf (w> = 10, w, 50): h = IIf (h> = 10, h, 50) 'Π½Π΅ ΡΠΎΠ·Π΄Π°ΡΠΌ ΠΌΠ°Π»Π΅Π½ΡΠΊΠΈΠ΅ ΠΊΠ½ΠΎΠΏΠΊΠΈ - ΠΌΠΈΠ½ΠΈΠΌΡΠΌ 10 * 10 'Π΄ΠΎΠ±Π°Π²Π»ΡΠ΅ΠΌ ΠΊΠ½ΠΎΠΏΠΊΡ Π½Π° Π»ΠΈΡΡ Dim sha As Shape: Π£ΡΡΠ°Π½ΠΎΠ²ΠΈΡΠ΅ sha = ActiveSheet.Shapes.AddShape (msoShapeRoundedRectangle, l, t, w, h) Π‘ sha 'ΠΎΡΠΎΡΠΌΠ»ΡΠ΅ΠΌ Π°Π²ΡΠΎΡΠΈΠ³ΡΡΡ .Fill.Visible = msoTrue: .Fill.Solid .Fill.ForeColor.RGB = Π¦Π²Π΅Ρ ΠΊΠ½ΠΎΠΏΠΊΠΈ: .Fill.Transparency = 0,3 .Fill.BackColor.RGB = vbWhite .ΠΠ°ΠΏΠΎΠ»Π½ΠΈΡΡ.TwoColorGradient msoGradientFromCenter, 2 'Π³ΡΠ°Π΄ΠΈΠ΅Π½ΡΠ½Π°Ρ Π·Π°Π»ΠΈΠ²ΠΊΠ° .Adjustments.item (1) = 0,23: .Placement = xlFreeFloating .OLEFormat.Object.PrintObject = False 'ΠΊΠ½ΠΎΠΏΠΊΠΈ Π½Π΅ Π²ΡΠ²ΠΎΠ΄ΡΡΡΡ Π½Π° ΠΏΠ΅ΡΠ°ΡΡ .Line.Weight = 0,25: .Line.ForeColor.RGB = vbBlack 'Π΄Π΅Π»Π°Π΅ΠΌ ΡΠΎΠ½ΠΊΠΈΠΉ ΡΠ΅ΡΠ½ΡΠΉ ΠΊΠΎΠ½ΡΡΡ With .TextFrame 'Π΄ΠΎΠ±Π°Π²Π»ΡΠ΅ΠΌ ΠΈ ΡΠΎΡΠΌΠ°ΡΠΈΡΡΠ΅ΠΌ ΡΠ΅ΠΊΡΡ .Characters.Text = ButtonName $ 'Π΄ΠΎΠ±Π°Π²Π»ΡΠ΅ΠΌ ΡΠ΅ΠΊΡΡ Π‘ .Characters.Font ΠΈΠ·ΠΌΠ΅Π½ΡΠ΅ΠΌ Π½Π°ΡΠ΅ΡΡΠ°Π½ΠΈΠ΅ ΡΠ΅ΠΊΡΡΠ° .Size = IIf (h> = 16, 10, 8):. ΠΠΎΠ»ΡΠΆΠΈΡΠ½ΡΠΉ ΡΡΠΈΡΡ = True: .Color = vbBlack: .Name = "Arial" 'ΡΠ²Π΅Ρ ΠΈ ΡΡΠΈΡΡ ΠΠΎΠ½Π΅Ρ Ρ .HorizontalAlignment = xlCenter: .VerticalAlignment = xlVAlignCenter ΠΠΎΠ½Π΅Ρ Ρ .onaction = MacroName 'Π½Π°Π·Π½Π°ΡΠ°Π΅ΠΌ ΠΊΠ½ΠΎΠΏΠΊΠ΅ ΠΌΠ°ΠΊΡΠΎΡ (Π΅ΡΠ»ΠΈ ΠΎΠ½ Π·Π°Π΄Π°Π½ Π² ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠ°Ρ ) ΠΠΎΠ½Π΅Ρ Ρ ΠΠΎΠ½Π΅ΡΠ½Π°Ρ ΡΡΠ½ΠΊΡΠΈΡ
.