Vba ΠΏΡΠΈΠΌΠ΅Ρ excel: ΠΠ°ΠΊΡΠΎΡΡ Π΄Π»Ρ Excel Ρ ΠΈΡΡ ΠΎΠ΄Π½ΡΠΌΠΈ ΠΊΠΎΠ΄Π°ΠΌΠΈ ΠΈ ΠΎΠΏΠΈΡΠ°Π½ΠΈΠ΅ΠΌ ΡΡΠ½ΠΊΡΠΈΠΉ
Π‘ΠΎΠ΄Π΅ΡΠΆΠ°Π½ΠΈΠ΅
24 ΠΏΠΎΠ»Π΅Π·Π½ΡΡ ΠΏΡΠΈΠΌΠ΅ΡΠ° ΠΌΠ°ΠΊΡΠΎΡΠΎΠ² Excel Π΄Π»Ρ Π½Π°ΡΠΈΠ½Π°ΡΡΠΈΡ Ρ VBA (Π³ΠΎΡΠΎΠ²ΡΠ΅ ΠΊ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΡ)
Π‘ΠΎΠ΄Π΅ΡΠΆΠ°Π½ΠΈΠ΅
- ΠΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ ΠΊΠΎΠ΄Π° ΠΈΠ· ΠΏΡΠΈΠΌΠ΅ΡΠΎΠ² ΠΌΠ°ΠΊΡΠΎΡΠΎΠ² Excel
- ΠΠ°ΠΊ Π·Π°ΠΏΡΡΡΠΈΡΡ ΠΌΠ°ΠΊΡΠΎΡ
- ΠΡΠΈΠΌΠ΅ΡΡ ΠΌΠ°ΠΊΡΠΎΡΠΎΠ² Excel
ΠΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ ΠΌΠ°ΠΊΡΠΎΡΠΎΠ² Excel ΠΌΠΎΠΆΠ΅Ρ ΡΡΠΊΠΎΡΠΈΡΡ ΡΠ°Π±ΠΎΡΡ ΠΈ ΡΡΠΊΠΎΠ½ΠΎΠΌΠΈΡΡ ΠΌΠ½ΠΎΠ³ΠΎ Π²ΡΠ΅ΠΌΠ΅Π½ΠΈ.
ΠΠ΄ΠΈΠ½ ΠΈΠ· ΡΠΏΠΎΡΠΎΠ±ΠΎΠ² ΠΏΠΎΠ»ΡΡΠΈΡΡ ΠΊΠΎΠ΄ VBA — Π·Π°ΠΏΠΈΡΠ°ΡΡ ΠΌΠ°ΠΊΡΠΎΡ ΠΈ Π²Π·ΡΡΡ ΠΊΠΎΠ΄, ΠΊΠΎΡΠΎΡΡΠΉ ΠΎΠ½ Π³Π΅Π½Π΅ΡΠΈΡΡΠ΅Ρ. ΠΠ΄Π½Π°ΠΊΠΎ ΡΡΠΎΡ ΠΊΠΎΠ΄ ΠΌΠ°ΠΊΡΠΎΡΠ° Π·Π°ΠΏΠΈΡΠΈ ΡΠ°ΡΡΠΎ ΠΏΠΎΠ»ΠΎΠ½ ΠΊΠΎΠ΄Π°, ΠΊΠΎΡΠΎΡΡΠΉ Π½Π° ΡΠ°ΠΌΠΎΠΌ Π΄Π΅Π»Π΅ Π½Π΅ Π½ΡΠΆΠ΅Π½. Π’Π°ΠΊΠΆΠ΅ Ρ ΠΌΠ°ΠΊΡΠΎ-ΡΠ΅ΠΊΠΎΡΠ΄Π΅ΡΠ° Π΅ΡΡΡ Π½Π΅ΠΊΠΎΡΠΎΡΡΠ΅ ΠΎΠ³ΡΠ°Π½ΠΈΡΠ΅Π½ΠΈΡ.
ΠΠΎΡΡΠΎΠΌΡ ΡΡΠΎΠΈΡ ΠΈΠΌΠ΅ΡΡ ΠΊΠΎΠ»Π»Π΅ΠΊΡΠΈΡ ΠΏΠΎΠ»Π΅Π·Π½ΡΡ ΠΌΠ°ΠΊΡΠΎΠΊΠΎΠ΄ΠΎΠ² VBA, ΠΊΠΎΡΠΎΡΡΠ΅ ΠΌΠΎΠΆΠ½ΠΎ Π½ΠΎΡΠΈΡΡ Π² Π·Π°Π΄Π½Π΅ΠΌ ΠΊΠ°ΡΠΌΠ°Π½Π΅ ΠΈ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΠΏΡΠΈ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎΡΡΠΈ.
Π₯ΠΎΡΡ Π½Π°ΠΏΠΈΡΠ°Π½ΠΈΠ΅ ΠΌΠ°ΠΊΡΠΎΠΊΠΎΠ΄Π° Excel VBA Π½Π° Π½Π°ΡΠ°Π»ΡΠ½ΠΎΠΌ ΡΡΠ°ΠΏΠ΅ ΠΌΠΎΠΆΠ΅Ρ Π·Π°Π½ΡΡΡ Π½Π΅ΠΊΠΎΡΠΎΡΠΎΠ΅ Π²ΡΠ΅ΠΌΡ, ΠΏΠΎΡΠ»Π΅ Π΅Π³ΠΎ Π·Π°Π²Π΅ΡΡΠ΅Π½ΠΈΡ Π²Ρ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΡΠΎΡ ΡΠ°Π½ΠΈΡΡ Π΅Π³ΠΎ Π΄ΠΎΡΡΡΠΏΠ½ΡΠΌ Π² ΠΊΠ°ΡΠ΅ΡΡΠ²Π΅ ΡΠΏΡΠ°Π²ΠΎΡΠ½ΠΈΠΊΠ° ΠΈ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ Π² ΡΠ»Π΅Π΄ΡΡΡΠΈΠΉ ΡΠ°Π·, ΠΊΠΎΠ³Π΄Π° ΠΎΠ½ ΠΏΠΎΠ½Π°Π΄ΠΎΠ±ΠΈΡΡΡ.
Π ΡΡΠΎΠΉ ΠΎΠ±ΡΠΈΡΠ½ΠΎΠΉ ΡΡΠ°ΡΡΠ΅ Ρ ΡΠΎΠ±ΠΈΡΠ°ΡΡΡ ΠΏΠ΅ΡΠ΅ΡΠΈΡΠ»ΠΈΡΡ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΎ ΠΏΠΎΠ»Π΅Π·Π½ΡΡ ΠΏΡΠΈΠΌΠ΅ΡΠΎΠ² ΠΌΠ°ΠΊΡΠΎΡΠΎΠ² Excel, ΠΊΠΎΡΠΎΡΡΠ΅ ΠΌΠ½Π΅ ΡΠ°ΡΡΠΎ Π½ΡΠΆΠ½Ρ ΠΈ ΠΊΠΎΡΠΎΡΡΠ΅ Ρ Ρ ΡΠ°Π½Ρ Π² ΠΌΠΎΠ΅ΠΌ Π»ΠΈΡΠ½ΠΎΠΌ Ρ ΡΠ°Π½ΠΈΠ»ΠΈΡΠ΅.
Π― Π±ΡΠ΄Ρ ΠΏΡΠΎΠ΄ΠΎΠ»ΠΆΠ°ΡΡ ΠΎΠ±Π½ΠΎΠ²Π»ΡΡΡ ΡΡΠΎΡ ΡΡΠ΅Π±Π½ΠΈΠΊ, Π΄ΠΎΠ±Π°Π²Π»ΡΡ Π±ΠΎΠ»ΡΡΠ΅ ΠΏΡΠΈΠΌΠ΅ΡΠΎΠ² ΠΌΠ°ΠΊΡΠΎΡΠΎΠ². ΠΡΠ»ΠΈ Π²Ρ ΡΡΠΈΡΠ°Π΅ΡΠ΅, ΡΡΠΎ ΡΡΠΎ-ΡΠΎ Π΄ΠΎΠ»ΠΆΠ½ΠΎ Π±ΡΡΡ Π² ΡΠΏΠΈΡΠΊΠ΅, ΠΏΡΠΎΡΡΠΎ ΠΎΡΡΠ°Π²ΡΡΠ΅ ΠΊΠΎΠΌΠΌΠ΅Π½ΡΠ°ΡΠΈΠΉ.
ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ Π΄ΠΎΠ±Π°Π²ΠΈΡΡ ΡΡΡ ΡΡΡΠ°Π½ΠΈΡΡ Π² Π·Π°ΠΊΠ»Π°Π΄ΠΊΠΈ Π΄Π»Ρ Π΄Π°Π»ΡΠ½Π΅ΠΉΡΠ΅Π³ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΡ.
Π’Π΅ΠΏΠ΅ΡΡ, ΠΏΡΠ΅ΠΆΠ΄Π΅ ΡΠ΅ΠΌ Ρ ΠΏΠ΅ΡΠ΅ΠΉΠ΄Ρ ΠΊ ΠΏΡΠΈΠΌΠ΅ΡΡ ΠΌΠ°ΠΊΡΠΎΡΠ° ΠΈ Π΄Π°ΠΌ Π²Π°ΠΌ ΠΊΠΎΠ΄ VBA, ΠΏΠΎΠ·Π²ΠΎΠ»ΡΡΠ΅ ΠΌΠ½Π΅ ΡΠ½Π°ΡΠ°Π»Π° ΠΏΠΎΠΊΠ°Π·Π°ΡΡ Π²Π°ΠΌ, ΠΊΠ°ΠΊ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΡΡΠΈ ΠΏΡΠΈΠΌΠ΅ΡΡ ΠΊΠΎΠ΄ΠΎΠ².
ΠΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ ΠΊΠΎΠ΄Π° ΠΈΠ· ΠΏΡΠΈΠΌΠ΅ΡΠΎΠ² ΠΌΠ°ΠΊΡΠΎΡΠΎΠ² Excel
ΠΠΎΡ ΡΠ°Π³ΠΈ, ΠΊΠΎΡΠΎΡΡΠ΅ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ Π²ΡΠΏΠΎΠ»Π½ΠΈΡΡ, ΡΡΠΎΠ±Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΠΊΠΎΠ΄ ΠΈΠ· Π»ΡΠ±ΠΎΠ³ΠΎ ΠΈΠ· ΠΏΡΠΈΠΌΠ΅ΡΠΎΠ²:
- ΠΡΠΊΡΠΎΠΉΡΠ΅ ΠΊΠ½ΠΈΠ³Ρ, Π² ΠΊΠΎΡΠΎΡΠΎΠΉ Π²Ρ Ρ ΠΎΡΠΈΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΠΌΠ°ΠΊΡΠΎΡ.
- Π£Π΄Π΅ΡΠΆΠΈΠ²Π°Ρ ΠΊΠ»Π°Π²ΠΈΡΡ ALT, Π½Π°ΠΆΠΌΠΈΡΠ΅ F11. ΠΡΠΊΡΠΎΠ΅ΡΡΡ ΡΠ΅Π΄Π°ΠΊΡΠΎΡ VB.
- Π©Π΅Π»ΠΊΠ½ΠΈΡΠ΅ ΠΏΡΠ°Π²ΠΎΠΉ ΠΊΠ½ΠΎΠΏΠΊΠΎΠΉ ΠΌΡΡΠΈ Π»ΡΠ±ΠΎΠΉ ΠΈΠ· ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ² Π² ΠΏΡΠΎΠ²ΠΎΠ΄Π½ΠΈΠΊΠ΅ ΠΏΡΠΎΠ΅ΠΊΡΠ°.
- ΠΠ΅ΡΠ΅ΠΉΠ΄ΠΈΡΠ΅ Π² Insert -> Module.
- Π‘ΠΊΠΎΠΏΠΈΡΡΠΉΡΠ΅ ΠΈ Π²ΡΡΠ°Π²ΡΡΠ΅ ΠΊΠΎΠ΄ Π² ΠΎΠΊΠ½ΠΎ ΠΊΠΎΠ΄Π° ΠΌΠΎΠ΄ΡΠ»Ρ.
ΠΡΠ»ΠΈ Π² ΠΏΡΠΈΠΌΠ΅ΡΠ΅ Π³ΠΎΠ²ΠΎΡΠΈΡΡΡ, ΡΡΠΎ Π²Π°ΠΌ Π½ΡΠΆΠ½ΠΎ Π²ΡΡΠ°Π²ΠΈΡΡ ΠΊΠΎΠ΄ Π² ΠΎΠΊΠ½ΠΎ ΠΊΠΎΠ΄Π° ΡΠ°Π±ΠΎΡΠ΅Π³ΠΎ Π»ΠΈΡΡΠ°, Π΄Π²Π°ΠΆΠ΄Ρ ΡΠ΅Π»ΠΊΠ½ΠΈΡΠ΅ ΠΎΠ±ΡΠ΅ΠΊΡ ΡΠ°Π±ΠΎΡΠ΅Π³ΠΎ Π»ΠΈΡΡΠ° ΠΈ ΡΠΊΠΎΠΏΠΈΡΡΠΉΡΠ΅ ΠΈ Π²ΡΡΠ°Π²ΡΡΠ΅ ΠΊΠΎΠ΄ Π² ΠΎΠΊΠ½ΠΎ ΠΊΠΎΠ΄Π°.
ΠΠΎΡΠ»Π΅ ΡΠΎΠ³ΠΎ, ΠΊΠ°ΠΊ Π²Ρ Π²ΡΡΠ°Π²ΠΈΠ»ΠΈ ΠΊΠΎΠ΄ Π² ΠΊΠ½ΠΈΠ³Ρ, Π²Π°ΠΌ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΡΠΎΡ ΡΠ°Π½ΠΈΡΡ Π΅Π³ΠΎ Ρ ΡΠ°ΡΡΠΈΡΠ΅Π½ΠΈΠ΅ΠΌ .XLSM ΠΈΠ»ΠΈ .XLS.
ΠΠ°ΠΊ Π·Π°ΠΏΡΡΡΠΈΡΡ ΠΌΠ°ΠΊΡΠΎΡ
ΠΠΎΡΠ»Π΅ ΡΠΎΠ³ΠΎ, ΠΊΠ°ΠΊ Π²Ρ ΡΠΊΠΎΠΏΠΈΡΠΎΠ²Π°Π»ΠΈ ΠΊΠΎΠ΄ Π² ΡΠ΅Π΄Π°ΠΊΡΠΎΡΠ΅ VB, Π²ΡΠΏΠΎΠ»Π½ΠΈΡΠ΅ ΡΠ»Π΅Π΄ΡΡΡΠΈΠ΅ Π΄Π΅ΠΉΡΡΠ²ΠΈΡ Π΄Π»Ρ Π·Π°ΠΏΡΡΠΊΠ° ΠΌΠ°ΠΊΡΠΎΡΠ°:
- ΠΠ΅ΡΠ΅ΠΉΠ΄ΠΈΡΠ΅ Π½Π° Π²ΠΊΠ»Π°Π΄ΠΊΡ Π Π°Π·ΡΠ°Π±ΠΎΡΡΠΈΠΊ.
- Π©Π΅Π»ΠΊΠ½ΠΈΡΠ΅ ΠΠ°ΠΊΡΠΎΡΡ.
- Π Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠΌ ΠΎΠΊΠ½Π΅ Β«ΠΠ°ΠΊΡΠΎΡΒ» Π²ΡΠ±Π΅ΡΠΈΡΠ΅ ΠΌΠ°ΠΊΡΠΎΡ, ΠΊΠΎΡΠΎΡΡΠΉ Π½ΡΠΆΠ½ΠΎ Π·Π°ΠΏΡΡΡΠΈΡΡ.
- ΠΠ°ΠΆΠΌΠΈΡΠ΅ ΠΊΠ½ΠΎΠΏΠΊΡ Β«ΠΡΠΏΠΎΠ»Π½ΠΈΡΡΒ».
ΠΡΠ»ΠΈ Π²Ρ Π½Π΅ ΠΌΠΎΠΆΠ΅ΡΠ΅ Π½Π°ΠΉΡΠΈ Π²ΠΊΠ»Π°Π΄ΠΊΡ ΡΠ°Π·ΡΠ°Π±ΠΎΡΡΠΈΠΊΠ° Π½Π° Π»Π΅Π½ΡΠ΅, ΠΏΡΠΎΡΡΠΈΡΠ΅ ΡΡΠΎ ΡΡΠΊΠΎΠ²ΠΎΠ΄ΡΡΠ²ΠΎ, ΡΡΠΎΠ±Ρ ΡΠ·Π½Π°ΡΡ, ΠΊΠ°ΠΊ Π΅Π΅ ΠΏΠΎΠ»ΡΡΠΈΡΡ.
Π‘Π²ΡΠ·Π°Π½Π½ΠΎΠ΅ ΡΡΠΊΠΎΠ²ΠΎΠ΄ΡΡΠ²ΠΎ: ΡΠ°Π·Π»ΠΈΡΠ½ΡΠ΅ ΡΠΏΠΎΡΠΎΠ±Ρ Π·Π°ΠΏΡΡΠΊΠ° ΠΌΠ°ΠΊΡΠΎΡΠ° Π² Excel.
ΠΡΠ»ΠΈ ΠΊΠΎΠ΄ Π²ΡΡΠ°Π²Π»Π΅Π½ Π² ΠΎΠΊΠ½ΠΎ ΠΊΠΎΠ΄Π° ΡΠ°Π±ΠΎΡΠ΅Π³ΠΎ Π»ΠΈΡΡΠ°, Π²Π°ΠΌ Π½Π΅ Π½ΡΠΆΠ½ΠΎ Π±Π΅ΡΠΏΠΎΠΊΠΎΠΈΡΡΡΡ ΠΎ Π΅Π³ΠΎ Π·Π°ΠΏΡΡΠΊΠ΅. ΠΠ½ Π±ΡΠ΄Π΅Ρ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΈ Π·Π°ΠΏΡΡΠΊΠ°ΡΡΡΡ ΠΏΡΠΈ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΠΈ ΡΠΊΠ°Π·Π°Π½Π½ΠΎΠ³ΠΎ Π΄Π΅ΠΉΡΡΠ²ΠΈΡ.
Π’Π΅ΠΏΠ΅ΡΡ ΠΏΠ΅ΡΠ΅ΠΉΠ΄Π΅ΠΌ ΠΊ ΠΏΠΎΠ»Π΅Π·Π½ΡΠΌ ΠΏΡΠΈΠΌΠ΅ΡΠ°ΠΌ ΠΌΠ°ΠΊΡΠΎΡΠΎΠ², ΠΊΠΎΡΠΎΡΡΠ΅ ΠΏΠΎΠΌΠΎΠ³ΡΡ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΠ·ΠΈΡΠΎΠ²Π°ΡΡ ΡΠ°Π±ΠΎΡΡ ΠΈ ΡΡΠΊΠΎΠ½ΠΎΠΌΠΈΡΡ Π²ΡΠ΅ΠΌΡ.
ΠΡΠΈΠΌΠ΅ΡΠ°Π½ΠΈΠ΅. ΠΡ Π½Π°ΠΉΠ΄Π΅ΡΠ΅ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²ΠΎ ΠΏΡΠΈΠΌΠ΅ΡΠΎΠ² Π°ΠΏΠΎΡΡΡΠΎΡΠ° (β), Π·Π° ΠΊΠΎΡΠΎΡΡΠΌ ΡΠ»Π΅Π΄ΡΠ΅Ρ ΠΏΠ°ΡΠ° ΡΡΡΠΎΠΊ. ΠΡΠΎ ΠΊΠΎΠΌΠΌΠ΅Π½ΡΠ°ΡΠΈΠΈ, ΠΊΠΎΡΠΎΡΡΠ΅ ΠΈΠ³Π½ΠΎΡΠΈΡΡΡΡΡΡ ΠΏΡΠΈ Π·Π°ΠΏΡΡΠΊΠ΅ ΠΊΠΎΠ΄Π° ΠΈ ΠΏΠΎΠΌΠ΅ΡΠ°ΡΡΡΡ ΠΊΠ°ΠΊ Π·Π°ΠΌΠ΅ΡΠΊΠΈ Π΄Π»Ρ ΡΠ΅Π±Ρ / ΡΠΈΡΠ°ΡΠ΅Π»Ρ.
ΠΡΠ»ΠΈ Π²Ρ ΠΎΠ±Π½Π°ΡΡΠΆΠΈΡΠ΅ ΠΎΡΠΈΠ±ΠΊΡ Π² ΡΡΠ°ΡΡΠ΅ ΠΈΠ»ΠΈ ΠΊΠΎΠ΄Π΅, ΠΏΠΎΠΆΠ°Π»ΡΠΉΡΡΠ°, Π΄Π°ΠΉΡΠ΅ ΠΌΠ½Π΅ Π·Π½Π°ΡΡ.
ΠΡΠΈΠΌΠ΅ΡΡ ΠΌΠ°ΠΊΡΠΎΡΠΎΠ² Excel
Π ΡΡΠΎΠΉ ΡΡΠ°ΡΡΠ΅ ΡΠ°ΡΡΠΌΠ°ΡΡΠΈΠ²Π°ΡΡΡΡ ΡΠ»Π΅Π΄ΡΡΡΠΈΠ΅ ΠΏΡΠΈΠΌΠ΅ΡΡ ΠΌΠ°ΠΊΡΠΎΡΠΎΠ²:
ΠΠΎΠΊΠ°Π·Π°ΡΡ Π²ΡΠ΅ ΡΠ°Π±ΠΎΡΠΈΠ΅ Π»ΠΈΡΡΡ Π·Π° ΠΎΠ΄ΠΈΠ½ ΡΠ°Π·
ΠΡΠ»ΠΈ Π²Ρ ΡΠ°Π±ΠΎΡΠ°Π΅ΡΠ΅ Ρ ΠΊΠ½ΠΈΠ³ΠΎΠΉ, Π² ΠΊΠΎΡΠΎΡΠΎΠΉ Π΅ΡΡΡ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΎ ΡΠΊΡΡΡΡΡ Π»ΠΈΡΡΠΎΠ², Π²Π°ΠΌ Π½ΡΠΆΠ½ΠΎ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°ΡΡ ΡΡΠΈ Π»ΠΈΡΡΡ ΠΎΠ΄ΠΈΠ½ Π·Π° Π΄ΡΡΠ³ΠΈΠΌ. ΠΡΠΎ ΠΌΠΎΠΆΠ΅Ρ Π·Π°Π½ΡΡΡ Π½Π΅ΠΊΠΎΡΠΎΡΠΎΠ΅ Π²ΡΠ΅ΠΌΡ, Π΅ΡΠ»ΠΈ Π΅ΡΡΡ ΠΌΠ½ΠΎΠ³ΠΎ ΡΠΊΡΡΡΡΡ Π»ΠΈΡΡΠΎΠ².
ΠΠΎΡ ΠΊΠΎΠ΄, ΠΊΠΎΡΠΎΡΡΠΉ ΠΏΠΎΠΊΠ°ΠΆΠ΅Ρ Π²ΡΠ΅ ΡΠ°Π±ΠΎΡΠΈΠ΅ Π»ΠΈΡΡΡ Π² ΠΊΠ½ΠΈΠ³Π΅.
'ΠΡΠΎΡ ΠΊΠΎΠ΄ ΠΎΡΠΎΠ±ΡΠ°Π·ΠΈΡ Π²ΡΠ΅ Π»ΠΈΡΡΡ Π² ΠΊΠ½ΠΈΠ³Π΅ Sub UnhideAllWoksheets () Dim ws As Worksheet Π΄Π»Ρ ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ ws Π² ActiveWorkbook.Worksheets ws.Visible = xlSheetVisible Next ws End Sub
Π ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½Π½ΠΎΠΌ Π²ΡΡΠ΅ ΠΊΠΎΠ΄Π΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ ΡΠΈΠΊΠ» VBA (Π΄Π»Ρ ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ) Π΄Π»Ρ ΠΏΡΠΎΡΠΌΠΎΡΡΠ° Π²ΡΠ΅Ρ Π»ΠΈΡΡΠΎΠ² Π² ΠΊΠ½ΠΈΠ³Π΅. ΠΠ°ΡΠ΅ΠΌ ΠΎΠ½ ΠΈΠ·ΠΌΠ΅Π½ΡΠ΅Ρ Π²ΠΈΠ΄ΠΈΠΌΠΎΠ΅ ΡΠ²ΠΎΠΉΡΡΠ²ΠΎ ΡΠ°Π±ΠΎΡΠ΅Π³ΠΎ Π»ΠΈΡΡΠ° Π½Π° Π²ΠΈΠ΄ΠΈΠΌΠΎΠ΅.
ΠΠΎΡ ΠΏΠΎΠ΄ΡΠΎΠ±Π½ΠΎΠ΅ ΡΡΠΊΠΎΠ²ΠΎΠ΄ΡΡΠ²ΠΎ ΠΎ ΡΠΎΠΌ, ΠΊΠ°ΠΊ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΡΠ°Π·Π»ΠΈΡΠ½ΡΠ΅ ΠΌΠ΅ΡΠΎΠ΄Ρ Π΄Π»Ρ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΡ Π»ΠΈΡΡΠΎΠ² Π² Excel.
Π‘ΠΊΡΡΡΡ Π²ΡΠ΅ ΡΠ°Π±ΠΎΡΠΈΠ΅ Π»ΠΈΡΡΡ, ΠΊΡΠΎΠΌΠ΅ Π°ΠΊΡΠΈΠ²Π½ΠΎΠ³ΠΎ Π»ΠΈΡΡΠ°
ΠΡΠ»ΠΈ Π²Ρ ΡΠ°Π±ΠΎΡΠ°Π΅ΡΠ΅ Ρ ΠΎΡΡΠ΅ΡΠΎΠΌ ΠΈΠ»ΠΈ ΠΏΠ°Π½Π΅Π»ΡΡ ΠΌΠΎΠ½ΠΈΡΠΎΡΠΈΠ½Π³Π° ΠΈ Ρ ΠΎΡΠΈΡΠ΅ ΡΠΊΡΡΡΡ Π²ΡΡ ΡΠ°Π±Π»ΠΈΡΡ, ΠΊΡΠΎΠΌΠ΅ ΡΠΎΠΉ, ΠΊΠΎΡΠΎΡΠ°Ρ ΡΠΎΠ΄Π΅ΡΠΆΠΈΡ ΠΎΡΡΠ΅Ρ / ΠΏΠ°Π½Π΅Π»Ρ ΠΌΠΎΠ½ΠΈΡΠΎΡΠΈΠ½Π³Π°, Π²Ρ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΡΡΠΎΡ ΠΊΠΎΠ΄ ΠΌΠ°ΠΊΡΠΎΡΠ°.
'ΠΡΠΎΡ ΠΌΠ°ΠΊΡΠΎΡ ΡΠΊΡΠΎΠ΅Ρ Π²Π΅ΡΡ ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ, ΠΊΡΠΎΠΌΠ΅ Π°ΠΊΡΠΈΠ²Π½ΠΎΠ³ΠΎ Π»ΠΈΡΡΠ° Sub HideAllExceptActiveSheet () Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets If ws.Name ActiveSheet.Name Then ws.Visible = xlSheetHidden Next ws End Sub
Π‘ΠΎΡΡΠΈΡΠΎΠ²ΠΊΠ° Π»ΠΈΡΡΠΎΠ² ΠΏΠΎ Π°Π»ΡΠ°Π²ΠΈΡΡ Ρ ΠΏΠΎΠΌΠΎΡΡΡ VBA
ΠΡΠ»ΠΈ Ρ Π²Π°Ρ Π΅ΡΡΡ ΠΊΠ½ΠΈΠ³Π° Ρ Π±ΠΎΠ»ΡΡΠΈΠΌ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎΠΌ Π»ΠΈΡΡΠΎΠ² ΠΈ Π²Ρ Ρ ΠΎΡΠΈΡΠ΅ ΠΎΡΡΠΎΡΡΠΈΡΠΎΠ²Π°ΡΡ ΠΈΡ Π² Π°Π»ΡΠ°Π²ΠΈΡΠ½ΠΎΠΌ ΠΏΠΎΡΡΠ΄ΠΊΠ΅, ΡΡΠΎΡ ΠΊΠΎΠ΄ ΠΌΠ°ΠΊΡΠΎΡΠ° ΠΌΠΎΠΆΠ΅Ρ ΠΎΠΊΠ°Π·Π°ΡΡΡΡ Π΄Π΅ΠΉΡΡΠ²ΠΈΡΠ΅Π»ΡΠ½ΠΎ ΠΏΠΎΠ»Π΅Π·Π½ΡΠΌ. ΠΡΠΎ ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ ΡΠ°ΠΊ, Π΅ΡΠ»ΠΈ Ρ Π²Π°Ρ Π΅ΡΡΡ ΠΈΠΌΠ΅Π½Π° Π»ΠΈΡΡΠΎΠ² Π² Π²ΠΈΠ΄Π΅ Π»Π΅Ρ, ΠΈΠΌΠ΅Π½ ΡΠΎΡΡΡΠ΄Π½ΠΈΠΊΠΎΠ² ΠΈΠ»ΠΈ ΠΏΡΠΎΠ΄ΡΠΊΡΠΎΠ².
'ΠΡΠΎΡ ΠΊΠΎΠ΄ Π±ΡΠ΄Π΅Ρ ΠΎΡΡΠΎΡΡΠΈΡΠΎΠ²Π°ΡΡ Π»ΠΈΡΡΡ ΠΏΠΎ Π°Π»ΡΠ°Π²ΠΈΡΡ Sub SortSheetsTabName () Application. ScreenUpdating = False Dim ShCount As Integer, i As Integer, j As Integer ShCount = Sheets.Count For i = 1 To ShCount - 1 For j = i + 1 To ShCount If Sheets (j) .Name <Sheets (i) .Name Then Sheets (j) .Move before: = Sheets (i) End If Next j Next i Application.ScreenUpdating = True End Sub
ΠΠ°ΡΠΈΡΠΈΡΠ΅ Π²ΡΠ΅ ΡΠ°Π±ΠΎΡΠΈΠ΅ Π»ΠΈΡΡΡ Π·Π° ΠΎΠ΄ΠΈΠ½ ΡΠ°Π·
ΠΡΠ»ΠΈ Ρ Π²Π°Ρ ΠΌΠ½ΠΎΠ³ΠΎ Π»ΠΈΡΡΠΎΠ² Π² ΠΊΠ½ΠΈΠ³Π΅ ΠΈ Π²Ρ Ρ ΠΎΡΠΈΡΠ΅ Π·Π°ΡΠΈΡΠΈΡΡ Π²ΡΠ΅ Π»ΠΈΡΡΡ, Π²Ρ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΡΡΠΎΡ ΠΊΠΎΠ΄ ΠΌΠ°ΠΊΡΠΎΡΠ°.
ΠΡΠΎ ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ Π²Π°ΠΌ ΡΠΊΠ°Π·Π°ΡΡ ΠΏΠ°ΡΠΎΠ»Ρ Π² ΠΊΠΎΠ΄Π΅. ΠΡΠΎΡ ΠΏΠ°ΡΠΎΠ»Ρ ΠΏΠΎΠ½Π°Π΄ΠΎΠ±ΠΈΡΡΡ Π²Π°ΠΌ, ΡΡΠΎΠ±Ρ ΡΠ½ΡΡΡ Π·Π°ΡΠΈΡΡ Ρ Π»ΠΈΡΡΠ°.
'ΠΡΠΎΡ ΠΊΠΎΠ΄ Π·Π°ΡΠΈΡΠΈΡ Π²ΡΠ΅ Π»ΠΈΡΡΡ Π·Π° ΠΎΠ΄ΠΈΠ½ ΡΠ°Π· Sub ProtectAllSheets () Dim ws As Worksheet Dim password As String password = "Test123"' Π·Π°ΠΌΠ΅Π½ΠΈΡΠ΅ Test123 Π½ΡΠΆΠ½ΡΠΌ ΠΏΠ°ΡΠΎΠ»Π΅ΠΌ. ΠΠ»Ρ ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ ws In Worksheets ws.Protect password: = password ΠΠ°Π»Π΅Π΅ ws ΠΠΎΠ½Π΅Ρ ΠΏΠΎΠ΄ΠΏΠΈΡΠΊΠΈ
Π‘Π½ΡΡΡ Π·Π°ΡΠΈΡΡ ΡΠΎ Π²ΡΠ΅Ρ Π»ΠΈΡΡΠΎΠ² Π·Π° ΠΎΠ΄ΠΈΠ½ ΡΠ°Π·
ΠΡΠ»ΠΈ Ρ Π²Π°Ρ Π΅ΡΡΡ Π·Π°ΡΠΈΡΠ΅Π½Π½ΡΠ΅ Π½Π΅ΠΊΠΎΡΠΎΡΡΠ΅ ΠΈΠ»ΠΈ Π²ΡΠ΅ ΡΠ°Π±ΠΎΡΠΈΠ΅ Π»ΠΈΡΡΡ, Π²Ρ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΏΡΠΎΡΡΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ Π½Π΅Π±ΠΎΠ»ΡΡΡΡ ΠΌΠΎΠ΄ΠΈΡΠΈΠΊΠ°ΡΠΈΡ ΠΊΠΎΠ΄Π°, ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΠΌΠΎΠ³ΠΎ Π΄Π»Ρ Π·Π°ΡΠΈΡΡ Π»ΠΈΡΡΠΎΠ², ΡΡΠΎΠ±Ρ ΡΠ½ΡΡΡ Π΅Π³ΠΎ Π·Π°ΡΠΈΡΡ.
'ΠΡΠΎΡ ΠΊΠΎΠ΄ Π·Π°ΡΠΈΡΠΈΡ Π²ΡΠ΅ Π»ΠΈΡΡΡ Π·Π° ΠΎΠ΄ΠΈΠ½ ΡΠ°Π·. Sub ProtectAllSheets () Dim ws As Worksheet Dim password As String password = "Test123"' Π·Π°ΠΌΠ΅Π½ΠΈΡΠ΅ Test123 Π½ΡΠΆΠ½ΡΠΌ ΠΏΠ°ΡΠΎΠ»Π΅ΠΌ. For Each ws In Worksheets () ws.Unprotect password: = password Next ws ΠΠΎΠ½Π΅Ρ ΠΏΠΎΠ΄ΠΏΠΈΡΠΊΠΈ
ΠΠ±ΡΠ°ΡΠΈΡΠ΅ Π²Π½ΠΈΠΌΠ°Π½ΠΈΠ΅, ΡΡΠΎ ΠΏΠ°ΡΠΎΠ»Ρ Π΄ΠΎΠ»ΠΆΠ΅Π½ ΡΠΎΠ²ΠΏΠ°Π΄Π°ΡΡ Ρ ΠΏΠ°ΡΠΎΠ»Π΅ΠΌ, ΠΊΠΎΡΠΎΡΡΠΉ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π»ΡΡ Π΄Π»Ρ Π±Π»ΠΎΠΊΠΈΡΠΎΠ²ΠΊΠΈ ΡΠ°Π±ΠΎΡΠΈΡ Π»ΠΈΡΡΠΎΠ². Π ΠΏΡΠΎΡΠΈΠ²Π½ΠΎΠΌ ΡΠ»ΡΡΠ°Π΅ Π²Ρ ΡΠ²ΠΈΠ΄ΠΈΡΠ΅ ΡΠΎΠΎΠ±ΡΠ΅Π½ΠΈΠ΅ ΠΎΠ± ΠΎΡΠΈΠ±ΠΊΠ΅.
ΠΠΎΠΊΠ°Π·Π°ΡΡ Π²ΡΠ΅ ΡΡΡΠΎΠΊΠΈ ΠΈ ΡΡΠΎΠ»Π±ΡΡ
ΠΡΠΎΡ ΠΊΠΎΠ΄ ΠΌΠ°ΠΊΡΠΎΡΠ° ΠΏΠΎΠΊΠ°ΠΆΠ΅Ρ Π²ΡΠ΅ ΡΠΊΡΡΡΡΠ΅ ΡΡΡΠΎΠΊΠΈ ΠΈ ΡΡΠΎΠ»Π±ΡΡ.
ΠΡΠΎ ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ Π΄Π΅ΠΉΡΡΠ²ΠΈΡΠ΅Π»ΡΠ½ΠΎ ΠΏΠΎΠ»Π΅Π·Π½ΠΎ, Π΅ΡΠ»ΠΈ Π²Ρ ΠΏΠΎΠ»ΡΡΠΈΠ»ΠΈ ΡΠ°ΠΉΠ» ΠΎΡ ΠΊΠΎΠ³ΠΎ-ΡΠΎ Π΄ΡΡΠ³ΠΎΠ³ΠΎ ΠΈ Ρ ΠΎΡΠΈΡΠ΅ ΡΠ±Π΅Π΄ΠΈΡΡΡΡ, ΡΡΠΎ Π² Π½Π΅ΠΌ Π½Π΅Ρ ΡΠΊΡΡΡΡΡ ΡΡΡΠΎΠΊ / ΡΡΠΎΠ»Π±ΡΠΎΠ².
'ΠΡΠΎΡ ΠΊΠΎΠ΄ ΠΎΡΠΎΠ±ΡΠ°Π·ΠΈΡ Π²ΡΠ΅ ΡΡΡΠΎΠΊΠΈ ΠΈ ΡΡΠΎΠ»Π±ΡΡ Π² ΠΏΠΎΠ΄ΠΌΠ΅Π½Ρ ΡΠ°Π±ΠΎΡΠ΅Π³ΠΎ Π»ΠΈΡΡΠ° UnhideRowsColumns () Columns.EntireColumn.Hidden = False Rows.EntireRow.Hidden = False End Sub
Π Π°Π·ΡΠ΅Π΄ΠΈΠ½ΠΈΡΡ Π²ΡΠ΅ ΠΎΠ±ΡΠ΅Π΄ΠΈΠ½Π΅Π½Π½ΡΠ΅ ΡΡΠ΅ΠΉΠΊΠΈ
ΠΠ±ΡΡΠ½ΠΎ ΡΡΠ΅ΠΉΠΊΠΈ ΠΎΠ±ΡΠ΅Π΄ΠΈΠ½ΡΡΡ Π² ΠΎΠ΄Π½Ρ. ΠΠΎΠΊΠ° ΠΎΠ½ Π²ΡΠΏΠΎΠ»Π½ΡΠ΅Ρ ΡΠ²ΠΎΡ ΡΠ°Π±ΠΎΡΡ, ΠΏΡΠΈ ΠΎΠ±ΡΠ΅Π΄ΠΈΠ½Π΅Π½ΠΈΠΈ ΡΡΠ΅Π΅ΠΊ Π²Ρ Π½Π΅ ΡΠΌΠΎΠΆΠ΅ΡΠ΅ ΡΠΎΡΡΠΈΡΠΎΠ²Π°ΡΡ Π΄Π°Π½Π½ΡΠ΅.
ΠΡΠ»ΠΈ Π²Ρ ΡΠ°Π±ΠΎΡΠ°Π΅ΡΠ΅ Ρ Π»ΠΈΡΡΠΎΠΌ Ρ ΠΎΠ±ΡΠ΅Π΄ΠΈΠ½Π΅Π½Π½ΡΠΌΠΈ ΡΡΠ΅ΠΉΠΊΠ°ΠΌΠΈ, ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠΉΡΠ΅ ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½Π½ΡΠΉ Π½ΠΈΠΆΠ΅ ΠΊΠΎΠ΄, ΡΡΠΎΠ±Ρ ΠΎΠ±ΡΠ΅Π΄ΠΈΠ½ΠΈΡΡ Π²ΡΠ΅ ΠΎΠ±ΡΠ΅Π΄ΠΈΠ½Π΅Π½Π½ΡΠ΅ ΡΡΠ΅ΠΉΠΊΠΈ Π·Π° ΠΎΠ΄ΠΈΠ½ ΡΠ°Π·.
'ΠΡΠΎΡ ΠΊΠΎΠ΄ ΠΎΠ±ΡΠ΅Π΄ΠΈΠ½ΠΈΡ Π²ΡΠ΅ ΠΎΠ±ΡΠ΅Π΄ΠΈΠ½Π΅Π½Π½ΡΠ΅ ΡΡΠ΅ΠΉΠΊΠΈ Sub UnmergeAllCells () ActiveSheet.Cells.UnMerge End Sub
ΠΠ±ΡΠ°ΡΠΈΡΠ΅ Π²Π½ΠΈΠΌΠ°Π½ΠΈΠ΅, ΡΡΠΎ Π²ΠΌΠ΅ΡΡΠΎ Β«ΠΠ±ΡΠ΅Π΄ΠΈΠ½ΠΈΡΡ ΠΈ ΡΠ΅Π½ΡΡΠΈΡΠΎΠ²Π°ΡΡΒ» Ρ ΡΠ΅ΠΊΠΎΠΌΠ΅Π½Π΄ΡΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡ Β«Π¦Π΅Π½ΡΡΠΈΡΠΎΠ²Π°ΡΡ ΠΏΠΎ Π²ΡΠ΅ΠΌΡ Π²ΡΠ΄Π΅Π»Π΅Π½ΠΈΡΒ».
Π‘ΠΎΡ ΡΠ°Π½ΠΈΡΡ ΠΊΠ½ΠΈΠ³Ρ Ρ ΠΎΡΠΌΠ΅ΡΠΊΠΎΠΉ Π²ΡΠ΅ΠΌΠ΅Π½ΠΈ Π² Π΅Π΅ ΠΈΠΌΠ΅Π½ΠΈ
ΠΠ½ΠΎΠ³ΠΎ Π²ΡΠ΅ΠΌΠ΅Π½ΠΈ, Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎ, Π²Π°ΠΌ ΠΏΠΎΠ½Π°Π΄ΠΎΠ±ΠΈΡΡΡ ΡΠΎΠ·Π΄Π°ΡΡ Π²Π΅ΡΡΠΈΠΈ ΡΠ²ΠΎΠ΅ΠΉ ΡΠ°Π±ΠΎΡΡ. ΠΠ½ΠΈ ΠΎΡΠ΅Π½Ρ ΠΏΠΎΠ»Π΅Π·Π½Ρ Π² Π΄Π»ΠΈΠ½Π½ΡΡ ΠΏΡΠΎΠ΅ΠΊΡΠ°Ρ , ΠΊΠΎΠ³Π΄Π° Π²Ρ ΡΠ°Π±ΠΎΡΠ°Π΅ΡΠ΅ Ρ ΡΠ°ΠΉΠ»ΠΎΠΌ Π² ΡΠ΅ΡΠ΅Π½ΠΈΠ΅ Π΄ΠΎΠ»Π³ΠΎΠ³ΠΎ Π²ΡΠ΅ΠΌΠ΅Π½ΠΈ.
Π₯ΠΎΡΠΎΡΠ°Ρ ΠΏΡΠ°ΠΊΡΠΈΠΊΠ° — ΡΠΎΡ ΡΠ°Π½ΠΈΡΡ ΡΠ°ΠΉΠ» Ρ ΠΎΡΠΌΠ΅ΡΠΊΠ°ΠΌΠΈ Π²ΡΠ΅ΠΌΠ΅Π½ΠΈ.
ΠΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ Π²ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ ΠΌΠ΅ΡΠΎΠΊ ΠΏΠΎΠ·Π²ΠΎΠ»ΠΈΡ Π²Π°ΠΌ Π²Π΅ΡΠ½ΡΡΡΡΡ ΠΊ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Π½ΠΎΠΌΡ ΡΠ°ΠΉΠ»Ρ, ΡΡΠΎΠ±Ρ ΡΠ²ΠΈΠ΄Π΅ΡΡ, ΠΊΠ°ΠΊΠΈΠ΅ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΡ Π±ΡΠ»ΠΈ Π²Π½Π΅ΡΠ΅Π½Ρ ΠΈΠ»ΠΈ ΠΊΠ°ΠΊΠΈΠ΅ Π΄Π°Π½Π½ΡΠ΅ Π±ΡΠ»ΠΈ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½Ρ.
ΠΠΎΡ ΠΊΠΎΠ΄, ΠΊΠΎΡΠΎΡΡΠΉ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΈ ΡΠΎΡ ΡΠ°Π½ΠΈΡ ΠΊΠ½ΠΈΠ³Ρ Π² ΡΠΊΠ°Π·Π°Π½Π½ΠΎΠΉ ΠΏΠ°ΠΏΠΊΠ΅ ΠΈ Π΄ΠΎΠ±Π°Π²ΠΈΡ ΠΌΠ΅ΡΠΊΡ Π²ΡΠ΅ΠΌΠ΅Π½ΠΈ ΠΏΡΠΈ ΠΊΠ°ΠΆΠ΄ΠΎΠΌ ΡΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΠΈ.
'ΠΡΠΎΡ ΠΊΠΎΠ΄ ΡΠΎΡ ΡΠ°Π½ΠΈΡ ΡΠ°ΠΉΠ» Ρ ΠΌΠ΅ΡΠΊΠΎΠΉ Π²ΡΠ΅ΠΌΠ΅Π½ΠΈ Π² Π΅Π³ΠΎ ΠΈΠΌΠ΅Π½ΠΈ Sub SaveWorkbookWithTimeStamp () Π’ΡΡΠΊΠ»Π°Ρ ΠΌΠ΅ΡΠΊΠ° Π²ΡΠ΅ΠΌΠ΅Π½ΠΈ Π² Π²ΠΈΠ΄Π΅ ΡΡΡΠΎΠΊΠΈ timestamp = Format (Date, "dd-mm-yyyy") & "_" & Format (Time, "hh-ss") ThisWorkbook. SaveAs "C: UsersUsernameDesktopWorkbookName" ΠΈ ΠΎΡΠΌΠ΅ΡΠΊΠ° Π²ΡΠ΅ΠΌΠ΅Π½ΠΈ End Sub
ΠΠ°ΠΌ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΡΠΊΠ°Π·Π°ΡΡ ΡΠ°ΡΠΏΠΎΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ ΠΏΠ°ΠΏΠΊΠΈ ΠΈ ΠΈΠΌΡ ΡΠ°ΠΉΠ»Π°.
Π ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½Π½ΠΎΠΌ Π²ΡΡΠ΅ ΠΊΠΎΠ΄Π΅ Β«C: UsersUsernameDesktop — ΡΡΠΎ ΠΏΠ°ΠΏΠΊΠ°, ΠΊΠΎΡΠΎΡΡΡ Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π». ΠΠ°ΠΌ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΡΠΊΠ°Π·Π°ΡΡ ΠΏΠ°ΠΏΠΊΡ, Π² ΠΊΠΎΡΠΎΡΠΎΠΉ Π²Ρ Ρ ΠΎΡΠΈΡΠ΅ ΡΠΎΡ ΡΠ°Π½ΠΈΡΡ ΡΠ°ΠΉΠ». ΠΡΠΎΠΌΠ΅ ΡΠΎΠ³ΠΎ, Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π» ΠΎΠ±ΡΠ΅Π΅ ΠΈΠΌΡ Β«WorkbookNameΒ» Π² ΠΊΠ°ΡΠ΅ΡΡΠ²Π΅ ΠΏΡΠ΅ΡΠΈΠΊΡΠ° ΠΈΠΌΠ΅Π½ΠΈ ΡΠ°ΠΉΠ»Π°. ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΡΠΊΠ°Π·Π°ΡΡ ΡΠΎ, ΡΡΠΎ ΡΠ²ΡΠ·Π°Π½ΠΎ Ρ Π²Π°ΡΠΈΠΌ ΠΏΡΠΎΠ΅ΠΊΡΠΎΠΌ ΠΈΠ»ΠΈ ΠΊΠΎΠΌΠΏΠ°Π½ΠΈΠ΅ΠΉ.
Π‘ΠΎΡ ΡΠ°Π½ΡΠΉΡΠ΅ ΠΊΠ°ΠΆΠ΄ΡΠΉ ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ ΠΊΠ°ΠΊ ΠΎΡΠ΄Π΅Π»ΡΠ½ΡΠΉ PDF-ΡΠ°ΠΉΠ»
ΠΡΠ»ΠΈ Π²Ρ ΡΠ°Π±ΠΎΡΠ°Π΅ΡΠ΅ Ρ Π΄Π°Π½Π½ΡΠΌΠΈ Π·Π° ΡΠ°Π·Π½ΡΠ΅ Π³ΠΎΠ΄Ρ, ΠΏΠΎΠ΄ΡΠ°Π·Π΄Π΅Π»Π΅Π½ΠΈΡ ΠΈΠ»ΠΈ ΠΏΡΠΎΠ΄ΡΠΊΡΡ, Π²Π°ΠΌ ΠΌΠΎΠΆΠ΅Ρ ΠΏΠΎΡΡΠ΅Π±ΠΎΠ²Π°ΡΡΡΡ ΡΠΎΡ ΡΠ°Π½ΠΈΡΡ ΡΠ°Π·Π½ΡΠ΅ ΡΠ°Π±ΠΎΡΠΈΠ΅ Π»ΠΈΡΡΡ Π² Π²ΠΈΠ΄Π΅ ΡΠ°ΠΉΠ»ΠΎΠ² PDF.
Π₯ΠΎΡΡ ΡΡΠΎ ΠΌΠΎΠΆΠ΅Ρ Π·Π°Π½ΡΡΡ ΠΌΠ½ΠΎΠ³ΠΎ Π²ΡΠ΅ΠΌΠ΅Π½ΠΈ, Π΅ΡΠ»ΠΈ Π²ΡΠΏΠΎΠ»Π½ΠΈΡΡ Π΅Π³ΠΎ Π²ΡΡΡΠ½ΡΡ, VBA Π΄Π΅ΠΉΡΡΠ²ΠΈΡΠ΅Π»ΡΠ½ΠΎ ΠΌΠΎΠΆΠ΅Ρ Π΅Π³ΠΎ ΡΡΠΊΠΎΡΠΈΡΡ.
ΠΠΎΡ ΠΊΠΎΠ΄ VBA, ΠΊΠΎΡΠΎΡΡΠΉ ΡΠΎΡ ΡΠ°Π½ΠΈΡ ΠΊΠ°ΠΆΠ΄ΡΠΉ ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ ΠΊΠ°ΠΊ ΠΎΡΠ΄Π΅Π»ΡΠ½ΡΠΉ PDF-ΡΠ°ΠΉΠ».
'ΠΡΠΎΡ ΠΊΠΎΠ΄ ΡΠΎΡ ΡΠ°Π½ΠΈΡ ΠΊΠ°ΠΆΠ΄ΡΠΉ ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ ΠΊΠ°ΠΊ ΠΎΡΠ΄Π΅Π»ΡΠ½ΡΠΉ PDF-ΡΠ°ΠΉΠ» Sub SaveWorkshetAsPDF () Dim ws As Worksheet Π΄Π»Ρ ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ ws Π² ΡΠ°Π±ΠΎΡΠΈΡ ΡΠ°Π±Π»ΠΈΡΠ°Ρ ws. ExportAsFixedFormat xlTypePDF, "C: UsersSumitDesktopTest" & ws.Name & ".pdf" Next ws End Sub
Π ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½Π½ΠΎΠΌ Π²ΡΡΠ΅ ΠΊΠΎΠ΄Π΅ Ρ ΡΠΊΠ°Π·Π°Π» Π°Π΄ΡΠ΅Ρ ΠΏΠ°ΠΏΠΊΠΈ, Π² ΠΊΠΎΡΠΎΡΠΎΠΉ Ρ Ρ ΠΎΡΡ ΡΠΎΡ ΡΠ°Π½ΠΈΡΡ PDF-ΡΠ°ΠΉΠ»Ρ. ΠΡΠΎΠΌΠ΅ ΡΠΎΠ³ΠΎ, ΠΊΠ°ΠΆΠ΄ΡΠΉ PDF-ΡΠ°ΠΉΠ» ΠΏΠΎΠ»ΡΡΠΈΡ ΡΠΎ ΠΆΠ΅ ΠΈΠΌΡ, ΡΡΠΎ ΠΈ ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ. ΠΠ°ΠΌ Π½ΡΠΆΠ½ΠΎ Π±ΡΠ΄Π΅Ρ ΠΈΠ·ΠΌΠ΅Π½ΠΈΡΡ ΡΠ°ΡΠΏΠΎΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ ΡΡΠΎΠΉ ΠΏΠ°ΠΏΠΊΠΈ (Π΅ΡΠ»ΠΈ ΡΠΎΠ»ΡΠΊΠΎ Π²Π°ΡΠ΅ ΠΈΠΌΡ Π½Π΅ Sumit ΠΈ Π²Ρ Π½Π΅ ΡΠΎΡ ΡΠ°Π½ΡΠ΅ΡΠ΅ Π΅Π³ΠΎ Π² ΡΠ΅ΡΡΠΎΠ²ΠΎΠΉ ΠΏΠ°ΠΏΠΊΠ΅ Π½Π° ΡΠ°Π±ΠΎΡΠ΅ΠΌ ΡΡΠΎΠ»Π΅).
ΠΠ±ΡΠ°ΡΠΈΡΠ΅ Π²Π½ΠΈΠΌΠ°Π½ΠΈΠ΅, ΡΡΠΎ ΡΡΠΎΡ ΠΊΠΎΠ΄ ΡΠ°Π±ΠΎΡΠ°Π΅Ρ ΡΠΎΠ»ΡΠΊΠΎ Ρ Π»ΠΈΡΡΠ°ΠΌΠΈ (Π° Π½Π΅ Ρ ΡΠ°Π±Π»ΠΈΡΠ°ΠΌΠΈ Π΄ΠΈΠ°Π³ΡΠ°ΠΌΠΌ).
Π‘ΠΎΡ ΡΠ°Π½ΡΠΉΡΠ΅ ΠΊΠ°ΠΆΠ΄ΡΠΉ ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ ΠΊΠ°ΠΊ ΠΎΡΠ΄Π΅Π»ΡΠ½ΡΠΉ PDF-ΡΠ°ΠΉΠ»
ΠΠΎΡ ΠΊΠΎΠ΄, ΠΊΠΎΡΠΎΡΡΠΉ ΡΠΎΡ ΡΠ°Π½ΠΈΡ Π²ΡΡ Π²Π°ΡΡ ΠΊΠ½ΠΈΠ³Ρ Π² Π²ΠΈΠ΄Π΅ PDF-ΡΠ°ΠΉΠ»Π° Π² ΡΠΊΠ°Π·Π°Π½Π½ΠΎΠΉ ΠΏΠ°ΠΏΠΊΠ΅.
'ΠΡΠΎΡ ΠΊΠΎΠ΄ ΡΠΎΡ ΡΠ°Π½ΠΈΡ Π²ΡΡ ΠΊΠ½ΠΈΠ³Ρ ΠΊΠ°ΠΊ PDF Sub SaveWorkshetAsPDF () ThisWorkbook.ExportAsFixedFormat xlTypePDF, "C: UsersSumitDesktopTest" & ThisWorkbook.Name & ".pdf" End Sub
ΠΠ°ΠΌ Π½ΡΠΆΠ½ΠΎ Π±ΡΠ΄Π΅Ρ ΠΈΠ·ΠΌΠ΅Π½ΠΈΡΡ ΡΠ°ΡΠΏΠΎΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ ΠΏΠ°ΠΏΠΊΠΈ, ΡΡΠΎΠ±Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΡΡΠΎΡ ΠΊΠΎΠ΄.
ΠΡΠ΅ΠΎΠ±ΡΠ°Π·ΠΎΠ²Π°Π½ΠΈΠ΅ Π²ΡΠ΅Ρ ΡΠΎΡΠΌΡΠ» Π² Π·Π½Π°ΡΠ΅Π½ΠΈΡ
ΠΡΠΏΠΎΠ»ΡΠ·ΡΠΉΡΠ΅ ΡΡΠΎΡ ΠΊΠΎΠ΄, Π΅ΡΠ»ΠΈ Ρ Π²Π°Ρ Π΅ΡΡΡ ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ, ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΠΈΠΉ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²ΠΎ ΡΠΎΡΠΌΡΠ», ΠΈ Π²Ρ Ρ ΠΎΡΠΈΡΠ΅ ΠΏΡΠ΅ΠΎΠ±ΡΠ°Π·ΠΎΠ²Π°ΡΡ ΡΡΠΈ ΡΠΎΡΠΌΡΠ»Ρ Π² Π·Π½Π°ΡΠ΅Π½ΠΈΡ.
'ΠΡΠΎΡ ΠΊΠΎΠ΄ ΠΏΡΠ΅ΠΎΠ±ΡΠ°Π·ΡΠ΅Ρ Π²ΡΠ΅ ΡΠΎΡΠΌΡΠ»Ρ Π² Π·Π½Π°ΡΠ΅Π½ΠΈΡ Sub ConvertToValues ββ() With ActiveSheet.UsedRange .Value = .Value End With End Sub
ΠΡΠΎΡ ΠΊΠΎΠ΄ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΈ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΠ΅Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΠΌΡΠ΅ ΡΡΠ΅ΠΉΠΊΠΈ ΠΈ ΠΏΡΠ΅ΠΎΠ±ΡΠ°Π·ΡΠ΅Ρ ΠΈΡ Π² Π·Π½Π°ΡΠ΅Π½ΠΈΡ.
ΠΠ°ΡΠΈΡΠ° / Π±Π»ΠΎΠΊΠΈΡΠΎΠ²ΠΊΠ° ΡΡΠ΅Π΅ΠΊ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΡΠΎΡΠΌΡΠ»
ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ Π·Π°Π±Π»ΠΎΠΊΠΈΡΠΎΠ²Π°ΡΡ ΡΡΠ΅ΠΉΠΊΠΈ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΡΠΎΡΠΌΡΠ», ΠΊΠΎΠ³Π΄Π° Ρ Π²Π°Ρ ΠΌΠ½ΠΎΠ³ΠΎ Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΠΉ, ΠΈ Π²Ρ Π½Π΅ Ρ ΠΎΡΠΈΡΠ΅ ΡΠ»ΡΡΠ°ΠΉΠ½ΠΎ ΡΠ΄Π°Π»ΠΈΡΡ ΠΈΠ»ΠΈ ΠΈΠ·ΠΌΠ΅Π½ΠΈΡΡ Π΅Π³ΠΎ.
ΠΠΎΡ ΠΊΠΎΠ΄, ΠΊΠΎΡΠΎΡΡΠΉ Π·Π°Π±Π»ΠΎΠΊΠΈΡΡΠ΅Ρ Π²ΡΠ΅ ΡΡΠ΅ΠΉΠΊΠΈ Ρ ΡΠΎΡΠΌΡΠ»Π°ΠΌΠΈ, Π² ΡΠΎ Π²ΡΠ΅ΠΌΡ ΠΊΠ°ΠΊ Π²ΡΠ΅ ΠΎΡΡΠ°Π»ΡΠ½ΡΠ΅ ΡΡΠ΅ΠΉΠΊΠΈ Π½Π΅ Π·Π°Π±Π»ΠΎΠΊΠΈΡΠΎΠ²Π°Π½Ρ.
'ΠΡΠΎΡ ΠΊΠΎΠ΄ ΠΌΠ°ΠΊΡΠΎΡΠ° Π·Π°Π±Π»ΠΎΠΊΠΈΡΡΠ΅Ρ Π²ΡΠ΅ ΡΡΠ΅ΠΉΠΊΠΈ Ρ ΡΠΎΡΠΌΡΠ»Π°ΠΌΠΈ Sub LockCellsWithFormulas () Ρ ActiveSheet .Unprotect .Cells.Locked = False .Cells.SpecialCells (xlCellTypeFormulas) .Locked = True .Protect AllowDeletingRows: = True End With End Sub
Π‘Π²ΡΠ·Π°Π½Π½ΠΎΠ΅ ΡΡΠΊΠΎΠ²ΠΎΠ΄ΡΡΠ²ΠΎ: ΠΠ°ΠΊ Π·Π°Π±Π»ΠΎΠΊΠΈΡΠΎΠ²Π°ΡΡ ΡΡΠ΅ΠΉΠΊΠΈ Π² Excel.
ΠΠ°ΡΠΈΡΠΈΡΡ Π²ΡΠ΅ ΡΠ°Π±ΠΎΡΠΈΠ΅ Π»ΠΈΡΡΡ Π² ΠΊΠ½ΠΈΠ³Π΅
ΠΡΠΏΠΎΠ»ΡΠ·ΡΠΉΡΠ΅ ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½Π½ΡΠΉ Π½ΠΈΠΆΠ΅ ΠΊΠΎΠ΄, ΡΡΠΎΠ±Ρ Π·Π°ΡΠΈΡΠΈΡΡ Π²ΡΠ΅ ΡΠ°Π±ΠΎΡΠΈΠ΅ Π»ΠΈΡΡΡ Π² ΠΊΠ½ΠΈΠ³Π΅ Π·Π° ΠΎΠ΄ΠΈΠ½ ΡΠ°Π·.
'ΠΡΠΎΡ ΠΊΠΎΠ΄ Π±ΡΠ΄Π΅Ρ Π·Π°ΡΠΈΡΠ°ΡΡ Π²ΡΠ΅ Π»ΠΈΡΡΡ Π² ΠΊΠ½ΠΈΠ³Π΅ Sub ProtectAllSheets () Dim ws As Worksheet Π΄Π»Ρ ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ ws In Worksheets ws.Protect Next ws End Sub
ΠΡΠΎΡ ΠΊΠΎΠ΄ Π±ΡΠ΄Π΅Ρ ΠΏΡΠΎΡΠΌΠ°ΡΡΠΈΠ²Π°ΡΡ Π²ΡΠ΅ ΡΠ°Π±ΠΎΡΠΈΠ΅ Π»ΠΈΡΡΡ ΠΎΠ΄ΠΈΠ½ Π·Π° Π΄ΡΡΠ³ΠΈΠΌ ΠΈ Π·Π°ΡΠΈΡΠ°ΡΡ Π΅Π³ΠΎ.
ΠΡΠ»ΠΈ Π²Ρ Ρ ΠΎΡΠΈΡΠ΅ ΡΠ½ΡΡΡ Π·Π°ΡΠΈΡΡ ΡΠΎ Π²ΡΠ΅Ρ Π»ΠΈΡΡΠΎΠ², ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠΉΡΠ΅ Π² ΠΊΠΎΠ΄Π΅ ws.Unprotect Π²ΠΌΠ΅ΡΡΠΎ ws.Protect.
ΠΡΡΠ°Π²Π»ΡΡΡ ΡΡΡΠΎΠΊΡ ΠΏΠΎΡΠ»Π΅ ΠΊΠ°ΠΆΠ΄ΠΎΠΉ Π΄ΡΡΠ³ΠΎΠΉ ΡΡΡΠΎΠΊΠΈ Π² Π²ΡΠ΄Π΅Π»Π΅Π½Π½ΠΎΠΌ ΡΡΠ°Π³ΠΌΠ΅Π½ΡΠ΅
ΠΡΠΏΠΎΠ»ΡΠ·ΡΠΉΡΠ΅ ΡΡΠΎΡ ΠΊΠΎΠ΄, Π΅ΡΠ»ΠΈ Π²Ρ Ρ ΠΎΡΠΈΡΠ΅ Π²ΡΡΠ°Π²ΠΈΡΡ ΠΏΡΡΡΡΡ ΡΡΡΠΎΠΊΡ ΠΏΠΎΡΠ»Π΅ ΠΊΠ°ΠΆΠ΄ΠΎΠΉ ΡΡΡΠΎΠΊΠΈ Π² Π²ΡΠ±ΡΠ°Π½Π½ΠΎΠΌ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π΅.
'ΠΡΠΎΡ ΠΊΠΎΠ΄ Π²ΡΡΠ°Π²ΠΈΡ ΡΡΡΠΎΠΊΡ ΠΏΠΎΡΠ»Π΅ ΠΊΠ°ΠΆΠ΄ΠΎΠΉ ΡΡΡΠΎΠΊΠΈ Π² Π²ΡΠ±ΡΠ°Π½Π½ΠΎΠΌ Sub InsertAlternateRows () Dim rng As Range Dim CountRow As Integer Dim i As Integer Set rng = Selection CountRow = rng.EntireRow.Count For i = 1 To CountRow ActiveCell.EntireRow. ΠΡΡΠ°Π²ΡΡΠ΅ ActiveCell.Offset (2, 0). ΠΡΠ±Π΅ΡΠΈΡΠ΅ Next i End Sub
Π’ΠΎΡΠ½ΠΎ ΡΠ°ΠΊ ΠΆΠ΅ Π²Ρ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΈΠ·ΠΌΠ΅Π½ΠΈΡΡ ΡΡΠΎΡ ΠΊΠΎΠ΄, ΡΡΠΎΠ±Ρ Π²ΡΡΠ°Π²ΠΈΡΡ ΠΏΡΡΡΠΎΠΉ ΡΡΠΎΠ»Π±Π΅Ρ ΠΏΠΎΡΠ»Π΅ ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ ΡΡΠΎΠ»Π±ΡΠ° Π² Π²ΡΠ±ΡΠ°Π½Π½ΠΎΠΌ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π΅.
ΠΠ²ΡΠΎΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΈ Π²ΡΡΠ°Π²Π»ΡΡΡ Π΄Π°ΡΡ ΠΈ Π²ΡΠ΅ΠΌΡ Π² ΡΠΎΡΠ΅Π΄Π½ΡΡ ΡΡΠ΅ΠΉΠΊΡ
ΠΡΠΌΠ΅ΡΠΊΠ° Π²ΡΠ΅ΠΌΠ΅Π½ΠΈ — ΡΡΠΎ ΡΠΎ, ΡΡΠΎ Π²Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΠ΅, ΠΊΠΎΠ³Π΄Π° Ρ ΠΎΡΠΈΡΠ΅ ΠΎΡΡΠ»Π΅ΠΆΠΈΠ²Π°ΡΡ Π΄Π΅ΠΉΡΡΠ²ΠΈΡ.
ΠΠ°ΠΏΡΠΈΠΌΠ΅Ρ, Π²Ρ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΎΡΡΠ»Π΅ΠΆΠΈΠ²Π°ΡΡ Π΄Π΅ΠΉΡΡΠ²ΠΈΡ, Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ, ΠΊΠΎΠ³Π΄Π° Π±ΡΠ»ΠΈ ΠΏΠΎΠ½Π΅ΡΠ΅Π½Ρ ΠΊΠΎΠ½ΠΊΡΠ΅ΡΠ½ΡΠ΅ ΡΠ°ΡΡ ΠΎΠ΄Ρ, Π² ΠΊΠ°ΠΊΠΎΠ΅ Π²ΡΠ΅ΠΌΡ Π±ΡΠ» ΡΠΎΠ·Π΄Π°Π½ ΡΡΠ΅Ρ-ΡΠ°ΠΊΡΡΡΠ° ΠΏΡΠΎΠ΄Π°ΠΆΠΈ, ΠΊΠΎΠ³Π΄Π° Π±ΡΠ» ΠΏΡΠΎΠΈΠ·Π²Π΅Π΄Π΅Π½ Π²Π²ΠΎΠ΄ Π΄Π°Π½Π½ΡΡ Π² ΡΡΠ΅ΠΉΠΊΡ, ΠΊΠΎΠ³Π΄Π° ΠΏΠΎΡΠ»Π΅Π΄Π½ΠΈΠΉ ΡΠ°Π· ΠΎΠ±Π½ΠΎΠ²Π»ΡΠ»ΡΡ ΠΎΡΡΠ΅Ρ ΠΈ Ρ. Π.
ΠΡΠΏΠΎΠ»ΡΠ·ΡΠΉΡΠ΅ ΡΡΠΎΡ ΠΊΠΎΠ΄ Π΄Π»Ρ Π²ΡΡΠ°Π²ΠΊΠΈ ΠΎΡΠΌΠ΅ΡΠΊΠΈ Π΄Π°ΡΡ ΠΈ Π²ΡΠ΅ΠΌΠ΅Π½ΠΈ Π² ΡΠΎΡΠ΅Π΄Π½ΡΡ ΡΡΠ΅ΠΉΠΊΡ, ΠΊΠΎΠ³Π΄Π° Π΄Π΅Π»Π°Π΅ΡΡΡ Π·Π°ΠΏΠΈΡΡ ΠΈΠ»ΠΈ ΡΠ΅Π΄Π°ΠΊΡΠΈΡΡΠ΅ΡΡΡ ΡΡΡΠ΅ΡΡΠ²ΡΡΡΠ΅Π΅ ΡΠΎΠ΄Π΅ΡΠΆΠΈΠΌΠΎΠ΅.
'ΠΡΠΎΡ ΠΊΠΎΠ΄ Π²ΡΡΠ°Π²ΠΈΡ ΠΌΠ΅ΡΠΊΡ Π²ΡΠ΅ΠΌΠ΅Π½ΠΈ Π² ΡΠΎΡΠ΅Π΄Π½ΡΡ ΡΡΠ΅ΠΉΠΊΡ Private Sub Worksheet_Change (ByVal Target As Range) ΠΡΠΈ ΠΎΡΠΈΠ±ΠΊΠ΅ GoTo Handler ΠΡΠ»ΠΈ Target.Column = 1 And Target.Value "" Π’ΠΎΠ³Π΄Π° Application.EnableEvents = False Target.Offset (0, 1) = Format (Now (), Β«Π΄Π΄-ΠΌΠΌ-Π³Π³Π³Π³ ΡΡ: ΠΌΠΌ: ΡΡΒ») Application.EnableEvents = True End If Handler: End Sub
ΠΠ±ΡΠ°ΡΠΈΡΠ΅ Π²Π½ΠΈΠΌΠ°Π½ΠΈΠ΅, ΡΡΠΎ Π²Π°ΠΌ Π½ΡΠΆΠ½ΠΎ Π²ΡΡΠ°Π²ΠΈΡΡ ΡΡΠΎΡ ΠΊΠΎΠ΄ Π² ΠΎΠΊΠ½ΠΎ ΠΊΠΎΠ΄Π° ΡΠ°Π±ΠΎΡΠ΅Π³ΠΎ Π»ΠΈΡΡΠ° (Π° Π½Π΅ Π² ΠΎΠΊΠ½ΠΎ ΠΊΠΎΠ΄Π° ΠΌΠΎΠ΄ΡΠ»Ρ, ΠΊΠ°ΠΊ ΠΌΡ ΡΡΠΎ Π΄Π΅Π»Π°Π»ΠΈ Π΄ΠΎ ΡΠΈΡ ΠΏΠΎΡ Π² Π΄ΡΡΠ³ΠΈΡ ΠΏΡΠΈΠΌΠ΅ΡΠ°Ρ ΠΌΠ°ΠΊΡΠΎΡΠΎΠ² Excel). ΠΠ»Ρ ΡΡΠΎΠ³ΠΎ Π² ΡΠ΅Π΄Π°ΠΊΡΠΎΡΠ΅ VB Π΄Π²Π°ΠΆΠ΄Ρ ΡΠ΅Π»ΠΊΠ½ΠΈΡΠ΅ ΠΈΠΌΡ Π»ΠΈΡΡΠ°, Π½Π° ΠΊΠΎΡΠΎΡΠΎΠΌ Π²Ρ Ρ ΠΎΡΠΈΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΡΡΡ ΡΡΠ½ΠΊΡΠΈΡ. ΠΠ°ΡΠ΅ΠΌ ΡΠΊΠΎΠΏΠΈΡΡΠΉΡΠ΅ ΠΈ Π²ΡΡΠ°Π²ΡΡΠ΅ ΡΡΠΎΡ ΠΊΠΎΠ΄ Π² ΠΎΠΊΠ½ΠΎ ΠΊΠΎΠ΄Π° ΡΡΠΎΠ³ΠΎ Π»ΠΈΡΡΠ°.
ΠΡΠΎΠΌΠ΅ ΡΠΎΠ³ΠΎ, ΡΡΠΎΡ ΠΊΠΎΠ΄ Π·Π°ΡΡΠ°Π²Π»ΡΠ΅Ρ ΡΠ°Π±ΠΎΡΠ°ΡΡ, ΠΊΠΎΠ³Π΄Π° Π²Π²ΠΎΠ΄ Π΄Π°Π½Π½ΡΡ Π²ΡΠΏΠΎΠ»Π½ΡΠ΅ΡΡΡ Π² ΡΡΠΎΠ»Π±ΡΠ΅ A (ΠΎΠ±ΡΠ°ΡΠΈΡΠ΅ Π²Π½ΠΈΠΌΠ°Π½ΠΈΠ΅, ΡΡΠΎ Π² ΠΊΠΎΠ΄Π΅ Π΅ΡΡΡ ΡΡΡΠΎΠΊΠ° Target.Column = 1). ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΈΠ·ΠΌΠ΅Π½ΠΈΡΡ ΡΡΠΎ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ.
ΠΡΠ΄Π΅Π»ΠΈΡΠ΅ Π°Π»ΡΡΠ΅ΡΠ½Π°ΡΠΈΠ²Π½ΡΠ΅ ΡΡΡΠΎΠΊΠΈ Π² Π²ΡΠ΄Π΅Π»Π΅Π½Π½ΠΎΠΌ ΡΡΠ°Π³ΠΌΠ΅Π½ΡΠ΅
ΠΡΠ΄Π΅Π»Π΅Π½ΠΈΠ΅ Π°Π»ΡΡΠ΅ΡΠ½Π°ΡΠΈΠ²Π½ΡΡ ΡΡΡΠΎΠΊ ΠΌΠΎΠΆΠ΅Ρ Π·Π½Π°ΡΠΈΡΠ΅Π»ΡΠ½ΠΎ ΠΏΠΎΠ²ΡΡΠΈΡΡ ΡΠ΄ΠΎΠ±ΠΎΡΠΈΡΠ°Π΅ΠΌΠΎΡΡΡ Π²Π°ΡΠΈΡ Π΄Π°Π½Π½ΡΡ . ΠΡΠΎ ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ ΠΏΠΎΠ»Π΅Π·Π½ΠΎ, ΠΊΠΎΠ³Π΄Π° Π²Π°ΠΌ Π½ΡΠΆΠ½ΠΎ ΡΠ΄Π΅Π»Π°ΡΡ ΡΠ°ΡΠΏΠ΅ΡΠ°ΡΠΊΡ ΠΈ ΠΏΡΠΎΡΠΌΠΎΡΡΠ΅ΡΡ Π΄Π°Π½Π½ΡΠ΅.
ΠΠΎΡ ΠΊΠΎΠ΄, ΠΊΠΎΡΠΎΡΡΠΉ ΠΌΠ³Π½ΠΎΠ²Π΅Π½Π½ΠΎ Π²ΡΠ΄Π΅Π»ΡΠ΅Ρ Π°Π»ΡΡΠ΅ΡΠ½Π°ΡΠΈΠ²Π½ΡΠ΅ ΡΡΡΠΎΠΊΠΈ Π² Π²ΡΠ΄Π΅Π»Π΅Π½Π½ΠΎΠΌ ΡΡΠ°Π³ΠΌΠ΅Π½ΡΠ΅.
'ΠΡΠΎΡ ΠΊΠΎΠ΄ Π±ΡΠ΄Π΅Ρ Π²ΡΠ΄Π΅Π»ΡΡΡ Π°Π»ΡΡΠ΅ΡΠ½Π°ΡΠΈΠ²Π½ΡΠ΅ ΡΡΡΠΎΠΊΠΈ Π² Π²ΡΠ΄Π΅Π»Π΅Π½ΠΈΠΈ Sub HighlightAlternateRows () Dim Myrange As Range Dim Myrow As Range Set Myrange = Selection For Each Myrow In Myrange.Rows If Myrow.Row Mod 2 = 1 Then Myrow.Interior.Color = vbCyan End ΠΡΠ»ΠΈ ΡΠ»Π΅Π΄ΡΡΡΠΈΠΉ Myrow End Sub
ΠΠ±ΡΠ°ΡΠΈΡΠ΅ Π²Π½ΠΈΠΌΠ°Π½ΠΈΠ΅, ΡΡΠΎ Π² ΠΊΠΎΠ΄Π΅ Ρ ΡΠΊΠ°Π·Π°Π» ΡΠ²Π΅Ρ ΠΊΠ°ΠΊ vbCyan. ΠΡ ΡΠ°ΠΊΠΆΠ΅ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΡΠΊΠ°Π·Π°ΡΡ Π΄ΡΡΠ³ΠΈΠ΅ ΡΠ²Π΅ΡΠ° (Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ, vbRed, vbGreen, vbBlue).
ΠΡΠ΄Π΅Π»ΠΈΡΠ΅ ΡΡΠ΅ΠΉΠΊΠΈ Ρ ΠΎΡΠΈΠ±ΠΊΠ°ΠΌΠΈ Π² Π½Π°ΠΏΠΈΡΠ°Π½ΠΈΠΈ ΡΠ»ΠΎΠ²
Π Excel Π½Π΅Ρ ΠΏΡΠΎΠ²Π΅ΡΠΊΠΈ ΠΎΡΡΠΎΠ³ΡΠ°ΡΠΈΠΈ, ΠΊΠ°ΠΊ Π² Word ΠΈΠ»ΠΈ PowerPoint. Π₯ΠΎΡΡ Π²Ρ ΠΌΠΎΠΆΠ΅ΡΠ΅ Π·Π°ΠΏΡΡΡΠΈΡΡ ΠΏΡΠΎΠ²Π΅ΡΠΊΡ ΠΎΡΡΠΎΠ³ΡΠ°ΡΠΈΠΈ, Π½Π°ΠΆΠ°Π² ΠΊΠ»Π°Π²ΠΈΡΡ F7, Π½Π΅Ρ Π²ΠΈΠ·ΡΠ°Π»ΡΠ½ΠΎΠΉ ΠΏΠΎΠ΄ΡΠΊΠ°Π·ΠΊΠΈ, ΠΊΠΎΠ³Π΄Π° Π΅ΡΡΡ ΠΎΡΡΠΎΠ³ΡΠ°ΡΠΈΡΠ΅ΡΠΊΠ°Ρ ΠΎΡΠΈΠ±ΠΊΠ°.
ΠΡΠΏΠΎΠ»ΡΠ·ΡΠΉΡΠ΅ ΡΡΠΎΡ ΠΊΠΎΠ΄, ΡΡΠΎΠ±Ρ ΠΌΠ³Π½ΠΎΠ²Π΅Π½Π½ΠΎ Π²ΡΠ΄Π΅Π»ΠΈΡΡ Π²ΡΠ΅ ΡΡΠ΅ΠΉΠΊΠΈ, Π² ΠΊΠΎΡΠΎΡΡΡ Π΅ΡΡΡ ΠΎΡΡΠΎΠ³ΡΠ°ΡΠΈΡΠ΅ΡΠΊΠ°Ρ ΠΎΡΠΈΠ±ΠΊΠ°.
'ΠΡΠΎΡ ΠΊΠΎΠ΄ Π±ΡΠ΄Π΅Ρ Π²ΡΠ΄Π΅Π»ΡΡΡ ΡΡΠ΅ΠΉΠΊΠΈ, ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΠΈΠ΅ ΡΠ»ΠΎΠ²Π° Ρ ΠΎΡΠΈΠ±ΠΊΠ°ΠΌΠΈ Sub HighlightMisspelledCells () Dim cl As Range For Each cl In ActiveSheet.UsedRange If Not Application.CheckSpelling (word: = cl.Text) Then cl.Interior.Color = vbRed End If Next cl End Sub
ΠΠ±ΡΠ°ΡΠΈΡΠ΅ Π²Π½ΠΈΠΌΠ°Π½ΠΈΠ΅, ΡΡΠΎ Π²ΡΠ΄Π΅Π»Π΅Π½Π½ΡΠ΅ ΡΡΠ΅ΠΉΠΊΠΈ ΡΠΎΠ΄Π΅ΡΠΆΠ°Ρ ΡΠ΅ΠΊΡΡ, ΠΊΠΎΡΠΎΡΡΠΉ Excel ΡΡΠΈΡΠ°Π΅Ρ ΠΎΡΡΠΎΠ³ΡΠ°ΡΠΈΡΠ΅ΡΠΊΠΎΠΉ ΠΎΡΠΈΠ±ΠΊΠΎΠΉ. ΠΠΎ ΠΌΠ½ΠΎΠ³ΠΈΡ ΡΠ»ΡΡΠ°ΡΡ ΠΎΠ½ ΡΠ°ΠΊΠΆΠ΅ Π²ΡΠ΄Π΅Π»ΡΠ΅Ρ Π½Π°Π·Π²Π°Π½ΠΈΡ ΠΈΠ»ΠΈ Π½Π°Π·Π²Π°Π½ΠΈΡ Π±ΡΠ΅Π½Π΄ΠΎΠ², ΠΊΠΎΡΠΎΡΡΡ ΠΎΠ½ Π½Π΅ ΠΏΠΎΠ½ΠΈΠΌΠ°Π΅Ρ.
ΠΠ±Π½ΠΎΠ²ΠΈΡΡ Π²ΡΠ΅ ΡΠ²ΠΎΠ΄Π½ΡΠ΅ ΡΠ°Π±Π»ΠΈΡΡ Π² ΠΊΠ½ΠΈΠ³Π΅
ΠΡΠ»ΠΈ Ρ Π²Π°Ρ Π² ΠΊΠ½ΠΈΠ³Π΅ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΎ ΡΠ²ΠΎΠ΄Π½ΡΡ ΡΠ°Π±Π»ΠΈΡ, Π²Ρ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΡΡΠΎΡ ΠΊΠΎΠ΄ Π΄Π»Ρ ΠΎΠ΄Π½ΠΎΠ²ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠ³ΠΎ ΠΎΠ±Π½ΠΎΠ²Π»Π΅Π½ΠΈΡ Π²ΡΠ΅Ρ ΡΡΠΈΡ ΡΠ²ΠΎΠ΄Π½ΡΡ ΡΠ°Π±Π»ΠΈΡ.
'ΠΡΠΎΡ ΠΊΠΎΠ΄ ΠΎΠ±Π½ΠΎΠ²ΠΈΡ Π²ΡΡ ΡΠ²ΠΎΠ΄Π½ΡΡ ΡΠ°Π±Π»ΠΈΡΡ Π² ΠΏΠΎΠ΄ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅ Workbook Sub RefreshAllPivotTables () Dim PT As PivotTable Π΄Π»Ρ ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ PT Π² ActiveSheet.PivotTables PT.RefreshTable Next PT End Sub
ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΡΠ·Π½Π°ΡΡ Π±ΠΎΠ»ΡΡΠ΅ ΠΎΠ± ΠΎΠ±Π½ΠΎΠ²Π»Π΅Π½ΠΈΠΈ ΡΠ²ΠΎΠ΄Π½ΡΡ ΡΠ°Π±Π»ΠΈΡ Π·Π΄Π΅ΡΡ.
ΠΠ·ΠΌΠ΅Π½ΠΈΡΠ΅ ΡΠ΅Π³ΠΈΡΡΡ Π±ΡΠΊΠ² Π²ΡΠ±ΡΠ°Π½Π½ΡΡ ΡΡΠ΅Π΅ΠΊ Π½Π° Π²Π΅ΡΡ Π½ΠΈΠΉ ΡΠ΅Π³ΠΈΡΡΡ
Π₯ΠΎΡΡ Π² Excel Π΅ΡΡΡ ΡΠΎΡΠΌΡΠ»Ρ Π΄Π»Ρ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΡ ΡΠ΅Π³ΠΈΡΡΡΠ° Π±ΡΠΊΠ² ΡΠ΅ΠΊΡΡΠ°, ΠΎΠ½ Π·Π°ΡΡΠ°Π²Π»ΡΠ΅Ρ Π²Π°Ρ Π΄Π΅Π»Π°ΡΡ ΡΡΠΎ Π² Π΄ΡΡΠ³ΠΎΠΌ Π½Π°Π±ΠΎΡΠ΅ ΡΡΠ΅Π΅ΠΊ.
ΠΡΠΏΠΎΠ»ΡΠ·ΡΠΉΡΠ΅ ΡΡΠΎΡ ΠΊΠΎΠ΄, ΡΡΠΎΠ±Ρ ΠΌΠ³Π½ΠΎΠ²Π΅Π½Π½ΠΎ ΠΈΠ·ΠΌΠ΅Π½ΠΈΡΡ ΡΠ΅Π³ΠΈΡΡΡ Π±ΡΠΊΠ² Π² Π²ΡΠ΄Π΅Π»Π΅Π½Π½ΠΎΠΌ ΡΠ΅ΠΊΡΡΠ΅.
'ΠΡΠΎΡ ΠΊΠΎΠ΄ ΠΈΠ·ΠΌΠ΅Π½ΠΈΡ Π²ΡΠ΄Π΅Π»Π΅Π½ΠΈΠ΅ Π½Π° Π²Π΅ΡΡ Π½ΠΈΠΉ ΡΠ΅Π³ΠΈΡΡΡ Sub ChangeCase () Dim Rng As Range For Each Rng In Selection.Cells If Rng.HasFormula = False Then Rng.Value = UCase (Rng.Value) End If Next Rng End Sub
ΠΠ±ΡΠ°ΡΠΈΡΠ΅ Π²Π½ΠΈΠΌΠ°Π½ΠΈΠ΅, ΡΡΠΎ Π² ΡΡΠΎΠΌ ΡΠ»ΡΡΠ°Π΅ Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π» UCase, ΡΡΠΎΠ±Ρ ΡΠ΄Π΅Π»Π°ΡΡ ΡΠ΅ΠΊΡΡΠΎΠ²ΡΠΉ ΡΠ΅Π³ΠΈΡΡΡ Upper. ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ LCase Π΄Π»Ρ Π½ΠΈΠΆΠ½Π΅Π³ΠΎ ΡΠ΅Π³ΠΈΡΡΡΠ°.
ΠΡΠ΄Π΅Π»ΠΈΡΠ΅ Π²ΡΠ΅ ΡΡΠ΅ΠΉΠΊΠΈ ΠΊΠΎΠΌΠΌΠ΅Π½ΡΠ°ΡΠΈΡΠΌΠΈ
ΠΡΠΏΠΎΠ»ΡΠ·ΡΠΉΡΠ΅ ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½Π½ΡΠΉ Π½ΠΈΠΆΠ΅ ΠΊΠΎΠ΄, ΡΡΠΎΠ±Ρ Π²ΡΠ΄Π΅Π»ΠΈΡΡ Π²ΡΠ΅ ΡΡΠ΅ΠΉΠΊΠΈ, Π² ΠΊΠΎΡΠΎΡΡΡ Π΅ΡΡΡ ΠΊΠΎΠΌΠΌΠ΅Π½ΡΠ°ΡΠΈΠΈ.
'ΠΡΠΎΡ ΠΊΠΎΠ΄ Π±ΡΠ΄Π΅Ρ Π²ΡΠ΄Π΅Π»ΡΡΡ ΡΡΠ΅ΠΉΠΊΠΈ Ρ ΠΊΠΎΠΌΠΌΠ΅Π½ΡΠ°ΡΠΈΡΠΌΠΈ` Sub HighlightCellsWithComments () ActiveSheet.Cells.SpecialCells (xlCellTypeComments) .Interior.Color = vbBlue End Sub
Π ΡΡΠΎΠΌ ΡΠ»ΡΡΠ°Π΅ Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π» vbBlue, ΡΡΠΎΠ±Ρ ΠΏΡΠΈΠ΄Π°ΡΡ ΡΡΠ΅ΠΉΠΊΠ°ΠΌ ΡΠΈΠ½ΠΈΠΉ ΡΠ²Π΅Ρ. ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΈΠ·ΠΌΠ΅Π½ΠΈΡΡ Π΅Π³ΠΎ Π½Π° Π΄ΡΡΠ³ΠΈΠ΅ ΡΠ²Π΅ΡΠ°, Π΅ΡΠ»ΠΈ Ρ ΠΎΡΠΈΡΠ΅.
ΠΡΠ΄Π΅Π»ΠΈΡΠ΅ ΠΏΡΡΡΡΠ΅ ΡΡΠ΅ΠΉΠΊΠΈ Ρ ΠΏΠΎΠΌΠΎΡΡΡ VBA
Π₯ΠΎΡΡ Π²Ρ ΠΌΠΎΠΆΠ΅ΡΠ΅ Π²ΡΠ΄Π΅Π»ΠΈΡΡ ΠΏΡΡΡΡΡ ΡΡΠ΅ΠΉΠΊΡ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΡΡΠ»ΠΎΠ²Π½ΠΎΠ³ΠΎ ΡΠΎΡΠΌΠ°ΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΈΠ»ΠΈ Ρ ΠΏΠΎΠΌΠΎΡΡΡ Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠ³ΠΎ ΠΎΠΊΠ½Π° Β«ΠΠ΅ΡΠ΅ΠΉΡΠΈ ΠΊ ΡΠΏΠ΅ΡΠΈΠ°Π»ΡΠ½ΠΎΠΌΡΒ», Π΅ΡΠ»ΠΈ Π²Π°ΠΌ ΠΏΡΠΈΡ ΠΎΠ΄ΠΈΡΡΡ Π΄Π΅Π»Π°ΡΡ ΡΡΠΎ Π΄ΠΎΠ²ΠΎΠ»ΡΠ½ΠΎ ΡΠ°ΡΡΠΎ, Π»ΡΡΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΠΌΠ°ΠΊΡΠΎΡ.
ΠΠΎΡΠ»Π΅ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ Π²Ρ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΡΠ°Π·ΠΌΠ΅ΡΡΠΈΡΡ ΡΡΠΎΡ ΠΌΠ°ΠΊΡΠΎΡ Π½Π° ΠΏΠ°Π½Π΅Π»ΠΈ Π±ΡΡΡΡΠΎΠ³ΠΎ Π΄ΠΎΡΡΡΠΏΠ° ΠΈΠ»ΠΈ ΡΠΎΡ ΡΠ°Π½ΠΈΡΡ Π΅Π³ΠΎ Π² ΡΠ²ΠΎΠ΅ΠΉ Π»ΠΈΡΠ½ΠΎΠΉ ΠΊΠ½ΠΈΠ³Π΅ ΠΌΠ°ΠΊΡΠΎΡΠΎΠ².
ΠΠΎΡ ΠΊΠΎΠ΄ ΠΌΠ°ΠΊΡΠΎΡΠ° VBA:
'ΠΡΠΎΡ ΠΊΠΎΠ΄ Π²ΡΠ΄Π΅Π»ΠΈΡ Π²ΡΠ΅ ΠΏΡΡΡΡΠ΅ ΡΡΠ΅ΠΉΠΊΠΈ Π² Sub HighlightBlankCells () Dim Dataset ΠΊΠ°ΠΊ Range Set Dataset = Selection Dataset.SpecialCells (xlCellTypeBlanks) .Interior.Color = vbRed End Sub
Π ΡΡΠΎΠΌ ΠΊΠΎΠ΄Π΅ Ρ ΡΠΊΠ°Π·Π°Π», ΡΡΠΎ ΠΏΡΡΡΡΠ΅ ΡΡΠ΅ΠΉΠΊΠΈ Π±ΡΠ΄ΡΡ Π²ΡΠ΄Π΅Π»Π΅Π½Ρ ΠΊΡΠ°ΡΠ½ΡΠΌ ΡΠ²Π΅ΡΠΎΠΌ. ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ Π²ΡΠ±ΡΠ°ΡΡ Π΄ΡΡΠ³ΠΈΠ΅ ΡΠ²Π΅ΡΠ°, ΡΠ°ΠΊΠΈΠ΅ ΠΊΠ°ΠΊ ΡΠΈΠ½ΠΈΠΉ, ΠΆΠ΅Π»ΡΡΠΉ, Π³ΠΎΠ»ΡΠ±ΠΎΠΉ ΠΈ Ρ. Π.
ΠΠ°ΠΊ ΠΎΡΡΠΎΡΡΠΈΡΠΎΠ²Π°ΡΡ Π΄Π°Π½Π½ΡΠ΅ ΠΏΠΎ ΠΎΠ΄Π½ΠΎΠΌΡ ΡΡΠΎΠ»Π±ΡΡ
ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½Π½ΡΠΉ Π½ΠΈΠΆΠ΅ ΠΊΠΎΠ΄ Π΄Π»Ρ ΡΠΎΡΡΠΈΡΠΎΠ²ΠΊΠΈ Π΄Π°Π½Π½ΡΡ ΠΏΠΎ ΡΠΊΠ°Π·Π°Π½Π½ΠΎΠΌΡ ΡΡΠΎΠ»Π±ΡΡ.
Sub SortDataHeader () Range ("DataRange"). Sort Key1: = Range ("A1"), Order1: = xlAscending, Header: = xlYes End Sub
ΠΠ±ΡΠ°ΡΠΈΡΠ΅ Π²Π½ΠΈΠΌΠ°Π½ΠΈΠ΅, ΡΡΠΎ Ρ ΡΠΎΠ·Π΄Π°Π» ΠΈΠΌΠ΅Π½ΠΎΠ²Π°Π½Π½ΡΠΉ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ Ρ ΠΈΠΌΠ΅Π½Π΅ΠΌ DataRange ΠΈ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π» Π΅Π³ΠΎ Π²ΠΌΠ΅ΡΡΠΎ ΡΡΡΠ»ΠΎΠΊ Π½Π° ΡΡΠ΅ΠΉΠΊΠΈ.
Π’Π°ΠΊΠΆΠ΅ Π·Π΄Π΅ΡΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡΡΡΡ ΡΡΠΈ ΠΊΠ»ΡΡΠ΅Π²ΡΡ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠ°:
- Key1 — ΡΡΠΎ ΡΠΎΡ, ΠΏΠΎ ΠΊΠΎΡΠΎΡΠΎΠΌΡ Π²Ρ Ρ ΠΎΡΠΈΡΠ΅ ΠΎΡΡΠΎΡΡΠΈΡΠΎΠ²Π°ΡΡ Π½Π°Π±ΠΎΡ Π΄Π°Π½Π½ΡΡ . Π ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½Π½ΠΎΠΌ Π²ΡΡΠ΅ ΠΏΡΠΈΠΌΠ΅ΡΠ΅ ΠΊΠΎΠ΄Π° Π΄Π°Π½Π½ΡΠ΅ Π±ΡΠ΄ΡΡ ΠΎΡΡΠΎΡΡΠΈΡΠΎΠ²Π°Π½Ρ Π½Π° ΠΎΡΠ½ΠΎΠ²Π΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ Π² ΡΡΠΎΠ»Π±ΡΠ΅ A.
- ΠΠΎΡΡΠ΄ΠΎΠΊ — Π·Π΄Π΅ΡΡ Π²Π°ΠΌ Π½ΡΠΆΠ½ΠΎ ΡΠΊΠ°Π·Π°ΡΡ, Ρ ΠΎΡΠΈΡΠ΅ Π»ΠΈ Π²Ρ ΠΎΡΡΠΎΡΡΠΈΡΠΎΠ²Π°ΡΡ Π΄Π°Π½Π½ΡΠ΅ Π² ΠΏΠΎΡΡΠ΄ΠΊΠ΅ Π²ΠΎΠ·ΡΠ°ΡΡΠ°Π½ΠΈΡ ΠΈΠ»ΠΈ ΡΠ±ΡΠ²Π°Π½ΠΈΡ.
- ΠΠ°Π³ΠΎΠ»ΠΎΠ²ΠΎΠΊ — Π·Π΄Π΅ΡΡ Π²Π°ΠΌ Π½ΡΠΆΠ½ΠΎ ΡΠΊΠ°Π·Π°ΡΡ, Π΅ΡΡΡ Π»ΠΈ Ρ Π²Π°ΡΠΈΡ Π΄Π°Π½Π½ΡΡ Π·Π°Π³ΠΎΠ»ΠΎΠ²ΠΊΠΈ ΠΈΠ»ΠΈ Π½Π΅Ρ.
Π£Π·Π½Π°ΠΉΡΠ΅ Π±ΠΎΠ»ΡΡΠ΅ ΠΎ ΡΠΎΠΌ, ΠΊΠ°ΠΊ ΡΠΎΡΡΠΈΡΠΎΠ²Π°ΡΡ Π΄Π°Π½Π½ΡΠ΅ Π² Excel Ρ ΠΏΠΎΠΌΠΎΡΡΡ VBA.
ΠΠ°ΠΊ ΠΎΡΡΠΎΡΡΠΈΡΠΎΠ²Π°ΡΡ Π΄Π°Π½Π½ΡΠ΅ ΠΏΠΎ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΈΠΌ ΡΡΠΎΠ»Π±ΡΠ°ΠΌ
ΠΡΠ΅Π΄ΠΏΠΎΠ»ΠΎΠΆΠΈΠΌ, Ρ Π²Π°Ρ Π΅ΡΡΡ Π½Π°Π±ΠΎΡ Π΄Π°Π½Π½ΡΡ , ΠΊΠ°ΠΊ ΠΏΠΎΠΊΠ°Π·Π°Π½ΠΎ Π½ΠΈΠΆΠ΅:
ΠΠΈΠΆΠ΅ ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½ ΠΊΠΎΠ΄, ΠΊΠΎΡΠΎΡΡΠΉ ΡΠΎΡΡΠΈΡΡΠ΅Ρ Π΄Π°Π½Π½ΡΠ΅ ΠΏΠΎ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΈΠΌ ΡΡΠΎΠ»Π±ΡΠ°ΠΌ:
Sub SortMultipleColumns () Ρ ΠΊΠ»ΡΡΠΎΠΌ ActiveSheet. Sort .SortFields.Add: = Range ("A1"), Order: = xlAscending .SortFields.Add Key: = Range ("B1"), Order: = xlAscending .SetRange Range ("A1 : C13 ") .Header = xlYes. ΠΡΠΈΠΌΠ΅Π½ΠΈΡΡ End With End Sub
ΠΠ±ΡΠ°ΡΠΈΡΠ΅ Π²Π½ΠΈΠΌΠ°Π½ΠΈΠ΅, ΡΡΠΎ Π·Π΄Π΅ΡΡ Ρ ΡΠΊΠ°Π·Π°Π» ΡΠ½Π°ΡΠ°Π»Π° ΡΠΎΡΡΠΈΡΠΎΠ²ΠΊΡ ΠΏΠΎ ΡΡΠΎΠ»Π±ΡΡ A, Π° Π·Π°ΡΠ΅ΠΌ ΠΏΠΎ ΡΡΠΎΠ»Π±ΡΡ B.
Π Π΅Π·ΡΠ»ΡΡΠ°Ρ Π±ΡΠ΄Π΅Ρ ΠΏΡΠΈΠΌΠ΅ΡΠ½ΠΎ ΡΠ°ΠΊΠΈΠΌ, ΠΊΠ°ΠΊ ΠΏΠΎΠΊΠ°Π·Π°Π½ΠΎ Π½ΠΈΠΆΠ΅:
ΠΠ°ΠΊ ΠΏΠΎΠ»ΡΡΠΈΡΡ ΡΠΎΠ»ΡΠΊΠΎ ΡΠΈΡΠ»ΠΎΠ²ΡΡ ΡΠ°ΡΡΡ ΠΈΠ· ΡΡΡΠΎΠΊΠΈ Π² Excel
ΠΡΠ»ΠΈ Π²Ρ Ρ ΠΎΡΠΈΡΠ΅ ΠΈΠ·Π²Π»Π΅ΡΡ ΡΠΎΠ»ΡΠΊΠΎ ΡΠΈΡΠ»ΠΎΠ²ΡΡ ΡΠ°ΡΡΡ ΠΈΠ»ΠΈ ΡΠΎΠ»ΡΠΊΠΎ ΡΠ΅ΠΊΡΡΠΎΠ²ΡΡ ΡΠ°ΡΡΡ ΠΈΠ· ΡΡΡΠΎΠΊΠΈ, Π²Ρ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΡΠΎΠ·Π΄Π°ΡΡ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»ΡΡΠΊΡΡ ΡΡΠ½ΠΊΡΠΈΡ Π² VBA.
ΠΠ°ΡΠ΅ΠΌ Π²Ρ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΡΡΡ ΡΡΠ½ΠΊΡΠΈΡ VBA Π½Π° Π»ΠΈΡΡΠ΅ (ΠΊΠ°ΠΊ ΠΈ ΠΎΠ±ΡΡΠ½ΡΠ΅ ΡΡΠ½ΠΊΡΠΈΠΈ Excel), ΠΈ ΠΎΠ½Π° Π±ΡΠ΄Π΅Ρ ΠΈΠ·Π²Π»Π΅ΠΊΠ°ΡΡ ΠΈΠ· ΡΡΡΠΎΠΊΠΈ ΡΠΎΠ»ΡΠΊΠΎ ΡΠΈΡΠ»ΠΎΠ²ΡΡ ΠΈΠ»ΠΈ ΡΠ΅ΠΊΡΡΠΎΠ²ΡΡ ΡΠ°ΡΡΡ.
Π§ΡΠΎ-ΡΠΎ Π²ΡΠΎΠ΄Π΅ ΡΠΎΠ³ΠΎ, ΡΡΠΎ ΠΏΠΎΠΊΠ°Π·Π°Π½ΠΎ Π½ΠΈΠΆΠ΅:
ΠΠΈΠΆΠ΅ ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½ ΠΊΠΎΠ΄ VBA, ΠΊΠΎΡΠΎΡΡΠΉ ΡΠΎΠ·Π΄Π°ΡΡ ΡΡΠ½ΠΊΡΠΈΡ Π΄Π»Ρ ΠΈΠ·Π²Π»Π΅ΡΠ΅Π½ΠΈΡ ΡΠΈΡΠ»ΠΎΠ²ΠΎΠΉ ΡΠ°ΡΡΠΈ ΠΈΠ· ΡΡΡΠΎΠΊΠΈ:
'ΠΡΠΎΡ ΠΊΠΎΠ΄ VBA ΡΠΎΠ·Π΄Π°ΡΡ ΡΡΠ½ΠΊΡΠΈΡ Π΄Π»Ρ ΠΏΠΎΠ»ΡΡΠ΅Π½ΠΈΡ ΡΠΈΡΠ»ΠΎΠ²ΠΎΠΉ ΡΠ°ΡΡΠΈ ΠΈΠ· ΡΡΡΠΎΠΊΠΈ. Π€ΡΠ½ΠΊΡΠΈΡ GetNumeric (CellRef As String) Dim StringLength As Integer StringLength = Len (CellRef) For i = 1 To StringLength If IsNumeric (Mid (CellRef, i, 1) ) ΠΠ°ΡΠ΅ΠΌ Result = Result & Mid (CellRef, i, 1) Next i GetNumeric = Result End Function
ΠΠ°ΠΌ Π½ΡΠΆΠ½ΠΎ ΠΏΠΎΠΌΠ΅ΡΡΠΈΡΡ ΠΊΠΎΠ΄ Π² ΠΌΠΎΠ΄ΡΠ»Ρ, Π° Π·Π°ΡΠ΅ΠΌ Π²Ρ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΡΡΠ½ΠΊΡΠΈΡ = GetNumeric Π½Π° Π»ΠΈΡΡΠ΅.
ΠΡΠ° ΡΡΠ½ΠΊΡΠΈΡ Π±ΡΠ΄Π΅Ρ ΠΏΡΠΈΠ½ΠΈΠΌΠ°ΡΡ ΡΠΎΠ»ΡΠΊΠΎ ΠΎΠ΄ΠΈΠ½ Π°ΡΠ³ΡΠΌΠ΅Π½Ρ, ΠΊΠΎΡΠΎΡΡΠΉ ΡΠ²Π»ΡΠ΅ΡΡΡ ΡΡΡΠ»ΠΊΠΎΠΉ Π½Π° ΡΡΠ΅ΠΉΠΊΡ, ΠΈΠ· ΠΊΠΎΡΠΎΡΠΎΠΉ Π²Ρ Ρ ΠΎΡΠΈΡΠ΅ ΠΏΠΎΠ»ΡΡΠΈΡΡ ΡΠΈΡΠ»ΠΎΠ²ΡΡ ΡΠ°ΡΡΡ.
Π’ΠΎΡΠ½ΠΎ ΡΠ°ΠΊ ΠΆΠ΅ Π½ΠΈΠΆΠ΅ ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½Π° ΡΡΠ½ΠΊΡΠΈΡ, ΠΊΠΎΡΠΎΡΠ°Ρ Π²Π΅ΡΠ½Π΅Ρ Π²Π°ΠΌ ΡΠΎΠ»ΡΠΊΠΎ ΡΠ΅ΠΊΡΡΠΎΠ²ΡΡ ΡΠ°ΡΡΡ ΠΈΠ· ΡΡΡΠΎΠΊΠΈ Π² Excel:
'ΠΡΠΎΡ ΠΊΠΎΠ΄ VBA ΡΠΎΠ·Π΄Π°ΡΡ ΡΡΠ½ΠΊΡΠΈΡ Π΄Π»Ρ ΠΏΠΎΠ»ΡΡΠ΅Π½ΠΈΡ ΡΠ΅ΠΊΡΡΠΎΠ²ΠΎΠΉ ΡΠ°ΡΡΠΈ ΠΈΠ· ΡΡΡΠΎΠΊΠΈ. Π€ΡΠ½ΠΊΡΠΈΡ GetText (CellRef As String) Dim StringLength As Integer StringLength = Len (CellRef) For i = 1 To StringLength If Not (IsNumeric (Mid (CellRef, i, 1))) ΠΠ°ΡΠ΅ΠΌ Result = Result & Mid (CellRef, i, 1) Next i GetText = Result End Function
ΠΡΠ°ΠΊ, ΡΡΠΎ Π½Π΅ΠΊΠΎΡΠΎΡΡΠ΅ ΠΈΠ· ΠΏΠΎΠ»Π΅Π·Π½ΡΡ ΠΊΠΎΠ΄ΠΎΠ² ΠΌΠ°ΠΊΡΠΎΡΠΎΠ² Excel, ΠΊΠΎΡΠΎΡΡΠ΅ Π²Ρ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ Π² ΡΠ²ΠΎΠ΅ΠΉ ΠΏΠΎΠ²ΡΠ΅Π΄Π½Π΅Π²Π½ΠΎΠΉ ΡΠ°Π±ΠΎΡΠ΅ Π΄Π»Ρ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΠ·Π°ΡΠΈΠΈ Π·Π°Π΄Π°Ρ ΠΈ ΠΏΠΎΠ²ΡΡΠ΅Π½ΠΈΡ ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΠΈΡΠ΅Π»ΡΠ½ΠΎΡΡΠΈ.
ΠΡΠΈΠ΅ΠΌΡ :: ΠΠ»Π°Π½Π΅ΡΠ° Excel
Π‘ΠΎΡΡΠΈΡΠΎΠ²ΠΊΠ°:
Π΄Π°ΡΠ° ΡΠΎΠ·Π΄Π°Π½ΠΈΡ
Π΄Π°ΡΠ° ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΡ
ΠΏΡΠΎΡΠΌΠΎΡΡΡ
ΠΊΠΎΠΌΠΌΠ΅Π½ΡΠ°ΡΠΈΠΈ
5 ΠΏΡΠΈΠΌΠ΅ΡΠΎΠ² ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΡ Π½ΠΎΠ²ΠΎΠΉ ΡΡΠ½ΠΊΡΠΈΠΈ IMAGE Π² Excel
Π Π°Π·Π±ΠΈΡΠ°Π΅ΠΌ Π½Π° ΠΏΡΠΈΠΌΠ΅ΡΠ°Ρ Π²Π°ΡΠΈΠ°Π½ΡΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΡ Π½ΠΎΠ²ΠΎΠΉ ΡΡΠ½ΠΊΡΠΈΠΈ ΠΠΠΠΠ ΠΠΠΠΠΠ (IMAGE) Π΄Π»Ρ Π²ΡΡΠ°Π²ΠΊΠΈ ΠΈΠ·ΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΠΉ ΠΏΠΎ ΡΡΡΠ»ΠΊΠ°ΠΌ Π½Π° Π»ΠΈΡΡ Excel + Π΄Π΅Π»Π°Π΅ΠΌ ΡΠΎΠ±ΡΡΠ²Π΅Π½Π½ΡΠΉ Π°Π½Π°Π»ΠΎΠ³ Π½Π° VBA Π΄Π»Ρ Π²ΡΡΠ°Π²ΠΊΠΈ ΠΈΠ·ΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΠΉ ΠΈΠ· Π»ΠΎΠΊΠ°Π»ΡΠ½ΡΡ ΡΠ°ΠΉΠ»ΠΎΠ².
ChatGPT ΠΈ Excel
ΠΡΠΈΠΌΠ΅ΡΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΡ ΠΈΡΠΊΡΡΡΡΠ²Π΅Π½Π½ΠΎΠ³ΠΎ ΠΈΠ½ΡΠ΅Π»Π»Π΅ΠΊΡΠ° Open AI ChatGPT Π΄Π»Ρ ΡΠ΅ΡΠ΅Π½ΠΈΡ ΠΏΠΎΠ²ΡΠ΅Π΄Π½Π΅Π²Π½ΡΡ Π·Π°Π΄Π°Ρ Π² Microsoft Excel: Π²Π²ΠΎΠ΄ ΡΠΎΡΠΌΡΠ», ΡΠΎΠ·Π΄Π°Π½ΠΈΠ΅ ΠΌΠ°ΠΊΡΠΎΡΠΎΠ² ΠΈ Π-ΡΡΠ½ΠΊΡΠΈΠΉ Π² Power Query.
ΠΠΎΠΈΡΠΊ ΠΎΡΠ»ΠΈΡΠΈΠΉ Π² 2 ΡΠ΅ΠΊΡΡΠΎΠ²ΡΡ ΡΡΡΠΎΠΊΠ°Ρ
ΠΠ°ΠΊ ΡΡΠ°Π²Π½ΠΈΡΡ 2 ΡΠ΅ΠΊΡΡΠΎΠ²ΡΡ ΡΡΡΠΎΠΊΠΈ ΠΈ Π½Π°ΠΉΡΠΈ ΠΎΡΠ»ΠΈΡΠΈΡ (Π΄Π°ΠΆΠ΅ Π΅ΡΠ»ΠΈ Π²ΠΈΠ·ΡΠ°Π»ΡΠ½ΠΎ ΠΎΠ½ΠΈ, Π²ΡΠΎΠ΄Π΅ Π±Ρ, ΡΠΎΠ²ΠΏΠ°Π΄Π°ΡΡ).
ΠΡΠ½ΠΎΠ²Ρ ΡΠ°Π±ΠΎΡΡ Π² Microsoft Power BI
ΠΠΎΡΠ°Π³ΠΎΠ²ΡΠΉ ΡΠ°Π·Π±ΠΎΡ Π²ΡΠ΅Π³ΠΎ ΠΏΡΠΎΡΠ΅ΡΡΠ° ΠΈ Π³Π»Π°Π²Π½ΡΡ ΠΏΡΠΈΠ½ΡΠΈΠΏΠΎΠ² ΡΠ°Π±ΠΎΡΡ Π² Microsoft Power BI — ΠΎΡ ΡΡΡΡΡ ΡΠ°ΠΉΠ»ΠΎΠ² Ρ ΠΈΡΡ ΠΎΠ΄Π½ΡΠΌΠΈ Π΄Π°Π½Π½ΡΠΌΠΈ Π΄ΠΎ ΠΎΠΏΡΠ±Π»ΠΈΠΊΠΎΠ²Π°Π½Π½ΠΎΠ³ΠΎ Π² ΠΎΠ±Π»Π°ΠΊΠΎ ΠΈΠ½ΡΠ΅ΡΠ°ΠΊΡΠΈΠ²Π½ΠΎΠ³ΠΎ Π°Π½Π°Π»ΠΈΡΠΈΡΠ΅ΡΠΊΠΎΠ³ΠΎ ΠΎΡΡΡΡΠ°.
ΠΠΈΠ°Π³ΡΠ°ΠΌΠΌΠ° Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ ΠΏΠ»Π°Π½Π°
ΠΡΡ ΠΎΠ΄ΠΈΠ½ Π½Π°Π³Π»ΡΠ΄Π½ΡΠΉ Π²Π°ΡΠΈΠ°Π½Ρ Π²ΠΈΠ·ΡΠ°Π»ΠΈΠ·Π°ΡΠΈΠΈ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ ΠΏΠ»Π°Π½Π° Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΡΡΠΎΠ»Π±ΡΠ°ΡΠΎΠΉ Π³ΠΈΡΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Ρ Π½Π°ΠΊΠΎΠΏΠ»Π΅Π½ΠΈΠ΅ΠΌ ΠΈ «ΡΡΠΎΠ²» ΠΏΠΎΠ³ΡΠ΅ΡΠ½ΠΎΡΡΠ΅ΠΉ Π² Microsoft Excel.
Π Π΅ΡΠ΅Π½ΠΈΠ΅ ΡΠΈΡΡΠ΅ΠΌΡ ΡΡΠ°Π²Π½Π΅Π½ΠΈΠΉ Π² Excel
ΠΠ°ΠΊ ΡΠ΅ΡΠΈΡΡ ΡΠΈΡΡΠ΅ΠΌΡ ΡΡΠ°Π²Π½Π΅Π½ΠΈΠΉ (Π»ΠΈΠ½Π΅ΠΉΠ½ΡΡ ΠΈ Π½Π΅Π»ΠΈΠ½Π΅ΠΉΠ½ΡΡ ) Π² Microsoft Excel Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΠΎΠ±ΡΠ°ΡΠ½ΠΎΠΉ ΠΌΠ°ΡΡΠΈΡΡ ΠΡΠ°ΠΌΠ΅ΡΠ° ΠΈ ΠΏΠΎΠ΄Π±ΠΎΡΠΎΠΌ Π² Π½Π°Π΄ΡΡΡΠΎΠΉΠΊΠ΅ ΠΠΎΠΈΡΠΊ ΡΠ΅ΡΠ΅Π½ΠΈΡ (Solver).
Π Π΅Π³ΠΈΡΡΡΠΎ ΠΠ ΡΡΠ²ΡΡΠ²ΠΈΡΠ΅Π»ΡΠ½ΠΎΡΡΡ Π² Power Query (ΠΈ Power BI)
ΠΠ°ΠΊ ΠΏΠΎΠ±Π΅Π΄ΠΈΡΡ ΡΠ΅Π³ΠΈΡΡΡΠΎΡΡΠ²ΡΡΠ²ΠΈΡΠ΅Π»ΡΠ½ΠΎΡΡΡ Π² Power Query ΠΏΡΠΈ ΡΠΈΠ»ΡΡΡΠ°ΡΠΈΠΈ, ΡΠ΄Π°Π»Π΅Π½ΠΈΠΈ Π΄ΡΠ±Π»ΠΈΠΊΠ°ΡΠΎΠ² ΠΈ ΠΎΠ±ΡΠ΅Π΄ΠΈΠ½Π΅Π½ΠΈΠΈ ΡΠ°Π±Π»ΠΈΡ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΡΡΠ½ΠΊΡΠΈΠΈ Comparer. OrdinalIgnoreCase
Π‘ΠΊΠ»Π΅ΠΉΠΊΠ° Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ΠΎΠ² Π½ΠΎΠ²ΡΠΌΠΈ ΡΡΠ½ΠΊΡΠΈΡΠΌΠΈ VSTACK ΠΈ HSTACK
ΠΠ°ΠΊ ΡΠΊΠ»Π΅ΠΈΡΡ (Π΄ΡΡΠ³ ΠΏΠΎΠ΄ Π΄ΡΡΠ³ΠΎΠΌ ΠΈΠ»ΠΈ Π΄ΡΡΠ³ ΡΡΠ΄ΠΎΠΌ Ρ Π΄ΡΡΠ³ΠΎΠΌ) Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΎ ΡΠ°Π±Π»ΠΈΡ (Π² ΡΠΎΠΌ ΡΠΈΡΠ»Π΅ Ρ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΈΡ Π»ΠΈΡΡΠΎΠ²) Ρ ΠΏΠΎΠΌΠΎΡΡΡ Π½ΠΎΠ²ΡΡ ΡΡΠ½ΠΊΡΠΈΠΉ Office 365 — ΠΠ‘Π’ΠΠΠΠΠ (VSTACK) ΠΈ ΠΠ‘Π’ΠΠΠΠΠ (HSTACK).
ΠΠΈΠ½Π°ΠΌΠΈΡΠ΅ΡΠΊΠΈΠΉ «Π’ΠΎΠΏ-N + ΠΡΡΠ³ΠΈΠ΅» Π² ΡΠ²ΠΎΠ΄Π½ΠΎΠΉ ΡΠ°Π±Π»ΠΈΡΠ΅
ΠΠ°ΠΊ ΠΏΡΠΈ ΠΏΠΎΠΌΠΎΡΠΈ Π·Π°ΠΏΡΠΎΡΠ° Power Query ΡΠ΅Π°Π»ΠΈΠ·ΠΎΠ²Π°ΡΡ Π² ΡΠ²ΠΎΠ΄Π½ΠΎΠΉ ΡΠ°Π±Π»ΠΈΡΠ΅ Π²ΡΠ²ΠΎΠ΄ Π΄ΠΈΠ½Π°ΠΌΠΈΡΠ΅ΡΠΊΠΎΠ³ΠΎ «Π’ΠΎΠΏ-N + ΠΡΡΠ³ΠΈΠ΅».
ΠΡΡΡΡΠΎΠ΅ ΠΏΡΠΎΠ³Π½ΠΎΠ·ΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ Π² Microsoft Excel
ΠΠ°ΠΊ ΠΏΡΠΈ ΠΏΠΎΠΌΠΎΡΠΈ ΠΠΈΡΡΠ° ΠΡΠΎΠ³Π½ΠΎΠ·Π° Π·Π° ΠΏΠ°ΡΡ ΠΌΠΈΠ½ΡΡ ΡΡΠΎΡΠΌΠΈΡΠΎΠ²Π°ΡΡ ΠΏΠΎ ΠΈΡΡΠΎΡΠΈΡΠ΅ΡΠΊΠΈΠΌ Π΄Π°Π½Π½ΡΠΌ ΠΏΡΠΎΠ³Π½ΠΎΠ· Π½Π° Π±ΡΠ΄ΡΡΠ΅Π΅ ΠΏΠΎ ΠΌΠ΅ΡΠΎΠ΄Ρ ΡΠΊΡΠΏΠΎΠ½Π΅Π½ΡΠΈΠ°Π»ΡΠ½ΠΎΠ³ΠΎ ΡΠ³Π»Π°ΠΆΠΈΠ²Π°Π½ΠΈΡ.
ΠΡΡΡ ΠΊ ΡΠ΅ΠΊΡΡΠ΅ΠΉ ΠΊΠ½ΠΈΠ³Π΅ ΠΈ Π½ΠΎΠ²Π°Ρ ΡΡΠ½ΠΊΡΠΈΡ LET
ΠΠ°ΠΊ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΡΠΎΡΠΌΡΠ» ΠΏΠΎΠ»ΡΡΠΈΡΡ Π² ΡΡΠ΅ΠΉΠΊΠ΅ Π»ΠΈΡΡΠ° ΠΎΠ±Π½ΠΎΠ²Π»ΡΠ΅ΠΌΡΠΉ ΠΏΡΡΡ ΠΊ ΡΠ΅ΠΊΡΡΠ΅ΠΉ ΠΊΠ½ΠΈΠ³Π΅.
ΠΠΎΠ΄ΡΠΎΠ±Π½Π΅Π΅…
Π ΠΈΡΠΊ Π±Π΅Π·ΠΎΠΏΠ°ΡΠ½ΠΎΡΡΠΈ ΠΈ Π±Π»ΠΎΠΊΠΈΡΠΎΠ²ΠΊΠ° ΠΌΠ°ΠΊΡΠΎΡΠΎΠ²
ΠΠ°ΠΊ ΡΠ°Π·Π±Π»ΠΎΠΊΠΈΡΠΎΠ²Π°ΡΡ ΠΌΠ°ΠΊΡΠΎΡΡ ΠΏΡΠΈ ΠΏΠΎΡΠ²Π»Π΅Π½ΠΈΠΈ ΡΠΎΠΎΠ±ΡΠ΅Π½ΠΈΡ Π ΠΠ‘Π ΠΠΠΠΠΠΠ‘ΠΠΠ‘Π’Π, ΠΊΠΎΠ³Π΄Π° ΡΠ°ΠΉΠ» Π±ΡΠ»Π° ΡΠΊΠ°ΡΠ°Π½Π° ΠΈΠ· ΠΈΠ½ΡΠ΅ΡΠ½Π΅ΡΠ°.
Π‘Π»ΡΡΠ°Π΅ΠΌ ΠΈΠ½ΡΠ΅ΡΠ½Π΅Ρ-ΡΠ°Π΄ΠΈΠΎ Π² Excel
ΠΠ°ΠΊ Π·Π° ΠΏΠ°ΡΡ ΠΌΠΈΠ½ΡΡ ΡΠ΅Π°Π»ΠΈΠ·ΠΎΠ²Π°ΡΡ Π² Excel ΠΏΡΠΎΡΠ»ΡΡΠΈΠ²Π°Π½ΠΈΠ΅ ΠΈΠ½ΡΠ΅ΡΠ½Π΅Ρ-ΡΠ°Π΄ΠΈΠΎΡΡΠ°Π½ΡΠΈΠΉ Ρ ΠΏΠΎΠΌΠΎΡΡΡ Π²Π½Π΅Π΄ΡΠ΅Π½Π½ΠΎΠ³ΠΎ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΠ° Windows Media Player ΠΈ ΠΌΠ°ΠΊΡΠΎΡΠ° Π² Π΄Π²Π΅ ΡΡΡΠΎΠΊΠΈ.
ΠΠΎΡΠΈΠ·ΠΎΠ½ΡΠ°Π»ΡΠ½Π°Ρ ΡΠΈΠ»ΡΡΡΠ°ΡΠΈΡ ΡΡΠΎΠ»Π±ΡΠΎΠ² Π² Excel
Π’ΡΠΈ ΡΠΏΠΎΡΠΎΠ±Π° ΡΠ΅Π°Π»ΠΈΠ·ΠΎΠ²Π°ΡΡ Π³ΠΎΡΠΈΠ·ΠΎΠ½ΡΠ°Π»ΡΠ½ΡΡ ΡΠΈΠ»ΡΡΡΠ°ΡΠΈΡ ΡΡΠΎΠ»Π±ΡΠΎΠ², ΠΊΠΎΡΠΎΡΠ°Ρ ΠΈΠ·Π½Π°ΡΠ°Π»ΡΠ½ΠΎ ΠΎΡΡΡΡΡΡΠ²ΡΠ΅Ρ Π² Microsoft Excel: Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΡΡΠ½ΠΊΡΠΈΠΈ Π€ΠΠΠ¬Π’Π , Π·Π°ΠΏΡΠΎΡΠ° Power Query + ΡΠ²ΠΎΠ΄Π½Π°Ρ ΡΠ°Π±Π»ΠΈΡΠ° ΠΈ ΠΌΠ°ΠΊΡΠΎΡΠΎΠΌ Π½Π° VBA.
ΠΠ΅ΡΠ΅ΠΊΠ»ΡΡΠ΅Π½ΠΈΠ΅ Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΠΉ Π² ΡΠ²ΠΎΠ΄Π½ΠΎΠΉ ΡΠ°Π±Π»ΠΈΡΠ΅ ΡΡΠ΅Π·Π°ΠΌΠΈ
ΠΠ°ΠΊ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΡΡΠ΅Π·Ρ (Π³ΡΠ°ΡΠΈΡΠ΅ΡΠΊΠΈΠ΅ ΠΊΠ½ΠΎΠΏΠΊΠΈ) Π΄Π»Ρ ΠΏΠ΅ΡΠ΅ΠΊΠ»ΡΡΠ΅Π½ΠΈΡ ΡΠ΅ΠΆΠΈΠΌΠΎΠ² Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΠΉ (ΡΡΠΌΠΌΠ°, ΡΡΠ΅Π΄Π½Π΅Π΅, ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΠΈ Ρ.Π΄.) Π² ΡΠ²ΠΎΠ΄Π½ΠΎΠΉ ΡΠ°Π±Π»ΠΈΡΠ΅ ΠΏΠΎ ΠΌΠΎΠ΄Π΅Π»ΠΈ Π΄Π°Π½Π½ΡΡ Power Pivot.
ΠΠΎΠΏΠΈΡΠΎΠ²Π°ΡΡ ΡΡΠΌΠΌΡ Π²ΡΠ΄Π΅Π»Π΅Π½Π½ΡΡ ΡΡΠ΅Π΅ΠΊ Π² ΠΡΡΠ΅Ρ ΠΎΠ±ΠΌΠ΅Π½Π°
ΠΠ°ΠΊ Π±ΡΡΡΡΠΎ ΡΠΊΠΎΠΏΠΈΡΠΎΠ²Π°ΡΡ Π² ΠΡΡΠ΅Ρ ΡΡΠΌΠΌΡ Π²ΡΠ΄Π΅Π»Π΅Π½Π½ΡΡ Π½Π° Π»ΠΈΡΡΠ΅ ΡΡΠ΅Π΅ΠΊ. Π ΡΠ°ΠΊΠΆΠ΅ Π½Π΅ ΡΠΎΠ»ΡΠΊΠΎ ΡΡΠΌΠΌΡ (ΡΡΠ΅Π΄Π½Π΅Π΅, ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΠΈ Ρ.Π΄.) ΠΈ Π½Π΅ ΡΠΎΠ»ΡΠΊΠΎ Π²ΡΠ΄Π΅Π»Π΅Π½Π½ΡΡ (ΡΠΎΠ»ΡΠΊΠΎ Π²ΠΈΠ΄ΠΈΠΌΡΡ , ΡΠ΄ΠΎΠ²Π»Π΅ΡΠ²ΠΎΡΡΡΡΠΈΡ Π·Π°Π΄Π°Π½Π½ΡΠΌ ΡΡΠ»ΠΎΠ²ΠΈΡΠΌ ΠΈ Ρ.Π΄.)
ΠΠ°ΠΊ ΠΏΡΠ°Π²ΠΈΠ»ΡΠ½ΠΎ ΡΠ°Π·Π²ΠΎΡΠ°ΡΠΈΠ²Π°ΡΡ Π²Π»ΠΎΠΆΠ΅Π½Π½ΡΠ΅ ΡΠ°Π±Π»ΠΈΡΡ Π² Power Query
ΠΠ°ΠΊ ΠΈΠ·Π±Π΅ΠΆΠ°ΡΡ ΠΏΡΠΎΠ±Π»Π΅ΠΌ ΠΏΡΠΈ ΡΠ°Π·Π²ΠΎΡΠ°ΡΠΈΠ²Π°Π½ΠΈΠΈ Π²Π»ΠΎΠΆΠ΅Π½Π½ΡΡ ΡΠ°Π±Π»ΠΈΡ Π² Power Query, Π΅ΡΠ»ΠΈ Π² ΠΈΡΡ ΠΎΠ΄Π½ΡΡ Π΄Π°Π½Π½ΡΡ Π΄ΠΎΠ±Π°Π²Π»ΡΡΡΡΡ ΠΈΠ»ΠΈ ΡΠ΄Π°Π»ΡΡΡΡΡ ΡΡΠΎΠ»Π±ΡΡ.
ΠΠΎΠ΄Π΅Π»ΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ Π»ΠΎΡΠ΅ΡΠ΅ΠΈ Π² Excel
Π‘ΡΠΈΡΠ°Π΅ΠΌ Π²Π΅ΡΠΎΡΡΠ½ΠΎΡΡΡ Π²ΡΠΈΠ³ΡΡΡΠ° Π² Π»ΠΎΡΠ΅ΡΠ΅Ρ, ΡΠ°ΡΡΠΎΡΡ Π²ΡΠΏΠ°Π΄Π΅Π½ΠΈΡ ΡΠ°ΡΠΎΠ² ΠΈ ΠΌΠΎΠ΄Π΅Π»ΠΈΡΡΠ΅ΠΌ ΠΈΠ³ΡΡ ΠΏΠΎ ΡΠ°Π·Π»ΠΈΡΠ½ΡΠΌ ΡΡΡΠ°ΡΠ΅Π³ΠΈΡΠΌ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΠΌΠ°ΠΊΡΠΎΡΠ°.
Π‘ΡΠΎΠ»Π±Π΅Ρ ΠΈΠ· ΠΏΡΠΈΠΌΠ΅ΡΠΎΠ² — ΠΈΡΠΊΡΡΡΠ²Π΅Π½Π½ΡΠΉ ΠΈΠ½ΡΠ΅Π»Π»Π΅ΠΊΡ Π² Power Query
ΠΠΎΠ΄ΡΠΎΠ±Π½ΡΠΉ ΡΠ°Π·Π±ΠΎΡ ΠΈΠ½ΡΡΡΡΠΌΠ΅Π½ΡΠ° Π‘ΡΠΎΠ»Π±Π΅Ρ ΠΈΠ· ΠΏΡΠΈΠΌΠ΅ΡΠΎΠ² (Column from Examples), Π°Π²ΡΠΎΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΈ ΠΏΠΎΠ΄Π±ΠΈΡΠ°ΡΡΠ΅Π³ΠΎ ΡΠΎΡΠΌΡΠ»Ρ Π΄Π»Ρ ΠΏΡΠ΅ΠΎΠ±ΡΠ°Π·ΠΎΠ²Π°Π½ΠΈΡ Π²Π°ΡΠΈΡ Π΄Π°Π½Π½ΡΡ ΠΏΠΎ Π·Π°Π΄Π°Π½Π½ΠΎΠΌΡ ΠΎΠ±ΡΠ°Π·ΡΡ.
ΠΠΈΠ°Π³ΡΠ°ΠΌΠΌΠ° ΠΏΠΎ Π²ΡΠ΄Π΅Π»Π΅Π½Π½ΠΎΠΉ ΡΡΠ΅ΠΉΠΊΠ΅
ΠΠ°ΠΊ ΠΏΠΎΡΡΡΠΎΠΈΡΡ Π΄ΠΈΠ°Π³ΡΠ°ΠΌΠΌΡ, Π³Π΄Π΅ Π±ΡΠ΄ΡΡ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°ΡΡΡΡ Π΄Π°Π½Π½ΡΠ΅ ΠΈΠ· ΡΠΎΠΉ ΡΡΡΠΎΠΊΠΈ, Π³Π΄Π΅ ΡΠ΅ΠΉΡΠ°Ρ ΡΡΠΎΠΈΡ Π°ΠΊΡΠΈΠ²Π½Π°Ρ ΡΡΠ΅ΠΉΠΊΠ°.
Π‘Π±ΠΎΡΠΊΠ° ΡΠ°Π·Π½ΠΎΡΠΎΡΠΌΠ°ΡΠ½ΡΡ ΡΠ°Π±Π»ΠΈΡ Ρ ΠΎΠ΄Π½ΠΎΠ³ΠΎ Π»ΠΈΡΡΠ° Π² Power Query
ΠΠ°ΠΊ ΡΠΎΠ±ΡΠ°ΡΡ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΎ ΡΠ°Π·Π½ΠΎΡΠΎΡΠΌΠ°ΡΠ½ΡΡ ΠΏΡΠΎΡΡΡΡ (Π½Π΅ ΡΠΌΠ½ΡΡ !) ΡΠ°Π±Π»ΠΈΡ Ρ ΠΎΠ΄Π½ΠΎΠ³ΠΎ Π»ΠΈΡΡΠ° Excel, Π° Π·Π°ΡΠ΅ΠΌ ΡΠ°Π·Π²Π΅ΡΠ½ΡΡΡ ΠΈΡ Π² ΠΏΠ»ΠΎΡΠΊΠΈΠ΅ (Π½ΠΎΡΠΌΠ°Π»ΠΈΠ·ΠΎΠ²Π°ΡΡ) ΠΈ ΡΠΎΠ΅Π΄ΠΈΠ½ΠΈΡΡ Π² Π΅Π΄ΠΈΠ½ΠΎΠ΅ ΡΠ΅Π»ΠΎΠ΅ Ρ ΠΏΠΎΠΌΠΎΡΡΡ Power Query.
ΠΠΎΠ΄ΡΠΎΠ±Π½Π΅Π΅…
ΠΠ°ΡΠ°ΡΡΠ°ΡΡΠΈΠΉ ΠΈΡΠΎΠ³ Π² Excel
Π§ΡΠΎ ΡΠ°ΠΊΠΎΠ΅ Π½Π°ΡΠ°ΡΡΠ°ΡΡΠΈΠ΅ ΠΈΡΠΎΠ³ΠΈ (Running Totals) ΠΈ ΠΊΠ°ΠΊ Π²ΡΡΠΈΡΠ»ΠΈΡΡ Π² Microsoft Excel ΡΠ°Π·Π½ΡΠΌΠΈ ΡΠΏΠΎΡΠΎΠ±Π°ΠΌΠΈ: ΡΠΎΡΠΌΡΠ»Π°ΠΌΠΈ, Π² ΡΠ²ΠΎΠ΄Π½ΠΎΠΉ ΡΠ°Π±Π»ΠΈΡΠ΅, Π² Π·Π°ΠΏΡΠΎΡΠ΅ Power Query.
LAMBDA — Π½ΠΎΠ²Π°Ρ ΡΡΠΏΠ΅ΡΡΡΠ½ΠΊΡΠΈΡ Excel
ΠΠΎΠ΄ΡΠΎΠ±Π½ΡΠΉ ΡΠ°Π·Π±ΠΎΡ Ρ ΠΏΡΠΈΠΌΠ΅ΡΠ°ΠΌΠΈ Π½ΠΎΠ²ΠΎΠΉ ΡΡΠ½ΠΊΡΠΈΠΈ LAMBDA, ΠΏΠΎΠ·Π²ΠΎΠ»ΡΡΡΠ΅ΠΉ ΡΠΎΠ·Π΄Π°Π²Π°ΡΡ ΡΠ²ΠΎΠΈ ΡΠΎΠ±ΡΡΠ²Π΅Π½Π½ΡΠ΅ ΡΡΠ½ΠΊΡΠΈΠΈ Π² Microsoft Excel (Π²ΠΊΠ»ΡΡΠ°Ρ ΡΠ΅Π°Π»ΠΈΠ·Π°ΡΠΈΡ Π΄Π°ΠΆΠ΅ ΡΠ΅ΠΊΡΡΡΠΈΠ²Π½ΡΡ Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΠΉ).
Π‘ΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΠ΅ ΠΈΡΡΠΎΡΠΈΠΈ ΠΎΠ±Π½ΠΎΠ²Π»Π΅Π½ΠΈΠΉ Π·Π°ΠΏΡΠΎΡΠΎΠ² Power Query
ΠΠ°ΠΊ ΠΏΡΠΈ ΠΎΠ±Π½ΠΎΠ²Π»Π΅Π½ΠΈΠΈ Π·Π°ΠΏΡΠΎΡΠΎΠ² Power Query ΡΠΎΡ ΡΠ°Π½ΡΡΡ ΡΡΠ°ΡΡΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΡ Π΄Π»Ρ ΠΈΡΡΠΎΡΠΈΠΈ, Π° Π½Π΅ Π·Π°ΠΌΠ΅Π½ΡΡΡ ΠΈΡ Π½Π° Π½ΠΎΠ²ΡΠ΅.
ΠΠ΅Π»Π΅Π½ΠΈΠ΅ ΡΠ»ΠΈΠΏΡΠ΅Π³ΠΎΡΡ ΡΠ΅ΠΊΡΡΠ° ΡΡΠ½ΠΊΡΠΈΠ΅ΠΉ Π€ΠΠΠ¬Π’Π .XML
ΠΡΡΡΡΡΠΉ ΡΠΏΠΎΡΠΎΠ± ΡΠ°Π·Π΄Π΅Π»ΠΈΡΡ ΡΠ»ΠΈΠΏΡΠΈΠ΅ΡΡ Π΄Π°Π½Π½ΡΠ΅ Π½Π° Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΎ ΡΡΠ΅Π΅ΠΊ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΡΡΠ½ΠΊΡΠΈΠΈ Π€ΠΠΠ¬Π’Π .XML, ΠΏΡΠ΅Π²ΡΠ°ΡΠΈΠ² ΠΈΡΡ ΠΎΠ΄Π½ΡΠΉ ΡΠ΅ΠΊΡΡ Π² XML-ΠΊΠΎΠ΄.
ΠΠ±Π½ΠΎΠ²Π»ΡΠ΅ΠΌΡΠΉ ΠΊΡΡΡ Π²Π°Π»ΡΡ Π² Excel
ΠΠ°ΠΊ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΡΡΠ½ΠΊΡΠΈΠΈ ΠΠΠΠ‘ΠΠ£ΠΠΠ (WEBSERVICE) ΠΈ Π€ΠΠΠ¬Π’Π .XML (FILTERXML) Π΄Π»Ρ Π·Π°Π³ΡΡΠ·ΠΊΠΈ ΠΌΠ³Π½ΠΎΠ²Π΅Π½Π½ΠΎ ΠΎΠ±Π½ΠΎΠ²Π»ΡΠ΅ΠΌΠΎΠ³ΠΎ ΠΊΡΡΡΠ° Π»ΡΠ±ΠΎΠΉ Π²Π°Π»ΡΡΡ Π½Π° Π»ΡΠ±ΠΎΠΉ ΠΈΠ½ΡΠ΅ΡΠ²Π°Π» Π΄Π°Ρ.
Π‘ΠΈΡΡΠ΅ΠΌΠ° ΡΡΠ΅ΡΠ° Π·Π°ΠΊΠ°Π·ΠΎΠ² Π½Π° Google Calendar ΠΈ Excel
ΠΠ°ΠΊ Π²Π΅ΡΡΠΈ ΡΡΠ΅Ρ Π·Π°ΠΊΠ°Π·ΠΎΠ² Π² Google-ΠΊΠ°Π»Π΅Π½Π΄Π°ΡΠ΅ ΠΈ Π·Π°Π³ΡΡΠΆΠ°ΡΡ ΠΏΠΎΡΠΎΠΌ ΠΎΡΡΡΠ΄Π° Π΄Π°Π½Π½ΡΠ΅ Π² Excel Ρ ΠΎΠ±Π½ΠΎΠ²Π»Π΅Π½ΠΈΠ΅ΠΌ ΡΠ΅ΡΠ΅Π· Power Query.
ΠΠΈΠ½Π°ΠΌΠΈΡΠ΅ΡΠΊΠΈΠ΅ Π³ΠΈΠΏΠ΅ΡΡΡΡΠ»ΠΊΠΈ ΠΌΠ΅ΠΆΠ΄Ρ ΡΠ°Π±Π»ΠΈΡΠ°ΠΌΠΈ
ΠΠ°ΠΊ ΡΠ΄Π΅Π»Π°ΡΡ ΡΠ΄ΠΎΠ±Π½ΡΠ΅ Π΄ΠΈΠ½Π°ΠΌΠΈΡΠ΅ΡΠΊΠΈΠ΅ Π³ΠΈΠΏΠ΅ΡΡΡΡΠ»ΠΊΠΈ, ΡΡΠΎΠ±Ρ Π±ΡΡΡΡΠΎ ΠΏΠ΅ΡΠ΅Ρ ΠΎΠ΄ΠΈΡΡ ΠΈΠ· ΠΎΠ΄Π½ΠΎΠΉ ΡΠ°Π±Π»ΠΈΡΡ Π² Π΄ΡΡΠ³ΡΡ — ΠΊ Π·Π°Π΄Π°Π½Π½ΠΎΠΌΡ Π·Π½Π°ΡΠ΅Π½ΠΈΡ Π² ΡΡΡΠΎΠΊΠ΅ ΠΈ ΡΡΠΎΠ»Π±ΡΠ΅. Π§ΡΠΎ-ΡΠΎ ΡΠΈΠΏΠ° ΠΠΠ , Π½ΠΎ Π²ΠΎΠ·Π²ΡΠ°ΡΠ°ΡΡΠ°Ρ ΡΡΡΠ»ΠΊΡ, Π° Π½Π΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅.
ΠΠΎΠΈΡΠΊ ΠΊΠ»ΡΡΠ΅Π²ΡΡ ΡΠ»ΠΎΠ² Π² ΡΠ΅ΠΊΡΡΠ΅
ΠΠ°ΠΊ Π±ΡΡΡΡΠΎ Π½Π°ΠΉΡΠΈ Π² ΠΈΡΡ ΠΎΠ΄Π½ΠΎΠΌ ΡΠ΅ΠΊΡΡΠ΅ Π²ΡΠ΅ ΠΊΠ»ΡΡΠ΅Π²ΡΠ΅ ΡΠ»ΠΎΠ²Π° ΠΈΠ· ΡΠΏΡΠ°Π²ΠΎΡΠ½ΠΈΠΊΠ° ΠΈ Π²ΡΠ²Π΅ΡΡΠΈ ΠΈΡ ΡΡΠ΄ΠΎΠΌ Ρ ΠΊΠ°ΠΆΠ΄ΠΎΠΉ ΡΡΠ΅ΠΉΠΊΠΎΠΉ Π΄Π°Π½Π½ΡΡ ΡΠ΅ΡΠ΅Π· Π·Π°Π΄Π°Π½Π½ΡΠΉ ΡΠΈΠΌΠ²ΠΎΠ»-ΡΠ°Π·Π΄Π΅Π»ΠΈΡΠ΅Π»Ρ. ΠΠΎΠΏΡΡΠ½ΠΎ ΡΠ°Π·Π±ΠΈΡΠ°Π΅ΠΌΡΡ Ρ Π±ΡΡΠ΅ΡΠΈΠ·Π°ΡΠΈΠ΅ΠΉ Π·Π°ΠΏΡΠΎΡΠΎΠ² Π² Power Query Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΡΡΠ½ΠΊΡΠΈΠΈ Table.Buffer Π΄Π»Ρ ΡΡΠΊΠΎΡΠ΅Π½ΠΈΡ ΠΎΠ±ΡΠ°Π±ΠΎΡΠΊΠΈ.
Π‘Π±ΠΎΡΠΊΠ° ΡΠ°Π±Π»ΠΈΡ Ρ ΡΠ°Π·Π½ΡΠΌΠΈ ΡΠ°ΠΏΠΊΠ°ΠΌΠΈ ΠΈΠ· Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΈΡ ΠΊΠ½ΠΈΠ³
ΠΠ°ΠΊ ΠΏΡΠΈ ΠΏΠΎΠΌΠΎΡΠΈ Power Query ΡΠΎΠ±ΡΠ°ΡΡ Π΄Π°Π½Π½ΡΠ΅ ΠΈΠ· Π²ΡΠ΅Ρ ΡΠ°ΠΉΠ»ΠΎΠ² Π·Π°Π΄Π°Π½Π½ΠΎΠΉ ΠΏΠ°ΠΏΠΊΠΈ, Π΅ΡΠ»ΠΈ Π·Π°Π³ΠΎΠ»ΠΎΠ²ΠΊΠΈ ΡΡΠΎΠ»Π±ΡΠΎΠ² Π² Π½ΠΈΡ ΠΎΡΠ»ΠΈΡΠ°ΡΡΡΡ.
Π Π°Π·Π΄Π΅Π»Π΅Π½ΠΈΠ΅ ΡΠ°Π±Π»ΠΈΡΡ ΠΏΠΎ Π»ΠΈΡΡΠ°ΠΌ
ΠΠ°ΠΊ ΡΠ°Π·ΠΎΠ±ΡΠ°ΡΡ Π΄Π°Π½Π½ΡΠ΅ ΠΈΠ· ΠΎΠ΄Π½ΠΎΠΉ ΡΠ°Π±Π»ΠΈΡΡ ΡΡΠ°Π·Ρ Π½Π° Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΎ Π»ΠΈΡΡΠΎΠ² ΠΏΠΎ Π·Π°Π΄Π°Π½Π½ΠΎΠΌΡ ΠΊΡΠΈΡΠ΅ΡΠΈΡ. Π Π°Π·Π±ΠΈΡΠ°Π΅ΠΌ Π΄Π²Π° ΡΠΏΠΎΡΠΎΠ±Π° — Ρ ΠΎΠ±Π½ΠΎΠ²Π»Π΅Π½ΠΈΠ΅ΠΌ (ΡΠ΅ΡΠ΅Π· Power Query) ΠΈ Π±Π΅Π· (ΡΠΎΠ»ΡΠΊΠΎ VBA).
ΠΠ΄Π½ΠΎΠ²ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ ΡΠΈΠ»ΡΡΡΠ°ΡΠΈΡ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΈΡ ΡΠ²ΠΎΠ΄Π½ΡΡ ΡΠ°Π±Π»ΠΈΡ
ΠΠ°ΠΊ ΡΠΈΠ»ΡΡΡΠΎΠ²Π°ΡΡ ΡΡΠ°Π·Ρ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΎ ΡΠ²ΠΎΠ΄Π½ΡΡ ΡΠ°Π±Π»ΠΈΡ Π² Π΄Π°ΡΠ±ΠΎΡΠ΄Π΅ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΠΎΠ±ΡΠ΅Π³ΠΎ ΡΡΠ΅Π·Π°. Π Π°Π·Π±ΠΎΡ 2 ΡΠΏΠΎΡΠΎΠ±ΠΎΠ² Π΄Π»Ρ ΡΠ²ΠΎΠ΄Π½ΡΡ , ΠΏΠΎΡΡΡΠΎΠ΅Π½Π½ΡΡ ΠΏΠΎ ΠΎΠ΄Π½ΠΎΠΌΡ ΠΈ ΠΏΠΎ ΡΠ°Π·Π½ΡΠΌ ΠΈΡΡΠΎΡΠ½ΠΈΠΊΠ°ΠΌ Π΄Π°Π½Π½ΡΡ .
ΠΠ°ΡΡΠΈΠ½ΠΊΠΈ ΠΊΠ°ΠΊ ΠΏΠΎΠ΄ΠΏΠΈΡΠΈ Π½Π° Π΄ΠΈΠ°Π³ΡΠ°ΠΌΠΌΠ΅
ΠΠ°ΠΊ Π΄ΠΎΠ±Π°Π²ΠΈΡΡ Π½Π° Π΄ΠΈΠ°Π³ΡΠ°ΠΌΠΌΡ ΠΈΠ·ΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΡ (Π»ΠΎΠ³ΠΎΡΠΈΠΏΡ, Π±ΡΠ΅Π½Π΄Ρ, ΡΠ»Π°Π³ΠΈ, ΡΠΎΡΠΎΠ³ΡΠ°ΡΠΈΠΈ) Π² ΠΊΠ°ΡΠ΅ΡΡΠ²Π΅ ΠΏΠΎΠ΄ΠΏΠΈΡΠ΅ΠΉ Π΄Π°Π½Π½ΡΡ .
ΠΡΠ΅ΠΈΠΌΡΡΠ΅ΡΡΠ²Π° ΡΠ²ΠΎΠ΄Π½ΠΎΠΉ ΠΏΠΎ ΠΠΎΠ΄Π΅Π»ΠΈ ΠΠ°Π½Π½ΡΡ
ΠΠ°ΠΊ ΠΈ Π·Π°ΡΠ΅ΠΌ ΡΡΡΠΎΠΈΡΡ ΡΠ²ΠΎΠ΄Π½ΡΡ Π² Excel ΠΏΠΎ ΠΠΎΠ΄Π΅Π»ΠΈ ΠΠ°Π½Π½ΡΡ (Data Model) ΠΈ ΠΊΠ°ΠΊΠΈΠ΅ ΠΏΡΠ΅ΠΈΠΌΡΡΠ΅ΡΡΠ²Π° ΡΡΠΎ Π΄Π°ΡΡ ΠΏΠΎ ΡΡΠ°Π²Π½Π΅Π½ΠΈΡ Ρ ΠΊΠ»Π°ΡΡΠΈΡΠ΅ΡΠΊΠΎΠΉ ΡΠ²ΠΎΠ΄Π½ΠΎΠΉ ΡΠ°Π±Π»ΠΈΡΠ΅ΠΉ?
ΠΠΎΠΈΡΠΊ ΠΏΠΎΡΠ»Π΅Π΄Π½Π΅Π³ΠΎ Π²Ρ ΠΎΠΆΠ΄Π΅Π½ΠΈΡ (ΠΈΠ½Π²Π΅ΡΡΠΈΡΠΎΠ²Π°Π½Π½ΡΠΉ ΠΠΠ )
ΠΡΠ΅ ΡΡΠ°Π½Π΄Π°ΡΡΠ½ΡΠ΅ ΡΡΠ½ΠΊΡΠΈΠΈ ΠΏΠΎΠΈΡΠΊΠ° (ΠΠΠ , ΠΠΠ , ΠΠΠΠ‘ΠΠΠΠ ΠΈ Ρ. Π΄.) ΠΈΡΡΡ ΡΠΎΠ»ΡΠΊΠΎ ΡΠ²Π΅ΡΡ Ρ-Π²Π½ΠΈΠ· ΠΈ ΡΠ»Π΅Π²Π°-Π½Π°ΠΏΡΠ°Π²ΠΎ. Π§ΡΠΎ ΠΆΠ΅ Π΄Π΅Π»Π°ΡΡ, Π΅ΡΠ»ΠΈ Π½ΡΠΆΠ½ΠΎ ΡΠ΅Π°Π»ΠΈΠ·ΠΎΠ²Π°ΡΡ ΠΎΠ±ΡΠ°ΡΠ½ΡΠΉ ΠΏΠΎΠΈΡΠΊ ΡΠΎΠ²ΠΏΠ°Π΄Π΅Π½ΠΈΠΉ, Ρ.Π΅. ΠΈΡΠΊΠ°ΡΡ Π½Π΅ ΠΏΠ΅ΡΠ²ΠΎΠ΅, Π° ΠΏΠΎΡΠ»Π΅Π΄Π½Π΅Π΅ Π²Ρ ΠΎΠΆΠ΄Π΅Π½ΠΈΠ΅ ΡΡΠ΅Π±ΡΠ΅ΠΌΠΎΠ³ΠΎ Π·Π½Π°ΡΠ΅Π½ΠΈΡ Π² ΡΠΏΠΈΡΠΊΠ΅?
ΠΠ°ΡΡΠΈΠ½Π³ Π½Π΅ΡΠ°Π±Π»ΠΈΡΠ½ΡΡ Π΄Π°Π½Π½ΡΡ Ρ ΡΠ°ΠΉΡΠΎΠ²
ΠΠΌΠΏΠΎΡΡ Π½Π΅ΡΠ°Π±Π»ΠΈΡΠ½ΡΡ Π΄Π°Π½Π½ΡΡ , ΠΊΠΎΡΠΎΡΡΠ΅ ΠΎΠ±ΡΡΠ½ΠΎ «Π½Π΅ Π²ΠΈΠ΄ΠΈΡ» Power Query, Π½Π° ΠΏΡΠΈΠΌΠ΅ΡΠ΅ ΠΏΠ°ΡΡΠΈΠ½Π³Π° ΡΠ΅Π½ ΠΈ ΡΠΎΠ²Π°ΡΠΎΠ² Ρ ΡΠ°ΠΉΡΠ° Wildberries.
Π Π°ΡΠΏΡΠ΅Π΄Π΅Π»ΡΠ΅ΠΌ ΡΠΏΠΈΡΠΎΠΊ ΠΏΠΎ Π½Π°Π±ΠΎΡΠ°ΠΌ
ΠΠ°ΠΊ ΡΠ°Π·Π΄Π΅Π»ΠΈΡΡ ΡΠΏΠΈΡΠΎΠΊ ΠΏΠΎ Π½Π°Π±ΠΎΡΠ°ΠΌ Π½Π΅ΠΎΠ΄ΠΈΠ½Π°ΠΊΠΎΠ²ΠΎΠ³ΠΎ ΡΠ°Π·ΠΌΠ΅ΡΠ° — ΡΠ°Π·Π±ΠΎΡ 3 ΡΠΏΠΎΡΠΎΠ±ΠΎΠ²: Π²ΡΡΡΠ½ΡΡ ΡΠ΅ΡΠ΅Π· ΡΠ²ΠΎΠ΄Π½ΡΡ, Π·Π°ΠΏΡΠΎΡΠΎΠΌ Π² Power Query ΠΈ ΡΡΠ½ΠΊΡΠΈΡΠΌΠΈ Π΄ΠΈΠ½Π°ΠΌΠΈΡΠ΅ΡΠΊΠΈΡ ΠΌΠ°ΡΡΠΈΠ²ΠΎΠ².
Π‘Π²ΠΎΠ΄Π½Π°Ρ ΠΏΠΎ ΡΠ°Π±Π»ΠΈΡΠ΅ Ρ ΠΌΠ½ΠΎΠ³ΠΎΡΡΡΠΎΡΠ½ΠΎΠΉ ΡΠ°ΠΏΠΊΠΎΠΉ
ΠΠ°ΠΊ ΠΏΠΎΡΡΡΠΎΠΈΡΡ ΡΠ²ΠΎΠ΄Π½ΡΡ ΡΠ°Π±Π»ΠΈΡΡ ΠΏΠΎ ΠΈΡΡ ΠΎΠ΄Π½ΡΠΌ Π΄Π°Π½Π½ΡΠΌ Ρ ΠΌΠ½ΠΎΠ³ΠΎΡΡΡΠΎΡΠ½ΠΎΠΉ ΡΠ°ΠΏΠΊΠΎΠΉ, ΠΏΡΠ΅ΠΎΠ±ΡΠ°Π·ΠΎΠ²Π°Π² ΠΈΡ Π² Π½ΠΎΡΠΌΠ°Π»ΡΠ½ΡΠΉ Π²ΠΈΠ΄ Ρ ΠΏΠΎΠΌΠΎΡΡΡ Π½Π°Π΄ΡΡΡΠΎΠΉΠΊΠΈ Power Query.
ΠΡΠΏΠ°Π΄Π°ΡΡΠΈΠΉ ΡΠΏΠΈΡΠΎΠΊ Ρ ΠΏΠΎΠΊΠ°Π·ΠΎΠΌ ΠΈΠ·ΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΠΉ
ΠΠ°ΠΊ ΡΠ΄Π΅Π»Π°ΡΡ Π² Excel 2013 ΠΈ Π½ΠΎΠ²Π΅Π΅ Π²ΡΠΏΠ°Π΄Π°ΡΡΠΈΠΉ ΡΠΏΠΈΡΠΎΠΊ, ΠΏΡΠΈ Π²ΡΠ±ΠΎΡΠ΅ ΠΈΠ· ΠΊΠΎΡΠΎΡΠΎΠ³ΠΎ ΡΡΠ΄ΠΎΠΌ Π±ΡΠ΄Π΅Ρ ΠΏΠΎΡΠ²Π»ΡΡΡΡΡ ΠΈΠ·ΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΠ΅ Π²ΡΠ±ΡΠ°Π½Π½ΠΎΠ³ΠΎ ΠΎΠ±ΡΠ΅ΠΊΡΠ° (ΡΠΎΠ²Π°ΡΠ°, ΡΠ΅Π»ΠΎΠ²Π΅ΠΊΠ° ΠΈ Ρ.Π΄.)
ΠΠ°ΠΊ ΠΏΡΠ°Π²ΠΈΠ»ΡΠ½ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΡΡΠΈΠ»ΠΈ Π² Excel
ΠΠ°ΡΠ΅ΠΌ (Π½Π° ΡΠ°ΠΌΠΎΠΌ Π΄Π΅Π»Π΅!) Π½ΡΠΆΠ½Ρ Π‘ΡΠΈΠ»ΠΈ Π² Excel ΠΈ ΠΊΠ°ΠΊ ΠΏΡΠ°Π²ΠΈΠ»ΡΠ½ΠΎ ΠΈΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ Π΄Π»Ρ Π±ΡΡΡΡΠΎΠ³ΠΎ ΡΠΎΡΠΌΠ°ΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ Π²Π°ΡΠΈΡ Π΄Π°Π½Π½ΡΡ .
ΠΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΠ΅ ΡΠΈΡΠ΅Π», ΠΏΡΠ΅Π²ΡΠ°ΡΠΈΠ²ΡΠΈΡ ΡΡ Π² Π΄Π°ΡΡ
Π’ΡΠΈ ΡΠΏΠΎΡΠΎΠ±Π° ΠΈΡΠΏΡΠ°Π²ΠΈΡΡ ΡΠΈΡΠ»Π°, ΡΠ»ΡΡΠ°ΠΉΠ½ΠΎ ΠΏΡΠ΅Π²ΡΠ°ΡΠΈΠ²ΡΠΈΠ΅ΡΡ Π² Π΄Π°ΡΡ Π² Microsoft Excel.
ΠΠ°ΡΠ΅Π»ΡΠ½Π°Ρ Π΄ΠΈΠ°Π³ΡΠ°ΠΌΠΌΠ° Π² Excel
2 ΡΠΏΠΎΡΠΎΠ±Π° ΠΏΠΎΡΡΡΠΎΠΈΡΡ Π² Excel Π²Π°ΡΠ΅Π»ΡΠ½ΡΡ Π΄ΠΈΠ°Π³ΡΠ°ΠΌΠΌΡ (waffle-chart) Π΄Π»Ρ Π½Π°Π³Π»ΡΠ΄Π½ΠΎΠΉ Π²ΠΈΠ·ΡΠ°Π»ΠΈΠ·Π°ΡΠΈΠΈ ΠΏΡΠΎΠ³ΡΠ΅ΡΡΠ° ΠΏΠΎ ΠΏΡΠΎΠ΅ΠΊΡΡ ΠΈΠ»ΠΈ Π»ΡΠ±ΡΡ Π΄ΡΡΠ³ΠΈΡ KPI.
ΠΠ°ΡΡΠΎΠ²Π°Ρ Π·Π°ΠΌΠ΅Π½Π° ΡΠ΅ΠΊΡΡΠ° Π² Power Query ΡΡΠ½ΠΊΡΠΈΠ΅ΠΉ List.Accumulate
ΠΠ°ΠΊ Π·Π°ΠΌΠ΅Π½ΠΈΡΡ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²ΠΎ ΠΎΠ΄Π½ΠΈΡ ΡΡΠ°Π³ΠΌΠ΅Π½ΡΠΎΠ² ΡΠ΅ΠΊΡΡΠ° Π½Π° Π΄ΡΡΠ³ΠΈΠ΅ ΠΏΠΎ ΡΠΏΡΠ°Π²ΠΎΡΠ½ΠΈΠΊΡ Π² Power Query Ρ ΠΏΠΎΠΌΠΎΡΡΡ Ρ ΠΈΡΡΠΎΠΉ ΡΡΠ½ΠΊΡΠΈΠΈ List.Accumulate.
ΠΠ°ΡΡΠΎΠ²Π°Ρ Π·Π°ΠΌΠ΅Π½Π° ΡΠ΅ΠΊΡΡΠ° ΡΠΎΡΠΌΡΠ»Π°ΠΌΠΈ
ΠΠ°ΠΊ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΡΠΎΡΠΌΡΠ»Ρ ΠΏΡΠΎΠΈΠ·Π²Π΅ΡΡΠΈ ΠΌΠ°ΡΡΠΎΠ²ΡΡ Π·Π°ΠΌΠ΅Π½Ρ ΠΎΠ΄Π½ΠΎΠ³ΠΎ ΡΠ΅ΠΊΡΡΠ° (ΠΈΠ»ΠΈ Π΅Π³ΠΎ ΡΡΠ°Π³ΠΌΠ΅Π½ΡΠ°) Π½Π° Π΄ΡΡΠ³ΠΎΠΉ ΠΏΠΎ ΠΈΠΌΠ΅ΡΡΠ΅ΠΉΡΡ ΡΠ°Π±Π»ΠΈΡΠ΅ ΠΏΠΎΠ΄ΡΡΠ°Π½ΠΎΠ²ΠΎΠΊ (ΡΠΏΡΠ°Π²ΠΎΡΠ½ΠΈΠΊΡ).
Π Π΅Π³ΡΠ»ΡΡΠ½ΡΠ΅ Π²ΡΡΠ°ΠΆΠ΅Π½ΠΈΡ (RegExp) Π² Power Query
ΠΠ°ΠΊ Π΄ΠΎΠ±Π°Π²ΠΈΡΡ ΠΏΠΎΠ΄Π΄Π΅ΡΠΆΠΊΡ ΡΠ΅Π³ΡΠ»ΡΡΠ½ΡΡ Π²ΡΡΠ°ΠΆΠ΅Π½ΠΈΠΉ (RegExp) Π² Power Query Π΄Π»Ρ ΡΠ΅Π°Π»ΠΈΠ·Π°ΡΠΈΠΈ ΠΏΠΎΠΈΡΠΊΠ° ΠΈ ΠΈΠ·Π²Π»Π΅ΡΠ΅Π½ΠΈΡ ΡΡΠ°Π³ΠΌΠ΅Π½ΡΠΎΠ² ΡΠ΅ΠΊΡΡΠ° ΠΏΠΎ Π³ΠΈΠ±ΠΊΠΈΠΌ ΡΠ°Π±Π»ΠΎΠ½Π°ΠΌ ΠΈ ΠΌΠ°ΡΠΊΠ°ΠΌ.
ΠΡΠΎΠΈΠ·Π²ΠΎΠ΄ΡΡΠ²Π΅Π½Π½ΡΠΉ ΠΊΠ°Π»Π΅Π½Π΄Π°ΡΡ Π² Excel
ΠΠ°ΠΊ ΠΏΡΠΈ ΠΏΠΎΠΌΠΎΡΠΈ Power Query ΡΠ΄Π΅Π»Π°ΡΡ Π² Excel «Π²Π΅ΡΠ½ΡΠΉ» ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΡΡΠ²Π΅Π½Π½ΡΠΉ ΠΊΠ°Π»Π΅Π½Π΄Π°ΡΡ — Π°Π²ΡΠΎΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΈ ΠΎΠ±Π½ΠΎΠ²Π»ΡΡΡΠΈΠΉΡΡ ΡΠΏΠΈΡΠΎΠΊ Π½Π΅ΡΠ°Π±ΠΎΡΠΈΡ Π΄Π½Π΅ΠΉ Π·Π° Π²ΡΠ΅ Π³ΠΎΠ΄Ρ Π΄Π»Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΡ Π² ΡΠ²ΠΎΠΈΡ ΡΠ°ΡΡΠ΅ΡΠ°Ρ .
ΠΠ±ΠΌΠ°Π½ΡΠΈΠ²Π°Ρ ΠΏΡΠΎΡΡΠΎΡΠ° ΡΡΠ½ΠΊΡΠΈΠΈ ΠΠΠ‘ΠΠΠ (SEQUENCE)
Π Π°Π·Π±ΠΎΡ Π½Π° ΠΏΡΠΈΠΌΠ΅ΡΠ°Ρ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΠ΅ΠΉ Π½ΠΎΠ²ΠΎΠΉ ΡΡΠ½ΠΊΡΠΈΠΈ ΠΠΠ‘ΠΠΠ (SEQUENCE) — Π³Π΅Π½Π΅ΡΠ°ΡΠΎΡΠ° ΡΠΈΡΠ»ΠΎΠ²ΡΡ ΠΏΠΎΡΠ»Π΅Π΄ΠΎΠ²Π°ΡΠ΅Π»ΡΠ½ΠΎΡΡΠ΅ΠΉ ΠΈΠ· ΠΏΠΎΡΠ»Π΅Π΄Π½Π΅Π³ΠΎ ΠΎΠ±Π½ΠΎΠ²Π»Π΅Π½ΠΈΡ Office 365 Ρ Π΄ΠΈΠ½Π°ΠΌΠΈΡΠ΅ΡΠΊΠΈΠΌΠΈ ΠΌΠ°ΡΡΠΈΠ²Π°ΠΌΠΈ.
ΠΠΌΠΏΠΎΡΡ Π΄Π°Π½Π½ΡΡ ΠΈΠ· OneDrive ΠΈ SharePoint Π² Power Query / BI
ΠΠ°ΠΊ Π·Π°Π³ΡΡΠ·ΠΈΡΡ ΠΎΡΠ΄Π΅Π»ΡΠ½ΡΠ΅ ΡΠ°ΠΉΠ»Ρ ΠΈΠ»ΠΈ ΡΠΎΠ΄Π΅ΡΠΆΠΈΠΌΠΎΠ΅ ΡΠ΅Π»ΠΎΠΉ ΠΏΠ°ΠΏΠΊΠΈ ΠΈΠ· ΠΎΠ±Π»Π°ΠΊΠ° OneDrive ΠΈΠ»ΠΈ SharePoint Π² ΠΌΠΎΠ΄Π΅Π»Ρ Π΄Π°Π½Π½ΡΡ Power BI ΠΈΠ»ΠΈ Π² Excel ΡΠ΅ΡΠ΅Π· Power Query.
ΠΠΠ ΠΈ ΡΠΈΡΠ»Π°-ΠΊΠ°ΠΊ-ΡΠ΅ΠΊΡΡ
ΠΠ°ΠΊ Π½Π°ΡΡΠΈΡΡ ΡΡΠ½ΠΊΡΠΈΡ ΠΠΠ (VLOOKUP) ΠΈΡΠΊΠ°ΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΡ, ΠΊΠΎΠ³Π΄Π° Π² ΠΈΡΡ ΠΎΠ΄Π½ΡΡ Π΄Π°Π½Π½ΡΡ Π²ΡΡΡΠ΅ΡΠ°ΡΡΡΡ «ΡΠΈΡΠ»Π°-ΠΊΠ°ΠΊ-ΡΠ΅ΠΊΡΡ», ΡΡΠΎ ΠΏΡΠΈΠ²ΠΎΠ΄ΠΈΡ ΠΊ ΠΎΡΠΈΠ±ΠΊΠ°ΠΌ #Π/Π.
ΠΠ»Π°Π½-ΡΠ°ΠΊΡ Π°Π½Π°Π»ΠΈΠ· Π² ΡΠ²ΠΎΠ΄Π½ΠΎΠΉ ΡΠ°Π±Π»ΠΈΡΠ΅ Ρ Power Pivot ΠΈ Power Query
ΠΠΎΡΠ°Π³ΠΎΠ²ΡΠΉ ΡΠ°Π·Π±ΠΎΡ ΡΠ΅ΡΠ΅Π½ΠΈΡ Π·Π°Π΄Π°ΡΠΈ ΠΏΠ»Π°Π½-ΡΠ°ΠΊΡ Π°Π½Π°Π»ΠΈΠ·Π° Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ΠΌ ΡΠ²ΠΎΠ΄Π½ΡΡ ΡΠ°Π±Π»ΠΈΡ, ΠΌΠΎΠ΄Π΅Π»ΠΈ Π΄Π°Π½Π½ΡΡ Power Pivot ΡΠΎ ΡΠ²ΡΠ·ΡΠΌΠΈ «ΠΌΠ½ΠΎΠ³ΠΈΠ΅-ΠΊΠΎ-ΠΌΠ½ΠΎΠ³ΠΈΠΌ», ΠΏΡΠΎΡΡΡΡ ΠΌΠ΅Ρ Π½Π° DAX ΠΈ Π΄ΠΎΠΏΠΈΠ»ΠΈΠ²Π°Π½ΠΈΠΈ Π²Ρ ΠΎΠ΄Π½ΡΡ Π΄Π°Π½Π½ΡΡ Ρ ΠΏΠΎΠΌΠΎΡΡΡ Power Query.
ΠΠΈΠ±Π»ΠΈΠΎΡΠ΅ΠΊΠ° ΠΊΠΎΠ΄ΠΎΠ² Excel VBA β ΠΏΠΎΠ»Π΅Π·Π½ΡΠ΅ ΠΌΠ°ΠΊΡΠΎΡΡ Π΄Π»Ρ Π½Π°ΡΠΈΠ½Π°ΡΡΠΈΡ
ΠΠΎΠ΄Ρ ΠΌΠ°ΠΊΡΠΎΡΠΎΠ² Excel ΠΌΠΎΠΆΠ½ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ Π΄Π»Ρ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΠ·Π°ΡΠΈΠΈ ΠΎΠ±ΡΡΠ½ΡΡ Π·Π°Π΄Π°Ρ Excel ΠΈ ΠΏΡΠ΅Π΄ΠΎΡΠ²ΡΠ°ΡΠ΅Π½ΠΈΡ ΠΈΡ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ Π²ΡΡΡΠ½ΡΡ. ΠΡΠΎ ΠΏΡΠΈΠ²ΠΎΠ΄ΠΈΡ ΠΊ ΡΠΊΠΎΠ½ΠΎΠΌΠΈΠΈ Π²ΡΠ΅ΠΌΠ΅Π½ΠΈ ΠΈ Π±ΠΎΠ»Π΅Π΅ Π½Π°Π΄Π΅ΠΆΠ½ΠΎΠΉ ΡΠ°Π±ΠΎΡΠ΅.
ΠΡΠ° Π±ΠΈΠ±Π»ΠΈΠΎΡΠ΅ΠΊΠ° ΠΊΠΎΠ΄ΠΎΠ² VBA ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΠ΅Ρ ΡΠΎΠ±ΠΎΠΉ ΡΠΏΠΈΡΠΎΠΊ ΠΏΠΎΠ»Π΅Π·Π½ΡΡ ΠΊΠΎΠ΄ΠΎΠ² VBA Π΄Π»Ρ Excel, ΠΊΠΎΡΠΎΡΡΠ΅ Π²Ρ ΠΌΠΎΠΆΠ΅ΡΠ΅ Π½Π°ΡΠ°ΡΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ Π½Π΅ΠΌΠ΅Π΄Π»Π΅Π½Π½ΠΎ.
ΠΡΠΈ ΠΊΠΎΠ΄Ρ ΠΈΠ΄Π΅Π°Π»ΡΠ½ΠΎ ΠΏΠΎΠ΄Ρ ΠΎΠ΄ΡΡ Π΄Π»Ρ Π½Π°ΡΠΈΠ½Π°ΡΡΠΈΡ , ΠΊΠΎΡΠΎΡΡΠ΅ ΡΠ°Π½ΡΡΠ΅ Π½Π΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π»ΠΈ Excel VBA ΠΈΠ»ΠΈ ΡΠΎΠ»ΡΠΊΠΎ Π½Π°ΡΠΈΠ½Π°ΡΡ.
ΠΠ°Π²Π°ΠΉΡΠ΅ ΡΠ½Π°ΡΠ°Π»Π° ΠΎΠΏΠΈΡΠ΅ΠΌ, ΡΡΠΎ ΡΠ°ΠΊΠΎΠ΅ ΠΊΠΎΠ΄ ΠΌΠ°ΠΊΡΠΎΡΠ° ΠΈ ΠΊΠ°ΠΊ Π²Ρ ΠΌΠΎΠΆΠ΅ΡΠ΅ Π½Π°ΡΠ°ΡΡ Π΅Π³ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ. ΠΠ°ΡΠ΅ΠΌ ΠΌΡ ΠΏΠ΅ΡΠ΅ΠΉΠ΄Π΅ΠΌ ΠΊ ΡΠ°ΠΌΠΎΠΉ ΠΈΠ½ΡΠ΅ΡΠ΅ΡΠ½ΠΎΠΉ ΡΠ°ΡΡΠΈ ΠΈ ΡΠ°ΡΡΠΌΠΎΡΡΠΈΠΌ ΠΏΡΠΈΠΌΠ΅ΡΡ ΠΌΠ°ΠΊΡΠΎΡΠΎΠ² Excel Π² ΡΡΠΎΠΌ ΡΠΏΠΈΡΠΊΠ΅.
ΠΠ·ΡΡΠΈΡΠ΅ Π»ΡΡΡΠΈΠ΅ ΡΠΎΡΠ΅ΡΠ°Π½ΠΈΡ ΠΊΠ»Π°Π²ΠΈΡ Excel!
ΠΠ°Π³ΡΡΠ·ΠΈΡΠ΅ Π½Π°ΡΡ ΡΠ°ΡΠΏΠ΅ΡΠ°ΡΠ°Π½Π½ΡΡ ΡΠ°Π±Π»ΠΈΡΡ ΡΡΠ»ΡΠΊΠΎΠ² Π΄Π»Ρ ΠΠ ΠΈ Mac
ΠΠ²Π΅Π΄ΠΈΡΠ΅ Π°Π΄ΡΠ΅Ρ ΡΠ»Π΅ΠΊΡΡΠΎΠ½Π½ΠΎΠΉ ΠΏΠΎΡΡΡ
Π§ΡΠΎ ΡΠ°ΠΊΠΎΠ΅ ΠΊΠΎΠ΄ ΠΌΠ°ΠΊΡΠΎΡΠ°?
ΠΠΎΠ΄ ΠΌΠ°ΠΊΡΠΎΡΠ° ΠΎΡΠ½ΠΎΡΠΈΡΡΡ ΠΊ ΠΊΠΎΠ΄Ρ VBA (Visual Basic Π΄Π»Ρ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠΉ) Π΄Π»Ρ ΠΌΠ°ΠΊΡΠΎΡΠ°.
ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΡΠΎΠ·Π΄Π°Π²Π°ΡΡ ΠΌΠ°ΠΊΡΠΎΡΡ Π² Excel, Π»ΠΈΠ±ΠΎ Π·Π°ΠΏΠΈΡΡΠ²Π°Ρ ΡΠ°Π³ΠΈ, ΠΊΠΎΡΠΎΡΡΠ΅ Π²Ρ Ρ ΠΎΡΠΈΡΠ΅, ΡΡΠΎΠ±Ρ ΠΎΠ½ Π²ΡΠΏΠΎΠ»Π½ΡΠ» (VBA Π½Π°ΠΏΠΈΡΠ°Π½ Π΄Π»Ρ Π²Π°Ρ), Π»ΠΈΠ±ΠΎ Π½Π°ΠΏΠΈΡΠ°Π² VBA ΡΠ°ΠΌΠΎΡΡΠΎΡΡΠ΅Π»ΡΠ½ΠΎ.
Π‘Π°ΠΌΠΎΡΡΠΎΡΡΠ΅Π»ΡΠ½ΠΎΠ΅ Π½Π°ΠΏΠΈΡΠ°Π½ΠΈΠ΅ ΡΡΠΎΠ³ΠΎ ΠΊΠΎΠ΄Π° VBA ΠΈΠ»ΠΈ ΠΌΠ°ΠΊΡΠΎΡΠ° Π΄Π°Π΅Ρ Π²Π°ΠΌ Π³ΠΎΡΠ°Π·Π΄ΠΎ Π±ΠΎΠ»ΡΡΠΈΠΉ ΠΊΠΎΠ½ΡΡΠΎΠ»Ρ Π½Π°Π΄ Π²Π°ΡΠΈΠΌ ΠΌΠ°ΠΊΡΠΎΡΠΎΠΌ.
ΠΠΎΠ΄ VBA ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ ΠΏΡΠΎΡΡΡΠΌ ΠΈ Π²ΡΠΏΠΎΠ»Π½ΡΡΡ Π±Π°Π·ΠΎΠ²ΡΠΉ ΡΠ°Π³ ΡΠΎΡΠΌΠ°ΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΈΠ»ΠΈ Π·Π°ΠΌΠΎΡΠ°ΠΆΠΈΠ²Π°ΡΡ ΠΏΠ°Π½Π΅Π»ΠΈ. ΠΠ»ΠΈ ΠΎΠ½ ΠΌΠΎΠ³ Π±Ρ ΡΠ΄Π΅Π»Π°ΡΡ ΡΡΠΎ-ΡΠΎ Π±ΠΎΠ»ΡΡΠ΅Π΅, Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ, ΡΠΊΡΠΏΠΎΡΡΠΈΡΠΎΠ²Π°ΡΡ Π²ΡΠ΅ Π»ΠΈΡΡΡ ΠΊΠ½ΠΈΠ³ΠΈ Π² ΠΎΡΠ΄Π΅Π»ΡΠ½ΡΠΉ PDF-ΡΠ°ΠΉΠ».
ΠΡΠ° Π±ΠΈΠ±Π»ΠΈΠΎΡΠ΅ΠΊΠ° ΠΊΠΎΠ΄Π° VBA ΡΠΎΠ΄Π΅ΡΠΆΠΈΡ ΡΠΏΠΈΡΠΎΠΊ ΠΊΠΎΠ΄ΠΎΠ² ΠΌΠ°ΠΊΡΠΎΡΠΎΠ², ΠΊΠΎΡΠΎΡΡΠ΅ Π²Ρ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΡΠΊΠΎΠΏΠΈΡΠΎΠ²Π°ΡΡ ΠΈ Π²ΡΡΠ°Π²ΠΈΡΡ, ΡΡΠΎΠ±Ρ Π½Π°ΡΠ°ΡΡ ΡΠ°Π±ΠΎΡΡ.
ΠΡΠΎ ΠΈΠ·Π±Π°Π²Π»ΡΠ΅Ρ Π²Π°Ρ ΠΎΡ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎΡΡΠΈ ΡΠΎΠ·Π΄Π°Π²Π°ΡΡ ΠΈΡ ΡΠ°ΠΌΠΎΡΡΠΎΡΡΠ΅Π»ΡΠ½ΠΎ, Π½ΠΎ ΡΠ°ΠΊΠΆΠ΅ ΡΠ²Π»ΡΠ΅ΡΡΡ ΠΎΡΠ»ΠΈΡΠ½ΡΠΌ ΡΠΏΠΎΡΠΎΠ±ΠΎΠΌ Π½Π°ΡΠ°ΡΡ ΠΈΠ·ΡΡΠ΅Π½ΠΈΠ΅ VBA.
ΠΠΎΠΊΠ°Π·Π°ΡΡ Π²ΠΊΠ»Π°Π΄ΠΊΡ «Π Π°Π·ΡΠ°Π±ΠΎΡΡΠΈΠΊ»
Π§ΡΠΎΠ±Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΠΊΠΎΠ΄Ρ VBA, Π²Π°ΠΌ ΠΏΠΎΡΡΠ΅Π±ΡΠ΅ΡΡΡ Π΄ΠΎΡΡΡΠΏ ΠΊ Π²ΠΊΠ»Π°Π΄ΠΊΠ΅ «Π Π°Π·ΡΠ°Π±ΠΎΡΡΠΈΠΊ».
ΠΡΠ»ΠΈ Π½Π° Π²Π°ΡΠ΅ΠΉ Π»Π΅Π½ΡΠ΅ Π½Π΅Ρ Π²ΠΊΠ»Π°Π΄ΠΊΠΈ Β«Π Π°Π·ΡΠ°Π±ΠΎΡΡΠΈΠΊΒ», Π²ΡΠΏΠΎΠ»Π½ΠΈΡΠ΅ ΡΠ»Π΅Π΄ΡΡΡΠΈΠ΅ Π΄Π΅ΠΉΡΡΠ²ΠΈΡ, ΡΡΠΎΠ±Ρ Π²ΠΊΠ»ΡΡΠΈΡΡ Π΅Π΅.
- Π©Π΅Π»ΠΊΠ½ΠΈΡΠ΅ Π€Π°ΠΉΠ» > ΠΠ°ΡΠ°ΠΌΠ΅ΡΡΡ .
- ΠΡΠ±Π΅ΡΠΈΡΠ΅ ΠΊΠ°ΡΠ΅Π³ΠΎΡΠΈΡ Β«ΠΠ°ΡΡΡΠΎΠΈΡΡ Π»Π΅Π½ΡΡΒ», Π° Π·Π°ΡΠ΅ΠΌ ΡΡΡΠ°Π½ΠΎΠ²ΠΈΡΠ΅ ΡΠ»Π°ΠΆΠΎΠΊ Π΄Π»Ρ Π²ΠΊΠ»Π°Π΄ΠΊΠΈ Β«Π Π°Π·ΡΠ°Π±ΠΎΡΡΠΈΠΊΒ».
- ΠΠ°ΠΆΠΌΠΈΡΠ΅ Β«ΠΠΒ».
ΠΠ°ΠΊ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΠΊΠΎΠ΄ ΠΌΠ°ΠΊΡΠΎΡΠ°
ΠΠ»Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΡ ΠΊΠΎΠ΄ΠΎΠ² ΠΌΠ°ΠΊΡΠΎΡΠ° Π΄ΠΎΡΡΠ°ΡΠΎΡΠ½ΠΎ ΠΏΡΠΎΡΡΠΎΠ³ΠΎ ΠΊΠΎΠΏΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΈ Π²ΡΡΠ°Π²ΠΊΠΈ. ΠΠ΄Π½Π°ΠΊΠΎ Π²Π°ΠΌ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΡΠ±Π΅Π΄ΠΈΡΡΡΡ, ΡΡΠΎ Π²Ρ Π²ΡΡΠ°Π²Π»ΡΠ΅ΡΠ΅ ΠΈΡ Π² Π½ΡΠΆΠ½ΠΎΠ΅ ΠΌΠ΅ΡΡΠΎ.
- Π©Π΅Π»ΠΊΠ½ΠΈΡΠ΅ Π Π°Π·ΡΠ°Π±ΠΎΡΡΠΈΠΊ > Visual Basic ΠΈΠ»ΠΈ Π½Π°ΠΆΠΌΠΈΡΠ΅ Alt + F11 .
ΠΡΠΊΡΡΠ²Π°Π΅ΡΡΡ ΡΠ΅Π΄Π°ΠΊΡΠΎΡ Visual Basic. ΠΠΊΠ½ΠΎ Project Explorer ΠΏΠΎΠΊΠ°Π·Π°Π½ΠΎ ΡΠ»Π΅Π²Π°. Π Π½Π΅ΠΌ ΠΏΠ΅ΡΠ΅ΡΠΈΡΠ»Π΅Π½Ρ ΠΎΡΠΊΡΡΡΡΠ΅ ΠΊΠ½ΠΈΠ³ΠΈ ΠΈ Π΄ΡΡΠ³ΠΈΠ΅ ΠΏΡΠΎΠ΅ΠΊΡΡ.
- Π©Π΅Π»ΠΊΠ½ΠΈΡΠ΅ Π² ΡΠ°Π±ΠΎΡΠ΅ΠΉ ΠΊΠ½ΠΈΠ³Π΅, ΠΊΡΠ΄Π° Π²Ρ Ρ ΠΎΡΠΈΡΠ΅ Π²ΡΡΠ°Π²ΠΈΡΡ ΠΊΠΎΠ΄ VBA, ΡΠ΅Π»ΠΊΠ½ΠΈΡΠ΅ ΠΡΡΠ°Π²ΠΈΡΡ > ΠΠΎΠ΄ΡΠ»Ρ .
- Π‘ΠΊΠΎΠΏΠΈΡΡΠΉΡΠ΅ ΠΈ Π²ΡΡΠ°Π²ΡΡΠ΅ ΠΊΠΎΠ΄ ΠΈΠ· ΡΡΠΎΠΉ ΡΡΠ°ΡΡΠΈ Π² ΠΎΠΊΠ½ΠΎ ΠΊΠΎΠ΄Π°.
ΠΠΎΡΠ»Π΅ ΡΡΠΎΠ³ΠΎ ΠΌΠ°ΠΊΡΠΎΡ Π±ΡΠ΄Π΅Ρ Π΄ΠΎΡΡΡΠΏΠ΅Π½ Π΄Π»Ρ Π·Π°ΠΏΡΡΠΊΠ° Π² ΠΎΠΊΠ½Π΅ ΠΌΠ°ΠΊΡΠΎΡΠΎΠ².
- ΠΠ°ΠΆΠΌΠΈΡΠ΅ Π Π°Π·ΡΠ°Π±ΠΎΡΡΠΈΠΊ > ΠΠ°ΠΊΡΠΎΡΡ . ΠΡΠ±Π΅ΡΠΈΡΠ΅ ΠΌΠ°ΠΊΡΠΎΡ ΠΈΠ· ΡΠΏΠΈΡΠΊΠ° ΠΈ Π½Π°ΠΆΠΌΠΈΡΠ΅ ΠΡΠΏΠΎΠ»Π½ΠΈΡΡ .
Π ΡΡΠΎΠΉ Π±ΠΈΠ±Π»ΠΈΠΎΡΠ΅ΠΊΠ΅ ΠΊΠΎΠ΄ΠΎΠ² VBA Π΅ΡΡΡ ΠΊΠ°ΡΠ΅Π³ΠΎΡΠΈΡ Ρ ΠΈΠΌΠ΅Π½Π΅ΠΌ Events . ΠΡΠΈ ΠΌΠ°ΠΊΡΠΎΡΡ Π±ΡΠ΄ΡΡ Ρ ΡΠ°Π½ΠΈΡΡΡΡ Π½Π΅ Π² ΠΌΠΎΠ΄ΡΠ»ΡΡ , Π° Π² ΠΎΠ±ΡΠ΅ΠΊΡΠ΅, Π³Π΄Π΅ ΠΏΡΠΎΠΈΡΡ ΠΎΠ΄ΠΈΡ ΡΠΎΠ±ΡΡΠΈΠ΅.
ΠΡΠΎ Π±ΡΠ΄Π΅Ρ ΠΎΠ±ΡΡΡΠ½Π΅Π½ΠΎ, ΠΊΠΎΠ³Π΄Π° ΠΌΡ ΠΏΡΠ΅Π΄ΡΡΠ°Π²ΠΈΠΌ ΠΊΠΎΠ΄. ΠΠΎΠ»ΡΡΠΈΠ½ΡΡΠ²ΠΎ ΠΌΠ°ΠΊΡΠΎΡΠΎΠ² Π² ΡΡΠΎΠΌ ΡΠΏΠΈΡΠΊΠ΅ Ρ ΡΠ°Π½ΡΡΡΡ Π² ΠΌΠΎΠ΄ΡΠ»ΡΡ ΠΈ ΡΠ»Π΅Π΄ΡΡΡ ΠΎΠΏΠΈΡΠ°Π½Π½ΠΎΠΉ Π²ΡΡΠ΅ ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ΅.
ΠΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΠ΅ ΠΊΠ½ΠΎΠΏΠΊΠΈ Π΄Π»Ρ Π·Π°ΠΏΡΡΠΊΠ° Π²Π°ΡΠΈΡ ΠΌΠ°ΠΊΡΠΎΡΠΎΠ²
Π₯ΠΎΡΡ ΠΌΠΎΠΆΠ½ΠΎ Π·Π°ΠΏΡΡΡΠΈΡΡ ΠΌΠ°ΠΊΡΠΎΡ ΠΈΠ· ΠΎΠΊΠ½Π° ΠΌΠ°ΠΊΡΠΎΡΠΎΠ². ΠΠ°Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΠΌΠ°ΠΊΡΠΎΡΠ° ΠΊΠ½ΠΎΠΏΠΊΠ΅, ΠΊΠΎΡΠΎΡΡΡ Π²Ρ ΠΌΠΎΠΆΠ΅ΡΠ΅ Π½Π°ΠΆΠ°ΡΡ, ΠΎΠ±Π»Π΅Π³ΡΠΈΡ Π·Π°ΠΏΡΡΠΊ Π²Π°ΡΠΈΡ ΠΌΠ°ΠΊΡΠΎΡΠΎΠ².
ΠΠ½ΠΎΠΏΠΊΠΈ ΠΌΠΎΠΆΠ½ΠΎ Π²ΡΡΠ°Π²Π»ΡΡΡ Π½Π° ΠΏΠ°Π½Π΅Π»Ρ Π±ΡΡΡΡΠΎΠ³ΠΎ Π΄ΠΎΡΡΡΠΏΠ° (Π³Π΄Π΅ Π½Π°Ρ ΠΎΠ΄ΡΡΡΡ ΠΊΠ½ΠΎΠΏΠΊΠΈ Β«Π‘ΠΎΡ ΡΠ°Π½ΠΈΡΡΒ» ΠΈ Β«ΠΡΠΌΠ΅Π½ΠΈΡΡΒ»), Π½Π° Π»Π΅Π½ΡΡ ΠΈΠ»ΠΈ Π½Π° ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ.
ΠΠΎΠ΄Ρ ΠΎΠ΄ Π·Π°Π²ΠΈΡΠΈΡ ΠΎΡ ΡΠΎΠ³ΠΎ, ΡΡΠΎ Π΄Π΅Π»Π°Π΅Ρ ΠΌΠ°ΠΊΡΠΎΡ ΠΈ ΠΊΠΎΠ³Π΄Π° Π²Ρ Ρ ΠΎΡΠΈΡΠ΅ Π΅Π³ΠΎ Π·Π°ΠΏΡΡΡΠΈΡΡ.
Π ΡΡΠΎΠΌ ΠΏΡΠΈΠΌΠ΅ΡΠ΅ ΠΌΡ ΠΏΠΎΠΊΠ°ΠΆΠ΅ΠΌ Π²Π°ΠΌ, ΠΊΠ°ΠΊ Π΄ΠΎΠ±Π°Π²ΠΈΡΡ ΠΊΠ½ΠΎΠΏΠΊΡ Π½Π° ΠΏΠ°Π½Π΅Π»Ρ Π±ΡΡΡΡΠΎΠ³ΠΎ Π΄ΠΎΡΡΡΠΏΠ° Π΄Π»Ρ Π·Π°ΠΏΡΡΠΊΠ° Π²Π°ΡΠΈΡ ΠΌΠ°ΠΊΡΠΎΡΠΎΠ².
- Π©Π΅Π»ΠΊΠ½ΠΈΡΠ΅ ΡΡΡΠ΅Π»ΠΊΡ ΠΠ°ΡΡΡΠΎΠΈΡΡ ΠΏΠ°Π½Π΅Π»Ρ Π±ΡΡΡΡΠΎΠ³ΠΎ Π΄ΠΎΡΡΡΠΏΠ° ΠΈ ΡΠ΅Π»ΠΊΠ½ΠΈΡΠ΅ ΠΠΎΠΏΠΎΠ»Π½ΠΈΡΠ΅Π»ΡΠ½ΡΠ΅ ΠΊΠΎΠΌΠ°Π½Π΄Ρ .
- Π©Π΅Π»ΠΊΠ½ΠΈΡΠ΅ ΡΡΡΠ΅Π»ΠΊΡ ΡΠΏΠΈΡΠΊΠ° ΠΠΎΠΏΡΠ»ΡΡΠ½ΡΠ΅ ΠΊΠΎΠΌΠ°Π½Π΄Ρ ΠΈ Π²ΡΠ±Π΅ΡΠΈΡΠ΅ ΠΠ°ΠΊΡΠΎΡΡ . ΠΡΠ±Π΅ΡΠΈΡΠ΅ Π½ΡΠΆΠ½ΡΠΉ ΠΌΠ°ΠΊΡΠΎΡ ΠΈ Π½Π°ΠΆΠΌΠΈΡΠ΅ ΠΠΎΠ±Π°Π²ΠΈΡΡ .
- ΠΠ°ΠΆΠΌΠΈΡΠ΅ ΠΊΠ½ΠΎΠΏΠΊΡ ΠΠ·ΠΌΠ΅Π½ΠΈΡΡ , ΡΡΠΎΠ±Ρ ΠΈΠ·ΠΌΠ΅Π½ΠΈΡΡ ΠΈΠ·ΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΠ΅ ΠΈ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°Π΅ΠΌΠΎΠ΅ ΠΈΠΌΡ ΠΊΠ½ΠΎΠΏΠΊΠΈ.
ΠΠ½ΠΎΠΏΠΊΠ° ΠΏΠΎΡΠ²ΠΈΡΡΡ Π½Π° ΠΏΠ°Π½Π΅Π»ΠΈ Π±ΡΡΡΡΠΎΠ³ΠΎ Π΄ΠΎΡΡΡΠΏΠ°, ΠΈ ΠΏΡΠΈ Π΅Π΅ Π½Π°ΠΆΠ°ΡΠΈΠΈ Π±ΡΠ΄Π΅Ρ Π·Π°ΠΏΡΡΠ΅Π½ Π²Π°Ρ ΠΌΠ°ΠΊΡΠΎΡ.
ΠΡΠΎΠ±ΡΠ°ΠΆΠ°Π΅ΠΌΠΎΠ΅ ΠΈΠΌΡ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°Π΅ΡΡΡ ΠΏΡΠΈ Π½Π°Π²Π΅Π΄Π΅Π½ΠΈΠΈ ΡΠΊΠ°Π·Π°ΡΠ΅Π»Ρ ΠΌΡΡΠΈ Π½Π° ΠΊΠ½ΠΎΠΏΠΊΡ.
ΠΡΠΈΠΌΠ΅ΡΡ ΠΊΠΎΠ΄Π° Excel VBA
ΠΡΠΈΠΌΠ΅ΡΡ ΠΊΠΎΠ΄Π° ΠΌΠ°ΠΊΡΠΎΡΠΎΠ² Π² ΡΡΠΎΠΌ ΡΠΏΠΈΡΠΊΠ΅ ΡΠ°Π·Π΄Π΅Π»Π΅Π½Ρ Π½Π° ΠΊΠ°ΡΠ΅Π³ΠΎΡΠΈΠΈ, ΡΡΠΎΠ±Ρ ΡΠΏΡΠΎΡΡΠΈΡΡ ΠΏΠΎΠΈΡΠΊ ΡΠ΅Ρ , ΠΊΠΎΡΠΎΡΡΠ΅ Π²Π°ΠΌ ΠΈΠ½ΡΠ΅ΡΠ΅ΡΠ½Ρ.
ΠΠ±ΡΠΈΠ΅ Π·Π°Π΄Π°ΡΠΈ Excel
- ΠΠ²ΡΠΎΠΏΠΎΠ΄Π±ΠΎΡ ΡΠΈΡΠΈΠ½Ρ ΡΡΠΎΠ»Π±ΡΠ°
- Π‘ΠΊΠΎΠΏΠΈΡΡΠΉΡΠ΅ ΠΈ Π²ΡΡΠ°Π²ΡΡΠ΅
- ΠΡΠΈΡΡΠΈΡΡ Π²ΡΠ΅ Π³ΠΈΠΏΠ΅ΡΡΡΡΠ»ΠΊΠΈ Π½Π° Π»ΠΈΡΡΠ΅
- Π€ΠΎΡΠΌΠ°Ρ ΡΡΠ΅Π΅ΠΊ Ρ ΡΠΎΡΠΌΡΠ»Π°ΠΌΠΈ
- ΠΡΠ΅ΠΎΠ±ΡΠ°Π·ΠΎΠ²Π°Π½ΠΈΠ΅ ΡΠΎΡΠΌΡΠ» Π² Π·Π½Π°ΡΠ΅Π½ΠΈΡ
ΠΠΎΠ΄Ρ ΡΠ°Π±ΠΎΡΠΈΡ Π»ΠΈΡΡΠΎΠ²
- ΠΠΎΠΊΠ°Π·Π°ΡΡ Π²ΡΠ΅ ΡΡΠΎΠ»Π±ΡΡ
- ΠΠ°ΡΠΈΡΠ° ΡΠ°Π±ΠΎΡΠ΅Π³ΠΎ Π»ΠΈΡΡΠ°
- ΠΠ΅ΡΠ΅Π±ΡΠ°ΡΡ Π²ΡΠ΅ Π»ΠΈΡΡΡ ΠΊΠ½ΠΈΠ³ΠΈ
ΠΠΎΠ΄Ρ ΡΠ°Π±ΠΎΡΠΈΡ ΠΊΠ½ΠΈΠ³
- ΠΠΎΠΊΠ°Π·Π°ΡΡ Π²ΡΠ΅ ΡΠ°Π±ΠΎΡΠΈΠ΅ Π»ΠΈΡΡΡ
- ΠΠ°ΡΠΈΡΠ° ΠΊΠ½ΠΈΠ³ΠΈ
- ΠΡΠΊΡΡΡΠΈΠ΅ ΠΈ Π·Π°ΠΊΡΡΡΠΈΠ΅ ΠΊΠ½ΠΈΠ³ΠΈ
- ΠΠ»Π΅ΠΊΡΡΠΎΠ½Π½Π°Ρ ΠΏΠΎΡΡΠ° Π°ΠΊΡΠΈΠ²Π½ΠΎΠΉ ΠΊΠ½ΠΈΠ³ΠΈ Ρ Outlook
Π€Π°ΠΉΠ»Ρ ΠΈ ΠΏΠ°ΠΏΠΊΠΈ
- ΠΠΊΡΠΏΠΎΡΡ ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ ΡΠ°Π±ΠΎΡΠ΅Π³ΠΎ Π»ΠΈΡΡΠ° Π² Π²ΠΈΠ΄Π΅ ΠΎΠ΄Π½ΠΎΠ³ΠΎ ΡΠ°ΠΉΠ»Π° PDF
- ΠΠΊΡΠΏΠΎΡΡ Π°ΠΊΡΠΈΠ²Π½ΠΎΠ³ΠΎ Π»ΠΈΡΡΠ° Π² ΡΠΎΡΠΌΠ°ΡΠ΅ PDF
- ΠΠΊΡΠΏΠΎΡΡ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΈΡ Π»ΠΈΡΡΠΎΠ² Π² ΠΎΠ΄ΠΈΠ½ ΡΠ°ΠΉΠ» PDF
- ΠΠ΅ΡΠ΅Π±ΡΠ°ΡΡ Π²ΡΠ΅ ΡΠ°ΠΉΠ»Ρ ΠΏΠ°ΠΏΠΊΠΈ
- ΠΡΠ±ΠΎΡ ΡΠ°ΠΉΠ»Π° Ρ ΠΏΠΎΠΌΠΎΡΡΡ FileDialog
ΠΠΎΠ»Π΅Π·Π½ΡΠ΅ ΡΡΠ½ΠΊΡΠΈΠΈ Excel
- Π‘ΠΎΡΡΠΈΡΠΎΠ²ΠΊΠ° ΡΡΠΎΠ»Π±ΡΠΎΠ²
- Π€ΠΈΠ»ΡΡΡΡΠΉΡΠ΅ Π΄Π°Π½Π½ΡΠ΅
- Π‘ΠΎΠ·Π΄Π°ΡΡ Π΄ΠΈΠ°Π³ΡΠ°ΠΌΠΌΡ
Π‘ΠΎΠ±ΡΡΠΈΡ
- ΠΠ΅ΡΠ΅Ρ ΠΎΠ΄ ΠΊ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Π½ΠΎΠΌΡ ΡΠ°Π±ΠΎΡΠ΅ΠΌΡ Π»ΠΈΡΡΡ ΠΏΡΠΈ ΠΎΡΠΊΡΡΡΠΈΠΈ
- ΠΡΠΏΠΎΠ»Π½ΠΈΡΡ Π΄Π΅ΠΉΡΡΠ²ΠΈΠ΅ ΠΏΡΠΈ ΡΠΌΠ΅Π½Π΅ ΡΡΠ΅ΠΉΠΊΠΈ
Π Π΅Π·ΡΠΌΠ΅!
ΠΠ±ΡΠΈΠ΅ Π·Π°Π΄Π°ΡΠΈ Excel
ΠΡΠΈ ΠΊΠΎΠ΄Ρ VBA ΠΏΠΎΠ·Π²ΠΎΠ»ΡΡΡ Π±ΡΡΡΡΠΎ Π²ΡΠΏΠΎΠ»Π½ΡΡΡ ΠΎΠ±ΡΠΈΠ΅ Π·Π°Π΄Π°ΡΠΈ Excel.
ΠΠ²ΡΠΎΠΏΠΎΠ΄Π±ΠΎΡ ΡΠΈΡΠΈΠ½Ρ ΡΡΠΎΠ»Π±ΡΠΎΠ²
ΠΡΠΎΡ ΠΊΠΎΠ΄ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΈ ΠΏΠΎΠ΄Π³ΠΎΠ½ΠΈΡ ΡΠΈΡΠΈΠ½Ρ ΡΡΠΎΠ»Π±ΡΠΎΠ² Π΄Π»Ρ Π²ΡΠ΅Ρ ΡΡΠΎΠ»Π±ΡΠΎΠ² ΡΠ°Π±ΠΎΡΠ΅Π³ΠΎ Π»ΠΈΡΡΠ°.
ΠΠΎΠ΄ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° AutofitAllColumns()
Cells.EntireColumn.AutoFit
ΠΠΎΠ½Π΅Ρ ΡΡΠ±
ΠΡΠΎΡ ΠΊΠΎΠ΄ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΈ ΠΏΠΎΠ΄Π³ΠΎΠ½ΠΈΡ ΡΠΈΡΠΈΠ½Ρ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Π½ΡΡ ΡΡΠΎΠ»Π±ΡΠΎΠ² Π½Π° Π»ΠΈΡΡΠ΅. Π Π΄Π°Π½Π½ΠΎΠΌ ΠΏΡΠΈΠΌΠ΅ΡΠ΅ ΡΡΠΎ ΡΡΠΎΠ»Π±ΡΡ D ΠΈ F.
ΠΠΎΠ΄ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° AutofitSpecificColumns()
ΠΠΈΠ°ΠΏΠ°Π·ΠΎΠ½("D:D,F:F").EntireColumn.AutoFit
End Sub
ΠΠΎΠΏΠΈΡΠΎΠ²Π°ΡΡ ΠΈ Π²ΡΡΠ°Π²ΠΈΡΡ
ΠΠΎΠΏΠΈΡΠΎΠ²Π°ΡΡ ΠΈ Π²ΡΡΠ°Π²ΠΈΡΡ β ΠΎΠ΄Π½ΠΎ ΠΈΠ· Π½Π°ΠΈΠ±ΠΎΠ»Π΅Π΅ ΡΠ°ΡΠΏΡΠΎΡΡΡΠ°Π½Π΅Π½Π½ΡΡ Π΄Π΅ΠΉΡΡΠ²ΠΈΠΉ Π² Excel. ΠΠ³ΠΎ ΠΌΠΎΠΆΠ½ΠΎ Π½Π°ΠΏΠΈΡΠ°ΡΡ Π²ΡΠ΅Π³ΠΎ ΠΎΠ΄Π½ΠΎΠΉ ΡΡΡΠΎΠΊΠΎΠΉ ΠΊΠΎΠ΄Π° VBA.
Π‘Π»Π΅Π΄ΡΡΡΠΈΠΉ ΠΊΠΎΠ΄ ΠΊΠΎΠΏΠΈΡΡΠ΅Ρ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ A1:B6 Π² A1 Π΄ΡΡΠ³ΠΎΠ³ΠΎ Π»ΠΈΡΡΠ°.
Sub CopyAndPaste()
ΠΠΈΠ°ΠΏΠ°Π·ΠΎΠ½("A1:B6").ΠΠΎΠΏΠΈΡΠΎΠ²Π°ΡΡ ΡΠ°Π±ΠΎΡΠΈΠ΅ Π»ΠΈΡΡΡ("ΠΠΈΡΡ2").Range("A1")
End Sub
Π£ Π²Π°Ρ ΠΌΠΎΠΆΠ΅Ρ Π½Π΅ Π±ΡΡΡ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Π½ΠΎΠ³ΠΎ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π° Π΄Π»Ρ Π²ΡΡΠ°Π²ΠΊΠΈ ΡΠΎΠ΄Π΅ΡΠΆΠΈΠΌΠΎΠ³ΠΎ. Π§Π°ΡΡΠΎ Π²Ρ ΠΏΡΡΠ°Π΅ΡΠ΅ΡΡ Π΄ΠΎΠ±Π°Π²ΠΈΡΡ ΡΠΊΠΎΠΏΠΈΡΠΎΠ²Π°Π½Π½ΡΠ΅ Π΄Π°Π½Π½ΡΠ΅ Π² ΠΊΠΎΠ½Π΅Ρ Π΄ΡΡΠ³ΠΎΠ³ΠΎ ΡΠΏΠΈΡΠΊΠ°.
ΠΡΠΎΡ ΠΊΠΎΠ΄ ΠΊΠΎΠΏΠΈΡΡΠ΅Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΠΌΡΠΉ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ Π²ΠΎΠΊΡΡΠ³ ΡΡΠ΅ΠΉΠΊΠΈ A2 ΠΈ Π²ΡΡΠ°Π²Π»ΡΠ΅Ρ Π΅Π³ΠΎ Π² ΠΏΠ΅ΡΠ²ΡΡ ΠΏΡΡΡΡΡ ΡΡΠ΅ΠΉΠΊΡ Π²Π½ΠΈΠ·Ρ ΡΡΠΎΠ»Π±ΡΠ° A Π½Π° Π»ΠΈΡΡΠ΅ Ρ ΠΈΠΌΠ΅Π½Π΅ΠΌ Archive.
Sub CopyAndPaste()
Range("A2").CurrentRegion.Copy Worksheets("ΠΡΡ
ΠΈΠ²").Range("A1").End(xlDown).Offset(1, 0)
ΠΠΎΠ½Π΅Ρ ΡΡΠ±
ΠΠ°ΠΊΠΎΠ½Π΅Ρ, Π²Ρ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ Π½Π΅ΠΊΠΎΡΠΎΡΡΠ΅ ΡΠΏΠ΅ΡΠΈΠ°Π»ΡΠ½ΡΠ΅ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΡ Π²ΡΡΠ°Π²ΠΊΠΈ, Π΄ΠΎΡΡΡΠΏΠ½ΡΠ΅ Π² Excel. Π§ΡΠΎΠ±Ρ ΠΏΠΎΠ»ΡΡΠΈΡΡ ΠΊ Π½ΠΈΠΌ Π΄ΠΎΡΡΡΠΏ Π² VBA, ΠΌΡ ΡΠ°Π·Π΄Π΅Π»ΠΈΠΌ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΡ ΠΊΠΎΠΏΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΈ Π²ΡΡΠ°Π²ΠΊΠΈ Π½Π° Π΄Π²Π° ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΠ°.
ΠΡΠΎΡ ΠΊΠΎΠ΄ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅Ρ ΠΌΠ΅ΡΠΎΠ΄ PasteSpecial ΡΠΎΠ»ΡΠΊΠΎ Π΄Π»Ρ Π²ΡΡΠ°Π²ΠΊΠΈ Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ.
Sub CopyAndPasteValues()
ΠΠΈΠ°ΠΏΠ°Π·ΠΎΠ½("A1:B6").ΠΠΎΠΏΠΈΡΠΎΠ²Π°ΡΡ
Π Π°Π±ΠΎΡΠΈΠ΅ Π»ΠΈΡΡΡ ("ΠΠΈΡΡ2"). ΠΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ("A1"). Π‘ΠΏΠ΅ΡΠΈΠ°Π»ΡΠ½Π°Ρ Π²ΡΡΠ°Π²ΠΊΠ°: = xlPasteValues
End Sub
Π£Π΄Π°Π»ΠΈΡΡ Π²ΡΠ΅ Π³ΠΈΠΏΠ΅ΡΡΡΡΠ»ΠΊΠΈ Π½Π° Π»ΠΈΡΡΠ΅
Π‘Π»Π΅Π΄ΡΡΡΠΈΠΉ ΠΊΠΎΠ΄ ΠΌΠ°ΠΊΡΠΎΡΠ° ΡΠ΄Π°Π»ΠΈΡ Π²ΡΠ΅ Π³ΠΈΠΏΠ΅ΡΡΡΡΠ»ΠΊΠΈ Π½Π° Π»ΠΈΡΡΠ΅.
Sub ClearHyperlinks()
ActiveSheet.ΠΠΈΠΏΠ΅ΡΡΡΡΠ»ΠΊΠΈ.Π£Π΄Π°Π»ΠΈΡΡ
End Sub
Π€ΠΎΡΠΌΠ°ΡΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ ΡΡΠ΅Π΅ΠΊ Ρ ΡΠΎΡΠΌΡΠ»Π°ΠΌΠΈ
Π€ΠΎΡΠΌΠ°ΡΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ ΡΡΠ΅Π΅ΠΊ, ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΠΈΡ ΡΠΎΡΠΌΡΠ»Ρ, ΡΠΏΡΠΎΡΠ°Π΅Ρ ΠΈΡ ΠΈΠ΄Π΅Π½ΡΠΈΡΠΈΠΊΠ°ΡΠΈΡ Π½Π° Π»ΠΈΡΡΠ΅. ΠΡΠΎΡ ΠΊΠΎΠ΄ ΠΌΠ°ΠΊΡΠΎΡΠ° ΠΎΡΡΠΎΡΠΌΠ°ΡΠΈΡΡΠ΅Ρ ΡΡΠ΅ΠΉΠΊΠΈ ΡΠΎΡΠΌΡΠ»Ρ ΠΆΠ΅Π»ΡΡΠΌ ΡΠ²Π΅ΡΠΎΠΌ Π·Π°Π»ΠΈΠ²ΠΊΠΈ ( ColorIndex = 6 ).
ΠΠ½ ΠΎΠ±ΡΡΠ²Π»ΡΠ΅Ρ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π° Ρ ΠΈΠΌΠ΅Π½Π΅ΠΌ rng ΠΈ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅Ρ Π΅Π³ΠΎ Π΄Π»Ρ ΠΏΠ΅ΡΠ΅Π±ΠΎΡΠ° ΠΊΠ°ΠΆΠ΄ΠΎΠΉ ΡΡΠ΅ΠΉΠΊΠΈ, ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΠ΅ΠΉ ΡΠΎΡΠΌΡΠ»Ρ.
ΠΠΎΠ΄ΡΠΎΡΠΌΠ°ΡΡΠΎΡΠΌΡΠ»Ρ()
Dim rng As Range
ΠΠ»Ρ ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ ΠΊΠΎΠ»ΡΡΠ° Π² Cells.SpecialCells(xlCellTypeFormulas)
rng.Interior.ColorIndex = 6
Π‘Π»Π΅Π΄ΡΡΡΠΈΠΉ ΠΊΡΡΠ³
End Sub
ΠΡΠ΅ΠΎΠ±ΡΠ°Π·ΠΎΠ²Π°Π½ΠΈΠ΅ ΡΠΎΡΠΌΡΠ» Π² Π·Π½Π°ΡΠ΅Π½ΠΈΡ
ΠΡΡΠ³ΠΈΠΌ ΡΠ°ΡΠΏΡΠΎΡΡΡΠ°Π½Π΅Π½Π½ΡΠΌ Π΄Π΅ΠΉΡΡΠ²ΠΈΠ΅ΠΌ Ρ ΡΠΎΡΠΌΡΠ»Π°ΠΌΠΈ ΡΠ²Π»ΡΠ΅ΡΡΡ ΠΏΡΠ΅ΠΎΠ±ΡΠ°Π·ΠΎΠ²Π°Π½ΠΈΠ΅ ΠΈΡ Π² Π·Π½Π°ΡΠ΅Π½ΠΈΡ. ΠΡΠΎΡ ΠΊΠΎΠ΄ VBA Π±ΡΠ΄Π΅Ρ Π΄Π΅Π»Π°ΡΡ ΡΡΠΎ Π΄Π»Ρ Π²ΡΠ΅Ρ ΡΠΎΡΠΌΡΠ» Π½Π° Π»ΠΈΡΡΠ΅.
Sub ConvertFormulastoValues()
Dim rng As Range
ΠΠ»Ρ ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ ΠΊΠΎΠ»ΡΡΠ° Π² Cells.SpecialCells(xlCellTypeFormulas)
rng.Formula = rng.Value
Π‘Π»Π΅Π΄ΡΡΡΠΈΠΉ ΠΊΡΡΠ³
ΠΠΎΠ½Π΅Ρ ΡΡΠ±
ΠΠΎΠ΄Ρ ΡΠ°Π±ΠΎΡΠΈΡ Π»ΠΈΡΡΠΎΠ²
ΠΡΠΈ ΠΊΠΎΠ΄Ρ Π²ΡΠΏΠΎΠ»Π½ΡΡΡ Π½Π΅ΠΊΠΎΡΠΎΡΡΠ΅ ΡΠΈΠΏΠΈΡΠ½ΡΠ΅ Π·Π°Π΄Π°ΡΠΈ ΡΠ°Π±ΠΎΡΠΈΡ Π»ΠΈΡΡΠΎΠ².
ΠΠΎΠΊΠ°Π·Π°ΡΡ Π²ΡΠ΅ ΡΡΠΎΠ»Π±ΡΡ
Π‘ΠΊΡΡΡΠΈΠ΅ ΡΡΠΎΠ»Π±ΡΠΎΠ² ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ ΡΠΌΠ΅Π½ΡΡΠΈΡΡ Π±Π΅ΡΠΏΠΎΡΡΠ΄ΠΎΠΊ Π½Π° Π»ΠΈΡΡΠ΅ ΠΈ Π·Π°ΡΠΈΡΠΈΡΡ Π΄Π°Π½Π½ΡΠ΅. ΠΡΠΎΡ ΠΊΠΎΠ΄ ΠΌΠ°ΠΊΡΠΎΡΠ° ΠΏΠΎΠΊΠ°ΠΆΠ΅Ρ Π²ΡΠ΅ ΡΠΊΡΡΡΡΠ΅ ΡΡΠΎΠ»Π±ΡΡ ΠΎΠ΄Π½ΠΈΠΌ Π½Π°ΠΆΠ°ΡΠΈΠ΅ΠΌ ΠΊΠ½ΠΎΠΏΠΊΠΈ.
Sub UnhideAllColumns()
Π‘ΡΠΎΠ»Π±ΡΡ.EntireColumn.Hidden = ΠΠΎΠΆΡ
End Sub
ΠΠ°ΡΠΈΡΠ° ΡΠ°Π±ΠΎΡΠ΅Π³ΠΎ Π»ΠΈΡΡΠ°
Π‘Π»Π΅Π΄ΡΡΡΠΈΠΉ ΠΊΠΎΠ΄ Π·Π°ΡΠΈΡΠΈΡ Π°ΠΊΡΠΈΠ²Π½ΡΠΉ Π»ΠΈΡΡ.
Sub ProtectWS()
ActiveSheet.Protect
End Sub
ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΏΠΎΠΉΡΠΈ Π΄Π°Π»ΡΡΠ΅ ΠΈ Π½Π°Π·Π½Π°ΡΠΈΡΡ ΠΏΠ°ΡΠΎΠ»Ρ ΠΈΠ»ΠΈ ΡΠΊΠ°Π·Π°ΡΡ ΡΠ°Π·ΡΠ΅ΡΠ΅Π½Π½ΡΠ΅ Π΄Π΅ΠΉΡΡΠ²ΠΈΡ. ΠΡΠΎΡ ΠΊΠΎΠ΄ ΠΌΠ°ΠΊΡΠΎΡΠ° Π½Π°Π·Π½Π°ΡΠ°Π΅Ρ ΠΏΠ°ΡΠΎΠ»Ρ Excel ΠΈ ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ Π²ΡΡΠ°Π²Π»ΡΡΡ ΡΠΎΠ»ΡΠΊΠΎ ΡΡΡΠΎΠΊΠΈ.
ΠΡΠ»ΠΈ Π²Ρ Ρ ΠΎΡΠΎΡΠΎ Π·Π½Π°Π΅ΡΠ΅ Π·Π°ΡΠΈΡΡ ΡΠ°Π±ΠΎΡΠ΅Π³ΠΎ Π»ΠΈΡΡΠ°, Π²Ρ Π·Π½Π°Π΅ΡΠ΅, ΡΡΠΎ ΡΡΡΠ΅ΡΡΠ²ΡΡΡ ΡΠ°Π·Π»ΠΈΡΠ½ΡΠ΅ Π΄Π΅ΠΉΡΡΠ²ΠΈΡ, ΠΊΠΎΡΠΎΡΡΠ΅ Π²Ρ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΡΠ°Π·ΡΠ΅ΡΠΈΡΡ ΠΈΠ»ΠΈ Π·Π°ΠΏΡΠ΅ΡΠΈΡΡ. Π ΠΌΡ ΠΌΠΎΠΆΠ΅ΠΌ ΡΠ΄Π΅Π»Π°ΡΡ ΡΡΠΎ Ρ ΠΏΠΎΠΌΠΎΡΡΡ Π½Π°ΡΠ΅Π³ΠΎ ΠΊΠΎΠ΄Π° VBA.
Sub ProtectWS()
ΠΠ°ΡΠΎΠ»Ρ ActiveSheet.Protect: = Β«ExcelΒ», AllowInsertingRows: = True
ΠΠΎΠ½Π΅Ρ ΡΡΠ±
Π Π°ΡΠΏΡΠΎΡΡΡΠ°Π½Π΅Π½Π½ΠΎΠΉ ΠΏΡΠΈΡΠΈΠ½ΠΎΠΉ Π·Π°ΡΠΈΡΡ ΡΠ°Π±ΠΎΡΠ΅Π³ΠΎ Π»ΠΈΡΡΠ° ΡΠ²Π»ΡΠ΅ΡΡΡ Π·Π°ΡΠΈΡΠ° ΡΠΎΡΠΌΡΠ» ΠΎΡ ΡΠ»ΡΡΠ°ΠΉΠ½ΠΎΠ³ΠΎ ΠΏΠΎΠ²ΡΠ΅ΠΆΠ΄Π΅Π½ΠΈΡ. ΠΡΠΎΡ ΠΊΠΎΠ΄ Π·Π°ΡΠΈΡΠΈΡ ΡΠΎΠ»ΡΠΊΠΎ ΡΡΠ΅ΠΉΠΊΠΈ Π½Π° Π»ΠΈΡΡΠ΅, ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΠΈΠ΅ ΡΠΎΡΠΌΡΠ»Ρ.
ΠΠ½ Π½Π°ΡΠΈΠ½Π°Π΅ΡΡΡ ΡΠΎ ΡΠ½ΡΡΠΈΡ Π·Π°ΡΠΈΡΡ Π»ΠΈΡΡΠ° ΠΈ ΡΠ°Π·Π±Π»ΠΎΠΊΠΈΡΠΎΠ²ΠΊΠΈ Π²ΡΠ΅Ρ ΡΡΠ΅Π΅ΠΊ. ΠΠ°ΡΠ΅ΠΌ ΠΎΠ½ Π±Π»ΠΎΠΊΠΈΡΡΠ΅Ρ ΡΠ΅, ΠΊΠΎΡΠΎΡΡΠ΅ ΡΠΎΠ΄Π΅ΡΠΆΠ°Ρ ΡΠΎΡΠΌΡΠ»Ρ, ΠΏΠ΅ΡΠ΅Π΄ ΠΏΡΠΈΠΌΠ΅Π½Π΅Π½ΠΈΠ΅ΠΌ Π·Π°ΡΠΈΡΡ.
Sub ProtectFormulas()
Π‘ ActiveSheet
.Π‘Π½ΡΡΡ Π·Π°ΡΠΈΡΡ
.Cells.Locked = ΠΠΎΠΆΡ
.Cells.SpecialCells(xlCellTypeFormulas).Locked = ΠΡΡΠΈΠ½Π°
.ΠΠ°ΡΠΈΡΠ°ΡΡ
ΠΠΎΠ½Π΅Ρ Ρ
ΠΠΎΠ½Π΅Ρ ΡΡΠ±
Π¦ΠΈΠΊΠ» ΠΏΠΎ Π²ΡΠ΅ΠΌ Π»ΠΈΡΡΠ°ΠΌ ΡΠ°Π±ΠΎΡΠ΅ΠΉ ΠΊΠ½ΠΈΠ³ΠΈ
Π‘ΠΎΠ·Π΄Π°ΡΡ ΡΠΈΠΊΠ» Π΄Π»Ρ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ Π΄Π΅ΠΉΡΡΠ²ΠΈΡ Π½Π° Π²ΡΠ΅Ρ Π»ΠΈΡΡΠ°Ρ ΡΠ°Π±ΠΎΡΠ΅ΠΉ ΠΊΠ½ΠΈΠ³ΠΈ ΠΎΡΠ΅Π½Ρ ΠΏΡΠΎΡΡΠΎ. ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ Π²ΡΡΠ°Π²ΠΈΡΡ Π»ΡΠ±ΠΎΠ΅ Π΄Π΅ΠΉΡΡΠ²ΠΈΠ΅, ΠΊΠΎΡΠΎΡΠΎΠ΅ Π²Π°ΠΌ Π½ΡΠΆΠ½ΠΎ.
Π ΡΡΠΎΠΌ ΠΏΡΠΈΠΌΠ΅ΡΠ΅ ΠΌΡ Π·Π°ΡΠΈΡΠ°Π΅ΠΌ Π»ΠΈΡΡΡ. ΠΠ°ΠΌΠ΅Π½ΠΈΡΠ΅ ΡΡΡΠΎΠΊΡ ws.Protect Π½Π° Π½ΡΠΆΠ½ΡΠ΅ Π²Π°ΠΌ Π΄Π΅ΠΉΡΡΠ²ΠΈΡ. ΠΡΠΏΠΎΠ»ΡΠ·ΡΠΉΡΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ ws ΠΏΡΠΈ ΡΡΡΠ»ΠΊΠ΅ Π½Π° ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ.
Sub LoopAllSheets()
Dim ws As ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ
ΠΠ»Ρ ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ ws Π² ActiveWorkbook.Worksheets
ws.Protect
Π‘Π»Π΅Π΄ΡΡΡΠΈΠΉ ΠΌΡ
ΠΠΎΠ½Π΅Ρ ΡΡΠ±
ΠΠΎΠ΄Ρ ΡΠ°Π±ΠΎΡΠΈΡ ΠΊΠ½ΠΈΠ³
Π‘Π»Π΅Π΄ΡΡΡΠΈΠ΅ ΠΊΠΎΠ΄Ρ Π±ΡΠ΄ΡΡ Π²ΡΠΏΠΎΠ»Π½ΡΡΡ Π½Π΅ΠΊΠΎΡΠΎΡΡΠ΅ ΠΎΠ±ΡΠΈΠ΅ Π·Π°Π΄Π°ΡΠΈ ΡΠ°Π±ΠΎΡΠΈΡ ΠΊΠ½ΠΈΠ³.
ΠΠΎΠΊΠ°Π·Π°ΡΡ Π²ΡΠ΅ ΡΠ°Π±ΠΎΡΠΈΠ΅ Π»ΠΈΡΡΡ
Π Excel ΠΌΠΎΠΆΠ½ΠΎ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°ΡΡ ΡΠΎΠ»ΡΠΊΠΎ ΠΎΠ΄ΠΈΠ½ ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ Π·Π° ΡΠ°Π·. Π’Π°ΠΊΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ, ΡΡΠΎΡ ΠΊΠΎΠ΄ ΠΏΠΎΠΊΠ°ΠΆΠ΅Ρ Π²ΡΠ΅ ΡΠ°Π±ΠΎΡΠΈΠ΅ Π»ΠΈΡΡΡ ΠΎΠ΄Π½ΠΈΠΌ ΡΠ΅Π»ΡΠΊΠΎΠΌ ΠΌΡΡΠΈ.
Sub UnhideAllWorksheets()
Dim ws As ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ
ΠΠ»Ρ ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ ws Π² ActiveWorkbook. Worksheets
ws.Visible = ΠΊΡΠ»ΡΠΈΡΠ²ΠΈΡΠΈΠ±Π»Π΅
Π‘Π»Π΅Π΄ΡΡΡΠΈΠΉ ΠΌΡ
End Sub
ΠΠ°ΡΠΈΡΠ° ΠΊΠ½ΠΈΠ³ΠΈ
Π‘Π»Π΅Π΄ΡΡΡΠΈΠΉ ΠΊΠΎΠ΄ Π·Π°ΡΠΈΡΠΈΡ ΠΊΠ½ΠΈΠ³Ρ, ΡΡΠΎΠ±Ρ ΠΏΡΠ΅Π΄ΠΎΡΠ²ΡΠ°ΡΠΈΡΡ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΡ ΡΡΡΡΠΊΡΡΡΡ. ΠΠ½ ΡΡΡΠ°Π½Π°Π²Π»ΠΈΠ²Π°Π΅Ρ ΠΏΠ°ΡΠΎΠ»Ρ, Π½ΠΎ ΡΡΠΎ Π½Π΅ΠΎΠ±ΡΠ·Π°ΡΠ΅Π»ΡΠ½ΠΎ ΠΈ ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ ΠΈΡΠΊΠ»ΡΡΠ΅Π½ΠΎ.
Sub ProtectWorkbook()
ΠΠ°ΡΠΎΠ»Ρ ThisWorkbook.Protect: = "Excel"
End Sub
ΠΡΠΊΡΡΡΠΈΠ΅ ΠΈ Π·Π°ΠΊΡΡΡΠΈΠ΅ ΠΊΠ½ΠΈΠ³ΠΈ
Π‘Π»Π΅Π΄ΡΡΡΠΈΠΉ ΠΊΠΎΠ΄ ΡΠ»Π΅Π΄ΡΠ΅Ρ ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ΅ ΠΊΠΎΠΏΠΈΡΠΎΠ²Π°Π½ΠΈΡ Π΄Π°Π½Π½ΡΡ ΠΈΠ· ΡΠ΅ΠΊΡΡΠ΅ΠΉ Π°ΠΊΡΠΈΠ²Π½ΠΎΠΉ ΠΊΠ½ΠΈΠ³ΠΈ Π² ΠΊΠ½ΠΈΠ³Ρ Ρ ΠΈΠΌΠ΅Π½Π΅ΠΌ North .
ΠΡΠΈΡΠ²Π°ΠΈΠ²Π°Π΅Ρ Π°ΠΊΡΠΈΠ²Π½ΡΡ ΠΊΠ½ΠΈΠ³Ρ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ, Π·Π°ΡΠ΅ΠΌ ΠΎΡΠΊΡΡΠ²Π°Π΅Ρ Π‘Π΅Π²Π΅ΡΠ½Π°Ρ ΡΠ°Π±ΠΎΡΠ°Ρ ΠΊΠ½ΠΈΠ³Π° , ΡΡΠΎΠ±Ρ ΡΠΊΠΎΠΏΠΈΡΠΎΠ²Π°ΡΡ Π² Π½Π΅Π΅ Π΄Π°Π½Π½ΡΠ΅ ΠΈΠ· Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π° A1:C250. ΠΠ°ΡΠ΅ΠΌ ΡΡΠ° ΡΠ°Π±ΠΎΡΠ°Ρ ΠΊΠ½ΠΈΠ³Π° ΡΠΎΡ ΡΠ°Π½ΡΠ΅ΡΡΡ ΠΈ Π·Π°ΠΊΡΡΠ²Π°Π΅ΡΡΡ.
Π‘ΡΡΠ΅ΡΡΠ²ΡΠ΅Ρ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²ΠΎ ΠΌΠ΅ΡΠΎΠ΄ΠΎΠ² ΠΎΠ±ΡΠ°ΡΠ΅Π½ΠΈΡ ΠΊ ΠΊΠ½ΠΈΠ³Π°ΠΌ, ΠΈ Π½Π΅ΠΊΠΎΡΠΎΡΡΠ΅ ΠΈΠ· Π½ΠΈΡ Π΄Π΅ΠΌΠΎΠ½ΡΡΡΠΈΡΡΡΡΡΡ Π² ΡΡΠΎΠΌ Π½Π΅Π±ΠΎΠ»ΡΡΠΎΠΌ ΠΊΠΎΠ΄Π΅.
Sub OpenCloseWorkbooks()
Dim wbk ΠΊΠ°ΠΊ ΡΠ°Π±ΠΎΡΠ°Ρ ΠΊΠ½ΠΈΠ³Π°
Π£ΡΡΠ°Π½ΠΎΠ²ΠΈΡΠ΅ wbk = ActiveWorkbook
Workbooks.Open "C:\Users\Admin\OneDrive\Desktop\Sales\North.xlsx"
wbk. Sheets("ΠΠΈΡΡ1").Range("A1:C250").ΠΠ°Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΠΊΠΎΠΏΠΈΡΠΎΠ²Π°Π½ΠΈΡ:=Range("A1")
ActiveWorkbook.Close SaveChanges:=True
ΠΠΎΠ½Π΅Ρ ΡΡΠ±
ΠΠ»Π΅ΠΊΡΡΠΎΠ½Π½Π°Ρ ΠΏΠΎΡΡΠ° Π°ΠΊΡΠΈΠ²Π½ΠΎΠΉ ΠΊΠ½ΠΈΠ³ΠΈ Ρ ΠΏΠΎΠΌΠΎΡΡΡ Outlook
Π‘Π»Π΅Π΄ΡΡΡΠΈΠΉ ΠΊΠΎΠ΄ VBA ΡΠΎΠ·Π΄Π°Π΅Ρ Π½ΠΎΠ²ΠΎΠ΅ ΡΠ»Π΅ΠΊΡΡΠΎΠ½Π½ΠΎΠ΅ ΠΏΠΈΡΡΠΌΠΎ Π² Microsoft Outlook Ρ Π·Π°ΠΏΠΎΠ»Π½Π΅Π½Π½ΡΠΌ Π°Π΄ΡΠ΅ΡΠΎΠΌ ΡΠ»Π΅ΠΊΡΡΠΎΠ½Π½ΠΎΠΉ ΠΏΠΎΡΡΡ ΠΏΠΎΠ»ΡΡΠ°ΡΠ΅Π»Ρ, ΡΡΡΠΎΠΊΠΎΠΉ ΡΠ΅ΠΌΡ ΠΈ ΠΎΡΠ½ΠΎΠ²Π½ΡΠΌ ΡΠ΅ΠΊΡΡΠΎΠΌ. ΠΠΊΡΠΈΠ²Π½Π°Ρ ΡΠ°Π±ΠΎΡΠ°Ρ ΠΊΠ½ΠΈΠ³Π° Π±ΡΠ΄Π΅Ρ Π΄ΠΎΠ±Π°Π²Π»Π΅Π½Π° ββΠΊΠ°ΠΊ Π²Π»ΠΎΠΆΠ΅Π½ΠΈΠ΅.
ΠΠ»Π΅ΠΊΡΡΠΎΠ½Π½Π°Ρ ΠΏΠΎΡΡΠ° ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°Π΅ΡΡΡ, ΡΡΠΎΠ±Ρ Π΅Π΅ ΠΌΠΎΠΆΠ½ΠΎ Π±ΡΠ»ΠΎ ΠΏΡΠΎΠ²Π΅ΡΠΈΡΡ ΠΈ Π²Π½Π΅ΡΡΠΈ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΡ ΠΏΠ΅ΡΠ΅Π΄ ΠΎΡΠΏΡΠ°Π²ΠΊΠΎΠΉ. ΠΠ·ΠΌΠ΅Π½ΠΈΡΠ΅ .display Π½Π° .send , ΡΡΠΎΠ±Ρ ΠΎΡΠΏΡΠ°Π²ΠΈΡΡ ΠΏΡΠΈΠΊΡΠ΅ΠΏΠ»Π΅Π½Π½ΡΡ ΠΊΠ½ΠΈΠ³Ρ ΠΏΠΎ ΡΠ»Π΅ΠΊΡΡΠΎΠ½Π½ΠΎΠΉ ΠΏΠΎΡΡΠ΅ ΠΎΠ΄Π½ΠΈΠΌ ΡΠ΅Π»ΡΠΊΠΎΠΌ ΠΌΡΡΠΈ.
Π‘ΡΠ±Π°ΡΡΠ°ΡΡΠΎΠ΅ΠΌΠ°ΠΈΠ»()
Dim OutApp ΠΊΠ°ΠΊ ΠΎΠ±ΡΠ΅ΠΊΡ
ΠΠ°ΡΠ΅ΠΌΠ½ΠΈΡΡ OutMail ΠΊΠ°ΠΊ ΠΎΠ±ΡΠ΅ΠΊΡ
Π£ΡΡΠ°Π½ΠΎΠ²ΠΈΡΠ΅ OutApp = CreateObject("Outlook.Application")
Π£ΡΡΠ°Π½ΠΎΠ²ΠΈΡΡ OutMail = OutApp.CreateItem(0)
Π‘ ΠΈΡΡ
ΠΎΠ΄ΡΡΠ΅ΠΉ ΠΏΠΎΡΡΠΎΠΉ
.to = "[email protected]"
.Subject = "ΠΠ΅Π»ΠΈΠΊΠΎΠ»Π΅ΠΏΠ½Π°Ρ ΡΠ»Π΅ΠΊΡΡΠΎΠ½Π½Π°Ρ ΡΠ°Π±Π»ΠΈΡΠ°"
.Body = "ΠΠ΄ΡΠ°Π²ΡΡΠ²ΡΠΉΡΠ΅! ΠΠ°Π΄Π΅ΡΡΡ, Π²Π°ΠΌ ΠΏΠΎΠ½ΡΠ°Π²ΠΈΡΡΡ Π²Π΅Π»ΠΈΠΊΠΎΠ»Π΅ΠΏΠ½Π°Ρ ΡΠ°Π±Π»ΠΈΡΠ°, ΠΏΡΠΈΠΊΡΠ΅ΠΏΠ»Π΅Π½Π½Π°Ρ ΠΊ ΡΡΠΎΠΌΡ ΠΏΠΈΡΡΠΌΡ. "
.Attachments.Add ActiveWorkbook.FullName
.ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°ΡΡ
ΠΠΎΠ½Π΅Ρ Ρ
Π£ΡΡΠ°Π½ΠΎΠ²ΠΈΡΠ΅ OutMail = ΠΠΈΡΠ΅Π³ΠΎ
Π£ΡΡΠ°Π½ΠΎΠ²ΠΈΡΡ OutApp = ΠΠΈΡΠ΅Π³ΠΎ
ΠΠΎΠ½Π΅Ρ ΡΡΠ±
Π€Π°ΠΉΠ»Ρ ΠΈ ΠΏΠ°ΠΏΠΊΠΈ
ΠΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ VBA Π΄Π»Ρ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΠ·Π°ΡΠΈΠΈ ΡΠ°Π±ΠΎΡΡ Ρ ΡΠ°ΠΉΠ»Π°ΠΌΠΈ ΠΈ ΠΏΠ°ΠΏΠΊΠ°ΠΌΠΈ Π²ΠΎ Π²ΡΠ΅ΠΌΡ ΠΏΡΠΎΡΠ΅ΡΡΠ° ΠΎΡΠ΅Π½Ρ ΠΏΠΎΠ»Π΅Π·Π½ΠΎ.
ΠΠΊΡΠΏΠΎΡΡ ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ ΡΠ°Π±ΠΎΡΠ΅Π³ΠΎ Π»ΠΈΡΡΠ° Π² Π²ΠΈΠ΄Π΅ ΠΎΡΠ΄Π΅Π»ΡΠ½ΠΎΠ³ΠΎ PDF-ΡΠ°ΠΉΠ»Π°
ΠΡΠΎΡ ΠΊΠΎΠ΄ ΡΠΊΡΠΏΠΎΡΡΠΈΡΡΠ΅Ρ Π²ΡΠ΅ ΡΠ°Π±ΠΎΡΠΈΠ΅ Π»ΠΈΡΡΡ Π² ΠΎΡΠ΄Π΅Π»ΡΠ½ΡΠΉ PDF-ΡΠ°ΠΉΠ». ΠΠΌΡ Π»ΠΈΡΡΠ° ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ Π² ΠΊΠ°ΡΠ΅ΡΡΠ²Π΅ ΠΈΠΌΠ΅Π½ΠΈ ΡΠ°ΠΉΠ»Π° PDF, ΠΈ ΠΎΠ½ΠΈ ΡΠΎΡ ΡΠ°Π½ΡΡΡΡΡ Π² ΠΏΠ°ΠΏΠΊΡ, Π½Π°Π·Π½Π°ΡΠ΅Π½Π½ΡΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ FolderPath . ΠΡΠΎΡΡΠΎ ΠΈΠ·ΠΌΠ΅Π½ΠΈΡΠ΅ ΡΡΠΎΡ ΠΏΡΡΡ Π½Π° ΡΠΎ, ΡΡΠΎ Π²Π°ΠΌ Π½ΡΠΆΠ½ΠΎ.
Sub ExportAsPDF()
Dim FolderPath ΠΊΠ°ΠΊ ΡΡΡΠΎΠΊΠ°
Dim ws As ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ
FolderPath = "C:\Users\Computergaga\Desktop\Sales"
ΠΠ»Ρ ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ ws Π² ActiveWorkbook.Worksheets
ws.ExportAsFixedFormat Π’ΠΈΠΏ: = xlTypePDF, ΠΈΠΌΡ ΡΠ°ΠΉΠ»Π°: = FolderPath & "\" &
ws.Name, openafterpublish:=False
Π‘Π»Π΅Π΄ΡΡΡΠΈΠΉ
MsgBox "ΠΡΠ΅ ΡΠ°ΠΉΠ»Ρ PDF ΡΡΠΏΠ΅ΡΠ½ΠΎ ΡΠΊΡΠΏΠΎΡΡΠΈΡΠΎΠ²Π°Π½Ρ."
ΠΠΎΠ½Π΅Ρ ΡΡΠ±
ΠΠΊΡΠΏΠΎΡΡ Π°ΠΊΡΠΈΠ²Π½ΠΎΠ³ΠΎ Π»ΠΈΡΡΠ° Π² ΡΠΎΡΠΌΠ°ΡΠ΅ PDF
ΠΡΠ»ΠΈ Π²Π°ΠΌ Π½ΡΠΆΠ½ΠΎ ΡΠΊΡΠΏΠΎΡΡΠΈΡΠΎΠ²Π°ΡΡ ΡΠΎΠ»ΡΠΊΠΎ Π°ΠΊΡΠΈΠ²Π½ΡΠΉ ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ, ΠΏΠΎΡΡΠ΅Π±ΡΡΡΡΡ ΡΠΎΠ»ΡΠΊΠΎ ΡΠ»Π΅Π΄ΡΡΡΠΈΠ΅ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΎ ΡΡΡΠΎΠΊ ΠΊΠΎΠ΄Π°.
Sub ExportAsPDF()
FolderPath = "C:\Users\Computergaga\Desktop\Sales"
ActiveSheet.ExportAsFixedFormat Π’ΠΈΠΏ:=xlTypePDF, ΠΈΠΌΡ ΡΠ°ΠΉΠ»Π°:=FolderPath & "\" &
Activesheet.Name, openafterpublish:=False
End Sub
ΠΠΊΡΠΏΠΎΡΡ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΈΡ Π»ΠΈΡΡΠΎΠ² Π² ΠΎΠ΄ΠΈΠ½ PDF-ΡΠ°ΠΉΠ»
ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΡΠΊΡΠΏΠΎΡΡΠΈΡΠΎΠ²Π°ΡΡ ΡΠ°Π±ΠΎΡΠΈΠ΅ Π»ΠΈΡΡΡ Π² ΠΎΠ΄ΠΈΠ½ ΡΠ°ΠΉΠ» PDF. ΠΡΠΎΡ ΠΊΠΎΠ΄ ΡΠΊΡΠΏΠΎΡΡΠΈΡΡΠ΅Ρ ΡΠ°Π±ΠΎΡΠΈΠ΅ Π»ΠΈΡΡΡ Ρ ΠΈΠΌΠ΅Π½Π°ΠΌΠΈ London ΠΈ Berlin Π² ΠΎΠ΄ΠΈΠ½ ΡΠ°ΠΉΠ» PDF.
Π ΡΡΠΎΠΌ ΠΏΡΠΈΠΌΠ΅ΡΠ΅ Π½Π° Π»ΠΈΡΡΡ ΡΡΡΠ»Π°ΡΡΡΡ ΠΏΠΎ ΠΈΡ ΠΈΠΌΠ΅Π½ΠΈ, Π½ΠΎ Π²Ρ ΡΠ°ΠΊΠΆΠ΅ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΡΡΡΠ»Π°ΡΡΡΡ Π½Π° Π½ΠΈΡ , ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡ ΠΈΡ ΠΏΠΎΡΡΠ΄ΠΊΠΎΠ²ΡΠΉ Π½ΠΎΠΌΠ΅Ρ. ΠΠ°ΠΏΡΠΈΠΌΠ΅Ρ, Π»ΠΈΡΡΠΎΠ² (ΠΌΠ°ΡΡΠΈΠ² (3, 6)). ΠΡΠ±Π΅ΡΠΈΡΠ΅
.
Sub ExportAsPDF()
Dim FolderPath ΠΊΠ°ΠΊ ΡΡΡΠΎΠΊΠ°
FolderPath = "C:\Users\Trainee1\Desktop\PDFs"
ΠΠΈΡΡΡ(ΠΠ°ΡΡΠΈΠ²("ΠΠΎΠ½Π΄ΠΎΠ½", "ΠΠ΅ΡΠ»ΠΈΠ½")).ΠΡΠ±ΡΠ°ΡΡ
ActiveSheet.ExportAsFixedFormat Π’ΠΈΠΏ:=xlTypePDF, ΠΠΌΡ ΡΠ°ΠΉΠ»Π°:=FolderPath & "\Sales", openafterpublish:=False, ignoreprintareas:=False
MsgBox "ΠΡΠ΅ ΡΠ°ΠΉΠ»Ρ PDF ΡΡΠΏΠ΅ΡΠ½ΠΎ ΡΠΊΡΠΏΠΎΡΡΠΈΡΠΎΠ²Π°Π½Ρ."
ΠΠΎΠ½Π΅Ρ ΡΡΠ±
Π¦ΠΈΠΊΠ»ΠΈΡΠ΅ΡΠΊΠΈΠΉ ΠΏΡΠΎΡΠΌΠΎΡΡ Π²ΡΠ΅Ρ ΡΠ°ΠΉΠ»ΠΎΠ² ΠΏΠ°ΠΏΠΊΠΈ
Π‘Π»Π΅Π΄ΡΡΡΠΈΠΉ ΠΊΠΎΠ΄ VBA Π±ΡΠ΄Π΅Ρ Π²ΡΠΏΠΎΠ»Π½ΡΡΡ ΡΠΈΠΊΠ»ΠΈΡΠ΅ΡΠΊΠΈΠΉ ΠΏΡΠΎΡΠΌΠΎΡΡ ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ ΡΠ°ΠΉΠ»Π° Π² ΠΏΠ°ΠΏΠΊΠ΅ Sales Π½Π° ΡΠ°Π±ΠΎΡΠ΅ΠΌ ΡΡΠΎΠ»Π΅.
ΠΠ°ΠΆΠ΄ΡΠΉ ΡΠ°ΠΉΠ» ΠΎΡΠΊΡΡΠ²Π°Π΅ΡΡΡ, ΡΠΈΡΠ»ΠΎ 20 Π²Π²ΠΎΠ΄ΠΈΡΡΡ Π² ΡΡΠ΅ΠΉΠΊΡ A1 ΠΠΈΡΡΠ° 1, Π·Π°ΡΠ΅ΠΌ ΡΠΎΡ ΡΠ°Π½ΡΠ΅ΡΡΡ ΠΈ Π·Π°ΠΊΡΡΠ²Π°Π΅ΡΡΡ. ΠΡΠΎ ΠΏΡΠΎΡΡΠ°Ρ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΡ, Π½ΠΎ ΡΡΠΎΡ ΠΊΠΎΠ΄ ΠΌΠΎΠΆΠ½ΠΎ Π·Π°ΠΌΠ΅Π½ΠΈΡΡ Π»ΡΠ±ΡΠΌΠΈ Π΄Π΅ΠΉΡΡΠ²ΠΈΡΠΌΠΈ, ΠΊΠΎΡΠΎΡΡΠ΅ Π²Ρ Ρ ΠΎΡΠΈΡΠ΅ Π²ΡΠΏΠΎΠ»Π½ΠΈΡΡ Ρ ΠΊΠ°ΠΆΠ΄ΡΠΌ ΡΠ°ΠΉΠ»ΠΎΠΌ Π² ΠΏΠ°ΠΏΠΊΠ΅.
ΠΠ»Ρ ΡΡΠΎΠ³ΠΎ ΠΏΡΠΎΡΠ΅ΡΡΠ° ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ ΡΡΠ½ΠΊΡΠΈΡ Dir . ΠΠ΅ΡΠ²ΡΠΉ ΡΠΊΠ·Π΅ΠΌΠΏΠ»ΡΡ Dir β ΡΡΠΎ ΠΊΠΎΠ³Π΄Π° ΡΠΊΠ°Π·Π°Π½ ΠΏΡΡΡ ΠΊ ΡΠ°ΠΉΠ»Ρ. ΠΠ½ Π·Π°Ρ Π²Π°ΡΡΠ²Π°Π΅Ρ ΠΈΠΌΡ ΡΠ°ΠΉΠ»Π° ΠΏΠ΅ΡΠ²ΠΎΠ³ΠΎ ΡΠ°ΠΉΠ»Π° Π² ΠΏΠ°ΠΏΠΊΠ΅.
ΠΠ°ΡΠ΅ΠΌ ΠΎΠ½ ΡΠ½ΠΎΠ²Π° ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ Π² ΠΊΠΎΠ½ΡΠ΅ ΡΠΈΠΊΠ»Π° Π΄Π»Ρ Π·Π°Ρ Π²Π°ΡΠ° ΠΈΠΌΠ΅Π½ΠΈ ΡΠ»Π΅Π΄ΡΡΡΠ΅Π³ΠΎ ΡΠ°ΠΉΠ»Π°.
Sub LoopAllFiles()
Dim fileName ΠΊΠ°ΠΊ Π²Π°ΡΠΈΠ°Π½Ρ
fileName = Dir("C:\Users\admin\OneDrive\Desktop\Sales\")
ΠΠ΅Π»Π°ΡΡ, ΠΏΠΎΠΊΠ° ΠΈΠΌΡ_ΡΠ°ΠΉΠ»Π° <> ""
Workbooks.ΠΡΠΊΡΡΡΡ ΠΈΠΌΡ ΡΠ°ΠΉΠ»Π°
Π Π°Π±ΠΎΡΠΈΠ΅ Π»ΠΈΡΡΡ ("ΠΠΈΡΡ1"). ΠΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ("Π1"). ΠΠ½Π°ΡΠ΅Π½ΠΈΠ΅ = 20
ActiveWorkbook.Close savechanges:=True
ΠΈΠΌΡ_ΡΠ°ΠΉΠ»Π° = ΠΠ°ΡΠ°Π»ΠΎΠ³
ΠΠ΅ΡΠ»Ρ
ΠΠΎΠ½Π΅ΡΠ½ΡΠΉ ΠΏΠ΅ΡΠ΅Ρ
ΠΎΠ΄Π½ΠΈΠΊ
ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ Π·Π°ΡΠΈΠΊΠ»ΠΈΠ²Π°ΡΡΡΡ Π½Π° ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Π½ΡΡ ΡΠ°ΠΉΠ»Π°Ρ ΡΠΎΠ»ΡΠΊΠΎ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΠΏΠΎΠ΄ΡΡΠ°Π½ΠΎΠ²ΠΎΡΠ½ΡΡ Π·Π½Π°ΠΊΠΎΠ². ΠΡΠΈΠ²Π΅Π΄Π΅Π½Π½ΡΠΉ Π½ΠΈΠΆΠ΅ ΠΊΠΎΠ΄ ΠΌΠΎΠΆΠ½ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ Π΄Π»Ρ Π·Π°ΠΌΠ΅Π½Ρ ΠΏΠ΅ΡΠ²ΠΎΠ³ΠΎ ΡΠΊΠ·Π΅ΠΌΠΏΠ»ΡΡΠ° ΡΡΠ½ΠΊΡΠΈΠΈ Dir ΠΈ ΡΠΈΠΊΠ»Π° ΡΠΎΠ»ΡΠΊΠΎ Π΄Π»Ρ ΡΠ°ΠΉΠ»ΠΎΠ² . xlsx.
ΠΈΠΌΡ_ΡΠ°ΠΉΠ»Π° = Dir("C:\Users\admin\OneDrive\Desktop\Sales\*.xlsx")
ΠΡΠ±ΠΎΡ ΡΠ°ΠΉΠ»Π° Ρ ΠΏΠΎΠΌΠΎΡΡΡ Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠ³ΠΎ ΠΎΠΊΠ½Π° FileDialog
ΠΡΠΈ ΡΠ°Π±ΠΎΡΠ΅ Ρ ΡΠ°ΠΉΠ»Π°ΠΌΠΈ Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠ΅ ΠΎΠΊΠ½ΠΎ FileDialog Π² Excel VBA ΠΎΡΠ΅Π½Ρ ΠΏΠΎΠ»Π΅Π·Π½ΠΎ. ΠΡΠΎ ΡΡΠ΅Π΄Π°, Ρ ΠΊΠΎΡΠΎΡΠΎΠΉ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ ΠΌΠ³Π½ΠΎΠ²Π΅Π½Π½ΠΎ Π·Π½Π°ΠΊΠΎΠΌΠΈΡΡΡ.
Π‘ΡΡΠ΅ΡΡΠ²ΡΡΡ FileDialogs Π΄Π»Ρ ΠΎΡΠΊΡΡΡΠΈΡ ΡΠ°ΠΉΠ»Π°, ΡΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΡ, Π²ΡΠ±ΠΎΡΠ° ΠΈ Π²ΡΠ±ΠΎΡΠ° ΠΏΠ°ΠΏΠΊΠΈ. Π ΡΡΠΎΠΌ ΠΏΡΠΈΠΌΠ΅ΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ ΠΎΡΠΊΡΡΡΡΠΉ Π΄ΠΈΠ°Π»ΠΎΠ³. ΠΡΠΎ ΠΈΠ·Π²Π΅ΡΡΠ½ΠΎ ΠΊΠ°ΠΊ ΠΌΡΠΎΡΠΈΠ»Π΅Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠΏΠ΅Π½ .
ΠΡΠΎ Π½Π΅ΠΌΠ½ΠΎΠ³ΠΎ Π²Π²ΠΎΠ΄ΠΈΡ Π² Π·Π°Π±Π»ΡΠΆΠ΄Π΅Π½ΠΈΠ΅, ΠΏΠΎΡΠΎΠΌΡ ΡΡΠΎ Π΄ΠΈΠ°Π»ΠΎΠ³ ΡΠ°ΠΊΡΠΈΡΠ΅ΡΠΊΠΈ Π½Π΅ ΠΎΡΠΊΡΡΠ²Π°Π΅Ρ ΡΠ°ΠΉΠ». ΠΡΠΎ ΡΠΎΠ»ΡΠΊΠΎ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠΈΠ²Π°Π΅Ρ ΡΡΠ΅Π΄Ρ, ΡΡΠΎΠ±Ρ Π½Π°ΠΉΡΠΈ ΠΈ Π²ΡΠ±ΡΠ°ΡΡ Π΅Π³ΠΎ Π»Π΅Π³ΠΊΠΎ. ΠΠ°ΡΠ΅ΠΌ Π²Ρ ΠΌΠΎΠΆΠ΅ΡΠ΅ Π΄Π΅Π»Π°ΡΡ Ρ Π½ΠΈΠΌ Π»ΡΠ±ΡΠ΅ Π΄Π΅ΠΉΡΡΠ²ΠΈΡ.
Π ΡΡΠΎΠΌ ΠΊΠΎΠ΄Π΅ VBA ΠΌΠ°Π½ΠΈΠΏΡΠ»ΠΈΡΡΡΡΡΡ ΡΠ°Π·Π»ΠΈΡΠ½ΡΠΌΠΈ ΡΠ²ΠΎΠΉΡΡΠ²Π°ΠΌΠΈ FileDialog, ΠΏΠΎΡΡΠΎΠΌΡ ΠΎΠ½ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ Ρ ΠΊΠΎΠ½ΡΡΡΡΠΊΡΠΈΠ΅ΠΉ With .
ΠΡΠ±ΡΠ°Π½Π½Π°Ρ ΡΠ°Π±ΠΎΡΠ°Ρ ΠΊΠ½ΠΈΠ³Π° ΠΎΡΠΊΡΡΠ²Π°Π΅ΡΡΡ, ΠΈ ΡΠΈΡΠ»ΠΎ 20 Π·Π°ΠΏΠΈΡΡΠ²Π°Π΅ΡΡΡ Π² ΡΡΠ΅ΠΉΠΊΡ A1. ΠΡΠ΅ ΡΠ°Π· ΠΎΠ±ΡΠ°Π·Π΅Ρ Π΄Π΅ΠΉΡΡΠ²ΠΈΡ, ΠΊΠΎΡΠΎΡΠΎΠ΅ Π²Ρ ΠΌΠΎΠΆΠ΅ΡΠ΅ Π·Π°ΠΌΠ΅Π½ΠΈΡΡ ΡΠ΅ΠΌ ΡΠ³ΠΎΠ΄Π½ΠΎ.
Sub ΠΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ FileDialog()
Dim ΠΈΠΌΡ ΡΠ°ΠΉΠ»Π° ΠΊΠ°ΠΊ ΡΡΡΠΎΠΊΠ°
Π‘ Application. FileDialog(msoFileDialogOpen)
.AllowMultiSelect = ΠΠΎΠΆΡ
.Title = "ΠΡΠ±Π΅ΡΠΈΡΠ΅ ΠΊΠ½ΠΈΠ³Ρ Π΄Π»Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΡ"
.ΠΠΎΠΊΠ°Π·ΡΠ²Π°ΡΡ
ΠΠΌΡ ΡΠ°ΠΉΠ»Π° = .SelectedItems(1)
ΠΠΎΠ½Π΅Ρ Ρ
Workbooks.Open ΠΈΠΌΡ ΡΠ°ΠΉΠ»Π°
Π Π°Π±ΠΎΡΠΈΠ΅ Π»ΠΈΡΡΡ ("ΠΠΈΡΡ1"). ΠΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ("Π1"). ΠΠ½Π°ΡΠ΅Π½ΠΈΠ΅ = 20
ActiveWorkbook.Close SaveChanges:=True
MsgBox "ΠΠ½ΠΈΠ³Π° ΠΎΠ±Π½ΠΎΠ²Π»Π΅Π½Π°"
End Sub
ΠΠΎΠ»Π΅Π·Π½ΡΠ΅ ΡΡΠ½ΠΊΡΠΈΠΈ Excel
ΠΡΠΈ ΠΊΠΎΠ΄Ρ VBA ΡΠΏΡΠΎΡΡΡΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ Π½Π΅ΠΊΠΎΡΠΎΡΡΡ Π½Π°ΠΈΠ±ΠΎΠ»Π΅Π΅ ΠΏΠΎΠ»Π΅Π·Π½ΡΡ ΡΡΠ½ΠΊΡΠΈΠΉ Excel.
Π‘ΠΎΡΡΠΈΡΠΎΠ²ΠΊΠ° ΡΡΠΎΠ»Π±ΡΠΎΠ²
Π‘Π»Π΅Π΄ΡΡΡΠΈΠΉ ΠΊΠΎΠ΄ ΡΠΎΡΡΠΈΡΡΠ΅Ρ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ A1:K250 ΠΏΠΎ ΠΎΠ΄Π½ΠΎΠΌΡ ΡΡΠΎΠ»Π±ΡΡ. ΠΡΠ΅Π΄ΠΏΠΎΠ»Π°Π³Π°Π΅ΡΡΡ, ΡΡΠΎ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ΠΈΠΌΠ΅Π΅Ρ Π·Π°Π³ΠΎΠ»ΠΎΠ²ΠΊΠΈ Π² ΠΏΠ΅ΡΠ²ΠΎΠΉ ΡΡΡΠΎΠΊΠ΅.
ΠΡΠ³ΡΠΌΠ΅Π½Ρ Key1 ΡΠΊΠ°Π·ΡΠ²Π°Π΅Ρ ΡΡΠΎΠ»Π±Π΅Ρ Π΄Π»Ρ ΡΠΎΡΡΠΈΡΠΎΠ²ΠΊΠΈ. Π ΡΡΠΎΠΌ ΠΏΡΠΈΠΌΠ΅ΡΠ΅ Π°ΡΠ³ΡΠΌΠ΅Π½ΡΡ ΠΏΡΠΈΡΠ²ΠΎΠ΅Π½ΠΎ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ C1, ΠΏΠΎΡΡΠΎΠΌΡ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ΡΠΎΡΡΠΈΡΡΠ΅ΡΡΡ ΠΏΠΎ ΡΡΠΎΠ»Π±ΡΡ C Π² ΠΏΠΎΡΡΠ΄ΠΊΠ΅ ΡΠ±ΡΠ²Π°Π½ΠΈΡ.
Sub SortSingleColumn()
ΠΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ("A1: K250"). ΠΠ»ΡΡ ΡΠΎΡΡΠΈΡΠΎΠ²ΠΊΠΈ 1: = ΠΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ("C1"), Order1: = xlDescending
ΠΠΎΠ½Π΅Ρ ΡΡΠ±
Π ΡΠ»Π΅Π΄ΡΡΡΠ΅ΠΌ ΠΊΠΎΠ΄Π΅ ΠΌΠ°ΠΊΡΠΎΡΠ° ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Π½ΠΎΠ΅ ΠΈΠΌΡ ΠΡΠΎΠ΄Π°ΠΆΠΈ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ Π² ΠΊΠ°ΡΠ΅ΡΡΠ²Π΅ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π° Π΄Π»Ρ ΡΠΎΡΡΠΈΡΠΎΠ²ΠΊΠΈ. ΠΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Π½ΠΎΠ΅ ΠΈΠΌΡ Π½Π΅ Π²ΠΊΠ»ΡΡΠ°Π΅Ρ Π·Π°Π³ΠΎΠ»ΠΎΠ²ΠΊΠΈ.
ΠΠ° ΡΡΠΎΡ ΡΠ°Π· Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ΠΎΡΡΠΎΡΡΠΈΡΠΎΠ²Π°Π½ ΠΏΠΎ ΡΡΠΎΠ»Π±ΡΡ B Π² ΠΏΠΎΡΡΠ΄ΠΊΠ΅ Π²ΠΎΠ·ΡΠ°ΡΡΠ°Π½ΠΈΡ.
Sub SortSingleColumn()
Range("ΠΡΠΎΠ΄Π°ΠΆΠΈ").Sort Key1:=Range("B1"), Order1:=xlAscending
End Sub
ΠΠΎΠΏΠΎΠ»Π½ΠΈΡΠ΅Π»ΡΠ½ΡΠ΅ Π°ΡΠ³ΡΠΌΠ΅Π½ΡΡ Key ΠΈ Order ΠΌΠΎΠ³ΡΡ Π±ΡΡΡ Π΄ΠΎΠ±Π°Π²Π»Π΅Π½Ρ Π΄Π»Ρ ΡΠΎΡΡΠΈΡΠΎΠ²ΠΊΠΈ ΠΏΠΎ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΈΠΌ ΡΡΠΎΠ»Π±ΡΠ°ΠΌ.
Π ΡΡΠΎΠΌ ΠΏΡΠΈΠΌΠ΅ΡΠ΅ Π·Π°Π΄Π°Π½Π½ΠΎΠ΅ ΠΈΠΌΡ 9Π ΠΊΠ°ΡΠ΅ΡΡΠ²Π΅ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π° ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π»ΡΡ 0089 ΠΡΠΎΠ΄Π°ΠΆΠΈ . ΠΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ΡΠΎΡΡΠΈΡΡΠ΅ΡΡΡ ΡΠ½Π°ΡΠ°Π»Π° ΠΏΠΎ ΡΡΠΎΠ»Π±ΡΡ D Π² ΠΏΠΎΡΡΠ΄ΠΊΠ΅ Π²ΠΎΠ·ΡΠ°ΡΡΠ°Π½ΠΈΡ, Π° Π·Π°ΡΠ΅ΠΌ ΠΏΠΎ ΡΡΠΎΠ»Π±ΡΡ J Π² ΠΏΠΎΡΡΠ΄ΠΊΠ΅ ΡΠ±ΡΠ²Π°Π½ΠΈΡ.
Sub SortMultipleColumns()
ΠΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ("ΠΡΠΎΠ΄Π°ΠΆΠΈ"). Π‘ΠΎΡΡΠΈΡΠΎΠ²ΠΊΠ° Key1: = Range ("D1"), Order1: = xlAscending, Key2: = Range ("J1"), Order2: = xlDescending
End Sub
ΠΠ°ΠΊΠΎΠ½Π΅Ρ, Π΅ΡΠ»ΠΈ Π²Π°ΡΠΈ Π΄Π°Π½Π½ΡΠ΅ ΠΎΡΡΠΎΡΠΌΠ°ΡΠΈΡΠΎΠ²Π°Π½Ρ Π² Π²ΠΈΠ΄Π΅ ΡΠ°Π±Π»ΠΈΡΡ, ΠΌΠΎΠΆΠ½ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΡΠ»Π΅Π΄ΡΡΡΠΈΠΉ ΠΊΠΎΠ΄ VBA.
Π ΡΡΠΎΠΌ ΠΏΡΠΈΠΌΠ΅ΡΠ΅ ΡΠ°Π±Π»ΠΈΡΠ° Π½Π°Π·ΡΠ²Π°Π΅ΡΡΡ ΠΡΠΎΠ΄Π°ΠΆΠΈ ΠΈ ΡΠ°Π±Π»ΠΈΡΠ° ΠΎΡΡΠΎΡΡΠΈΡΠΎΠ²Π°Π½Π° ΠΏΠΎ ΠΏΠΎΠ»Ρ Π‘ΡΡΠ°Π½Π° Π² ΠΏΠΎΡΡΠ΄ΠΊΠ΅ Π²ΠΎΠ·ΡΠ°ΡΡΠ°Π½ΠΈΡ.
ΠΠΎΠ΄ΡΠ°Π±Π»ΠΈΡΠ° ΡΠΎΡΡΠΈΡΠΎΠ²ΠΊΠΈ()
Π‘ ActiveSheet. ListObjects("ΠΡΠΎΠ΄Π°ΠΆΠΈ").Sort
.SortFields.Clear
.SortFields.Add Key:=Range("Sales[Country]"), Order:=xlAscending
.ΠΡΠΈΠΌΠ΅Π½ΡΡΡ
ΠΠΎΠ½Π΅Ρ Ρ
End Sub
Π€ΠΈΠ»ΡΡΡΡΠΉΡΠ΅ Π΄Π°Π½Π½ΡΠ΅
Π‘Π»Π΅Π΄ΡΡΡΠΈΠΉ ΠΊΠΎΠ΄ ΠΌΠ°ΠΊΡΠΎΡΠ° ΠΌΠΎΠΆΠ½ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ Π΄Π»Ρ Π²ΠΊΠ»ΡΡΠ΅Π½ΠΈΡ ΡΡΠ½ΠΊΡΠΈΠΈ Π°Π²ΡΠΎΡΠΈΠ»ΡΡΡΠ°. ΠΠ½ ΠΏΡΠΈΠΌΠ΅Π½ΡΠ΅ΡΡΡ ΠΊ Π°ΠΊΡΠΈΠ²Π½ΠΎΠΌΡ ΡΠ°Π±ΠΎΡΠ΅ΠΌΡ Π»ΠΈΡΡΡ ΠΈ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅Ρ ΡΠ΅ΠΊΡΡΡΡ ΠΎΠ±Π»Π°ΡΡΡ Π΄Π»Ρ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π° A1.
Sub TurnFilterOn()
ΠΠΈΠ°ΠΏΠ°Π·ΠΎΠ½("A1").ΠΠ²ΡΠΎΠ€ΠΈΠ»ΡΡΡ
ΠΠΎΠ½Π΅Ρ ΡΡΠ±
Π§ΡΠΎΠ±Ρ ΠΎΡΠΊΠ»ΡΡΠΈΡΡ ΡΡΠ½ΠΊΡΠΈΡ Π°Π²ΡΠΎΡΠΈΠ»ΡΡΡΠ°, Π²Ρ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΡΡΠΎΡ ΠΊΠΎΠ΄.
Sub TurnFilterOff()
ActiveSheet.AutoFilterMode = ΠΠΎΠΆΡ
End Sub
Π ΡΡΠΎΠΌ ΠΏΡΠΈΠΌΠ΅ΡΠ΅ ΡΠΈΠ»ΡΡΡ ΠΏΡΠΈΠΌΠ΅Π½ΡΠ΅ΡΡΡ ΠΊ ΡΡΠΎΠ»Π±ΡΡ DΒ ( Field:=4 ), ΡΡΠΎΠ±Ρ ΠΎΡΠΎΠ±ΡΠ°Π·ΠΈΡΡ Π·Π°ΠΏΠΈΡΠΈ ΡΠΎΠ»ΡΠΊΠΎ Π΄Π»Ρ ΠΠ°Π½ΠΈΠΈ.
Sub FilterByText ()
ΠΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ("A1"). ΠΠΎΠ»Π΅ Π°Π²ΡΠΎΡΠΈΠ»ΡΡΡΠ°: = 4, Criteria1: = "ΠΠ°Π½ΠΈΡ"
End Sub
ΠΠ»Ρ ΡΠΈΠ»ΡΡΡΠ°ΡΠΈΠΈ ΠΏΠΎ Π±ΠΎΠ»Π΅Π΅ ΡΠ΅ΠΌ ΠΎΠ΄Π½ΠΎΠΌΡ ΡΠ΅ΠΊΡΡΠΎΠ²ΠΎΠΌΡ Π·Π½Π°ΡΠ΅Π½ΠΈΡ 9ΠΠΎΠΆΠ½ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡ 0089 xl ΠΈΠ»ΠΈ . ΠΠ΄Π΅ΡΡ Π΄Π°Π½Π½ΡΠ΅ ΡΠΈΠ»ΡΡΡΡΡΡΡΡ, ΡΡΠΎΠ±Ρ ΠΏΠΎΠΊΠ°Π·Π°ΡΡ ΡΡΡΠΎΠΊΠΈ Π΄Π»Ρ ΠΠ°Π½ΠΈΠΈ ΠΈ ΠΠ΅Π»ΠΈΠΊΠΎΠ±ΡΠΈΡΠ°Π½ΠΈΠΈ.
Sub FilterByText ()
ΠΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ("A1"). ΠΠΎΠ»Π΅ Π°Π²ΡΠΎΡΠΈΠ»ΡΡΡΠ°: = 4, ΠΊΡΠΈΡΠ΅ΡΠΈΠΈ 1: = "ΠΠ°Π½ΠΈΡ", ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡ: = xlOr, ΠΊΡΠΈΡΠ΅ΡΠΈΠΈ 2: = "ΠΠ΅Π»ΠΈΠΊΠΎΠ±ΡΠΈΡΠ°Π½ΠΈΡ"
End Sub
Π‘ΡΡΠ΅ΡΡΠ²ΡΠ΅Ρ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²ΠΎ Π΄ΠΎΡΡΡΠΏΠ½ΡΡ Π΄Π»Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΠΎΠ², ΡΠ°ΠΊΠΈΡ ΠΊΠ°ΠΊ xlFilterIcon ΠΈ xlTop10Items .
ΠΠ»Ρ ΡΠΈΠ»ΡΡΡΠ°ΡΠΈΠΈ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΡΠΈΡΠ΅Π» ΡΠ±Π΅Π΄ΠΈΡΠ΅ΡΡ, ΡΡΠΎ Π²Ρ Π²Π²ΠΎΠ΄ΠΈΡΠ΅ Π»ΠΎΠ³ΠΈΡΠ΅ΡΠΊΠΈΠ΅ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΡ Π² ΡΡΡΠΎΠΊΡ ΠΊΡΠΈΡΠ΅ΡΠΈΠ΅Π². ΠΡΠΈΠ²Π΅Π΄Π΅Π½Π½ΡΠΉ Π½ΠΈΠΆΠ΅ ΠΊΠΎΠ΄ ΡΠΈΠ»ΡΡΡΡΠ΅Ρ ΡΡΠΎΠ»Π±Π΅Ρ H, ΡΡΠΎΠ±Ρ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°Π»ΠΈΡΡ ΡΠΎΠ»ΡΠΊΠΎ ΡΠ΅ ΡΡΡΠΎΠΊΠΈ, Π² ΠΊΠΎΡΠΎΡΡΡ ΡΠΈΡΠ»ΠΎ Π±ΠΎΠ»ΡΡΠ΅ 5 ΠΈ ΠΌΠ΅Π½ΡΡΠ΅ 20.
Sub FilterByNumber()
ΠΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ("A1"). ΠΠΎΠ»Π΅ Π°Π²ΡΠΎΡΠΈΠ»ΡΡΡΠ°: = 8, Criteria1: = "> 5", ΠΠΏΠ΅ΡΠ°ΡΠΎΡ: = xlAnd, Criteria2: = "<20"
End Sub
Π ΡΠ»Π΅Π΄ΡΡΡΠ΅ΠΌ ΠΏΡΠΈΠΌΠ΅ΡΠ΅ ΡΠΏΠΈΡΠΎΠΊ ΡΠΈΠ»ΡΡΡΡΠ΅ΡΡΡ ΠΏΠΎ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΈΠΌ ΡΡΠΎΠ»Π±ΡΠ°ΠΌ. ΠΠ½ ΡΠΈΠ»ΡΡΡΡΠ΅Ρ ΡΡΠΎΠ»Π±Π΅Ρ D ΡΠΎΠ»ΡΠΊΠΎ Π΄Π»Ρ ΠΠ°Π½ΠΈΠΈ ΠΈ ΡΡΠΎΠ»Π±Π΅Ρ H Π΄Π»Ρ ΡΠΈΡΠ΅Π» Π±ΠΎΠ»ΡΡΠ΅ 5 ΠΈ ΠΌΠ΅Π½ΡΡΠ΅ 20.
Sub FilterByTwoColumns()
Π‘ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ΠΎΠΌ ("A1")
ΠΠΎΠ»Π΅ .AutoFilter:=4, Criteria1:="ΠΠ°Π½ΠΈΡ"
ΠΠΎΠ»Π΅ .AutoFilter:=8, Criteria1:=">5", ΠΠΏΠ΅ΡΠ°ΡΠΎΡ:=xlAnd, Criteria2:="<20"
ΠΠΎΠ½Π΅Ρ Ρ
ΠΠΎΠ½Π΅Ρ ΡΡΠ±
Π§ΡΠΎΠ±Ρ ΠΎΡΠΈΡΡΠΈΡΡ Π²ΡΠ΅ ΠΏΡΠΈΠΌΠ΅Π½Π΅Π½Π½ΡΠ΅ ΡΠΈΠ»ΡΡΡΡ ΠΈ ΠΏΠΎΠΊΠ°Π·Π°ΡΡ Π²ΡΠ΅ Π΄Π°Π½Π½ΡΠ΅, ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠΉΡΠ΅ ΡΠ»Π΅Π΄ΡΡΡΠΈΠΉ ΠΊΠΎΠ΄. ΠΡΠΎΡ ΠΊΠΎΠ΄ ΡΠ½Π°ΡΠ°Π»Π° ΠΏΡΠΎΠ²Π΅ΡΡΠ΅Ρ, Π±ΡΠ»ΠΈ Π»ΠΈ ΠΏΡΠΈΠΌΠ΅Π½Π΅Π½Ρ ΠΊΠ°ΠΊΠΈΠ΅-Π»ΠΈΠ±ΠΎ ΡΠΈΠ»ΡΡΡΡ, ΠΈ, Π΅ΡΠ»ΠΈ Π΄Π°, ΠΎΡΠΈΡΠ°Π΅Ρ ΠΈΡ , ΡΡΠΎΠ±Ρ ΠΎΡΠΎΠ±ΡΠ°Π·ΠΈΡΡ Π²ΡΠ΅ Π΄Π°Π½Π½ΡΠ΅.
Sub ClearFilters()
ΠΡΠ»ΠΈ ActiveSheet.FilterMode = True Π’ΠΎΠ³Π΄Π°
ActiveSheet.ShowAllData
ΠΠΎΠ½Π΅Ρ, Π΅ΡΠ»ΠΈ
End Sub
ΠΠ²ΡΠΎΡΠΈΠ»ΡΡΡ β Π½Π΅ Π΅Π΄ΠΈΠ½ΡΡΠ²Π΅Π½Π½ΡΠΉ ΡΠΈΠ»ΡΡΡ Π² Excel. Π£Π·Π½Π°ΠΉΡΠ΅, ΠΊΠ°ΠΊ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΡΠ°ΡΡΠΈΡΠ΅Π½Π½ΡΠΉ ΡΠΈΠ»ΡΡΡ Ρ VBA Π² Excel.
Π‘ΠΎΠ·Π΄Π°ΡΡ Π΄ΠΈΠ°Π³ΡΠ°ΠΌΠΌΡ
ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ Excel VBA Π΄Π»Ρ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ Π΄ΠΈΠ°Π³ΡΠ°ΠΌΠΌ ΠΎΠ΄Π½ΠΈΠΌ Π½Π°ΠΆΠ°ΡΠΈΠ΅ΠΌ ΠΊΠ½ΠΎΠΏΠΊΠΈ.
ΠΡΠΎΡ ΠΊΠΎΠ΄ VBA ΡΠΎΠ·Π΄Π°ΡΡ ΡΡΠΎΠ»Π±ΡΠ°ΡΡΡ Π΄ΠΈΠ°Π³ΡΠ°ΠΌΠΌΡ (ΡΠΈΠΏ Π΄ΠΈΠ°Π³ΡΠ°ΠΌΠΌΡ ΠΏΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ) ΠΈΠ· Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π° C3:D8. ΠΠ½ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅Ρ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ ΠΎΠ±ΡΠ΅ΠΊΡΠ° Π΄ΠΈΠ°Π³ΡΠ°ΠΌΠΌΡ, ΠΏΠΎΡΡΠΎΠΌΡ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΡ Π·Π°Π΄Π°ΡΡΡΡ Π΄Π»Ρ ΡΠ°Π·ΠΌΠ΅ΡΠ° ΠΈ ΠΏΠΎΠ»ΠΎΠΆΠ΅Π½ΠΈΡ ΠΎΠ±Π»Π°ΡΡΠΈ Π΄ΠΈΠ°Π³ΡΠ°ΠΌΠΌΡ. ΠΠ°ΡΠ΅ΠΌ Π΄Π°Π½Π½ΡΠ΅ ΡΡΡΠ°Π½Π°Π²Π»ΠΈΠ²Π°ΡΡΡΡ Π΄Π»Ρ Π΄ΠΈΠ°Π³ΡΠ°ΠΌΠΌΡ.
ΠΠΎΠ΄ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° CreateChart()
ΠΠ°ΡΠ΅ΠΌΠ½Π΅Π½ΠΈΠ΅ MChart ΠΊΠ°ΠΊ ChartObject
Π£ΡΡΠ°Π½ΠΎΠ²ΠΈΡΠ΅ MyChart = ActiveSheet.ChartObjects.Add (ΠΠ΅ΡΡ
: = 50, Π‘Π»Π΅Π²Π°: = 100, Π¨ΠΈΡΠΈΠ½Π°: = 450, ΠΡΡΠΎΡΠ°: = 250)
ΠΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ MyChart.Chart.SetSourceData("C3:D8")
ΠΠΎΠ½Π΅Ρ ΡΡΠ±
ΠΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎ, Π²Ρ Π·Π°Ρ ΠΎΡΠΈΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ Π΄ΡΡΠ³ΠΎΠΉ ΡΠΈΠΏ Π΄ΠΈΠ°Π³ΡΠ°ΠΌΠΌΡ, ΠΏΠΎΡΡΠΎΠΌΡ ΡΡΠΎΡ ΠΊΠΎΠ΄ ΠΈΠ·ΠΌΠ΅Π½ΠΈΡ Π΄ΠΈΠ°Π³ΡΠ°ΠΌΠΌΡ Π½Π° Π»ΠΈΠ½Π΅ΠΉΠ½ΡΡ Π΄ΠΈΠ°Π³ΡΠ°ΠΌΠΌΡ. ΠΠΎ ΠΌΠ΅ΡΠ΅ Π²Π²ΠΎΠ΄Π° Π±ΡΠ΄Π΅Ρ ΠΏΠΎΡΠ²Π»ΡΡΡΡΡ ΡΠΏΠΈΡΠΎΠΊ Π²ΡΠ΅Ρ ΡΠΈΠΏΠΎΠ² Π΄ΠΈΠ°Π³ΡΠ°ΠΌΠΌ.
Sub ChangeChartType()
Dim MyChart ΠΊΠ°ΠΊ Π΄ΠΈΠ°Π³ΡΠ°ΠΌΠΌΠ°
Π£ΡΡΠ°Π½ΠΎΠ²ΠΈΡΡ MyChart = ActiveSheet.ChartObjects(1).Chart
MyChart.Chart.ChartType = xlLine
End Sub
ΠΠ°ΠΊΠΎΠ½Π΅Ρ, Π²Ρ ΠΌΠΎΠΆΠ΅ΡΠ΅ Π΄ΠΎΠ±Π°Π²ΠΈΡΡ ΠΈΠ»ΠΈ ΡΠ΄Π°Π»ΠΈΡΡ ΡΠ»Π΅ΠΌΠ΅Π½ΡΡ Π΄ΠΈΠ°Π³ΡΠ°ΠΌΠΌΡ. ΠΡΠΎΡ ΠΊΠΎΠ΄ Π΄ΠΎΠ±Π°Π²Π»ΡΠ΅Ρ Π·Π°Π³ΠΎΠ»ΠΎΠ²ΠΎΠΊ Π΄ΠΈΠ°Π³ΡΠ°ΠΌΠΌΡ, Π° ΡΠ°ΠΊΠΆΠ΅ ΠΌΠ΅ΡΠΊΠΈ Π΄Π°Π½Π½ΡΡ .
ΠΡΠΈ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠΈ ΠΌΠ΅ΡΠΎΠ΄Π° SetElement ΠΏΠΎΡΠ²ΠΈΡΡΡ ΡΠΏΠΈΡΠΎΠΊ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠ² Π΄ΠΈΠ°Π³ΡΠ°ΠΌΠΌΡ. ΠΠ°ΠΆΠ½ΠΎ, ΡΡΠΎΠ±Ρ Π²Ρ Π²ΡΠ±ΡΠ°Π»ΠΈ ΡΠΎΡ, ΠΊΠΎΡΠΎΡΡΠΉ Π±ΡΠ΄Π΅Ρ ΡΠ°Π±ΠΎΡΠ°ΡΡ Ρ Π²Π°ΡΠΈΠΌ ΡΠΈΠΏΠΎΠΌ Π΄ΠΈΠ°Π³ΡΠ°ΠΌΠΌΡ. msoElementDataLabelOutSideEnd , ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΠΌΡΠΉ Π² ΡΡΠΎΠΌ ΠΏΡΠΈΠΌΠ΅ΡΠ΅, ΡΠ°Π±ΠΎΡΠ°Π΅Ρ Ρ Π³ΠΈΡΡΠΎΠ³ΡΠ°ΠΌΠΌΠ°ΠΌΠΈ, Π½ΠΎ Π½Π΅ Ρ Π»ΠΈΠ½Π΅ΠΉΠ½ΡΠΌΠΈ Π΄ΠΈΠ°Π³ΡΠ°ΠΌΠΌΠ°ΠΌΠΈ, ΠΏΠΎΡΡΠΎΠΌΡ ΡΡΠΎ ΠΌΠΎΠΆΠ΅Ρ ΠΏΡΠΈΠ²Π΅ΡΡΠΈ ΠΊ ΠΎΡΠΈΠ±ΠΊΠ΅.
Sub EditChartElements ()
Dim MyChart ΠΊΠ°ΠΊ Π΄ΠΈΠ°Π³ΡΠ°ΠΌΠΌΠ°
Π£ΡΡΠ°Π½ΠΎΠ²ΠΈΡΡ MyChart = ActiveSheet.ChartObjects(1).Chart
MyChart.HasTitle = ΠΡΡΠΈΠ½Π°
MyChart.ChartTitle.Text = "ΠΡΠΎΠ΄Π°ΠΆΠΈ ΡΠΎΠ²Π°ΡΠΎΠ²"
MyChart.SetElement msoElementDataLabelOutSideEnd
ΠΠΎΠ½Π΅Ρ ΡΡΠ±
ΠΡΠΈΠ²Π΅Π΄Π΅Π½Π½ΡΠΉ Π·Π΄Π΅ΡΡ ΠΊΠΎΠ΄ ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΠ΅Ρ ΡΠΎΠ±ΠΎΠΉ Π½Π°ΡΠ°Π»ΡΠ½ΠΎΠ΅ ΡΡΠΊΠΎΠ²ΠΎΠ΄ΡΡΠ²ΠΎ, ΠΊΠΎΡΠΎΡΠΎΠ΅ Π΄Π°ΡΡ Π²Π°ΠΌ ΠΎΡΠ½ΠΎΠ²Ρ Π΄Π»Ρ ΡΠ°Π±ΠΎΡΡ. ΠΠ»Ρ ΡΠ°Π±ΠΎΡΡ Ρ Π²Π°ΡΠΈΠΌΠΈ ΡΠ»Π΅ΠΊΡΡΠΎΠ½Π½ΡΠΌΠΈ ΡΠ°Π±Π»ΠΈΡΠ°ΠΌΠΈ ΠΎΠ±ΡΠ·Π°ΡΠ΅Π»ΡΠ½ΠΎ ΠΏΠΎΡΡΠ΅Π±ΡΠ΅ΡΡΡ Π½Π΅Π±ΠΎΠ»ΡΡΠΎΠ΅ ΡΠ΅Π΄Π°ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅.
Π‘ΠΎΠ±ΡΡΠΈΡ
ΠΡΠΈ ΠΊΠΎΠ΄Ρ ΠΌΠ°ΠΊΡΠΎΡΠΎΠ² Π·Π°ΠΏΡΡΠΊΠ°ΡΡΡΡ, ΠΊΠΎΠ³Π΄Π° ΠΈΠ½ΠΈΡΠΈΠΈΡΡΡΡΡΡ ΡΠΎΠ±ΡΡΠΈΡ, ΠΊΠΎΠ³Π΄Π° ΠΊΡΠΎ-ΡΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅Ρ Excel. ΠΡΠΈ ΡΠΎΠ±ΡΡΠΈΡ ΠΌΠΎΠ³ΡΡ Π²ΠΊΠ»ΡΡΠ°ΡΡ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ ΡΡΠ΅Π΅ΠΊ, ΠΎΡΠΊΡΡΡΠΈΠ΅ ΠΊΠ½ΠΈΠ³ Excel ΠΈ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΠ΅ Π²ΠΊΠ»Π°Π΄ΠΎΠΊ Π»ΠΈΡΡΠ°.
ΠΠ½ΠΈ Π½Π΅ ΡΡΠ΅Π±ΡΡΡ ΠΎΡ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ ΡΠΎΠ·Π½Π°ΡΠ΅Π»ΡΠ½ΠΎΠ³ΠΎ Π½Π°ΠΆΠ°ΡΠΈΡ ΠΊΠ½ΠΎΠΏΠΊΠΈ Π΄Π»Ρ Π·Π°ΠΏΡΡΠΊΠ° ΠΌΠ°ΠΊΡΠΎΡΠ°. ΠΠ½ΠΈ ΠΏΡΠΎΠΈΡΡ ΠΎΠ΄ΡΡ Π΅ΡΡΠ΅ΡΡΠ²Π΅Π½Π½ΡΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ, ΠΊΠ°ΠΊ ΠΈ ΠΊΠΎΠ³Π΄Π° ΠΏΡΠΎΠΈΡΡ ΠΎΠ΄ΠΈΡ ΡΠΊΠ°Π·Π°Π½Π½ΠΎΠ΅ ΡΠΎΠ±ΡΡΠΈΠ΅.
ΠΠ΅ΡΠ΅ΠΉΡΠΈ ΠΊ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Π½ΠΎΠΌΡ ΡΠ°Π±ΠΎΡΠ΅ΠΌΡ Π»ΠΈΡΡΡ ΠΏΡΠΈ ΠΎΡΠΊΡΡΡΠΈΠΈ
ΠΡΠΎΡ ΠΏΡΠΈΠΌΠ΅Ρ ΠΊΠΎΠ΄Π° VBA Π±ΡΠ΄Π΅Ρ Π²ΡΠΏΠΎΠ»Π½ΡΡΡΡΡ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΈ ΠΏΡΠΈ ΠΎΡΠΊΡΡΡΠΈΠΈ ΡΠ°Π±ΠΎΡΠ΅ΠΉ ΠΊΠ½ΠΈΠ³ΠΈ Excel. ΠΠ»Ρ ΡΡΠΎΠ³ΠΎ Π½Π°ΠΌ Π½ΡΠΆΠ½ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ ΠΎΡΠΊΡΡΡΠΈΡ ΡΠ°Π±ΠΎΡΠ΅ΠΉ ΠΊΠ½ΠΈΠ³ΠΈ.
- Π ΡΠ΅Π΄Π°ΠΊΡΠΎΡΠ΅ Visual Basic Π΄Π²Π°ΠΆΠ΄Ρ ΡΠ΅Π»ΠΊΠ½ΠΈΡΠ΅ ΠΎΠ±ΡΠ΅ΠΊΡ ΠΊΠ½ΠΈΠ³ΠΈ Π² ΠΎΠΊΠ½Π΅ Project Explorer, Ρ ΠΊΠΎΡΠΎΡΡΠΌ Π²Ρ Ρ ΠΎΡΠΈΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΠΊΠΎΠ΄.
- ΠΡΠ±Π΅ΡΠΈΡΠ΅ Workbook ΠΈΠ· ΡΠΏΠΈΡΠΊΠ° ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ².
- ΠΡΠ±Π΅ΡΠΈΡΠ΅ ΠΡΠΊΡΡΡΡ ΠΈΠ· ΡΠΏΠΈΡΠΊΠ° ΠΏΡΠΎΡΠ΅Π΄ΡΡ.
- ΠΡΡΠ°Π²ΡΡΠ΅ ΡΡΠ΅Π±ΡΠ΅ΠΌΡΠΉ ΠΊΠΎΠ΄ Π² ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ, ΠΏΠΎΠΊΠ°Π·Π°Π½Π½ΡΡ Π² ΠΎΠΊΠ½Π΅ ΠΊΠΎΠ΄Π°.
Π§ΡΠΎΠ±Ρ ΡΡΠΎΡ ΠΊΠΎΠ΄ Π°ΠΊΡΠΈΠ²ΠΈΡΠΎΠ²Π°Π»ΡΡ ΠΏΡΠΈ ΠΎΡΠΊΡΡΡΠΈΠΈ ΠΊΠ½ΠΈΠ³ΠΈ, Π½Π΅ ΡΠ΅Π΄Π°ΠΊΡΠΈΡΡΠΉΡΠ΅ ΠΈΠΌΡ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ.
ΠΠ΄Π΅ΡΡ Π²Ρ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ Π»ΡΠ±ΠΎΠΉ ΠΊΠΎΠ΄. Π ΡΡΠΎΠΌ ΠΏΡΠΈΠΌΠ΅ΡΠ΅ Π²Ρ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΈ ΠΏΠΎΠΏΠ°Π΄Π°Π΅ΡΠ΅ Π½Π° Π»ΠΈΡΡ Ρ ΠΈΠΌΠ΅Π½Π΅ΠΌ , ΠΎΠ³Π»Π°Π²Π»Π΅Π½ΠΈΠ΅ ΠΈ ΡΡΠ΅ΠΉΠΊΡ A2.
Π§Π°ΡΡΠ½Π°Ρ ΠΏΠΎΠ΄ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° Workbook_Open()
Π Π°Π±ΠΎΡΠΈΠ΅ Π»ΠΈΡΡΡ("ΠΠ³Π»Π°Π²Π»Π΅Π½ΠΈΠ΅").ΠΡΠ±ΡΠ°ΡΡ
ΠΠΈΠ°ΠΏΠ°Π·ΠΎΠ½("A2").ΠΡΠ±ΡΠ°ΡΡ
ΠΠΎΠ½Π΅Ρ ΡΡΠ±
Π‘ΡΡΠ΅ΡΡΠ²ΡΠ΅Ρ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²ΠΎ Π΄ΡΡΠ³ΠΈΡ ΡΠΎΠ±ΡΡΠΈΠΉ ΡΠ°Π±ΠΎΡΠ΅ΠΉ ΠΊΠ½ΠΈΠ³ΠΈ, Π²ΠΊΠ»ΡΡΠ°Ρ BeforeSave , NewSheet, ΠΈ SheetActivate . ΠΡΠΈ ΡΠΎΠ±ΡΡΠΈΡ ΠΌΠΎΠ³ΡΡ Π±ΡΡΡ ΠΎΡΠ΅Π½Ρ ΠΏΠΎΠ»Π΅Π·Π½Ρ ΠΏΡΠΈ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΠ·Π°ΡΠΈΠΈ ΡΠ°ΠΊΠΈΡ ΠΏΡΠΎΡΠ΅ΡΡΠΎΠ², ΠΊΠ°ΠΊ ΠΏΡΠΎΠ²Π΅ΡΠΊΠ° Π²Π²ΠΎΠ΄Π° Π΄Π°Π½Π½ΡΡ , Π½Π°ΡΡΡΠΎΠΉΠΊΠ° ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠΎΠ² ΠΏΠ΅ΡΠ°ΡΠΈ ΠΈ Ρ. Π΄.
ΠΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΠ΅ Π΄Π΅ΠΉΡΡΠ²ΠΈΡ ΠΏΡΠΈ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΠΈ ΡΡΠ΅ΠΉΠΊΠΈ
Π‘ΠΎΠ±ΡΡΠΈΠ΅ Change ΠΎΠ±Π½Π°ΡΡΠΆΠ΅Π½ΠΎ Π² ΠΎΠ±ΡΠ΅ΠΊΡΠ΅ Worksheet. ΠΡΠΎ ΠΎΡΠ΅Π½Ρ ΠΏΠΎΠ»Π΅Π·Π½ΠΎ, ΡΠ°ΠΊ ΠΊΠ°ΠΊ ΡΡΠ°Π±Π°ΡΡΠ²Π°Π΅Ρ ΠΏΡΠΈ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΠΈ Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΡΡΠ΅ΠΉΠΊΠΈ.
ΠΠ»Ρ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ Worksheet_Change ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ°:
- ΠΠ²Π°ΠΆΠ΄Ρ ΡΠ΅Π»ΠΊΠ½ΠΈΡΠ΅ ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ, ΠΊΠΎΡΠΎΡΡΠΉ Π²Ρ Ρ ΠΎΡΠΈΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ, Π² ΠΎΠΊΠ½Π΅ Project Explorer, ΡΡΠΎΠ±Ρ ΠΎΡΠΊΡΡΡΡ ΠΎΠΊΠ½ΠΎ Π΅Π³ΠΎ ΠΊΠΎΠ΄Π°.
- ΠΡΠ±Π΅ΡΠΈΡΠ΅ Π Π°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ ΠΈΠ· ΡΠΏΠΈΡΠΊΠ° ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ², ΠΈΠ·ΠΌΠ΅Π½ΠΈΡΠ΅ ΠΈΠ· ΡΠΏΠΈΡΠΊΠ° ΠΏΡΠΎΡΠ΅Π΄ΡΡ, ΠΈ ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° ΠΏΠΎΡΠ²ΠΈΡΡΡ Π² ΠΎΠΊΠ½Π΅ ΠΊΠΎΠ΄Π°.
Π ΡΡΠΎΠΌ ΠΊΠΎΠ΄Π΅ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½Π½Π°Ρ ΡΡΠ΅ΠΉΠΊΠ° ΠΏΡΠΎΠ²Π΅ΡΡΠ΅ΡΡΡ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΠ° If , ΡΡΠΎΠ±Ρ ΠΏΡΠΎΠ²Π΅ΡΠΈΡΡ, Π½Π°Ρ ΠΎΠ΄ΠΈΠ»Π°ΡΡ Π»ΠΈ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½Π½Π°Ρ ΡΡΠ΅ΠΉΠΊΠ° Π² ΡΡΠΎΠ»Π±ΡΠ΅ 5 ΠΈ Π±ΡΠ»ΠΎ Π»ΠΈ ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠΎΠΌ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΡ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ .ΠΠ° .
ΠΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ Target ΠΏΡΠ΅Π΄ΠΎΡΡΠ°Π²Π»ΡΠ΅ΡΡΡ ΡΠΎΠ±ΡΡΠΈΠ΅ΠΌ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΡ ΡΠ°Π±ΠΎΡΠ΅Π³ΠΎ Π»ΠΈΡΡΠ°. ΠΡΠΎ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½Π½Π°Ρ ΡΡΠ΅ΠΉΠΊΠ°.
ΠΡΠ»ΠΈ ΡΡΠΈ ΡΡΠ»ΠΎΠ²ΠΈΡ ΡΠΎΠ±Π»ΡΠ΄Π΅Π½Ρ, ΡΠΎΠ΄Π΅ΡΠΆΠΈΠΌΠΎΠ΅ ΡΡΡΠΎΠΊΠΈ ΠΊΠΎΠΏΠΈΡΡΠ΅ΡΡΡ Π² ΠΊΠΎΠ½Π΅Ρ ΡΠΏΠΈΡΠΊΠ° Π½Π° Π»ΠΈΡΡΠ΅ 2, Π° ΡΠ²Π΅Ρ Π·Π°Π»ΠΈΠ²ΠΊΠΈ ΡΡΠ΅ΠΉΠΊΠΈ ΠΌΠ΅Π½ΡΠ΅ΡΡΡ Π½Π° ΠΆΠ΅Π»ΡΡΠΉ.
ΠΠΏΠ΅ΡΠ°ΡΠΎΡ Application.EnableEvents ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ Π² ΠΊΠ°ΡΠ΅ΡΡΠ²Π΅ Π½Π°ΠΈΠ»ΡΡΡΠ΅ΠΉ ΠΏΡΠ°ΠΊΡΠΈΠΊΠΈ, ΠΏΠΎΡΠΊΠΎΠ»ΡΠΊΡ Π΄Π΅ΠΉΡΡΠ²ΠΈΡ ΠΏΡΠΎΡΠ΅Π΄ΡΡ ΠΌΠΎΠ³ΡΡ ΠΈΠ½ΠΈΡΠΈΠΈΡΠΎΠ²Π°ΡΡ Π΄ΡΡΠ³ΠΎΠ΅ ΡΠΎΠ±ΡΡΠΈΠ΅ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΡ, ΠΏΠΎΠΊΠ° ΡΡΠΎ Π΅ΡΠ΅ Π²ΡΠΏΠΎΠ»Π½ΡΠ΅ΡΡΡ.
Π ΡΡΠΎΠΌ ΠΏΡΠΈΠΌΠ΅ΡΠ΅ ΡΡΠΎ Π½Π΅ Π½ΡΠΆΠ½ΠΎ, Π½ΠΎ Ρ Ρ ΠΎΡΠ΅Π» ΠΏΡΠ΅Π΄ΠΎΡΡΠ°Π²ΠΈΡΡ ΠΊΠΎΠ΄ Π΄Π»Ρ Π·Π°ΡΠΈΡΡ ΡΡΡΠ°Π½ΠΎΠ²Π»Π΅Π½Π½ΡΡ Π²Π°ΠΌΠΈ Π΄Π΅ΠΉΡΡΠ²ΠΈΠΉ ΠΎΡ Π²ΠΎΠ·Π½ΠΈΠΊΠ½ΠΎΠ²Π΅Π½ΠΈΡ ΠΎΡΠΈΠ±ΠΎΠΊ.
Private Sub Worksheet_Change (ByVal Target As Range)
ΠΡΠ»ΠΈ Target. Column = 5 ΠΈ Target = "ΠΠ°", ΡΠΎΠ³Π΄Π°
ΠΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅.EnableEvents = ΠΠΎΠΆΡ
Target.EntireRow.Copy Worksheets("ΠΠΈΡΡ2").Range("A1").End(xlDown).Offset(1, 0)
Target.Interior.ColorIndex = 6
ΠΠΎΠ½Π΅Ρ, Π΅ΡΠ»ΠΈ
ΠΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅.EnableEvents = ΠΡΡΠΈΠ½Π°
End Sub
Π§ΡΠΎ Π΄Π°Π»ΡΡΠ΅?
ΠΡΠΈ ΠΊΠΎΠ΄Ρ VBA Π·Π½Π°ΡΠΈΡΠ΅Π»ΡΠ½ΠΎ ΡΠΊΠΎΠ½ΠΎΠΌΡΡ Π²ΡΠ΅ΠΌΡ, Π½ΠΎ ΡΡΠΎ ΡΠΎΠ»ΡΠΊΠΎ Π½Π°ΡΠ°Π»ΠΎ.
ΠΠ°ΠΌ ΡΠ»Π΅Π΄ΡΠ΅Ρ ΠΈΠ·ΡΡΠΈΡΡ Excel VBA, ΡΡΠΎΠ±Ρ ΠΏΠΎ-Π½Π°ΡΡΠΎΡΡΠ΅ΠΌΡ Π²ΠΎΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡΡΡ Π΅Π³ΠΎ ΠΏΠΎΡΠ΅Π½ΡΠΈΠ°Π»ΠΎΠΌ Π΄Π»Ρ ΠΏΠΎΠ²ΡΡΠ΅Π½ΠΈΡ ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΠΈΡΠ΅Π»ΡΠ½ΠΎΡΡΠΈ ΡΠ°Π±ΠΎΡΡ Ρ Excel.
ΠΠ°ΠΏΠΈΡΠΈΡΠ΅ΡΡ Π½Π° Π½Π°Ρ ΠΊΡΡΡ Excel Macros ΠΈ VBA, ΡΡΠΎΠ±Ρ Π½Π°ΡΠ°ΡΡ ΡΠ²ΠΎΠ΅ ΠΏΡΡΠ΅ΡΠ΅ΡΡΠ²ΠΈΠ΅ ΡΠ΅Π³ΠΎΠ΄Π½Ρ.
ΠΠΎΡΠΎΠ² ΡΡΠ°ΡΡ ΡΠ΅ΡΡΠΈΡΠΈΡΠΈΡΠΎΠ²Π°Π½Π½ΡΠΌ Π½ΠΈΠ½Π΄Π·Ρ Excel?
ΠΡΠΎΠΉΠ΄ΠΈΡΠ΅ ΠΊΡΡΡ GoSkills Β«ΠΠ°ΠΊΡΠΎΡΡ ΠΈ VBAΒ» ΡΠ΅Π³ΠΎΠ΄Π½Ρ!
ΠΠ°ΡΠ°ΡΡ Π±Π΅ΡΠΏΠ»Π°ΡΠ½ΡΡ ΠΏΡΠΎΠ±Π½ΡΡ Π²Π΅ΡΡΠΈΡ
ΡΠΎΡΠΌΡΠ» VBA Excel | SuperExcelVBA
Π‘ ΠΏΠΎΠΌΠΎΡΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ Π½Π° ΡΠ·ΡΠΊΠ΅ VBA ΠΌΠΎΠΆΠ½ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ Π³ΠΎΡΠΎΠ²ΡΠ΅ ΡΠΎΡΠΌΡΠ»Ρ Excel. ΠΡΠΎ ΡΠ²ΠΎΠΉΡΡΠ²Π°, ΠΊΠΎΡΠΎΡΡΠ΅ ΠΌΠΎΠΆΠ½ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ Ρ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ΠΎΠΌ ΠΈΠ»ΠΈ ΡΡΠ΅ΠΉΠΊΠ°ΠΌΠΈ.
VBA Π€ΠΎΡΠΌΡΠ»Π°
Π€ΠΎΡΠΌΡΠ»Π° Π΄ΠΎΠ±Π°Π²Π»ΡΠ΅Ρ ΠΏΡΠ΅Π΄ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Π½ΡΠ΅ ΡΠΎΡΠΌΡΠ»Ρ Excel Π½Π° ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ. ΠΡΠΈ ΡΠΎΡΠΌΡΠ»Ρ Π΄ΠΎΠ»ΠΆΠ½Ρ Π±ΡΡΡ Π½Π°ΠΏΠΈΡΠ°Π½Ρ Π½Π° Π°Π½Π³Π»ΠΈΠΉΡΠΊΠΎΠΌ ΡΠ·ΡΠΊΠ΅ , Π΄Π°ΠΆΠ΅ Π΅ΡΠ»ΠΈ Ρ Π²Π°Ρ ΡΡΡΠ°Π½ΠΎΠ²Π»Π΅Π½ ΡΠ·ΡΠΊΠΎΠ²ΠΎΠΉ ΠΏΠ°ΠΊΠ΅Ρ.
ΠΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ("F2"). Π€ΠΎΡΠΌΡΠ»Π° = "=Π‘Π£ΠΠ(B2:C7)" ΠΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ("F3"). Π€ΠΎΡΠΌΡΠ»Π° = "=Π‘Π£ΠΠ($B$2:$C$7)"
ΠΠ΅ Π±Π΅ΡΠΏΠΎΠΊΠΎΠΉΡΠ΅ΡΡ, Π΅ΡΠ»ΠΈ ΡΠ·ΡΠΊ Π²Π°ΡΠ΅Π³ΠΎ Excel Π½Π΅ Π°Π½Π³Π»ΠΈΠΉΡΠΊΠΈΠΉ, ΠΏΠΎΡΠΎΠΌΡ ΡΡΠΎ, ΠΊΠ°ΠΊ Π² ΠΏΡΠΈΠΌΠ΅ΡΠ΅, ΠΎΠ½ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΈ Π²ΡΠΏΠΎΠ»Π½ΠΈΡ ΠΏΠ΅ΡΠ΅Π²ΠΎΠ΄ Π² ΡΠ»Π΅ΠΊΡΡΠΎΠ½Π½ΡΡ ΡΠ°Π±Π»ΠΈΡΡ.
ΠΠ΅ΡΠΊΠΎΠ»ΡΠΊΠΎ ΡΠΎΡΠΌΡΠ»
ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ Π²ΡΡΠ°Π²ΠΈΡΡ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΎ ΡΠΎΡΠΌΡΠ» ΠΎΠ΄Π½ΠΎΠ²ΡΠ΅ΠΌΠ΅Π½Π½ΠΎ, ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡ ΡΠ²ΠΎΠΉΡΡΠ²ΠΎ Π€ΠΎΡΠΌΡΠ»Π°. ΠΠ»Ρ ΡΡΠΎΠ³ΠΎ ΠΏΡΠΎΡΡΠΎ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΠΈΡΠ΅ ΠΎΠ±ΡΠ΅ΠΊΡ Range, ΠΊΠΎΡΠΎΡΡΠΉ Π±ΠΎΠ»ΡΡΠ΅ ΠΎΠ΄Π½ΠΎΠΉ ΡΡΠ΅ΠΉΠΊΠΈ, ΠΈ ΠΏΡΠ΅Π΄ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Π½Π°Ρ ΡΠΎΡΠΌΡΠ»Π° Π±ΡΠ΄Π΅Ρ Β«ΠΏΠ΅ΡΠ΅ΡΠ°ΡΠΊΠΈΠ²Π°ΡΡΡΡΒ» ΠΏΠΎ Π²ΡΠ΅ΠΌΡ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Ρ.
"ΠΠ΅ΡΠ΅ΡΠ°ΡΠΊΠΈΠ²Π°Π½ΠΈΠ΅" Π²ΡΡΡΠ½ΡΡ:
"ΠΠ΅ΡΠ΅ΡΠ°ΡΠΊΠΈΠ²Π°Π½ΠΈΠ΅" Ρ ΠΏΠΎΠΌΠΎΡΡΡ VBA:
ΠΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ("D2:D7"). Π€ΠΎΡΠΌΡΠ»Π° = "=Π‘Π£ΠΠ(B2:C2)"
ΠΡΡΠ³ΠΎΠΉ ΡΠΏΠΎΡΠΎΠ± Π²ΡΠΏΠΎΠ»Π½ΠΈΡΡ ΡΠΎ ΠΆΠ΅ Π΄Π΅ΠΉΡΡΠ²ΠΈΠ΅ β ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΠΌΠ΅ΡΠΎΠ΄ FillDown.
ΠΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ("D2"). Π€ΠΎΡΠΌΡΠ»Π° = "=Π‘Π£ΠΠ(B2:C2)" ΠΠΈΠ°ΠΏΠ°Π·ΠΎΠ½("D2:D7").FillDown
VBA FormulaLocal
FormulaLocal Π΄ΠΎΠ±Π°Π²Π»ΡΠ΅Ρ ΠΏΡΠ΅Π΄ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Π½ΡΠ΅ ΡΠΎΡΠΌΡΠ»Ρ Excel Π½Π° ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ. ΠΡΠΈ ΡΠΎΡΠΌΡΠ»Ρ, ΠΎΠ΄Π½Π°ΠΊΠΎ, Π΄ΠΎΠ»ΠΆΠ½Ρ Π±ΡΡΡ Π½Π°ΠΏΠΈΡΠ°Π½Ρ Π½Π° ΠΌΠ΅ΡΡΠ½ΠΎΠΌ ΡΠ·ΡΠΊΠ΅ Excel (Π² ΡΠ»ΡΡΠ°Π΅ ΠΡΠ°Π·ΠΈΠ»ΠΈΠΈ β Π½Π° ΠΏΠΎΡΡΡΠ³Π°Π»ΡΡΠΊΠΎΠΌ ΡΠ·ΡΠΊΠ΅).
ΠΠΈΠ°ΠΏΠ°Π·ΠΎΠ½("F2").FormulaLocal = "=SOMA(B2:C7)"
ΠΠ°ΠΊ ΠΈ ΡΠ²ΠΎΠΉΡΡΠ²ΠΎ Formula, FormulaLocal ΠΌΠΎΠΆΠ½ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ Π΄Π»Ρ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΈΡ ΡΠΎΡΠΌΡΠ» .
FormulaR1C1, Π° ΡΠ°ΠΊΠΆΠ΅ Formula ΠΈ FormulaLocal ΡΠ°ΠΊΠΆΠ΅ Π΄ΠΎΠ±Π°Π²Π»ΡΠ΅Ρ Π² ΡΠ»Π΅ΠΊΡΡΠΎΠ½Π½ΡΡ ΡΠ°Π±Π»ΠΈΡΡ ΠΏΡΠ΅Π΄ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Π½ΡΠ΅ ΡΠΎΡΠΌΡΠ»Ρ Excel; ΠΎΠ΄Π½Π°ΠΊΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ ΠΎΡΠ½ΠΎΡΠΈΡΠ΅Π»ΡΠ½ΡΡ ΠΈ Π°Π±ΡΠΎΠ»ΡΡΠ½ΡΡ ΠΎΠ±ΠΎΠ·Π½Π°ΡΠ΅Π½ΠΈΠΉ ΠΈΠΌΠ΅Π΅Ρ ΡΠ°Π·Π½ΡΠ΅ ΠΏΡΠ°Π²ΠΈΠ»Π°. ΠΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΠΌΠ°Ρ ΡΠΎΡΠΌΡΠ»Π° Π΄ΠΎΠ»ΠΆΠ½Π° Π±ΡΡΡ Π½Π°ΠΏΠΈΡΠ°Π½Π° Π½Π° Π°Π½Π³Π»ΠΈΠΉΡΠΊΠΎΠΌ ΡΠ·ΡΠΊΠ΅.
FormulaR1C1 ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ Π³ΠΎΡΠΎΠ²ΡΠ΅ ΡΠΎΡΠΌΡΠ»Ρ Excel Π² VBA, Π»Π΅Π³ΠΊΠΎ ΠΈΠ½ΡΠ΅Π³ΡΠΈΡΡΡ ΠΈΡ Π² ΡΠΈΠΊΠ»Ρ ΠΈ ΠΏΠΎΠ΄ΡΡΠΈΡΡΠ²Π°Ρ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΠ΅.
Π ΠΎΠ±ΠΎΠ·Π½Π°ΡΠ΅Π½ΠΈΡΡ :
- R ΠΎΡΠ½ΠΎΡΠΈΡΡΡ ΠΊ ΡΡΠ΄Π°ΠΌ , Π² ΡΠ»ΡΡΠ°Π΅ Π²Π΅ΡΡΠΈΠΊΠ°Π»ΡΠ½ΠΎΠ³ΠΎ ΡΠΌΠ΅ΡΠ΅Π½ΠΈΡ
- C ΠΎΡΠ½ΠΎΡΠΈΡΡΡ ΠΊ ΡΡΠΎΠ»Π±ΡΠ°ΠΌ , Π² ΡΠ»ΡΡΠ°Π΅ Π³ΠΎΡΠΈΠ·ΠΎΠ½ΡΠ°Π»ΡΠ½ΠΎΠ³ΠΎ ΡΠΌΠ΅ΡΠ΅Π½ΠΈΡ
- N ΡΠΈΠΌΠ²ΠΎΠ»ΠΈΠ·ΠΈΡΡΠ΅Ρ ΡΠ΅Π»ΠΎΠ΅ ΡΠΈΡΠ»ΠΎ , ΠΊΠΎΡΠΎΡΠΎΠ΅ ΡΠΊΠ°Π·ΡΠ²Π°Π΅Ρ, Π½Π° ΡΠΊΠΎΠ»ΡΠΊΠΎ Π΄ΠΎΠ»ΠΆΠ½ΠΎ Π±ΡΡΡ ΡΠ΄Π²ΠΈΠ½ΡΡΠΎ ΡΠΈΡΠ»ΠΎ ΡΡΡΠΎΠΊ ΠΈ/ΠΈΠ»ΠΈ ΡΡΠΎΠ»Π±ΡΠΎΠ²
- ΠΡΠ½ΠΎΡΠΈΡΠ΅Π»ΡΠ½ΠΎΠ΅ ΠΎΠ±ΠΎΠ·Π½Π°ΡΠ΅Π½ΠΈΠ΅ : ΠΡΠΏΠΎΠ»ΡΠ·ΡΠΉΡΠ΅ Π² ΠΊΠ°ΡΠ΅ΡΡΠ²Π΅ ΡΡΡΠ»ΠΊΠΈ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½, ΠΊΠΎΡΠΎΡΡΠΉ Π΅Π³ΠΎ Π½Π°Π·Π²Π°Π»
Π€ΠΎΡΠΌΠ°Ρ ΠΎΡΠ½ΠΎΡΠΈΡΠ΅Π»ΡΠ½ΠΎΠΉ ΡΠΎΡΠΌΡΠ»Ρ: R[ N ]C[ N ]:R[ N ]C[ N ].
Range("F2").FormulaR1C1 = "=SUM(R[0]C[-4]:R[5]C[-3])" 'Π Π°Π²Π½ΠΎ Π½ΠΈΠΆΠ½Π΅ΠΉ ΡΡΡΠΎΠΊΠ΅ ΠΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ("F2"). Π€ΠΎΡΠΌΡΠ»Π°R1C1 = "=Π‘Π£ΠΠ(RC[-4]:R[5]C[-3])"
ΠΡΠ»ΠΈ N ΠΎΠΏΡΡΠ΅Π½ΠΎ, ΠΏΡΠ΅Π΄ΠΏΠΎΠ»Π°Π³Π°Π΅ΡΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ 0.
Π ΠΏΡΠΈΠΌΠ΅ΡΠ΅ RC[-4]:R[5]C[-3] ΠΏΡΠΈΠ²ΠΎΠ΄ΠΈΡ ΠΊ "B2: C7" . ΠΡΠΈ ΡΡΠ΅ΠΉΠΊΠΈ ΠΏΠΎΠ»ΡΡΠ°ΡΡΡΡ ΠΏΡΡΠ΅ΠΌ: ΠΎΡΡΡΡΠΏΠ»Π΅Π½ΠΈΡ 4 ΡΡΠΎΠ»Π±ΡΠ° Π²Π»Π΅Π²ΠΎ RC[-4] ΠΈΠ· Range("F2") Π΄Π»Ρ ΠΏΠΎΠ»ΡΡΠ΅Π½ΠΈΡ "B2" ; ΠΈ 5 ΡΡΡΠΎΠΊ Π²Π½ΠΈΠ· ΠΈ 3 ΡΡΠΎΠ»Π±ΡΠ° Π²Π»Π΅Π²ΠΎ R[5]C[-3] ΠΈΠ· Range("F2") Π΄Π»Ρ ΠΏΠΎΠ»ΡΡΠ΅Π½ΠΈΡ "C7" .
- ΠΠ±ΡΠΎΠ»ΡΡΠ½ΠΎΠ΅ ΠΎΠ±ΠΎΠ·Π½Π°ΡΠ΅Π½ΠΈΠ΅ : ΠΡΠΏΠΎΠ»ΡΠ·ΡΠΉΡΠ΅ Π½Π°ΡΠ°Π»ΠΎ ΡΠ»Π΅ΠΊΡΡΠΎΠ½Π½ΠΎΠΉ ΡΠ°Π±Π»ΠΈΡΡ Π² ΠΊΠ°ΡΠ΅ΡΡΠ²Π΅ ΡΡΡΠ»ΠΊΠΈ
Π€ΠΎΡΠΌΠ°Ρ ΠΎΡΠ½ΠΎΡΠΈΡΠ΅Π»ΡΠ½ΠΎΠΉ ΡΠΎΡΠΌΡΠ»Ρ: R N C N :R N C N .
Range("F2").FormulaR1C1 = "=Π‘Π£ΠΠ(R2C2:R7C3)" 'Π Π΅Π·ΡΠ»ΡΡΠ°ΡΡ Π² "$B$2:$C$7"
N ΠΎΡΡΠΈΡΠ°ΡΠ΅Π»ΡΠ½ΡΠΉ ΠΌΠΎΠΆΠ΅Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡΡΡ ΡΠΎΠ»ΡΠΊΠΎ Π² ΠΎΡΠ½ΠΎΡΠΈΡΠ΅Π»ΡΠ½ΡΡ ΠΎΠ±ΠΎΠ·Π½Π°ΡΠ΅Π½ΠΈΡΡ .
ΠΠ²Π΅ Π·Π°ΠΏΠΈΡΠΈ (ΠΎΡΠ½ΠΎΡΠΈΡΠ΅Π»ΡΠ½Π°Ρ ΠΈ Π°Π±ΡΠΎΠ»ΡΡΠ½Π°Ρ) ΠΌΠΎΠ³ΡΡ Π±ΡΡΡ ΠΎΠ±ΡΠ΅Π΄ΠΈΠ½Π΅Π½Ρ.
Range("F2").FormulaR1C1 = "=Π‘Π£ΠΠ(RC[-4]:R7C3)" 'Π Π΅Π·ΡΠ»ΡΡΠ°ΡΡ Π² "B2:$C$7"
VBA WorksheetFunction
Π ΡΠΎΡΠΌΡΠ»Π°ΠΌ Excel ΡΠ°ΠΊΠΆΠ΅ ΠΌΠΎΠΆΠ½ΠΎ ΠΏΠΎΠ»ΡΡΠΈΡΡ Π΄ΠΎΡΡΡΠΏ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΠΌΠ΅ΡΠΎΠ΄ΠΎΠ² ΠΎΠ±ΡΠ΅ΠΊΡΠ° WorksheetFunction.
ΠΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ("F2") = WorksheetFunction.Sum (ΠΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ("B2: C7"))
ΠΠΎΡΡΡΠΏ ΠΊ ΡΠΎΡΠΌΡΠ»Π°ΠΌ Excel ΡΠ°ΠΊΠΆΠ΅ ΠΌΠΎΠΆΠ½ΠΎ ΠΏΠΎΠ»ΡΡΠΈΡΡ Π°Π½Π°Π»ΠΎΠ³ΠΈΡΠ½ΠΎ ΡΡΠ½ΠΊΡΠΈΡΠΌ, ΡΠΎΠ·Π΄Π°Π½Π½ΡΠΌ Π² VBA.
ΠΡΠ΅ ΡΠΎΡΠΌΡΠ»Ρ ΠΎΠ±ΡΠ΅ΠΊΡΠ° WorksheetFunction Π½Π° Π°Π½Π³Π»ΠΈΠΉΡΠΊΠΎΠΌ ΡΠ·ΡΠΊΠ΅.
ΠΠ΄Π½ΠΈΠΌ ΠΈΠ· Π±ΠΎΠ»ΡΡΠΈΡ ΠΏΡΠ΅ΠΈΠΌΡΡΠ΅ΡΡΠ² ΡΠ°ΠΊΠΎΠ³ΠΎ Π΄ΠΎΡΡΡΠΏΠ° ΠΊ ΡΠΎΡΠΌΡΠ»Π°ΠΌ Excel ΡΠ²Π»ΡΠ΅ΡΡΡ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΡ Π±ΠΎΠ»Π΅Π΅ Π»Π΅Π³ΠΊΠΎΠ³ΠΎ ΠΈΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΡ Π² ΡΡΠ΅Π΄Π΅ VBA.
MsgBox (WorksheetFunction.Sum(3, 4, 5)) Π Π°ΡΡ ΠΎΠ΄=4 MsgBox (WorksheetFunction.Sum(3, 4, 5,-ΡΠ°ΡΡ ΠΎΠ΄))
Π§ΡΠΎΠ±Ρ ΠΏΠΎΠ»ΡΡΠΈΡΡ ΡΠΏΠΈΡΠΎΠΊ Π΄ΠΎΡΡΡΠΏΠ½ΡΡ ΡΠΎΡΠΌΡΠ» Excel Π² ΡΡΠΎΠΌ ΡΠΎΡΠΌΠ°ΡΠ΅, ΠΏΡΠΎΡΡΠΎ Π²Π²Π΅Π΄ΠΈΡΠ΅ WorksheetFunction. Π°Π²ΡΠΎΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΈ ΠΏΠΎΡΠ²ΠΈΡΡΡ ΠΌΠ΅Π½Ρ ΠΎΠΏΡΠΈΠΉ ΡΠΎ Π²ΡΠ΅ΠΌΠΈ ΡΠΎΡΠΌΡΠ»Π°ΠΌΠΈ:
ΠΠ°ΠΊΡΠ΅ΠΏΠ»Π΅Π½ΠΈΠ΅ Π²Π°ΡΠ΅Π³ΠΎ ΠΎΠ±ΡΡΠ΅Π½ΠΈΡ
ΠΡΠ΅Π΄Π»Π°Π³Π°Π΅ΠΌΠΎΠ΅ ΡΠΏΡΠ°ΠΆΠ½Π΅Π½ΠΈΠ΅
Π’Π΅ΠΊΡΡΠΈΠΉ ΡΠ΅Π³ΠΈΠΎΠ½
- ΠΡΠ΅Π΄ΡΠ΄ΡΡΠ°Ρ ΡΡΡΠ°Π½ΠΈΡΠ°
- Π‘Π»Π΅Π΄ΡΡΠ°Ρ ΡΡΡΠ°Π½ΠΈΡΠ°
- ΡΠΎΠΎΠ±ΡΠΈΡΡ ΠΎΠ± ΠΎΡΠΈΠ±ΠΊΠ΅/ΠΎΡΠ·ΡΠ²
SuperExcelVBA.