ΠΠ°ΠΊ Π² excel Π½Π°ΠΏΠΈΡΠ°ΡΡ ΠΌΠ°ΠΊΡΠΎΡ: ΠΏΡΠΈΠΌΠ΅ΡΡ ΠΈ ΠΊΠ°ΠΊ ΡΠ΄Π΅Π»Π°ΡΡ / Skillbox Media
Π‘ΠΎΠ΄Π΅ΡΠΆΠ°Π½ΠΈΠ΅
ΠΠ°ΠΊ Π½Π°ΠΏΠΈΡΠ°ΡΡ ΡΠΎΡΠΌΡΠ»Ρ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΠΌΠ°ΠΊΡΠΎΡΠΎΠ² Π² Excel ΠΏΠΎΠ΄ΡΠΎΠ±Π½ΠΎΠ΅ ΡΡΠΊΠΎΠ²ΠΎΠ΄ΡΡΠ²ΠΎ
ΠΡΠΎΠ³: ΠΎΠ·Π½Π°ΠΊΠΎΠΌΡΡΠ΅ΡΡ Ρ 3 ΡΠΎΠ²Π΅ΡΠ°ΠΌΠΈ ΠΏΠΎ Π½Π°ΠΏΠΈΡΠ°Π½ΠΈΡ ΠΈ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ ΡΠΎΡΠΌΡΠ» Π² ΠΌΠ°ΠΊΡΠΎΡΠ°Ρ VBA Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΡΡΠΎΠΉ ΡΡΠ°ΡΡΠΈ ΠΈ Π²ΠΈΠ΄Π΅ΠΎ.
Π£ΡΠΎΠ²Π΅Π½Ρ ΠΌΠ°ΡΡΠ΅ΡΡΡΠ²Π°: Π‘ΡΠ΅Π΄Π½ΠΈΠΉ
ΠΠ°ΠΏΠΈΡΠ°Π½ΠΈΠ΅ ΡΠΎΡΠΌΡΠ» ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ ΠΎΠ΄Π½ΠΎΠΉ ΠΈΠ· ΡΠ°ΠΌΡΡ
ΡΡΡΠ΄ΠΎΠ΅ΠΌΠΊΠΈΡ
ΡΠ°ΡΡΠ΅ΠΉ
Π²Π°ΡΠ΅ΠΉ Π΅ΠΆΠ΅Π½Π΅Π΄Π΅Π»ΡΠ½ΠΎΠΉ ΠΈΠ»ΠΈ Π΅ΠΆΠ΅ΠΌΠ΅ΡΡΡΠ½ΠΎΠΉ Π·Π°Π΄Π°ΡΠΈ Excel. ΠΡΠ»ΠΈ Π²Ρ ΡΠ°Π±ΠΎΡΠ°Π΅ΡΠ΅ Π½Π°Π΄
Π°Π²ΡΠΎΠΌΠ°ΡΠΈΠ·Π°ΡΠΈΠ΅ΠΉ ΡΡΠΎΠ³ΠΎ ΠΏΡΠΎΡΠ΅ΡΡΠ° Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΠΌΠ°ΠΊΡΠΎΡΠ°, Π²Ρ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΏΠΎΠΏΡΠΎΡΠΈΡΡ VBA
Π½Π°ΠΏΠΈΡΠ°ΡΡ ΡΠΎΡΠΌΡΠ»Ρ ΠΈ Π²Π²Π΅ΡΡΠΈ Π΅Π΅ Π² ΡΡΠ΅ΠΉΠΊΠΈ.
ΠΠΎΠ½Π°ΡΠ°Π»Ρ Π½Π°ΠΏΠΈΡΠ°Π½ΠΈΠ΅ ΡΠΎΡΠΌΡΠ» Π² VBA ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ Π½Π΅ΠΌΠ½ΠΎΠ³ΠΎ ΡΠ»ΠΎΠΆΠ½Π΅Π΅,
ΠΏΠΎΡΡΠΎΠΌΡ Π²ΠΎΡ ΡΡΠΈ ΡΠΎΠ²Π΅ΡΠ°, ΠΊΠΎΡΠΎΡΡΠ΅ ΠΏΠΎΠΌΠΎΠ³ΡΡ ΡΡΠΊΠΎΠ½ΠΎΠΌΠΈΡΡ Π²ΡΠ΅ΠΌΡ ΠΈ ΡΠΏΡΠΎΡΡΠΈΡΡ ΠΏΡΠΎΡΠ΅ΡΡ.
Π‘ΠΎΠ²Π΅Ρ β 1: Π‘Π²ΠΎΠΉΡΡΠ²ΠΎ Formula
Π‘Π²ΠΎΠΉΡΡΠ²ΠΎ Formula ΡΠ²Π»ΡΠ΅ΡΡΡ ΡΠ»Π΅Π½ΠΎΠΌ ΠΎΠ±ΡΠ΅ΠΊΡΠ° Range Π² VBA. ΠΡ ΠΌΠΎΠΆΠ΅ΠΌ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ Π΅Π³ΠΎ Π΄Π»Ρ ΡΡΡΠ°Π½ΠΎΠ²ΠΊΠΈ / ΡΠΎΠ·Π΄Π°Π½ΠΈΡ ΡΠΎΡΠΌΡΠ»Ρ Π΄Π»Ρ ΠΎΡΠ΄Π΅Π»ΡΠ½ΠΎΠΉ ΡΡΠ΅ΠΉΠΊΠΈ ΠΈΠ»ΠΈ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π° ΡΡΠ΅Π΅ΠΊ.
ΠΡΡΡ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΎ ΡΡΠ΅Π±ΠΎΠ²Π°Π½ΠΈΠΉ ΠΊ Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΡΠΎΡΠΌΡΠ»Ρ, ΠΊΠΎΡΠΎΡΡΠ΅ ΠΌΡ ΡΡΡΠ°Π½Π°Π²Π»ΠΈΠ²Π°Π΅ΠΌ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΡΠ²ΠΎΠΉΡΡΠ²Π° Formula:
- Π€ΠΎΡΠΌΡΠ»Π° ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΠ΅Ρ ΡΠΎΠ±ΠΎΠΉ ΡΡΡΠΎΠΊΡ ΡΠ΅ΠΊΡΡΠ°, Π·Π°ΠΊΠ»ΡΡΠ΅Π½Π½ΡΡ Π² ΠΊΠ°Π²ΡΡΠΊΠΈ. ΠΠ½Π°ΡΠ΅Π½ΠΈΠ΅ ΡΠΎΡΠΌΡΠ»Ρ Π΄ΠΎΠ»ΠΆΠ½ΠΎ Π½Π°ΡΠΈΠ½Π°ΡΡΡΡ ΠΈ Π·Π°ΠΊΠ°Π½ΡΠΈΠ²Π°ΡΡΡΡ ΠΊΠ°Π²ΡΡΠΊΠ°ΠΌΠΈ.
- Π‘ΡΡΠΎΠΊΠ° ΡΠΎΡΠΌΡΠ»Ρ Π΄ΠΎΠ»ΠΆΠ½Π° Π½Π°ΡΠΈΠ½Π°ΡΡΡΡ ΡΠΎ Π·Π½Π°ΠΊΠ° ΡΠ°Π²Π΅Π½ΡΡΠ²Π° = ΠΏΠΎΡΠ»Π΅ ΠΏΠ΅ΡΠ²ΠΎΠΉ ΠΊΠ°Π²ΡΡΠΊΠΈ.
ΠΠΎΡ ΠΏΡΠΎΡΡΠΎΠΉ ΠΏΡΠΈΠΌΠ΅Ρ ΡΠΎΡΠΌΡΠ»Ρ Π² ΠΌΠ°ΠΊΡΠΎΡΠ΅.
Sub Formula_Property() ' Π€ΠΎΡΠΌΡΠ»Π° ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΠ΅Ρ ΡΠΎΠ±ΠΎΠΉ ΡΡΡΠΎΠΊΡ ΡΠ΅ΠΊΡΡΠ°, Π·Π°ΠΊΠ»ΡΡΠ΅Π½Π½ΡΡ Π² ΠΊΠ°Π²ΡΡΠΊΠΈ ' ΠΠ°ΡΠΈΠ½Π°Π΅ΡΡΡ ΡΠΎ Π·Π½Π°ΠΊΠ° = Range("B10").Formula = "=SUM(B4:B9)" End Sub
Π‘Π²ΠΎΠΉΡΡΠ²ΠΎ Formula ΡΠ°ΠΊΠΆΠ΅ ΠΌΠΎΠΆΠ½ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ Π΄Π»Ρ ΡΡΠ΅Π½ΠΈΡ ΡΡΡΠ΅ΡΡΠ²ΡΡΡΠ΅ΠΉ ΡΠΎΡΠΌΡΠ»Ρ Π² ΡΡΠ΅ΠΉΠΊΠ΅.
Π‘ΠΎΠ²Π΅Ρ β 2: ΠΡΠΏΠΎΠ»ΡΠ·ΡΠΉΡΠ΅ Macro Recorder
ΠΡΠ»ΠΈ Π²Π°ΡΠΈ ΡΠΎΡΠΌΡΠ»Ρ Π±ΠΎΠ»Π΅Π΅ ΡΠ»ΠΎΠΆΠ½ΡΠ΅ ΠΈΠ»ΠΈ ΡΠΎΠ΄Π΅ΡΠΆΠ°Ρ ΡΠΏΠ΅ΡΠΈΠ°Π»ΡΠ½ΡΠ΅
ΡΠΈΠΌΠ²ΠΎΠ»Ρ, ΠΈΡ
Π±ΡΠ΄Π΅Ρ ΡΠ»ΠΎΠΆΠ½Π΅Π΅ Π½Π°ΠΏΠΈΡΠ°ΡΡ Π² VBA. Π ΡΡΠ°ΡΡΡΡ, ΠΌΡ ΠΌΠΎΠΆΠ΅ΠΌ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ
ΡΠ΅ΠΊΠΎΡΠ΄Π΅Ρ ΠΌΠ°ΠΊΡΠΎΡΠΎΠ², ΡΡΠΎΠ±Ρ ΡΠΎΠ·Π΄Π°ΡΡ ΠΊΠΎΠ΄ Π΄Π»Ρ Π½Π°Ρ.
ΠΠΎΡ ΡΠ°Π³ΠΈ ΠΏΠΎ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ ΠΊΠΎΠ΄Π° ΡΠ²ΠΎΠΉΡΡΠ²Π° ΡΠΎΡΠΌΡΠ»Ρ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΡΡΠ΅Π΄ΡΡΠ²Π° Π·Π°ΠΏΠΈΡΠΈ ΠΌΠ°ΠΊΡΠΎΡΠΎΠ².
- ΠΠΊΠ»ΡΡΠΈΡΠ΅ ΡΡΠ΅Π΄ΡΡΠ²ΠΎ Π·Π°ΠΏΠΈΡΠΈ ΠΌΠ°ΠΊΡΠΎΡΠΎΠ² (Π²ΠΊΠ»Π°Π΄ΠΊΠ° Β«Π Π°Π·ΡΠ°Π±ΠΎΡΡΠΈΠΊΒ»> Β«ΠΠ°ΠΏΠΈΡΡ ΠΌΠ°ΠΊΡΠΎΡΠ°Β»)
- ΠΠ²Π΅Π΄ΠΈΡΠ΅ ΡΠΎΡΠΌΡΠ»Ρ ΠΈΠ»ΠΈ ΠΎΡΡΠ΅Π΄Π°ΠΊΡΠΈΡΡΠΉΡΠ΅ ΡΡΡΠ΅ΡΡΠ²ΡΡΡΡΡ ΡΠΎΡΠΌΡΠ»Ρ.
- ΠΠ°ΠΆΠΌΠΈΡΠ΅ Enter, ΡΡΠΎΠ±Ρ Π²Π²Π΅ΡΡΠΈ ΡΠΎΡΠΌΡΠ»Ρ.
- ΠΠΎΠ΄ ΡΠΎΠ·Π΄Π°Π΅ΡΡΡ Π² ΠΌΠ°ΠΊΡΠΎΡΠ΅.
ΠΡΠ»ΠΈ Π²Π°ΡΠ° ΡΠΎΡΠΌΡΠ»Π° ΡΠΎΠ΄Π΅ΡΠΆΠΈΡ ΠΊΠ°Π²ΡΡΠΊΠΈ ΠΈΠ»ΠΈ ΡΠΈΠΌΠ²ΠΎΠ»Ρ Π°ΠΌΠΏΠ΅ΡΡΠ°Π½Π΄Π°, ΠΌΠ°ΠΊΡΠΎΡ Π·Π°ΠΏΠΈΡΠΈ Π±ΡΠ΄Π΅Ρ ΡΡΠΈΡΡΠ²Π°ΡΡ ΡΡΠΎ. ΠΠ½ ΡΠΎΠ·Π΄Π°Π΅Ρ Π²ΡΠ΅ ΠΏΠΎΠ΄ΡΡΡΠΎΠΊΠΈ ΠΈ ΠΏΡΠ°Π²ΠΈΠ»ΡΠ½ΠΎ ΡΠΏΠ°ΠΊΠΎΠ²ΡΠ²Π°Π΅Ρ Π²ΡΠ΅ Π² ΠΊΠ°Π²ΡΡΠΊΠΈ. ΠΠΎΡ ΠΏΡΠΈΠΌΠ΅Ρ.
Sub Macro10() ' ΠΡΠΏΠΎΠ»ΡΠ·ΡΠΉΡΠ΅ ΡΡΠ΅Π΄ΡΡΠ²ΠΎ Π·Π°ΠΏΠΈΡΠΈ ΠΌΠ°ΠΊΡΠΎΡΠΎΠ² Π΄Π»Ρ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ ΠΊΠΎΠ΄Π° Π΄Π»Ρ ΡΠ»ΠΎΠΆΠ½ΡΡ ΡΠΎΡΠΌΡΠ» Ρ ' ΡΠΏΠ΅ΡΠΈΠ°Π»ΡΠ½Ρ ΡΠΈΠΌΠ²ΠΎΠ»Ρ ΠΈ ΠΎΡΠ½ΠΎΡΠΈΡΠ΅Π»ΡΠ½ΡΠ΅ ΡΡΡΠ»ΠΊΠΈ ActiveCell.FormulaR1C1 = "=""Total Sales: "" & TEXT(R[-5]C,""$#,###"")" End Sub
Π‘ΠΎΠ²Π΅Ρ β 3: ΠΠΎΡΠ°ΡΠΈΡ ΡΠΎΡΠΌΡΠ»Ρ ΡΡΠΈΠ»Ρ R1C1
ΠΡΠ»ΠΈ Π²Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΠ΅ ΡΡΠ΅Π΄ΡΡΠ²ΠΎ Π·Π°ΠΏΠΈΡΠΈ ΠΌΠ°ΠΊΡΠΎΡΠΎΠ² Π΄Π»Ρ ΡΠΎΡΠΌΡΠ», Π²Ρ
Π·Π°ΠΌΠ΅ΡΠΈΡΠ΅, ΡΡΠΎ ΠΎΠ½ ΡΠΎΠ·Π΄Π°Π΅Ρ ΠΊΠΎΠ΄ ΡΠΎ ΡΠ²ΠΎΠΉΡΡΠ²ΠΎΠΌ FormulaR1C1.
ΠΠΎΡΠ°ΡΠΈΡ ΡΡΠΈΠ»Ρ R1C1 ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ Π½Π°ΠΌ ΡΠΎΠ·Π΄Π°Π²Π°ΡΡ ΠΊΠ°ΠΊ ΠΎΡΠ½ΠΎΡΠΈΡΠ΅Π»ΡΠ½ΡΠ΅ (A1), Π°Π±ΡΠΎΠ»ΡΡΠ½ΡΠ΅ ($A$1), ΡΠ°ΠΊ ΠΈ ΡΠΌΠ΅ΡΠ°Π½Π½ΡΠ΅ ($A1, A$1) ΡΡΡΠ»ΠΊΠΈ Π² Π½Π°ΡΠ΅ΠΌ ΠΌΠ°ΠΊΡΠΎΠΊΠΎΠ΄Π΅.
R1C1 ΠΎΠ±ΠΎΠ·Π½Π°ΡΠ°Π΅Ρ ΡΡΡΠΎΠΊΠΈ ΠΈ ΡΡΠΎΠ»Π±ΡΡ.
ΠΡΠ½ΠΎΡΠΈΡΠ΅Π»ΡΠ½ΡΠ΅ ΡΡΡΠ»ΠΊΠΈ
ΠΠ»Ρ ΠΎΡΠ½ΠΎΡΠΈΡΠ΅Π»ΡΠ½ΡΡ
ΡΡΡΠ»ΠΎΠΊ ΠΌΡ ΡΠΊΠ°Π·ΡΠ²Π°Π΅ΠΌ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΡΡΡΠΎΠΊ ΠΈ
ΡΡΠΎΠ»Π±ΡΠΎΠ², ΠΊΠΎΡΠΎΡΡΠ΅ ΠΌΡ Ρ
ΠΎΡΠΈΠΌ ΡΠΌΠ΅ΡΡΠΈΡΡ ΠΎΡ ΡΡΠ΅ΠΉΠΊΠΈ, Π² ΠΊΠΎΡΠΎΡΠΎΠΉ Π½Π°Ρ
ΠΎΠ΄ΠΈΡΡΡ ΡΠΎΡΠΌΡΠ»Π°.
ΠΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΡΡΡΠΎΠΊ ΠΈ ΡΡΠΎΠ»Π±ΡΠΎΠ² ΡΠΊΠ°Π·ΡΠ²Π°Π΅ΡΡΡ Π² ΠΊΠ²Π°Π΄ΡΠ°ΡΠ½ΡΡ
ΡΠΊΠΎΠ±ΠΊΠ°Ρ
.
Π‘Π»Π΅Π΄ΡΡΡΠ΅Π΅ ΡΠΎΠ·Π΄Π°ΡΡ ΡΡΡΠ»ΠΊΡ Π½Π° ΡΡΠ΅ΠΉΠΊΡ, ΠΊΠΎΡΠΎΡΠ°Ρ Π½Π° 3 ΡΡΡΠΎΠΊΠΈ Π²ΡΡΠ΅
ΠΈ Π½Π° 2 ΡΡΡΠΎΠΊΠΈ ΡΠΏΡΠ°Π²Π° ΠΎΡ ΡΡΠ΅ΠΉΠΊΠΈ, ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΠ΅ΠΉ ΡΠΎΡΠΌΡΠ»Ρ.
R[-3]C[2]
ΠΡΡΠΈΡΠ°ΡΠ΅Π»ΡΠ½ΡΠ΅ ΡΠΈΡΠ»Π° ΠΈΠ΄ΡΡ Π²Π²Π΅ΡΡ ΠΏΠΎ ΡΡΡΠΎΠΊΠ°ΠΌ ΠΈ ΡΡΠΎΠ»Π±ΡΠ°ΠΌ ΡΠ»Π΅Π²Π°.
ΠΠΎΠ»ΠΎΠΆΠΈΡΠ΅Π»ΡΠ½ΡΠ΅ ΡΠΈΡΠ»Π° ΠΈΠ΄ΡΡ Π²Π½ΠΈΠ· ΠΏΠΎ ΡΡΡΠΎΠΊΠ°ΠΌ ΠΈ ΡΡΠΎΠ»Π±ΡΠ°ΠΌ ΡΠΏΡΠ°Π²Π°.
ΠΠ±ΡΠΎΠ»ΡΡΠ½ΡΠ΅ ΡΡΡΠ»ΠΊΠΈ
ΠΡ ΡΠ°ΠΊΠΆΠ΅ ΠΌΠΎΠΆΠ΅ΠΌ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ Π½ΠΎΡΠ°ΡΠΈΡ R1C1 Π΄Π»Ρ Π°Π±ΡΠΎΠ»ΡΡΠ½ΡΡ ΡΡΡΠ»ΠΎΠΊ. ΠΠ±ΡΡΠ½ΠΎ ΡΡΠΎ Π²ΡΠ³Π»ΡΠ΄ΠΈΡ ΠΊΠ°ΠΊ $A$2.
ΠΠ»Ρ Π°Π±ΡΠΎΠ»ΡΡΠ½ΡΡ ΡΡΡΠ»ΠΎΠΊ ΠΌΡ ΠΠ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΠΌ ΠΊΠ²Π°Π΄ΡΠ°ΡΠ½ΡΠ΅ ΡΠΊΠΎΠ±ΠΊΠΈ. Π‘Π»Π΅Π΄ΡΡΡΠ΅Π΅ ΡΠΎΠ·Π΄Π°ΡΡ ΠΏΡΡΠΌΡΡ ΡΡΡΠ»ΠΊΡ Π½Π° ΡΡΠ΅ΠΉΠΊΡ $A$2, ΡΡΡΠΎΠΊΠ° 2, ΡΡΠΎΠ»Π±Π΅Ρ 1
ΠΡΠΈ ΡΠΎΠ·Π΄Π°Π½ΠΈΠΈ ΡΠΌΠ΅ΡΠ°Π½Π½ΡΡ
ΡΡΡΠ»ΠΎΠΊ ΠΎΡΠ½ΠΎΡΠΈΡΠ΅Π»ΡΠ½ΡΠΉ Π½ΠΎΠΌΠ΅Ρ ΡΡΡΠΎΠΊΠΈ ΠΈΠ»ΠΈ
ΡΡΠΎΠ»Π±ΡΠ° Π±ΡΠ΄Π΅Ρ Π·Π°Π²ΠΈΡΠ΅ΡΡ ΠΎΡ ΡΠΎΠ³ΠΎ, Π² ΠΊΠ°ΠΊΠΎΠΉ ΡΡΠ΅ΠΉΠΊΠ΅ Π½Π°Ρ
ΠΎΠ΄ΠΈΡΡΡ ΡΠΎΡΠΌΡΠ»Π°.
ΠΡΠΎΡΠ΅ Π²ΡΠ΅Π³ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΠΌΠ°ΠΊΡΠΎ-ΡΠ΅ΠΊΠΎΡΠ΄Π΅Ρ, ΡΡΠΎΠ±Ρ ΠΏΠΎΠ½ΡΡΡ ΡΡΠΎ.
Π‘Π²ΠΎΠΉΡΡΠ²ΠΎ FormulaR1C1 ΠΈ ΡΠ²ΠΎΠΉΡΡΠ²ΠΎ ΡΠΎΡΠΌΡΠ»Ρ
Π‘Π²ΠΎΠΉΡΡΠ²ΠΎ FormulaR1C1 ΡΡΠΈΡΡΠ²Π°Π΅Ρ Π½ΠΎΡΠ°ΡΠΈΡ R1C1 ΠΈ ΡΠΎΠ·Π΄Π°Π΅Ρ
ΠΏΡΠ°Π²ΠΈΠ»ΡΠ½ΡΠ΅ ΡΡΡΠ»ΠΊΠΈ Π² ΡΡΠ΅ΠΉΠΊΠ°Ρ
. ΠΡΠ»ΠΈ Π²Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΠ΅ ΠΎΠ±ΡΡΠ½ΠΎΠ΅ ΡΠ²ΠΎΠΉΡΡΠ²ΠΎ Formula Ρ
Π½ΠΎΡΠ°ΡΠΈΠ΅ΠΉ R1C1, ΡΠΎ VBA ΠΏΠΎΠΏΡΡΠ°Π΅ΡΡΡ Π²ΡΡΠ°Π²ΠΈΡΡ ΡΡΠΈ Π±ΡΠΊΠ²Ρ Π² ΡΠΎΡΠΌΡΠ»Ρ, ΡΡΠΎ, Π²Π΅ΡΠΎΡΡΠ½ΠΎ,
ΠΏΡΠΈΠ²Π΅Π΄Π΅Ρ ΠΊ ΠΎΡΠΈΠ±ΠΊΠ΅ ΡΠΎΡΠΌΡΠ»Ρ.
ΠΠΎΡΡΠΎΠΌΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠΉΡΠ΅ ΡΠ²ΠΎΠΉΡΡΠ²ΠΎ Formula, Π΅ΡΠ»ΠΈ Π²Π°Ρ ΠΊΠΎΠ΄ ΡΠΎΠ΄Π΅ΡΠΆΠΈΡ
ΡΡΡΠ»ΠΊΠΈ Π½Π° ΡΡΠ΅ΠΉΠΊΠΈ ($ A $ 1), ΡΠ²ΠΎΠΉΡΡΠ²ΠΎ FormulaR1C1, ΠΊΠΎΠ³Π΄Π° Π²Π°ΠΌ Π½ΡΠΆΠ½Ρ ΠΎΡΠ½ΠΎΡΠΈΡΠ΅Π»ΡΠ½ΡΠ΅
ΡΡΡΠ»ΠΊΠΈ, ΠΊΠΎΡΠΎΡΡΠ΅ ΠΏΡΠΈΠΌΠ΅Π½ΡΡΡΡΡ ΠΊ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΈΠΌ ΡΡΠ΅ΠΉΠΊΠ°ΠΌ ΠΈΠ»ΠΈ Π·Π°Π²ΠΈΡΡΡ ΠΎΡ ΡΠΎΠ³ΠΎ, Π³Π΄Π΅
Π²Π²Π΅Π΄Π΅Π½Π° ΡΠΎΡΠΌΡΠ»Π°.
ΠΡΠ»ΠΈ Π²Π°ΡΠ° ΡΠ»Π΅ΠΊΡΡΠΎΠ½Π½Π°Ρ ΡΠ°Π±Π»ΠΈΡΠ° ΠΈΠ·ΠΌΠ΅Π½ΡΠ΅ΡΡΡ Π² Π·Π°Π²ΠΈΡΠΈΠΌΠΎΡΡΠΈ ΠΎΡ
ΡΡΠ»ΠΎΠ²ΠΈΠΉ Π²Π½Π΅ Π²Π°ΡΠ΅Π³ΠΎ ΠΊΠΎΠ½ΡΡΠΎΠ»Ρ, ΡΠ°ΠΊΠΈΡ
ΠΊΠ°ΠΊ Π½ΠΎΠ²ΡΠ΅ ΡΡΠΎΠ»Π±ΡΡ ΠΈΠ»ΠΈ ΡΡΡΠΎΠΊΠΈ Π΄Π°Π½Π½ΡΡ
,
ΠΈΠΌΠΏΠΎΡΡΠΈΡΡΠ΅ΠΌΡΠ΅ ΠΈΠ· ΠΈΡΡΠΎΡΠ½ΠΈΠΊΠ° Π΄Π°Π½Π½ΡΡ
, ΡΠΎ ΠΎΡΠ½ΠΎΡΠΈΡΠ΅Π»ΡΠ½ΡΠ΅ ΡΡΡΠ»ΠΊΠΈ ΠΈ Π½ΠΎΡΠ°ΡΠΈΡ ΡΡΠΈΠ»Ρ
R1C1, Π²Π΅ΡΠΎΡΡΠ½ΠΎ, Π±ΡΠ΄ΡΡ Π½Π°ΠΈΠ»ΡΡΡΠΈΠΌΠΈ.
Π― Π½Π°Π΄Π΅ΡΡΡ, ΡΡΠΎ ΡΡΠΈ ΡΠΎΠ²Π΅ΡΡ ΠΏΠΎΠΌΠΎΠ³ΡΡ. ΠΠΎΠΆΠ°Π»ΡΠΉΡΡΠ°, ΠΎΡΡΠ°Π²ΡΡΠ΅
ΠΊΠΎΠΌΠΌΠ΅Π½ΡΠ°ΡΠΈΠΉ Π½ΠΈΠΆΠ΅ Ρ Π²ΠΎΠΏΡΠΎΡΠ°ΠΌΠΈ ΠΈΠ»ΠΈ ΠΏΡΠ΅Π΄Π»ΠΎΠΆΠ΅Π½ΠΈΡΠΌΠΈ.
ΠΠ°ΠΊ Π·Π°ΠΏΠΈΡΠ°ΡΡ ΠΌΠ°ΠΊΡΠΎΡΡ Π² Microsoft Excel
ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΠ·ΠΈΡΠΎΠ²Π°ΡΡ Π»ΡΠ±ΡΠ΅ ΠΏΠΎΠ²ΡΠΎΡΡΡΡΠΈΠ΅ΡΡ Π·Π°Π΄Π°ΡΠΈ Π² Excel, ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡ ΠΌΠ°ΠΊΡΠΎΡΡ. ΠΠΎΡ ΠΊΠ°ΠΊ ΡΡΠΎ ΡΠ΄Π΅Π»Π°ΡΡ.
ΠΠ°ΠΆΠ΄Π°Ρ ΠΊΠ½ΠΎΠΏΠΊΠ°, ΠΊΠΎΡΠΎΡΡΡ Π²Ρ Π½Π°ΠΆΠΈΠΌΠ°Π΅ΡΠ΅, ΠΊΠ°ΠΆΠ΄Π°Ρ ΡΠΎΡΠΌΡΠ»Π°, ΠΊΠΎΡΠΎΡΡΡ Π²Ρ ΡΠΎΠ·Π΄Π°Π΅ΡΠ΅ β Π²ΡΠ΅ ΡΡΠΎ ΠΌΠΎΠΆΠ½ΠΎ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΠ·ΠΈΡΠΎΠ²Π°ΡΡ Π² Excel, Π΅ΡΠ»ΠΈ Π²Ρ Π·Π½Π°Π΅ΡΠ΅, ΠΊΠ°ΠΊ Π·Π°ΠΏΠΈΡΡΠ²Π°ΡΡ ΠΌΠ°ΠΊΡΠΎΡΡ. ΠΠ°ΠΊΡΠΎΡ Excel ΠΏΠΎΠ²ΡΠΎΡΡΠ΅Ρ ΠΊΠ°ΠΆΠ΄ΡΠΉ Π²Π°Ρ ΡΠ°Π³, ΠΎΠ±Π»Π΅Π³ΡΠ°Ρ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΠ·Π°ΡΠΈΡ Π²Π°ΡΠΈΡ ΡΠ°ΠΌΡΡ ΠΏΠΎΠ²ΡΠΎΡΡΡΡΠΈΡ ΡΡ Π΄Π΅ΠΉΡΡΠ²ΠΈΠΉ.
ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π΄Π»Ρ Windows, ΠΌΠΎΠ±ΠΈΠ»ΡΠ½ΡΠ΅ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ, ΠΈΠ³ΡΡ — ΠΠ‘Π ΠΠΠ‘ΠΠΠΠ’ΠΠ,Β Π² Π½Π°ΡΠ΅ΠΌ Π·Π°ΠΊΡΡΡΠΎΠΌ ΡΠ΅Π»Π΅Π³ΡΠ°ΠΌΠΌ ΠΊΠ°Π½Π°Π»Π΅ — ΠΠΎΠ΄ΠΏΠΈΡΡΠ²Π°ΠΉΡΠ΅ΡΡ:)
ΠΡΠ»ΠΈ Π²Ρ ΠΊΠΎΠ³Π΄Π°-Π»ΠΈΠ±ΠΎ Π·Π°ΠΏΠΈΡΡΠ²Π°Π»ΠΈ ΠΌΠ°ΠΊΡΠΎΡΡ Π² Word, ΡΠΎ Π²Ρ Π±ΡΠ΄Π΅ΡΠ΅ Π·Π½Π°ΠΊΠΎΠΌΡ Ρ ΠΏΡΠΎΡΠ΅ΡΡΠΎΠΌ. ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ Π½Π°ΠΏΠΈΡΠ°ΡΡ ΡΠ²ΠΎΠΈ ΡΠΎΠ±ΡΡΠ²Π΅Π½Π½ΡΠ΅ ΠΌΠ°ΠΊΡΠΎΡΡ, ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡ VBA (Visual Basic Π΄Π»Ρ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠΉ), Π½ΠΎ Π½Π°ΠΌΠ½ΠΎΠ³ΠΎ ΠΏΡΠΎΡΠ΅ Π·Π°ΠΏΠΈΡΠ°ΡΡ ΠΈΡ Π²ΠΈΠ·ΡΠ°Π»ΡΠ½ΠΎ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΠΈΠ½ΡΡΡΡΠΌΠ΅Π½ΡΠ° Π·Π°ΠΏΠΈΡΠΈ ΠΌΠ°ΠΊΡΠΎΡΠΎΠ². ΠΠΎΡ ΠΊΠ°ΠΊ.
ΠΠ°ΠΊ Π·Π°ΠΏΠΈΡΠ°ΡΡ ΠΌΠ°ΠΊΡΠΎΡ Π² Excel
ΠΠ»Ρ Π±ΠΎΠ»ΡΡΠΈΠ½ΡΡΠ²Π° ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Π΅ΠΉ Excel ΡΠ°ΠΌΡΠΉ ΠΏΡΠΎΡΡΠΎΠΉ ΡΠΏΠΎΡΠΎΠ± Π·Π°ΠΏΠΈΡΠΈ ΠΌΠ°ΠΊΡΠΎΡΠ° Π² Microsoft Excel β ΡΡΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ Macro Recorder. ΠΠΎ Π²ΡΠ΅ΠΌΡ Π·Π°ΠΏΠΈΡΠΈ Macro Recorder Π²Ρ Π²ΡΠΏΠΎΠ»Π½ΡΠ΅ΡΠ΅ Π΄Π΅ΠΉΡΡΠ²ΠΈΠ΅. Π¨Π°Π³ΠΈ, ΠΊΠΎΡΠΎΡΡΠ΅ Π²Ρ Π΄Π΅Π»Π°Π΅ΡΠ΅, ΡΠΎΡ ΡΠ°Π½ΡΡΡΡΡ, ΠΏΡΠ΅ΠΎΠ±ΡΠ°Π·ΡΡΡΡΡ Π² Π΄Π΅ΠΉΡΡΠ²ΠΈΡ, ΠΊΠΎΡΠΎΡΡΠ΅ Excel ΠΌΠΎΠΆΠ΅Ρ ΠΏΠΎΠ²ΡΠΎΡΠΈΡΡ.
Π§ΡΠΎΠ±Ρ Π½Π°ΡΠ°ΡΡ Π·Π°ΠΏΠΈΡΡ ΠΌΠ°ΠΊΡΠΎΡΠ° Excel, Π²Π°ΠΌ Π½ΡΠΆΠ½ΠΎ ΠΏΠΎΠ»ΡΡΠΈΡΡ Π΄ΠΎΡΡΡΠΏ ΠΊ Π²ΠΊΠ»Π°Π΄ΠΊΠ΅ ΡΠ°Π·ΡΠ°Π±ΠΎΡΡΠΈΠΊΒ Π² Π»Π΅Π½ΡΠΎΡΠ½ΠΎΠΉ ΠΏΠ°Π½Π΅Π»ΠΈ. ΠΠ±ΡΡΠ½ΠΎ ΡΡΠΎ ΡΠΊΡΡΡΠΎ, ΠΏΠΎΡΡΠΎΠΌΡ Π²Π°ΠΌ ΠΏΡΠΈΠ΄Π΅ΡΡΡ Π½Π°ΡΡΡΠΎΠΈΡΡ ΠΏΠ°Π½Π΅Π»Ρ Π»Π΅Π½ΡΡ, ΡΡΠΎΠ±Ρ ΠΎΠ½Π° ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°Π»Π°ΡΡ ΠΏΠ΅ΡΠ²ΠΎΠΉ.
ΠΠ»Ρ ΡΡΠΎΠ³ΠΎ ΡΠ΅Π»ΠΊΠ½ΠΈΡΠ΅ ΠΏΡΠ°Π²ΠΎΠΉ ΠΊΠ½ΠΎΠΏΠΊΠΎΠΉ ΠΌΡΡΠΈ Π½Π° Π»Π΅Π½ΡΠ΅ ΠΈ Π½Π°ΠΆΠΌΠΈΡΠ΅ ΠΠ°ΡΡΡΠΎΠΈΡΡ Π»Π΅Π½ΡΡ,
Π ΠΠ°ΡΠ°ΠΌΠ΅ΡΡΡ Excel Π½Π°ΠΆΠΌΠΈΡΠ΅, ΡΡΠΎΠ±Ρ Π²ΠΊΠ»ΡΡΠΈΡΡ ΡΠ»Π°ΠΆΠΎΠΊΒ ΡΠ°Π·ΡΠ°Π±ΠΎΡΡΠΈΠΊ Π² Π²ΠΊΠ»Π°Π΄ΠΊΠ΅ ΠΠ°ΡΡΡΠΎΠΈΡΡ Π»Π΅Π½ΡΡ. ΠΠ°ΠΆΠΌΠΈΡΠ΅ Ok ΡΠΎΡ ΡΠ°Π½ΠΈΡΡ.
ΠΠ°Π½Π΅Π»Ρ Π»Π΅Π½ΡΡ ΡΠ΅ΠΏΠ΅ΡΡ Π±ΡΠ΄Π΅Ρ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°ΡΡ Π²ΠΊΠ»Π°Π΄ΠΊΡ ΡΠ°Π·ΡΠ°Π±ΠΎΡΡΠΈΠΊΒ ΠΌΠ΅ΠΆΠ΄Ρ Π²ΠΊΠ»Π°Π΄ΠΊΠ°ΠΌΠΈ ΠΡΠΎΡΠΌΠΎΡΡ ΠΈ Π‘ΠΏΡΠ°Π²ΠΊΠ°.
Π§ΡΠΎΠ±Ρ Π½Π°ΡΠ°ΡΡ Π·Π°ΠΏΠΈΡΡ ΠΌΠ°ΠΊΡΠΎΡΠ°, Π½Π°ΠΆΠΌΠΈΡΠ΅ Π Π°Π·ΡΠ°Π±ΠΎΡΡΠΈΠΊ> ΠΠ°ΠΏΠΈΡΡ ΠΌΠ°ΠΊΡΠΎΡΠ°.
Π ΠΠ°ΠΏΠΈΡΡ ΠΌΠ°ΠΊΡΠΎΡΠ° , Π΄Π°ΠΉΡΠ΅ Π²Π°ΡΠ΅ΠΌΡ ΠΌΠ°ΠΊΡΠΎΡΡ Π·Π°ΠΏΠΎΠΌΠΈΠ½Π°ΡΡΠ΅Π΅ΡΡ ΠΈΠΌΡ ΠΈ ΠΎΠΏΠΈΡΠ°Π½ΠΈΠ΅. Π§ΡΠΎΠ±Ρ ΠΏΡΠΈΠ²ΡΠ·Π°ΡΡ ΠΌΠ°ΠΊΡΠΎΡ ΠΊ ΡΠΎΡΠ΅ΡΠ°Π½ΠΈΡ ΠΊΠ»Π°Π²ΠΈΡ, Π²Π²Π΅Π΄ΠΈΡΠ΅ Π±ΡΠΊΠ²Ρ ΠΏΠΎΠ΄ ΠΡΡΡΡΠ°Ρ ΠΊΠ»Π°Π²ΠΈΡΠ°, Ρ ΠΎΡΡ ΡΡΠΎ Π½Π΅ΠΎΠ±ΡΠ·Π°ΡΠ΅Π»ΡΠ½ΠΎ.
Π§ΡΠΎΠ±Ρ ΡΠΎΡ ΡΠ°Π½ΠΈΡΡ ΠΌΠ°ΠΊΡΠΎΡ Excel Ρ ΡΠ΅ΠΊΡΡΠ΅ΠΉ ΠΊΠ½ΠΈΠ³ΠΎΠΉ, ΡΠ±Π΅Π΄ΠΈΡΠ΅ΡΡ, ΡΡΠΎ ΠΎΠΏΡΠΈΡ ΡΡΡΠ°Π½ΠΎΠ²Π»Π΅Π½Π° Π² ΡΠΎΡ ΡΠ°Π½ΠΈΡΡ ΠΌΠ°ΠΊΡΠΎΡ ββΠ² ΠΡΡ ΡΠ°Π±ΠΎΡΡΡ ΡΠ΅ΡΡΠ°Π΄Ρ. ΠΡΠ»ΠΈ Π²Ρ Ρ ΠΎΡΠΈΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΠΌΠ°ΠΊΡΠΎΡ Π²ΠΎ Π²ΡΠ΅Ρ ΠΊΠ½ΠΈΠ³Π°Ρ Excel, Π²ΡΠ±Π΅ΡΠΈΡΠ΅ ΠΠΈΡΠ½Π°Ρ ΠΠ°ΠΊΡΠΎ ΠΠ½ΠΈΠ³Π°.
Ok Π½Π°ΡΠ°ΡΡ Π·Π°ΠΏΠΈΡΡ Π²Π°ΡΠ΅Π³ΠΎ ΠΌΠ°ΠΊΡΠΎΡΠ°. ΠΠ°ΠΆΠ΄ΡΠΉ Π²Π°Ρ ΡΠ°Π³ ΠΏΠΎΡΠ»Π΅ ΡΡΠΎΠΉ ΡΠΎΡΠΊΠΈ Π±ΡΠ΄Π΅Ρ Π·Π°ΠΏΠΈΡΠ°Π½. ΠΠ°ΠΏΡΠΈΠΌΠ΅Ρ, Π΅ΡΠ»ΠΈ Π²Ρ ΡΠ΅ΡΠΈΡΠ΅ Π²ΡΠΏΠΎΠ»Π½ΠΈΡΡ Π΄Π΅ΠΉΡΡΠ²ΠΈΠ΅, Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ, ΠΈΠ·ΠΌΠ΅Π½ΠΈΡΡ ΡΠΎΡΠΌΠ°Ρ ΡΡΠ΅ΠΉΠΊΠΈ, ΡΡΠΈ ΡΠ°Π³ΠΈ Π±ΡΠ΄ΡΡ Π·Π°ΠΏΠΈΡΠ°Π½Ρ.
ΠΠ°ΠΊ ΡΠΎΠ»ΡΠΊΠΎ Π²Ρ Π·Π°ΠΏΠΈΡΠ°Π»ΠΈ ΡΠ²ΠΎΠΈ ΡΠ°Π³ΠΈ Π² ΠΌΠ°ΠΊΡΠΎΡ, Π½Π°ΠΆΠΌΠΈΡΠ΅ ΠΡΡΠ°Π½ΠΎΠ²ΠΈΡΡ Π·Π°ΠΏΠΈΡΡ Π² Π²ΠΊΠ»Π°Π΄ΠΊΠ΅ ΡΠ°Π·ΡΠ°Π±ΠΎΡΡΠΈΠΊ.
ΠΠ°ΠΆΠΌΠΈΡΠ΅ Π½Π° ΠΌΠ°ΠΊΡΠΎΡ ΠΊΠ½ΠΎΠΏΠΊΠ° Π² Π²ΠΊΠ»Π°Π΄ΠΊΠ΅ ΡΠ°Π·ΡΠ°Π±ΠΎΡΡΠΈΠΊ, ΡΡΠΎΠ±Ρ ΡΠ²ΠΈΠ΄Π΅ΡΡ ΡΠΏΠΈΡΠΎΠΊ Π²Π°ΡΠΈΡ Π·Π°ΠΏΠΈΡΠ°Π½Π½ΡΡ ΠΌΠ°ΠΊΡΠΎΡΠΎΠ².
Π§ΡΠΎΠ±Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΠΌΠ°ΠΊΡΠΎΡ, Π²ΡΠ±Π΅ΡΠΈΡΠ΅ Π΅Π³ΠΎ, Π·Π°ΡΠ΅ΠΌ Π½Π°ΠΆΠΌΠΈΡΠ΅ ΠΠ°ΠΏΡΡΡΠΈΡΡ.
ΠΡΠ»ΠΈ Π²Ρ Π΄ΠΎΠ±Π°Π²ΠΈΠ»ΠΈ ΡΠΎΡΠ΅ΡΠ°Π½ΠΈΠ΅ ΠΊΠ»Π°Π²ΠΈΡ ΠΊ ΠΌΠ°ΠΊΡΠΎΡΡ, Π²Ρ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ Π΅Π³ΠΎ Π΄Π»Ρ Π·Π°ΠΏΡΡΠΊΠ° ΠΌΠ°ΠΊΡΠΎΡΠ°.
Π Π΅Π΄Π°ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ ΠΌΠ°ΠΊΡΠΎΡΠΎΠ² Excel
ΠΠΏΠΎΠ»Π½Π΅ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎ ΡΠ΅Π΄Π°ΠΊΡΠΈΡΠΎΠ²Π°ΡΡ Π·Π°ΠΏΠΈΡΠ°Π½Π½ΡΠΉ ΠΌΠ°ΠΊΡΠΎΡ, ΡΡΠΎΠ±Ρ Π΄ΠΎΠ±Π°Π²Π»ΡΡΡ, ΠΈΠ·ΠΌΠ΅Π½ΡΡΡ ΠΈΠ»ΠΈ ΡΠ΄Π°Π»ΡΡΡ ΡΠ°Π³ΠΈ ΠΏΠΎΠ»Π½ΠΎΡΡΡΡ. Π ΡΠΎΠΆΠ°Π»Π΅Π½ΠΈΡ, Π΄Π»Ρ ΡΡΠΎΠ³ΠΎ ΠΏΠΎΡΡΠ΅Π±ΡΠ΅ΡΡΡ Π·Π½Π°ΡΡ, ΠΊΠ°ΠΊ ΠΏΠΈΡΠ°ΡΡ ΠΈ ΡΠ΅Π΄Π°ΠΊΡΠΈΡΠΎΠ²Π°ΡΡ ΠΊΠΎΠ΄ VBA (Visual Basic Π΄Π»Ρ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠΉ), ΡΡΠΎΠ±Ρ ΠΈΠΌΠ΅ΡΡ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΡ Π²Π½ΠΎΡΠΈΡΡ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΡ.
ΠΡΠ»ΠΈ Π²Ρ Ρ ΠΎΡΠΈΡΠ΅ Π²Π½Π΅ΡΡΠΈ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΡ Π² Π·Π°ΠΏΠΈΡΠ°Π½Π½ΡΠΉ ΠΌΠ°ΠΊΡΠΎΡ (ΠΈ Π²Ρ Π³ΠΎΡΠΎΠ²Ρ ΠΏΠΈΡΠ°ΡΡ Π² VBA), Π½Π°ΠΆΠΌΠΈΡΠ΅ Π Π°Π·ΡΠ°Π±ΠΎΡΡΠΈΠΊ> ΠΠ°ΠΊΡΠΎΡΡ Π²ΡΠ±Π΅ΡΠΈΡΠ΅ ΡΠ²ΠΎΠΉ ΠΌΠ°ΠΊΡΠΎΡ, Π·Π°ΡΠ΅ΠΌ Π½Π°ΠΆΠΌΠΈΡΠ΅ ΡΠ΅Π΄Π°ΠΊΡΠΈΡΠΎΠ²Π°ΡΡ.
ΠΡΠΎ Π·Π°Π³ΡΡΠ·ΠΈΡ ΡΠ΅Π΄Π°ΠΊΡΠΎΡ Office VBA. ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ Π²Π½Π΅ΡΡΠΈ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΡ Π² ΠΊΠΎΠ΄ VBA Π½Π°ΠΏΡΡΠΌΡΡ, Π½Π°ΠΆΠ°Π² ΠΠ°ΠΏΡΡΡΠΈΡΡ, ΡΡΠΎΠ±Ρ ΠΏΡΠΎΠ²Π΅ΡΠΈΡΡ Π²Π°ΡΠΈ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΡ, ΡΡΠΎΠ±Ρ ΡΠ±Π΅Π΄ΠΈΡΡΡΡ, ΡΡΠΎ ΠΎΠ½ΠΈ ΡΠ°Π±ΠΎΡΠ°ΡΡ.
ΠΠΎΡΠ»Π΅ Π²Π½Π΅ΡΠ΅Π½ΠΈΡ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΠΉ Π² ΠΌΠ°ΠΊΡΠΎΡ Π·Π°ΠΊΡΠΎΠΉΡΠ΅ ΡΠ΅Π΄Π°ΠΊΡΠΎΡ Office VBA, Π° Π·Π°ΡΠ΅ΠΌ ΡΠΎΡ ΡΠ°Π½ΠΈΡΠ΅ ΠΊΠ½ΠΈΠ³Ρ Excel.
ΠΡΠ»ΠΈ Π²Ρ Π½Π΅ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΏΠΈΡΠ°ΡΡ ΠΌΠ°ΠΊΡΠΎΡΡ Π² VBA, ΡΠ°ΠΌΡΠΉ ΠΏΡΠΎΡΡΠΎΠΉ ΡΠΏΠΎΡΠΎΠ± β ΡΠ΄Π°Π»ΠΈΡΡ ΠΌΠ°ΠΊΡΠΎΡ ΠΈ ΠΏΠ΅ΡΠ΅Π·Π°ΠΏΠΈΡΠ°ΡΡ Π΅Π³ΠΎ. ΠΡΠ±Π΅ΡΠΈΡΠ΅ ΡΠ²ΠΎΠΉ ΠΌΠ°ΠΊΡΠΎΡ ΠΈ Π½Π°ΠΆΠΌΠΈΡΠ΅ ΡΠ΄Π°Π»ΠΈΡΡΒ ΡΡΠΎΠ±Ρ ΡΠ΄Π°Π»ΠΈΡΡ Π΅Π³ΠΎ, Π·Π°ΡΠ΅ΠΌ ΠΏΠΎΠ²ΡΠΎΡΠΈΡΠ΅ ΠΎΠΏΠΈΡΠ°Π½Π½ΡΠ΅ Π²ΡΡΠ΅ ΡΠ°Π³ΠΈ, ΡΡΠΎΠ±Ρ Π·Π°ΠΏΠΈΡΠ°ΡΡ Π΅Π³ΠΎ Ρ ΠΎΠ±Π½ΠΎΠ²Π»Π΅Π½Π½ΡΠΌΠΈ ΡΠ°Π³Π°ΠΌΠΈ.
Π‘ΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΠ΅ Π²Π°ΡΠΈΡ ΠΌΠ°ΠΊΡΠΎΡΠΎΠ² Excel
ΠΠ°ΡΠ°Π² ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΠΌΠ°ΠΊΡΠΎΡΡ Π² Excel, Π²Ρ ΠΌΠΎΠΆΠ΅ΡΠ΅ Π·Π°ΠΏΠΈΡΡΠ²Π°ΡΡ Π»ΡΠ±ΡΠ΅ Π΄Π΅ΠΉΡΡΠ²ΠΈΡ ΠΈΠ»ΠΈ Π·Π°Π΄Π°ΡΠΈ ΠΈ ΠΏΠΎΠ²ΡΠΎΡΡΡΡ ΠΈΡ Π² Π»ΡΠ±ΠΎΠ΅ Π²ΡΠ΅ΠΌΡ.
ΠΠΎΠ³Π΄Π° Π²Ρ ΡΠΎΠ±ΠΈΡΠ°Π΅ΡΠ΅ΡΡ ΡΠΎΡ ΡΠ°Π½ΠΈΡΡ ΡΠ²ΠΎΡ ΠΊΠ½ΠΈΠ³Ρ Excel, Π½Π΅ Π·Π°Π±ΡΠ΄ΡΡΠ΅ ΡΠΎΡ ΡΠ°Π½ΠΈΡΡ Π΅Π΅ Π² ΡΠΎΡΠΌΠ°ΡΠ΅ ΡΠ°ΠΉΠ»Π° ΠΊΠ½ΠΈΠ³ΠΈ Ρ ΠΏΠΎΠ΄Π΄Π΅ΡΠΆΠΊΠΎΠΉ ΠΌΠ°ΠΊΡΠΎΡΠΎΠ² XLSM. ΠΡΠΎ ΠΏΠΎΠ·Π²ΠΎΠ»ΠΈΡ ΡΠΎΡ ΡΠ°Π½ΠΈΡΡ Π·Π°ΠΏΠΈΡΠ°Π½Π½ΡΠ΅ ΠΌΠ°ΠΊΡΠΎΡΡ Excel Π²Π½ΡΡΡΠΈ ΠΊΠ½ΠΈΠ³ΠΈ, ΡΡΠΎ ΠΏΠΎΠ·Π²ΠΎΠ»ΠΈΡ Π²Π°ΠΌ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΠΈΡ Π² Π΄ΡΡΠ³ΠΈΡ ΠΌΠ΅ΡΡΠ°Ρ .
ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π΄Π»Ρ Windows, ΠΌΠΎΠ±ΠΈΠ»ΡΠ½ΡΠ΅ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ, ΠΈΠ³ΡΡ — ΠΠ‘Π ΠΠΠ‘ΠΠΠΠ’ΠΠ,Β Π² Π½Π°ΡΠ΅ΠΌ Π·Π°ΠΊΡΡΡΠΎΠΌ ΡΠ΅Π»Π΅Π³ΡΠ°ΠΌΠΌ ΠΊΠ°Π½Π°Π»Π΅ — ΠΠΎΠ΄ΠΏΠΈΡΡΠ²Π°ΠΉΡΠ΅ΡΡ:)
ΠΠ΅ΡΠΊΠΈ Π·Π°ΠΏΠΈΡΠΈ:
#Excel
ΠΠ°ΠΏΠΈΡΠ°Π½ΠΈΠ΅ ΠΌΠ°ΠΊΡΠΎΡΠΎΠ² VBA Ρ Π½ΡΠ»Ρ
Π‘ΡΠ΅Π΄ΡΡΠ²ΠΎ Π·Π°ΠΏΠΈΡΠΈ ΠΌΠ°ΠΊΡΠΎΡΠΎΠ² Excel ΠΎΠ±Π»Π°Π΄Π°Π΅Ρ Π±ΠΎΠ»ΡΡΠΈΠΌΠΈ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΡΠΌΠΈ, Π½ΠΎ ΠΈΠΌΠ΅Π΅Ρ ΡΠ²ΠΎΠΈ ΠΎΠ³ΡΠ°Π½ΠΈΡΠ΅Π½ΠΈΡ. ΠΠ°ΠΊ ΠΎΠΏΠΈΡΠ°Π½ΠΎ Π² Π΄ΡΡΠ³ΠΎΠΉ ΡΡΠ°ΡΡΠ΅, ΡΡΠ΅Π΄ΡΡΠ²ΠΎ Π·Π°ΠΏΠΈΡΠΈ ΠΌΠ°ΠΊΡΠΎΡΠΎΠ² ΡΠ°ΡΡΠΎ Π·Π°ΠΏΠΈΡΡΠ²Π°Π΅Ρ Π½Π΅Π½ΡΠΆΠ½ΡΠΉ ΠΊΠΎΠ΄ ΠΈ Π½Π΅ ΠΌΠΎΠΆΠ΅Ρ Π·Π°ΠΏΠΈΡΡΠ²Π°ΡΡ ΡΠ°ΠΊΠΈΠ΅ Π²Π΅ΡΠΈ, ΠΊΠ°ΠΊ Π»ΠΎΠ³ΠΈΠΊΠ° ΠΈΠ»ΠΈ Π²Π·Π°ΠΈΠΌΠΎΠ΄Π΅ΠΉΡΡΠ²ΠΈΠ΅ Ρ Π΄ΡΡΠ³ΠΈΠΌΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ°ΠΌΠΈ. ΠΠ³ΠΎ ΡΠ°ΠΊΠΆΠ΅ ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ ΡΠ»ΠΎΠΆΠ½ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ Π΄Π»Ρ Π±ΠΎΠ»Π΅Π΅ Π΄Π»ΠΈΠ½Π½ΡΡ ΠΌΠ°ΠΊΡΠΎΡΠΎΠ² β Π²Ρ ΠΌΠΎΠΆΠ΅ΡΠ΅ Π·Π°ΡΠ°Π½Π΅Π΅ ΡΠ°ΡΠΊΠ°Π΄ΡΠΎΠ²ΡΠ²Π°ΡΡ ΡΠ²ΠΎΠΈ Π΄Π΅ΠΉΡΡΠ²ΠΈΡ, ΡΡΠΎΠ±Ρ ΠΈΠ·Π±Π΅ΠΆΠ°ΡΡ Π΄ΠΎΡΠΎΠ³ΠΎΡΡΠΎΡΡΠΈΡ ΠΎΡΠΈΠ±ΠΎΠΊ.
ΠΡΠ° ΡΡΠ°ΡΡΡ ΠΏΡΠΈΠ·Π²Π°Π½Π° ΠΏΠΎΠΌΠΎΡΡ Π²Π°ΠΌ Π½Π°ΡΠ°ΡΡ ΠΊΠΎΠ΄ΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ ΠΌΠ°ΠΊΡΠΎΡΠΎΠ² Ρ Π½ΡΠ»Ρ Π² VBA. ΠΡ ΡΠ·Π½Π°Π΅ΡΠ΅, Π³Π΄Π΅ Ρ ΡΠ°Π½ΡΡΡΡ ΠΌΠ°ΠΊΡΠΎΡΡ, Π½Π°ΠΏΠΈΡΠ΅ΡΠ΅ Π±Π°Π·ΠΎΠ²ΡΠΉ ΠΌΠ°ΠΊΡΠΎΡ ΠΈ ΠΈΠ·ΡΡΠΈΡΠ΅ ΠΎΡΠ½ΠΎΠ²Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ Π½Π° VBA Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ΠΌ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ , Π»ΠΎΠ³ΠΈΠΊΠΈ ΠΈ ΡΠΈΠΊΠ»ΠΎΠ².
ΠΠ°ΡΠ°Π»ΠΎ ΡΠ°Π±ΠΎΡΡ
VBA ΠΈ ΡΠ΅Π΄Π°ΠΊΡΠΎΡ Visual Basic
VBA, ΠΈΠ»ΠΈ Visual Basic Π΄Π»Ρ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠΉ, β ΡΡΠΎ ΡΠ·ΡΠΊ, Π½Π° ΠΊΠΎΡΠΎΡΠΎΠΌ Π½Π°ΠΏΠΈΡΠ°Π½Ρ ΠΌΠ°ΠΊΡΠΎΡΡ. ΠΡΠ΅ ΠΌΠ°ΠΊΡΠΎΡΡ Ρ ΡΠ°Π½ΡΡΡΡ Π² Π²ΠΈΠ΄Π΅ ΠΊΠΎΠ΄Π° VBA, Π½Π΅Π·Π°Π²ΠΈΡΠΈΠΌΠΎ ΠΎΡ ΡΠΎΠ³ΠΎ, Π½Π°ΠΏΠΈΡΠ°Π½Ρ Π»ΠΈ ΠΎΠ½ΠΈ Π²ΡΡΡΠ½ΡΡ ΠΈΠ»ΠΈ ΡΠΎΠ·Π΄Π°Π½Ρ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΡΡΠ΅Π΄ΡΡΠ²Π° Π·Π°ΠΏΠΈΡΠΈ ΠΌΠ°ΠΊΡΠΎΡΠΎΠ².
ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΏΠΎΠ»ΡΡΠΈΡΡ Π΄ΠΎΡΡΡΠΏ ΠΊΠΎ Π²ΡΠ΅ΠΌΡ ΠΊΠΎΠ΄Ρ VBA Π² ΠΊΠ½ΠΈΠ³Π΅ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΡΠ΅Π΄Π°ΠΊΡΠΎΡΠ° Visual Basic. ΠΡΠΎ ΡΠΏΠ΅ΡΠΈΠ°Π»ΡΠ½ΡΠΉ ΡΠ΅ΠΊΡΡΠΎΠ²ΡΠΉ ΡΠ΅Π΄Π°ΠΊΡΠΎΡ ΠΈ ΠΎΡΠ»Π°Π΄ΡΠΈΠΊ, Π²ΡΡΡΠΎΠ΅Π½Π½ΡΠΉ Π²ΠΎ Π²ΡΠ΅ ΠΎΡΠΈΡΠ½ΡΠ΅ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ, Π²ΠΊΠ»ΡΡΠ°Ρ Excel. ΠΠ°ΠΊ ΠΏΡΠ°Π²ΠΈΠ»ΠΎ, Π²Ρ ΠΎΡΠΊΡΡΠ²Π°Π΅ΡΠ΅ ΡΡΠΎΡ ΡΠ΅Π΄Π°ΠΊΡΠΎΡ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΠΊΠ½ΠΎΠΏΠΊΠΈ 9.0013 ALT+F11 ΡΠΎΡΠ΅ΡΠ°Π½ΠΈΠ΅ ΠΊΠ»Π°Π²ΠΈΡ Π² Excel, Π½ΠΎ Π²Ρ ΡΠ°ΠΊΠΆΠ΅ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΏΠΎΠ»ΡΡΠΈΡΡ ΠΊ Π½Π΅ΠΌΡ Π΄ΠΎΡΡΡΠΏ Ρ Π²ΠΊΠ»Π°Π΄ΠΊΠΈ Excel Developer , Π΅ΡΠ»ΠΈ ΠΎΠ½Π° Π²ΠΊΠ»ΡΡΠ΅Π½Π°.
ΠΡΡΠ»Π΅Π΄ΠΎΠ²Π°ΡΠ΅Π»Ρ ΠΏΡΠΎΠ΅ΠΊΡΠ°
Project Explorer β ΡΡΠΎ ΠΎΠΊΠ½ΠΎ Π²Π½ΡΡΡΠΈ VB Editor, ΠΊΠΎΡΠΎΡΠΎΠ΅ ΠΏΠΎΠΊΠ°Π·ΡΠ²Π°Π΅Ρ Π²Π°ΠΌ Π²ΡΠ΅ ΡΠ»Π΅ΠΌΠ΅Π½ΡΡ, ΠΊΠΎΡΠΎΡΡΠ΅ ΠΌΠΎΠ³ΡΡ ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΡ ΠΊΠΎΠ΄ VBA. ΠΡΠ»ΠΈ Π²Ρ Π½Π΅ Π²ΠΈΠ΄ΠΈΡΠ΅ ΡΡΠΎ ΠΎΠΊΠ½ΠΎ, Π½Π°ΠΆΠΌΠΈΡΠ΅ F5 , ΡΡΠΎΠ±Ρ ΠΎΠ½ΠΎ ΠΏΠΎΡΠ²ΠΈΠ»ΠΎΡΡ, ΠΈΠ»ΠΈ Π²ΡΠ±Π΅ΡΠΈΡΠ΅ Project Explorer Β Π² ΠΌΠ΅Π½Ρ View .
ΠΠ²ΠΎΠΉΠ½ΠΎΠΉ ΡΠ΅Π»ΡΠΎΠΊ ΠΏΠΎ ΡΠ»Π΅ΠΌΠ΅Π½ΡΡ Π² Project Explorer ΠΏΠΎΠΊΠ°ΠΆΠ΅Ρ ΠΊΠΎΠ΄ ΡΡΠΎΠ³ΠΎ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠ°. Π‘ΡΡΠ΅ΡΡΠ²ΡΠ΅Ρ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΎ ΡΠΈΠΏΠΎΠ² ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠ², ΠΊΠΎΡΠΎΡΡΠ΅ ΠΌΠΎΠ³ΡΡ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°ΡΡΡΡ Π² Project Explorer:
- Π Π°Π±ΠΎΡΠΈΠ΅ ΡΠ΅ΡΡΠ°Π΄ΠΈ
- Π Π°Π±ΠΎΡΠΈΠ΅ Π»ΠΈΡΡΡ
- ΠΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»ΡΡΠΊΠΈΠ΅ ΡΠΎΡΠΌΡ
- ΠΠΎΠ΄ΡΠ»ΠΈ ΠΊΠ»Π°ΡΡΠ°
- ΠΠΎΠ΄ΡΠ»ΠΈ (Π² ΡΡΠΈΡ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠ°Ρ Ρ ΡΠ°Π½ΡΡΡΡ ΠΌΠ°ΠΊΡΠΎΡΡ)
Π₯ΠΎΡΡ Π²ΡΠ΅ ΡΡΠΈ ΡΠΈΠΏΡ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠ² ΠΌΠΎΠ³ΡΡ Π²ΠΊΠ»ΡΡΠ°ΡΡ ΠΊΠΎΠ΄ VBA, Π»ΡΡΡΠ΅ Π²ΡΠ΅Π³ΠΎ ΠΊΠΎΠ΄ΠΈΡΠΎΠ²Π°ΡΡ ΠΌΠ°ΠΊΡΠΎΡΡ Π² ΠΌΠΎΠ΄ΡΠ»ΡΡ .
Π‘ΠΎΠ·Π΄Π°Π½ΠΈΠ΅ Π²Π°ΡΠ΅Π³ΠΎ ΠΏΠ΅ΡΠ²ΠΎΠ³ΠΎ ΠΌΠ°ΠΊΡΠΎΡΠ°
ΠΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ ΡΠΏΠΈΡΠΊΠ° ΠΌΠ°ΠΊΡΠΎΡΠΎΠ²
Π ΡΠΏΠΈΡΠΊΠ΅ ΠΌΠ°ΠΊΡΠΎΡΠΎΠ² ΠΏΠΎΠΊΠ°Π·Π°Π½Ρ Π²ΡΠ΅ ΠΌΠ°ΠΊΡΠΎΡΡ Π² Π²Π°ΡΠ΅ΠΉ ΠΊΠ½ΠΈΠ³Π΅. ΠΠ· ΡΡΠΎΠ³ΠΎ ΡΠΏΠΈΡΠΊΠ° Π²Ρ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΎΡΡΠ΅Π΄Π°ΠΊΡΠΈΡΠΎΠ²Π°ΡΡ ΡΡΡΠ΅ΡΡΠ²ΡΡΡΠΈΠΉ ΠΌΠ°ΠΊΡΠΎΡ ΠΈΠ»ΠΈ ΡΠΎΠ·Π΄Π°ΡΡ Π½ΠΎΠ²ΡΠΉ.
Π§ΡΠΎΠ±Ρ ΡΠΎΠ·Π΄Π°ΡΡ Π½ΠΎΠ²ΡΠΉ ΠΌΠ°ΠΊΡΠΎΡ, ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡ ΡΠΏΠΈΡΠΎΠΊ ΠΌΠ°ΠΊΡΠΎΡΠΎΠ²:
- ΠΡΠ±Π΅ΡΠΈΡΠ΅ Π²ΠΊΠ»Π°Π΄ΠΊΡ Β«Π Π°Π·ΡΠ°Π±ΠΎΡΡΠΈΠΊΒ» ΠΈ ΡΠ΅Π»ΠΊΠ½ΠΈΡΠ΅ ΠΠ°ΠΊΡΠΎΡΡ (ΠΈΠ»ΠΈ Π½Π°ΠΆΠΌΠΈΡΠ΅ ALT+F8 )
- ΠΠ²Π΅Π΄ΠΈΡΠ΅ Π½ΠΎΠ²ΠΎΠ΅ ΠΈΠΌΡ Π΄Π»Ρ Π²Π°ΡΠ΅Π³ΠΎ ΠΌΠ°ΠΊΡΠΎΡΠ°, Π·Π°ΡΠ΅ΠΌ Π½Π°ΠΆΠΌΠΈΡΠ΅ Β«Π‘ΠΎΠ·Π΄Π°ΡΡΒ»
ΠΠΎΡΠ»Π΅ Π½Π°ΠΆΠ°ΡΠΈΡ Β«Π‘ΠΎΠ·Π΄Π°ΡΡΒ» ΠΏΠΎΡΠ²ΠΈΡΡΡ ΡΠ΅Π΄Π°ΠΊΡΠΎΡ VB, ΠΏΠΎΠΊΠ°Π·ΡΠ²Π°ΡΡΠΈΠΉ ΡΠΎΠ»ΡΠΊΠΎ ΡΡΠΎ ΡΠΎΠ·Π΄Π°Π½Π½ΡΠΉ ΠΌΠ°ΠΊΡΠΎΡ. ΠΡΠΈ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎΡΡΠΈ Excel ΡΠΎΠ·Π΄Π°ΡΡ Π½ΠΎΠ²ΡΠΉ ΠΌΠΎΠ΄ΡΠ»Ρ Π΄Π»Ρ ΠΌΠ°ΠΊΡΠΎΡΠ°.
ΠΡΡΡΠ½ΡΡ Π² VB Editor
ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ Π΄ΠΎΠ±Π°Π²ΠΈΡΡ Π½ΠΎΠ²ΡΠΉ ΠΌΠ°ΠΊΡΠΎΡ Π²ΡΡΡΠ½ΡΡ Π±Π΅Π· ΡΠΏΠΈΡΠΊΠ° ΠΌΠ°ΠΊΡΠΎΡΠΎΠ². ΠΡΠΎ Π»ΡΡΡΠΈΠΉ Π²Π°ΡΠΈΠ°Π½Ρ, Π΅ΡΠ»ΠΈ Π²Ρ Ρ ΠΎΡΠΈΡΠ΅ ΡΠΊΠ°Π·Π°ΡΡ ΠΌΠΎΠ΄ΡΠ»Ρ, Π² ΠΊΠΎΡΠΎΡΠΎΠΌ ΡΠΎΡ ΡΠ°Π½Π΅Π½ ΠΌΠ°ΠΊΡΠΎΡ.
Π§ΡΠΎΠ±Ρ Π΄ΠΎΠ±Π°Π²ΠΈΡΡ ΠΌΠ°ΠΊΡΠΎΡ Π²ΡΡΡΠ½ΡΡ:
- ΠΡΠΊΡΡΡΡ ΡΠ΅Π΄Π°ΠΊΡΠΎΡ VB ( ALT+F11 )
- ΠΠΈΠ±ΠΎ:
- ΠΠΎΠ±Π°Π²ΡΡΠ΅ Π½ΠΎΠ²ΡΠΉ ΠΌΠΎΠ΄ΡΠ»Ρ, Π½Π°ΠΆΠ°Π² ΠΡΡΠ°Π²ΠΈΡΡ > ΠΠΎΠ΄ΡΠ»Ρ Π² ΠΌΠ΅Π½Ρ (ΠΌΠΎΠ΄ΡΠ»Ρ ΠΎΡΠΊΡΠΎΠ΅ΡΡΡ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΈ)
- ΠΠΠ Π΄Π²Π°ΠΆΠ΄Ρ ΡΠ΅Π»ΠΊΠ½ΠΈΡΠ΅ ΡΡΡΠ΅ΡΡΠ²ΡΡΡΠΈΠΉ ΠΌΠΎΠ΄ΡΠ»Ρ Π² Project Explorer, ΡΡΠΎΠ±Ρ ΠΎΡΠΊΡΡΡΡ Π΅Π³ΠΎ
- Π ΠΌΠΎΠ΄ΡΠ»Π΅ Π²Π²Π΅Π΄ΠΈΡΠ΅ ΠΊΠΎΠ΄ Π²Π°ΡΠ΅Π³ΠΎ Π½ΠΎΠ²ΠΎΠ³ΠΎ ΠΌΠ°ΠΊΡΠΎΡΠ°
ΠΠΎΠ΄ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° MyMacro() ΠΠΎΠ½Π΅Ρ ΡΡΠ±
ΠΡΠΈ Π΄Π²Π΅ ΡΡΡΠΎΠΊΠΈ ΡΠΊΠ°Π·ΡΠ²Π°ΡΡ Π½Π°ΡΠ°Π»ΠΎ ΠΈ ΠΊΠΎΠ½Π΅Ρ ΠΌΠ°ΠΊΡΠΎΡΠ° Ρ ΠΈΠΌΠ΅Π½Π΅ΠΌ Β«MyMacroΒ» (ΠΎΠ±ΡΠ°ΡΠΈΡΠ΅ Π²Π½ΠΈΠΌΠ°Π½ΠΈΠ΅ Π½Π° ΠΊΡΡΠ³Π»ΡΠ΅ ΡΠΊΠΎΠ±ΠΊΠΈ, ΠΊΠΎΡΠΎΡΡΠ΅ ΠΎΠ±ΡΠ·Π°ΡΠ΅Π»ΡΠ½Ρ). ΠΡΠΎ Π±ΡΠ΄Π΅Ρ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°ΡΡΡΡ Π² Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠΌ ΠΎΠΊΠ½Π΅ Β«ΠΡΠΎΡΠΌΠΎΡΡ ΠΌΠ°ΠΊΡΠΎΡΠΎΠ²Β» Π² Excel ΠΈ ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ Π½Π°Π·Π½Π°ΡΠ΅Π½ΠΎ ΠΊΠ½ΠΎΠΏΠΊΠ΅ (Ρ ΠΎΡΡ ΠΎΠ½Π° Π΅ΡΠ΅ Π½ΠΈΡΠ΅Π³ΠΎ Π½Π΅ Π΄Π΅Π»Π°Π΅Ρ).
ΠΠΎΠ±Π°Π²ΡΡΠ΅ ΠΊΠΎΠ΄ Π² ΠΌΠ°ΠΊΡΠΎΡ
Π’Π΅ΠΏΠ΅ΡΡ Π΄Π°Π²Π°ΠΉΡΠ΅ Π΄ΠΎΠ±Π°Π²ΠΈΠΌ Π½Π΅ΠΊΠΎΡΠΎΡΡΠΉ ΠΊΠΎΠ΄ ΠΌΠ΅ΠΆΠ΄Ρ ΡΡΡΠΎΠΊΠ°ΠΌΠΈ Β«SubΒ» ΠΈ Β«End SubΒ», ΡΡΠΎΠ±Ρ ΡΡΠΎΡ ΠΌΠ°ΠΊΡΠΎΡ Π΄Π΅ΠΉΡΡΠ²ΠΈΡΠ΅Π»ΡΠ½ΠΎ ΡΡΠΎ-ΡΠΎ Π΄Π΅Π»Π°Π»:
ΠΠΎΠ΄ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° MyMacro() ΠΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ (Β«A1Β»). ΠΠ½Π°ΡΠ΅Π½ΠΈΠ΅ = Β«ΠΡΠΈΠ²Π΅Ρ, ΠΌΠΈΡ!Β» ΠΠΎΠ½Π΅Ρ ΡΡΠ±
ΠΡΠ½ΠΎΠ²Π½ΡΠ΅ ΡΡΡΡΠΊΡΡΡΡ ΠΊΠΎΠ΄Π°
ΠΠ±ΡΠ΅ΠΊΡ ΠΏΠΎΠ»ΠΈΠ³ΠΎΠ½Π°
Excel VBA ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅Ρ ΠΎΠ±ΡΠ΅ΠΊΡ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π° Π΄Π»Ρ ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»Π΅Π½ΠΈΡ ΡΡΠ΅Π΅ΠΊ Π½Π° Π»ΠΈΡΡΠ΅. Π ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½Π½ΠΎΠΌ Π²ΡΡΠ΅ ΠΏΡΠΈΠΌΠ΅ΡΠ΅ ΡΠΎΠ·Π΄Π°Π΅ΡΡΡ ΠΎΠ±ΡΠ΅ΠΊΡ Range Ρ ΠΊΠΎΠ΄ΠΎΠΌ Range(«A1») Π΄Π»Ρ Π΄ΠΎΡΡΡΠΏΠ° ΠΊ Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΡΡΠ΅ΠΉΠΊΠΈ A1.
ΠΠ±ΡΠ΅ΠΊΡΡ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π° Π² ΠΎΡΠ½ΠΎΠ²Π½ΠΎΠΌ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡΡΡΡ Π΄Π»Ρ ΡΡΡΠ°Π½ΠΎΠ²ΠΊΠΈ Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ ΡΡΠ΅Π΅ΠΊ:
ΠΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ("A1"). ΠΠ½Π°ΡΠ΅Π½ΠΈΠ΅ = 1
ΠΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ("A1"). ΠΠ½Π°ΡΠ΅Π½ΠΈΠ΅ = "ΠΠ΅ΡΠ²Π°Ρ ΡΡΠ΅ΠΉΠΊΠ°"
ΠΠ±ΡΠ°ΡΠΈΡΠ΅ Π²Π½ΠΈΠΌΠ°Π½ΠΈΠ΅, ΡΡΠΎ ΠΏΡΠΈ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½ΠΈΠΈ Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ ΡΡΠ΅Π΅ΠΊ ΠΊΠ°ΠΊ ΡΠΈΡΠ΅Π» Π²Ρ ΠΏΡΠΎΡΡΠΎ Π²Π²ΠΎΠ΄ΠΈΡΠ΅ ΡΠΈΡΠ»ΠΎ, Π½ΠΎ ΠΏΡΠΈ Π²Π²ΠΎΠ΄Π΅ ΡΠ΅ΠΊΡΡΠ° Π²Ρ Π΄ΠΎΠ»ΠΆΠ½Ρ Π·Π°ΠΊΠ»ΡΡΠ°ΡΡ ΡΠ΅ΠΊΡΡ Π² ΠΊΠ°Π²ΡΡΠΊΠΈ.
ΠΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Ρ
ΡΠ°ΠΊΠΆΠ΅ ΠΌΠΎΠΆΠ½ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ Π΄Π»Ρ Π΄ΠΎΡΡΡΠΏΠ° ΠΊΠΎ ΠΌΠ½ΠΎΠ³ΠΈΠΌ ΡΠ²ΠΎΠΉΡΡΠ²Π°ΠΌ ΡΡΠ΅Π΅ΠΊ, ΡΠ°ΠΊΠΈΠΌ ΠΊΠ°ΠΊ ΠΈΡ ΡΡΠΈΡΡ, Π³ΡΠ°Π½ΠΈΡΡ, ΡΠΎΡΠΌΡΠ»Ρ ΠΈ ΠΌΠ½ΠΎΠ³ΠΎΠ΅ Π΄ΡΡΠ³ΠΎΠ΅.
ΠΠ°ΠΏΡΠΈΠΌΠ΅Ρ, Π²Ρ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΡΡΡΠ°Π½ΠΎΠ²ΠΈΡΡ ΠΆΠΈΡΠ½ΡΠΉ ΡΡΠΈΡΡ ΡΡΠ΅ΠΉΠΊΠΈ ΡΠ»Π΅Π΄ΡΡΡΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ:
ΠΠΈΠ°ΠΏΠ°Π·ΠΎΠ½("A1").Π¨ΡΠΈΡΡ.ΠΠΈΡΠ½ΡΠΉ = True
ΠΡ ΡΠ°ΠΊΠΆΠ΅ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΡΡΡΠ°Π½ΠΎΠ²ΠΈΡΡ ΡΠΎΡΠΌΡΠ»Ρ ΡΡΠ΅ΠΉΠΊΠΈ:
ΠΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ (Β«A1Β»). Π€ΠΎΡΠΌΡΠ»Π° = Β«= Π‘ΡΠΌΠΌΠ° (A2: A10)Β»
Π Excel Π²Ρ ΠΌΠΎΠΆΠ΅ΡΠ΅ Π²ΡΠ±ΡΠ°ΡΡ Π±Π»ΠΎΠΊ ΡΡΠ΅Π΅ΠΊ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΠΊΡΡΡΠΎΡΠ° (Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ, ΠΎΡ A1 Π΄ΠΎ D10) ΠΈ Π²ΡΠ΄Π΅Π»ΠΈΡΡ ΠΈΡ Π²ΡΠ΅ ΠΏΠΎΠ»ΡΠΆΠΈΡΠ½ΡΠΌ ΡΡΠΈΡΡΠΎΠΌ. ΠΠ±ΡΠ΅ΠΊΡΡ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π° ΠΌΠΎΠ³ΡΡ ΠΏΠΎΠ»ΡΡΠ°ΡΡ Π΄ΠΎΡΡΡΠΏ ΠΊ Π±Π»ΠΎΠΊΠ°ΠΌ ΡΡΠ΅Π΅ΠΊ ΡΠ»Π΅Π΄ΡΡΡΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ:
ΠΠΈΠ°ΠΏΠ°Π·ΠΎΠ½("A1:D10").Π¨ΡΠΈΡΡ.ΠΠΈΡΠ½ΡΠΉ = True
ΠΡ ΡΠ°ΠΊΠΆΠ΅ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΎΠ±ΡΠ°ΡΠΈΡΡΡΡ ΡΡΠ°Π·Ρ ΠΊ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΈΠΌ ΡΡΠ΅ΠΉΠΊΠ°ΠΌ/Π±Π»ΠΎΠΊΠ°ΠΌ:
ΠΠΈΠ°ΠΏΠ°Π·ΠΎΠ½("A1:D10,A12:D12,G1").Font.Bold = True
Π€ΠΎΡΠΌΠ°Ρ Π΄Π»Ρ ΡΡΠΎΠ³ΠΎ ΡΠ°ΠΊΠΎΠΉ ΠΆΠ΅, ΠΊΠ°ΠΊ ΡΠΎΡΠΌΠ°Ρ, ΠΊΠΎΡΠΎΡΡΠΉ Π²Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π»ΠΈ Π±Ρ ΠΏΡΠΈ Π²ΡΠ±ΠΎΡΠ΅ ΡΡΠ΅Π΅ΠΊ Π΄Π»Ρ ΡΠΎΡΠΌΡΠ»Ρ Π‘Π£ΠΠ() Π² Excel. ΠΠ°ΠΆΠ΄ΡΠΉ Π±Π»ΠΎΠΊ ΠΎΡΠ΄Π΅Π»ΡΠ΅ΡΡΡ Π·Π°ΠΏΡΡΠΎΠΉ, Π° Π±Π»ΠΎΠΊΠΈ ΠΎΠ±ΠΎΠ·Π½Π°ΡΠ°ΡΡΡΡ Π²Π΅ΡΡ Π½Π΅ΠΉ Π»Π΅Π²ΠΎΠΉ ΠΈ Π½ΠΈΠΆΠ½Π΅ΠΉ ΠΏΡΠ°Π²ΠΎΠΉ ΡΡΠ΅ΠΉΠΊΠ°ΠΌΠΈ, ΡΠ°Π·Π΄Π΅Π»Π΅Π½Π½ΡΠΌΠΈ Π΄Π²ΠΎΠ΅ΡΠΎΡΠΈΠ΅ΠΌ.
ΠΠ°ΠΊΠΎΠ½Π΅Ρ, ΠΎΠ±ΡΠ΅ΠΊΡΡ Range ΠΈΠΌΠ΅ΡΡ Π²ΡΡΡΠΎΠ΅Π½Π½ΡΠ΅ ΠΌΠ΅ΡΠΎΠ΄Ρ Π΄Π»Ρ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ ΠΎΠ±ΡΠΈΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΉ Π½Π° Π»ΠΈΡΡΠ΅. ΠΠ°ΠΏΡΠΈΠΌΠ΅Ρ, Π²Ρ ΠΌΠΎΠΆΠ΅ΡΠ΅ Π·Π°Ρ ΠΎΡΠ΅ΡΡ ΡΠΊΠΎΠΏΠΈΡΠΎΠ²Π°ΡΡ Π½Π΅ΠΊΠΎΡΠΎΡΡΠ΅ Π΄Π°Π½Π½ΡΠ΅ ΠΈΠ· ΠΎΠ΄Π½ΠΎΠ³ΠΎ ΠΌΠ΅ΡΡΠ° Π² Π΄ΡΡΠ³ΠΎΠ΅. ΠΠΎΡ ΠΏΡΠΈΠΌΠ΅Ρ:
ΠΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ("A1:D10"). ΠΠΎΠΏΠΈΡΠΎΠ²Π°ΡΡ ΠΠΈΠ°ΠΏΠ°Π·ΠΎΠ½("F1").PasteSpecial xlPasteValues ΠΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ("F1").PasteSpecial xlPasteFormats
ΠΡΠΎ ΠΊΠΎΠΏΠΈΡΡΠ΅Ρ ΡΡΠ΅ΠΉΠΊΠΈ A1:D10 Π² Π±ΡΡΠ΅Ρ ΠΎΠ±ΠΌΠ΅Π½Π°, Π° Π·Π°ΡΠ΅ΠΌ Π²ΡΠΏΠΎΠ»Π½ΡΠ΅Ρ PasteSpecial(), Π½Π°ΡΠΈΠ½Π°Ρ Ρ ΡΡΠ΅ΠΉΠΊΠΈ C1 β ΡΠΎΡΠ½ΠΎ ΡΠ°ΠΊ ΠΆΠ΅, ΠΊΠ°ΠΊ Π²Ρ Π΄Π΅Π»Π°Π΅ΡΠ΅ ΡΡΠΎ Π²ΡΡΡΠ½ΡΡ Π² Excel. ΠΠ±ΡΠ°ΡΠΈΡΠ΅ Π²Π½ΠΈΠΌΠ°Π½ΠΈΠ΅, ΡΡΠΎ Π² ΡΡΠΎΠΌ ΠΏΡΠΈΠΌΠ΅ΡΠ΅ ΠΏΠΎΠΊΠ°Π·Π°Π½ΠΎ, ΠΊΠ°ΠΊ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ PasteSpecial() Π΄Π»Ρ Π²ΡΡΠ°Π²ΠΊΠΈ ΡΠΎΠ»ΡΠΊΠΎ Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ ΠΈ ΡΠΎΡΠΌΠ°ΡΠΎΠ² β Π·Π΄Π΅ΡΡ Π΅ΡΡΡ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΡ Π΄Π»Ρ Π²ΡΠ΅Ρ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠΎΠ², ΠΊΠΎΡΠΎΡΡΠ΅ Π²Ρ Π²ΠΈΠ΄ΠΈΡΠ΅ Π² Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠΌ ΠΎΠΊΠ½Π΅ Β«Π‘ΠΏΠ΅ΡΠΈΠ°Π»ΡΠ½Π°Ρ Π²ΡΡΠ°Π²ΠΊΠ°Β».
ΠΠΎΡ ΠΏΡΠΈΠΌΠ΅Ρ Π²ΡΡΠ°Π²ΠΊΠΈ Β«ΠΡΠ΅Β» Π½Π° Π΄ΡΡΠ³ΠΎΠΉ Π»ΠΈΡΡ:
ΠΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ("A1:D10"). ΠΠΎΠΏΠΈΡΠΎΠ²Π°ΡΡ ΠΠΈΡΡΡ("ΠΠΈΡΡ2").Range("A1").PasteSpecial xlPasteAll
ΠΠΏΠ΅ΡΠ°ΡΠΎΡΡ if
Π‘ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΠΎΠΌ If Π²Ρ ΠΌΠΎΠΆΠ΅ΡΠ΅ Π·Π°ΡΡΠ°Π²ΠΈΡΡ ΡΠ°ΡΡΡ ΠΊΠΎΠ΄Π° Π²ΡΠΏΠΎΠ»Π½ΡΡΡΡΡ ΡΠΎΠ»ΡΠΊΠΎ Β«Π΅ΡΠ»ΠΈΒ» ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Π½ΠΎΠ΅ ΡΡΠ²Π΅ΡΠΆΠ΄Π΅Π½ΠΈΠ΅ Π²Π΅ΡΠ½ΠΎ.
ΠΠ°ΠΏΡΠΈΠΌΠ΅Ρ, Π²Ρ ΠΌΠΎΠΆΠ΅ΡΠ΅ Π²ΡΠ΄Π΅Π»ΠΈΡΡ ΡΡΠ΅ΠΉΠΊΡ ΠΏΠΎΠ»ΡΠΆΠΈΡΠ½ΡΠΌ ΡΡΠΈΡΡΠΎΠΌ ΠΈ ΠΏΠΎΠΊΡΠ°ΡΠΈΡΡ Π΅Π΅ Π² ΠΊΡΠ°ΡΠ½ΡΠΉ ΡΠ²Π΅Ρ, Π½ΠΎ ΡΠΎΠ»ΡΠΊΠΎ Β«Π΅ΡΠ»ΠΈΒ» Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ Π² ΡΡΠ΅ΠΉΠΊΠ΅ ΠΌΠ΅Π½ΡΡΠ΅ 100.
ΠΡΠ»ΠΈ ΠΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ("A4"). ΠΠ½Π°ΡΠ΅Π½ΠΈΠ΅ < 100 Π’ΠΎΠ³Π΄Π° ΠΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ("A4"). Π¨ΡΠΈΡΡ. ΠΠΎΠ»ΡΠΆΠΈΡΠ½ΡΠΉ = ΠΡΡΠΈΠ½Π° ΠΠΈΠ°ΠΏΠ°Π·ΠΎΠ½("A4").Interior.Color = vbRed ΠΠΎΠ½Π΅Ρ, Π΅ΡΠ»ΠΈ
ΠΡΠ°Π²ΠΈΠ»ΡΠ½Π°Ρ ΡΡΡΡΠΊΡΡΡΠ° ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΠ° If Π²ΡΠ³Π»ΡΠ΄ΠΈΡ ΡΠ»Π΅Π΄ΡΡΡΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ (ΠΊΠ²Π°Π΄ΡΠ°ΡΠ½ΡΠ΅ ΡΠΊΠΎΠ±ΠΊΠΈ ΠΎΠ±ΠΎΠ·Π½Π°ΡΠ°ΡΡ Π½Π΅ΠΎΠ±ΡΠ·Π°ΡΠ΅Π»ΡΠ½ΡΠ΅ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΡ):
ΠΡΠ»ΠΈ <ΡΡΠ»ΠΎΠ²ΠΈΠ΅> Π’ΠΎΠ³Π΄Π°
[ ElseIf <Π΄ΡΡΠ³ΠΎΠ΅-ΡΡΠ»ΠΎΠ²ΠΈΠ΅> Then ]
[ ΠΡΠ΅ ]
ΠΠΎΠ½Π΅Ρ, Π΅ΡΠ»ΠΈ
ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ Π²ΠΊΠ»ΡΡΠΈΡΡ Π»ΡΠ±ΠΎΠ΅ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ Π±Π»ΠΎΠΊΠΎΠ² ElseIf Π΄Π»Ρ ΠΏΡΠΎΠ²Π΅ΡΠΊΠΈ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΈΡ ΡΡΠ»ΠΎΠ²ΠΈΠΉ. ΠΡ ΡΠ°ΠΊΠΆΠ΅ ΠΌΠΎΠΆΠ΅ΡΠ΅ Π΄ΠΎΠ±Π°Π²ΠΈΡΡ Π±Π»ΠΎΠΊ Else , ΠΊΠΎΡΠΎΡΡΠΉ Π·Π°ΠΏΡΡΠΊΠ°Π΅ΡΡΡ ΡΠΎΠ»ΡΠΊΠΎ Π² ΡΠΎΠΌ ΡΠ»ΡΡΠ°Π΅, Π΅ΡΠ»ΠΈ Π½ΠΈ ΠΎΠ΄Π½ΠΎ ΠΈΠ· Π΄ΡΡΠ³ΠΈΡ ΡΡΠ»ΠΎΠ²ΠΈΠΉ Π² ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΠ΅ If Π½Π΅ Π²ΡΠΏΠΎΠ»Π½ΡΠ΅ΡΡΡ.
ΠΠΎΡ Π΅ΡΠ΅ ΠΎΠ΄ΠΈΠ½ ΠΏΡΠΈΠΌΠ΅Ρ, ΠΎΡΠ½ΠΎΠ²Π°Π½Π½ΡΠΉ Π½Π° ΠΏΡΠ΅Π΄ΡΠ΄ΡΡΠ΅ΠΌ, Π³Π΄Π΅ ΡΡΠ΅ΠΉΠΊΠ° ΡΠΎΡΠΌΠ°ΡΠΈΡΡΠ΅ΡΡΡ ΠΏΠΎ-ΡΠ°Π·Π½ΠΎΠΌΡ Π² Π·Π°Π²ΠΈΡΠΈΠΌΠΎΡΡΠΈ ΠΎΡ Π·Π½Π°ΡΠ΅Π½ΠΈΡ:
ΠΡΠ»ΠΈ ΠΠΈΠ°ΠΏΠ°Π·ΠΎΠ½("A4").ΠΠ½Π°ΡΠ΅Π½ΠΈΠ΅ < 100 Π’ΠΎΠ³Π΄Π° ΠΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ("A4"). Π¨ΡΠΈΡΡ. ΠΠΎΠ»ΡΠΆΠΈΡΠ½ΡΠΉ = ΠΡΡΠΈΠ½Π° ΠΠΈΠ°ΠΏΠ°Π·ΠΎΠ½("A4").Interior. Color = vbRed ElseIf Range("A4").Value < 200 Π’ΠΎΠ³Π΄Π° ΠΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ("A4"). Π¨ΡΠΈΡΡ. ΠΠΎΠ»ΡΠΆΠΈΡΠ½ΡΠΉ = ΠΠΎΠΆΡ ΠΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ("A4"). ΠΠ½ΡΠ΅ΡΡΠ΅Ρ. Π¦Π²Π΅Ρ = vbYellow ΠΡΠ΅ ΠΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ("A4"). Π¨ΡΠΈΡΡ. ΠΠΎΠ»ΡΠΆΠΈΡΠ½ΡΠΉ = ΠΠΎΠΆΡ ΠΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ("A4"). ΠΠ½ΡΠ΅ΡΡΠ΅Ρ. Π¦Π²Π΅Ρ = vbGreen ΠΠΎΠ½Π΅Ρ, Π΅ΡΠ»ΠΈ
Π ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½Π½ΠΎΠΌ Π²ΡΡΠ΅ ΠΏΡΠΈΠΌΠ΅ΡΠ΅ ΡΡΠ΅ΠΉΠΊΠ° Π½Π΅ Π²ΡΠ΄Π΅Π»Π΅Π½Π° ΠΆΠΈΡΠ½ΡΠΌ ΡΡΠΈΡΡΠΎΠΌ Π² Π±Π»ΠΎΠΊΠ°Ρ ElseIf, Π³Π΄Π΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ Π½Π΅ ΠΌΠ΅Π½ΡΡΠ΅ 100.Β ΠΌΠΎΠΆΠ½ΠΎ Π²Π»ΠΎΠΆΠΈΡΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΡ If, ΡΡΠΎΠ±Ρ ΠΈΠ·Π±Π΅ΠΆΠ°ΡΡ Π΄ΡΠ±Π»ΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΊΠΎΠ΄Π°, Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ:
ΠΡΠ»ΠΈ ΠΠΈΠ°ΠΏΠ°Π·ΠΎΠ½("A4").ΠΠ½Π°ΡΠ΅Π½ΠΈΠ΅ < 100 Π’ΠΎΠ³Π΄Π° ΠΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ("A4"). Π¨ΡΠΈΡΡ. ΠΠΎΠ»ΡΠΆΠΈΡΠ½ΡΠΉ = ΠΡΡΠΈΠ½Π° ΠΠΈΠ°ΠΏΠ°Π·ΠΎΠ½("A4").Interior.Color = vbRed ΠΡΠ΅ Range("A4").Font.Bold = False ' Π²ΡΠ΄Π΅Π»Π΅Π½ΠΈΠ΅ ΡΡΠΈΡΡΠ° ΡΠΎΠ»ΡΠΊΠΎ ΠΎΠ΄ΠΈΠ½ ΡΠ°Π· ΠΡΠ»ΠΈ ΠΠΈΠ°ΠΏΠ°Π·ΠΎΠ½("A4").ΠΠ½Π°ΡΠ΅Π½ΠΈΠ΅ < 200 Π’ΠΎΠ³Π΄Π° ΠΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ("A4"). ΠΠ½ΡΠ΅ΡΡΠ΅Ρ. Π¦Π²Π΅Ρ = vbYellow ΠΡΠ΅ ΠΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ("A4"). ΠΠ½ΡΠ΅ΡΡΠ΅Ρ. Π¦Π²Π΅Ρ = vbGreen ΠΠΎΠ½Π΅Ρ, Π΅ΡΠ»ΠΈ ΠΠΎΠ½Π΅Ρ, Π΅ΡΠ»ΠΈ
ΠΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΠ΅
A ΠΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ β ΡΡΠΎ ΡΠ°ΡΡΡ ΠΏΠ°ΠΌΡΡΠΈ, ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΠΌΠ°Ρ Π΄Π»Ρ Ρ ΡΠ°Π½Π΅Π½ΠΈΡ Π²ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ Π²ΠΎ Π²ΡΠ΅ΠΌΡ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ ΠΌΠ°ΠΊΡΠΎΡΠ°. ΠΠ½ΠΈ ΡΠ°ΡΡΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡΡΡΡ Π² ΡΠΈΠΊΠ»Π°Ρ Π² ΠΊΠ°ΡΠ΅ΡΡΠ²Π΅ ΠΈΡΠ΅ΡΠ°ΡΠΎΡΠΎΠ² ΠΈΠ»ΠΈ Π΄Π»Ρ Ρ ΡΠ°Π½Π΅Π½ΠΈΡ ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ° ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΈ, ΠΊΠΎΡΠΎΡΡΡ Π²Ρ Ρ ΠΎΡΠΈΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΎ ΡΠ°Π· Π² ΠΌΠ°ΠΊΡΠΎΡΠ΅.
ΠΠΎΡ ΠΏΡΠΈΠΌΠ΅Ρ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ ΠΈ Π΅Π΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΡ:
Sub ExtractSerialNumber() Dim strSerial As String ' ΡΡΠΎ ΠΎΠ±ΡΡΠ²Π»Π΅Π½ΠΈΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ 'As String' ΠΎΠ·Π½Π°ΡΠ°Π΅Ρ, ΡΡΠΎ ΡΡΠ° ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ ΠΏΡΠ΅Π΄Π½Π°Π·Π½Π°ΡΠ΅Π½Π° Π΄Π»Ρ Ρ ΡΠ°Π½Π΅Π½ΠΈΡ ΡΠ΅ΠΊΡΡΠ° ' ΡΡΡΠ°Π½ΠΎΠ²ΠΊΠ° ΡΠΈΠΊΡΠΈΠ²Π½ΠΎΠ³ΠΎ ΡΠ΅ΡΠΈΠΉΠ½ΠΎΠ³ΠΎ Π½ΠΎΠΌΠ΅ΡΠ°: ΠΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ("A4"). ΠΠ½Π°ΡΠ΅Π½ΠΈΠ΅ = "ΡΠ΅ΡΠΈΠΉΠ½ΡΠΉ Π½ΠΎΠΌΠ΅Ρ 804567-88" ' Π²ΡΠ΄Π΅Π»ΠΈΡΠ΅ ΡΠ΅ΡΠΈΠΉΠ½ΡΠΉ Π½ΠΎΠΌΠ΅Ρ ΠΈΠ· ΡΡΠ΅ΠΉΠΊΠΈ A4 ΠΈ ΠΏΡΠΈΡΠ²ΠΎΠΉΡΠ΅ Π΅Π³ΠΎ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ strSerial = Π‘ΡΠ΅Π΄Π½ΠΈΠΉ (ΠΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ (Β«A4Β»). ΠΠ½Π°ΡΠ΅Π½ΠΈΠ΅, 9) ' ΡΠ΅ΠΏΠ΅ΡΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠΉΡΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ Π΄Π²Π°ΠΆΠ΄Ρ, Π²ΠΌΠ΅ΡΡΠΎ ΡΠΎΠ³ΠΎ, ΡΡΠΎΠ±Ρ Π΄Π²Π°ΠΆΠ΄Ρ Π°Π½Π°Π»ΠΈΠ·ΠΈΡΠΎΠ²Π°ΡΡ ΡΠ΅ΡΠΈΠΉΠ½ΡΠΉ Π½ΠΎΠΌΠ΅Ρ ΠΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ("B4"). ΠΠ½Π°ΡΠ΅Π½ΠΈΠ΅ = strSerial MsgBox ΡΠ»Π‘Π΅ΡΠΈΠ°Π» ΠΠΎΠ½Π΅Ρ ΡΠ°Π±Π²ΡΡΠ΅ΡΠ°
Π ΡΡΠΎΠΌ Π±Π°Π·ΠΎΠ²ΠΎΠΌ ΠΏΡΠΈΠΌΠ΅ΡΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ strSerial ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ Π΄Π»Ρ ΠΈΠ·Π²Π»Π΅ΡΠ΅Π½ΠΈΡ ΡΠ΅ΡΠΈΠΉΠ½ΠΎΠ³ΠΎ Π½ΠΎΠΌΠ΅ΡΠ° ΠΈΠ· ΡΡΠ΅ΠΉΠΊΠΈ A4 Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΡΡΠ½ΠΊΡΠΈΠΈ Mid(), Π° Π·Π°ΡΠ΅ΠΌ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ Π² Π΄Π²ΡΡ Π΄ΡΡΠ³ΠΈΡ ΠΌΠ΅ΡΡΠ°Ρ .
Π‘ΡΠ°Π½Π΄Π°ΡΡΠ½ΡΠΉ ΡΠΏΠΎΡΠΎΠ± ΠΎΠ±ΡΡΠ²Π»Π΅Π½ΠΈΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ Π²ΡΠ³Π»ΡΠ΄ΠΈΡ ΡΠ»Π΅Π΄ΡΡΡΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ:
Π’ΡΡΠΊΠ»ΡΠΉ ΠΊΠ°ΠΊ ΡΠ³ΠΎΠ΄Π½ΠΎ [ ΠΠ°ΠΊ ΡΠΈΠΏ ]
- Π»ΡΠ±ΠΎΠ΅ ΠΈΠΌΡ ΡΡΠΎ ΠΈΠΌΡ, ΠΊΠΎΡΠΎΡΠΎΠ΅ Π²Ρ ΡΠ΅ΡΠΈΡΠ΅ Π΄Π°ΡΡ ΡΠ²ΠΎΠ΅ΠΉ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ
- ΡΠΈΠΏ - ΡΠΈΠΏ Π΄Π°Π½Π½ΡΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ
Π§Π°ΡΡΡ Β«[As type ]Β» ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ ΠΎΠΏΡΡΠ΅Π½Π° β Π² ΡΡΠΎΠΌ ΡΠ»ΡΡΠ°Π΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ ΠΎΠ±ΡΡΠ²Π»ΡΠ΅ΡΡΡ ΠΊΠ°ΠΊ ΡΠΈΠΏ Variant, ΠΊΠΎΡΠΎΡΡΠΉ ΠΌΠΎΠΆΠ΅Ρ ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΡ Π»ΡΠ±ΡΠ΅ Π΄Π°Π½Π½ΡΠ΅. ΠΠ΅ΡΠΌΠΎΡΡΡ Π½Π° ΡΠΎ, ΡΡΠΎ ΡΠΈΠΏΡ Variant Π°Π±ΡΠΎΠ»ΡΡΠ½ΠΎ Π΄ΠΎΠΏΡΡΡΠΈΠΌΡ, ΠΈΡ ΡΠ»Π΅Π΄ΡΠ΅Ρ ΠΈΠ·Π±Π΅Π³Π°ΡΡ, ΡΠ°ΠΊ ΠΊΠ°ΠΊ ΠΎΠ½ΠΈ ΠΌΠΎΠ³ΡΡ ΠΏΡΠΈΠ²Π΅ΡΡΠΈ ΠΊ Π½Π΅ΠΎΠΆΠΈΠ΄Π°Π½Π½ΡΠΌ ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ°ΠΌ, Π΅ΡΠ»ΠΈ Π²Ρ Π½Π΅ Π±ΡΠ΄Π΅ΡΠ΅ ΠΎΡΡΠΎΡΠΎΠΆΠ½Ρ.
Π‘ΡΡΠ΅ΡΡΠ²ΡΠ΅Ρ ΠΏΡΠ°Π²ΠΈΠ» Π΄Π»Ρ ΠΈΠΌΠ΅Π½ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ . ΠΠ½ΠΈ Π΄ΠΎΠ»ΠΆΠ½Ρ Π½Π°ΡΠΈΠ½Π°ΡΡΡΡ Π»ΠΈΠ±ΠΎ Ρ Π±ΡΠΊΠ²Ρ, Π»ΠΈΠ±ΠΎ Ρ ΡΠΈΠΌΠ²ΠΎΠ»Π° ΠΏΠΎΠ΄ΡΠ΅ΡΠΊΠΈΠ²Π°Π½ΠΈΡ, Π½Π΅ ΠΌΠΎΠ³ΡΡ ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΡ ΠΏΡΠΎΠ±Π΅Π»ΠΎΠ², ΡΠΎΡΠ΅ΠΊ, Π·Π°ΠΏΡΡΡΡ , ΠΊΠ°Π²ΡΡΠ΅ΠΊ ΠΈΠ»ΠΈ ΡΠΈΠΌΠ²ΠΎΠ»ΠΎΠ² Β«! @ & $ #Β».
ΠΠΎΡ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΎ ΠΏΡΠΈΠΌΠ΅ΡΠΎΠ² ΠΎΠ±ΡΡΠ²Π»Π΅Π½ΠΈΠΉ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ :
Dim strFilename As String ' ΡΡΠΈΠ»Ρ ΠΏΡΠ°Π²ΠΈΠ»ΡΠ½ΠΎΠ³ΠΎ ΠΈΠΌΠ΅Π½ΠΈ β ΠΎΠΏΠΈΡΠ°ΡΠ΅Π»ΡΠ½ΡΠΉ ΠΈ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅Ρ ΠΏΡΠ΅ΡΠΈΠΊΡ Dim i As Long 'ΠΏΠ»ΠΎΡ ΠΎΠΉ ΡΡΠΈΠ»Ρ ΠΈΠΌΠ΅Π½ΠΈ - ΠΏΡΠΈΠ΅ΠΌΠ»Π΅ΠΌ ΡΠΎΠ»ΡΠΊΠΎ Π΄Π»Ρ Π½Π΅ΠΊΠΎΡΠΎΡΡΡ ΠΈΡΠ΅ΡΠ°ΡΠΎΡΠΎΠ² Dim SalePrice As Double ' ΡΡΠΈΠ»Ρ ΠΈΠΌΠ΅Π½ΠΈ Π² ΠΏΠΎΡΡΠ΄ΠΊΠ΅ β ΠΎΠΏΠΈΡΠ°ΡΠ΅Π»ΡΠ½ΡΠΉ, Π½ΠΎ Π½Π΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅Ρ ΠΏΡΠ΅ΡΠΈΠΊΡ Dim iCounter ' Π½ΠΎΡΠΌΠ°Π»ΡΠ½ΠΎΠ΅ ΠΈΠΌΡ - Π½Π΅ ΡΠ»ΠΈΡΠΊΠΎΠΌ ΠΎΠΏΠΈΡΠ°ΡΠ΅Π»ΡΠ½ΠΎΠ΅, ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅Ρ ΠΏΡΠ΅ΡΠΈΠΊΡ, Π±Π΅Π· ΡΠΈΠΏΠ° Π΄Π°Π½Π½ΡΡ
ΠΠΎ Π²ΡΠ΅Ρ ΡΡΠΈΡ ΠΏΡΠΈΠΌΠ΅ΡΠ°Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡΡΡΡ Π½Π΅ΠΌΠ½ΠΎΠ³ΠΎ ΡΠ°Π·Π½ΡΠ΅ ΡΡ Π΅ΠΌΡ ΠΈΠΌΠ΅Π½ΠΎΠ²Π°Π½ΠΈΡ, Π½ΠΎ Π²ΡΠ΅ ΠΎΠ½ΠΈ Π΄ΠΎΠΏΡΡΡΠΈΠΌΡ. ΠΠ΅ΠΏΠ»ΠΎΡ ΠΎ ΡΡΠ°Π²ΠΈΡΡ ΠΏΠ΅ΡΠ΅Π΄ ΠΈΠΌΠ΅Π½Π΅ΠΌ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ ΠΊΡΠ°ΡΠΊΡΡ ΡΠΎΡΠΌΡ Π΅Π΅ ΡΠΈΠΏΠ° Π΄Π°Π½Π½ΡΡ (ΠΊΠ°ΠΊ Π² Π½Π΅ΠΊΠΎΡΠΎΡΡΡ ΠΈΠ· ΡΡΠΈΡ ΠΏΡΠΈΠΌΠ΅ΡΠΎΠ²), ΡΠ°ΠΊ ΠΊΠ°ΠΊ ΡΡΠΎ Π΄Π΅Π»Π°Π΅Ρ Π²Π°Ρ ΠΊΠΎΠ΄ Π±ΠΎΠ»Π΅Π΅ ΡΠΈΡΠ°Π±Π΅Π»ΡΠ½ΡΠΌ Ρ ΠΏΠ΅ΡΠ²ΠΎΠ³ΠΎ Π²Π·Π³Π»ΡΠ΄Π°.
VBA Π²ΠΊΠ»ΡΡΠ°Π΅Ρ Π² ΡΠ΅Π±Ρ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²ΠΎ ΠΎΡΠ½ΠΎΠ²Π½ΡΡ ΡΠΈΠΏΠΎΠ² Π΄Π°Π½Π½ΡΡ . Π‘Π°ΠΌΡΠ΅ ΠΏΠΎΠΏΡΠ»ΡΡΠ½ΡΠ΅ ΠΈΠ· Π½ΠΈΡ Π²ΠΊΠ»ΡΡΠ°ΡΡ Π² ΡΠ΅Π±Ρ:
- Π‘ΡΡΠΎΠΊΠ° (ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ Π΄Π»Ρ Ρ ΡΠ°Π½Π΅Π½ΠΈΡ ΡΠ΅ΠΊΡΡΠΎΠ²ΡΡ Π΄Π°Π½Π½ΡΡ )
- Long (ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ Π΄Π»Ρ Ρ ΡΠ°Π½Π΅Π½ΠΈΡ ΡΠ΅Π»ΡΡ ΡΠΈΡΠ΅Π», Ρ. Π΅. Π±Π΅Π· Π΄Π΅ΡΡΡΠΈΡΠ½ΡΡ Π·Π½Π°ΠΊΠΎΠ²)
- Double (ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ Π΄Π»Ρ Ρ ΡΠ°Π½Π΅Π½ΠΈΡ ΡΠΈΡΠ΅Π» Ρ ΠΏΠ»Π°Π²Π°ΡΡΠ΅ΠΉ Π·Π°ΠΏΡΡΠΎΠΉ, Ρ. Π΅. Π΄Π΅ΡΡΡΠΈΡΠ½ΡΡ ΡΠ°Π·ΡΡΠ΄ΠΎΠ²)
ΠΠΎΠ»Π½ΡΠΉ ΡΠΏΠΈΡΠΎΠΊ Π²ΡΡΡΠΎΠ΅Π½Π½ΡΡ ΡΠΈΠΏΠΎΠ² Π΄Π°Π½Π½ΡΡ VBA ΠΌΠΎΠΆΠ½ΠΎ Π½Π°ΠΉΡΠΈ Π·Π΄Π΅ΡΡ: https://docs.microsoft.com/en-us/office/vba/language/reference/user-interface-help/data-type-summary
ΠΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΠ΅ ΠΎΠ±ΡΠ΅ΠΊΡΠ° Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π°
Π’Π°ΠΊΠΆΠ΅ ΠΌΠΎΠΆΠ½ΠΎ ΡΠΎΠ·Π΄Π°Π²Π°ΡΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΠ΅, ΠΊΠΎΡΠΎΡΡΠ΅ ΡΡΡΠ»Π°ΡΡΡΡ Π½Π° ΠΎΠ±ΡΠ΅ΠΊΡΡ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π°. ΠΡΠΎ ΠΏΠΎΠ»Π΅Π·Π½ΠΎ, Π΅ΡΠ»ΠΈ Π²Ρ Ρ ΠΎΡΠΈΡΠ΅ ΡΡΡΠ»Π°ΡΡΡΡ Π½Π° ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Π½ΡΠΉ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ Π² ΡΠ²ΠΎΠ΅ΠΌ ΠΊΠΎΠ΄Π΅ Π² Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΈΡ ΠΌΠ΅ΡΡΠ°Ρ β ΡΠ°ΠΊΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ, Π΅ΡΠ»ΠΈ Π²Π°ΠΌ Π½ΡΠΆΠ½ΠΎ ΠΈΠ·ΠΌΠ΅Π½ΠΈΡΡ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½, Π²Π°ΠΌ Π½ΡΠΆΠ½ΠΎ ΠΈΠ·ΠΌΠ΅Π½ΠΈΡΡ Π΅Π³ΠΎ ΡΠΎΠ»ΡΠΊΠΎ Π² ΠΎΠ΄Π½ΠΎΠΌ ΠΌΠ΅ΡΡΠ΅.
ΠΠΎΠ³Π΄Π° Π²Ρ ΡΠΎΠ·Π΄Π°Π΅ΡΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ ΠΎΠ±ΡΠ΅ΠΊΡΠ° Range, Π²Ρ Π΄ΠΎΠ»ΠΆΠ½Ρ Β«ΡΡΡΠ°Π½ΠΎΠ²ΠΈΡΡΒ» Π΅Π΅ Π½Π° ΡΠΊΠ·Π΅ΠΌΠΏΠ»ΡΡ Range. ΠΠ°ΠΏΡΠΈΠΌΠ΅Ρ:
Dim rMyRange ΠΊΠ°ΠΊ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ Π£ΡΡΠ°Π½ΠΎΠ²ΠΈΡΠ΅ rMyRange = ΠΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ (Β«A1: A10; D1: J10Β»)
ΠΡΡΡΡΡΡΠ²ΠΈΠ΅ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΠ° Β«SetΒ» ΠΏΡΠΈ Π½Π°Π·Π½Π°ΡΠ΅Π½ΠΈΠΈ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ Range ΠΏΡΠΈΠ²Π΅Π΄Π΅Ρ ΠΊ ΠΎΡΠΈΠ±ΠΊΠ΅.
ΠΠ΅ΡΠ»ΠΈ
Π¦ΠΈΠΊΠ»Ρ β ΡΡΠΎ Π±Π»ΠΎΠΊΠΈ, Π² ΠΊΠΎΡΠΎΡΡΡ ΠΊΠΎΠ΄ ΠΏΠΎΠ²ΡΠΎΡΡΠ΅ΡΡΡ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Π½ΠΎΠ΅ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΡΠ°Π·. ΠΠ½ΠΈ ΠΏΠΎΠ»Π΅Π·Π½Ρ Π΄Π»Ρ ΡΠΌΠ΅Π½ΡΡΠ΅Π½ΠΈΡ ΠΎΠ±ΡΠ΅ΠΌΠ° ΠΊΠΎΠ΄Π°, ΠΊΠΎΡΠΎΡΡΠΉ Π²Π°ΠΌ Π½ΡΠΆΠ½ΠΎ Π½Π°ΠΏΠΈΡΠ°ΡΡ, ΠΈ ΠΏΠΎΠ·Π²ΠΎΠ»ΡΡΡ Π²Π°ΠΌ Π½Π°ΠΏΠΈΡΠ°ΡΡ ΠΎΠ΄ΠΈΠ½ ΡΡΠ°Π³ΠΌΠ΅Π½Ρ ΠΊΠΎΠ΄Π°, ΠΊΠΎΡΠΎΡΡΠΉ Π²ΡΠΏΠΎΠ»Π½ΡΠ΅Ρ ΠΎΠ΄Π½ΠΈ ΠΈ ΡΠ΅ ΠΆΠ΅ Π΄Π΅ΠΉΡΡΠ²ΠΈΡ ΡΠΎ ΠΌΠ½ΠΎΠ³ΠΈΠΌΠΈ ΡΠ°Π·Π»ΠΈΡΠ½ΡΠΌΠΈ ΡΠ²ΡΠ·Π°Π½Π½ΡΠΌΠΈ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠ°ΠΌΠΈ.
ΠΠ»Ρ ΡΠ»Π΅Π΄ΡΡΡΠ΅Π³ΠΎ
ΠΠ»ΠΎΠΊ For-Next ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΠ΅Ρ ΡΠΎΠ±ΠΎΠΉ ΡΠΈΠΊΠ», ΠΊΠΎΡΠΎΡΡΠΉ ΠΏΠΎΠ²ΡΠΎΡΡΠ΅ΡΡΡ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Π½ΠΎΠ΅ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΡΠ°Π·. ΠΠ½ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅Ρ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ Π² ΠΊΠ°ΡΠ΅ΡΡΠ²Π΅ ΠΈΡΠ΅ΡΠ°ΡΠΎΡΠ° , ΡΡΠΎΠ±Ρ ΠΏΠΎΠ΄ΡΡΠΈΡΠ°ΡΡ, ΡΠΊΠΎΠ»ΡΠΊΠΎ ΡΠ°Π· ΠΎΠ½ Π²ΡΠΏΠΎΠ»Π½ΡΠ»ΡΡ, ΠΈ ΡΡΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ-ΠΈΡΠ΅ΡΠ°ΡΠΎΡ ΠΌΠΎΠΆΠ½ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ Π²Π½ΡΡΡΠΈ ΡΠΈΠΊΠ»Π°. ΠΡΠΎ Π΄Π΅Π»Π°Π΅Ρ ΡΠΈΠΊΠ»Ρ For-Next ΠΎΡΠ΅Π½Ρ ΠΏΠΎΠ»Π΅Π·Π½ΡΠΌΠΈ Π΄Π»Ρ ΠΏΠ΅ΡΠ΅Π±ΠΎΡΠ° ΡΡΠ΅Π΅ΠΊ ΠΈΠ»ΠΈ ΠΌΠ°ΡΡΠΈΠ²ΠΎΠ².
ΠΠΎΡ ΠΏΡΠΈΠΌΠ΅Ρ, ΠΊΠΎΡΠΎΡΡΠΉ ΠΏΠ΅ΡΠ΅Π±ΠΈΡΠ°Π΅Ρ ΡΡΠ΅ΠΉΠΊΠΈ Π² ΡΡΡΠΎΠΊΠ°Ρ Ρ 1 ΠΏΠΎ 100, ΡΡΠΎΠ»Π±Π΅Ρ 1 ΠΈ ΡΡΡΠ°Π½Π°Π²Π»ΠΈΠ²Π°Π΅Ρ ΠΈΡ Π·Π½Π°ΡΠ΅Π½ΠΈΡ Π² Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ ΠΈΡΠ΅ΡΠ°ΡΠΎΡΠ°:
Π’ΡΡΠΊΠ»ΡΠΉ ΠΈ Π΄Π»ΠΈΠ½Π½ΡΠΉ ΠΠ»Ρ i = ΠΎΡ 1 Π΄ΠΎ 100 Π―ΡΠ΅ΠΉΠΊΠΈ (Ρ, 1). ΠΠ½Π°ΡΠ΅Π½ΠΈΠ΅ = Ρ ΠΠ°Π»Π΅Π΅ Ρ
Π‘ΡΡΠΎΠΊΠ° Β«For i = 1 To 100Β» ΠΎΠ·Π½Π°ΡΠ°Π΅Ρ, ΡΡΠΎ ΡΠΈΠΊΠ» Π½Π°ΡΠΈΠ½Π°Π΅ΡΡΡ Ρ 1 ΠΈ Π·Π°ΠΊΠ°Π½ΡΠΈΠ²Π°Π΅ΡΡΡ ΠΏΠΎΡΠ»Π΅ 100.Β ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΡΡΡΠ°Π½ΠΎΠ²ΠΈΡΡ Π»ΡΠ±ΡΠ΅ Π½Π°ΡΠ°Π»ΡΠ½ΡΠ΅ ΠΈ ΠΊΠΎΠ½Π΅ΡΠ½ΡΠ΅ ΡΠΈΡΠ»Π°; Π²Ρ ΡΠ°ΠΊΠΆΠ΅ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΠ΅ Π΄Π»Ρ ΡΡΠΈΡ ΡΠΈΡΠ΅Π».
ΠΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ ΡΠΈΠΊΠ»Ρ For-Next ΠΏΠΎΠ΄ΡΡΠΈΡΡΠ²Π°ΡΡΡΡ Π΄ΠΎ 1. ΠΡΠ»ΠΈ Π²Ρ Ρ ΠΎΡΠΈΡΠ΅ ΠΏΠΎΠ΄ΡΡΠΈΡΡΠ²Π°ΡΡ ΠΏΠΎ Π΄ΡΡΠ³ΠΎΠΌΡ ΡΠΈΡΠ»Ρ, Π²Ρ ΠΌΠΎΠΆΠ΅ΡΠ΅ Π½Π°ΠΏΠΈΡΠ°ΡΡ ΡΠΈΠΊΠ» Ρ ΡΠ²Π½ΡΠΌ ΡΡΠ»ΠΎΠ²ΠΈΠ΅ΠΌ Step :
ΠΠ»Ρ i = ΠΎΡ 5 Π΄ΠΎ 100 Π¨Π°Π³ 5
ΠΡΠΎΡ ΡΠΈΠΊΠ» Π½Π°ΡΠ½Π΅ΡΡΡ Ρ 5, Π·Π°ΡΠ΅ΠΌ ΠΊ Β«iΒ» Π±ΡΠ΄Π΅Ρ Π΄ΠΎΠ±Π°Π²Π»ΡΡΡΡΡ 5 ΠΊΠ°ΠΆΠ΄ΡΠΉ ΡΠ°Π·, ΠΊΠΎΠ³Π΄Π° ΡΠΈΠΊΠ» ΠΏΠΎΠ²ΡΠΎΡΡΠ΅ΡΡΡ (ΡΠ°ΠΊΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ, Β«iΒ» Π±ΡΠ΄Π΅Ρ ΡΠ°Π²Π½ΠΎ 10 ΠΏΡΠΈ Π²ΡΠΎΡΠΎΠΌ ΠΏΠΎΠ²ΡΠΎΡΠ΅Π½ΠΈΠΈ, 15 ΠΏΡΠΈ ΡΡΠ΅ΡΡΠ΅ΠΌ ΠΈ ΡΠ°ΠΊ Π΄Π°Π»Π΅Π΅).
ΠΡΠΏΠΎΠ»ΡΠ·ΡΡ Step , Π²Ρ ΡΠ°ΠΊΠΆΠ΅ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΡΠ΄Π΅Π»Π°ΡΡ ΡΠΈΠΊΠ» Π² ΠΎΠ±ΡΠ°ΡΠ½ΠΎΠΌ ΠΏΠΎΡΡΠ΄ΠΊΠ΅:
ΠΠ»Ρ i = 100 Π΄ΠΎ 1 Π¨Π°Π³ -1
ΠΡ ΡΠ°ΠΊΠΆΠ΅ ΠΌΠΎΠΆΠ΅ΡΠ΅ Π²Π»ΠΎΠΆΠΈΡΡ ΡΠΈΠΊΠ»ΠΎΠ² For-Next. ΠΠ»Ρ ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ Π±Π»ΠΎΠΊΠ° ΡΡΠ΅Π±ΡΠ΅ΡΡΡ ΡΠΎΠ±ΡΡΠ²Π΅Π½Π½Π°Ρ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ Π΄Π»Ρ ΠΏΠΎΠ΄ΡΡΠ΅ΡΠ°, Π½ΠΎ Π²Ρ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΡΡΠΈ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΠ΅ Π³Π΄Π΅ ΡΠ³ΠΎΠ΄Π½ΠΎ. ΠΠΎΡ ΠΏΡΠΈΠΌΠ΅Ρ ΡΠΎΠ³ΠΎ, ΠΊΠ°ΠΊ ΡΡΠΎ ΠΏΠΎΠ»Π΅Π·Π½ΠΎ Π² Excel VBA:
Dim i As Long, j As Long ΠΠ»Ρ i = ΠΎΡ 1 Π΄ΠΎ 100 ΠΠ»Ρ j = ΠΎΡ 1 Π΄ΠΎ 100 Π―ΡΠ΅ΠΉΠΊΠΈ (i, j). ΠΠ½Π°ΡΠ΅Π½ΠΈΠ΅ = i * j Π‘Π»Π΅Π΄ΡΡΡΠΈΠΉ j ΠΠ°Π»Π΅Π΅ Ρ
ΠΡΠΎ ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ ΠΏΠ΅ΡΠ΅Π±ΠΈΡΠ°ΡΡ ΠΊΠ°ΠΊ ΡΡΡΠΎΠΊΠΈ, ΡΠ°ΠΊ ΠΈ ΡΡΠΎΠ»Π±ΡΡ.
ΠΠ ΠΠΠ£ΠΠ ΠΠΠΠΠΠΠ : Ρ ΠΎΡΡ ΡΡΠΎ ΡΠ°Π·ΡΠ΅ΡΠ΅Π½ΠΎ, Π²Ρ ΠΠΠΠΠΠΠ Π½Π΅ Π΄ΠΎΠ»ΠΆΠ½Ρ ΠΈΠ·ΠΌΠ΅Π½ΡΡΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ ΠΈΡΠ΅ΡΠ°ΡΠΎΡΠ° Π²Π½ΡΡΡΠΈ Π±Π»ΠΎΠΊΠ° For-Next, ΡΠ°ΠΊ ΠΊΠ°ΠΊ ΠΎΠ½ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅Ρ ΡΡΠΎΡ ΠΈΡΠ΅ΡΠ°ΡΠΎΡ Π΄Π»Ρ ΠΎΡΡΠ»Π΅ΠΆΠΈΠ²Π°Π½ΠΈΡ ΡΠΈΠΊΠ»Π°. ΠΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΠ΅ ΠΈΡΠ΅ΡΠ°ΡΠΎΡΠ° ΠΌΠΎΠΆΠ΅Ρ ΠΏΡΠΈΠ²Π΅ΡΡΠΈ ΠΊ Π±Π΅ΡΠΊΠΎΠ½Π΅ΡΠ½ΠΎΠΌΡ ΡΠΈΠΊΠ»Ρ ΠΈ Π·Π°Π²ΠΈΡΠ°Π½ΠΈΡ ΠΌΠ°ΠΊΡΠΎΡΠ°. ΠΠ°ΠΏΡΠΈΠΌΠ΅Ρ:
ΠΠ»Ρ i = ΠΎΡ 1 Π΄ΠΎ 100 Ρ = 1 ΠΠ°Π»Π΅Π΅ Ρ
Π ΡΡΠΎΠΌ ΡΠΈΠΊΠ»Π΅ Β«ΡΒ» Π½ΠΈΠΊΠΎΠ³Π΄Π° Π½Π΅ ΠΏΡΠ΅Π²ΡΡΠΈΡ 2, ΠΏΠΎΠΊΠ° Π½Π΅ Π±ΡΠ΄Π΅Ρ ΡΠ±ΡΠΎΡΠ΅Π½ΠΎ Π² 1, ΠΈ ΡΠΈΠΊΠ» Π±ΡΠ΄Π΅Ρ ΠΏΠΎΠ²ΡΠΎΡΡΡΡΡΡ Π²Π΅ΡΠ½ΠΎ.
ΠΠ»Ρ ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ
ΠΠ»ΠΎΠΊΠΈ For-Each ΠΎΡΠ΅Π½Ρ ΠΏΠΎΡ ΠΎΠΆΠΈ Π½Π° Π±Π»ΠΎΠΊΠΈ For-Next, Π·Π° ΠΈΡΠΊΠ»ΡΡΠ΅Π½ΠΈΠ΅ΠΌ ΡΠΎΠ³ΠΎ, ΡΡΠΎ ΠΎΠ½ΠΈ Π½Π΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡΡ ΡΡΠ΅ΡΡΠΈΠΊ Π΄Π»Ρ ΡΠΊΠ°Π·Π°Π½ΠΈΡ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²Π° ΡΠΈΠΊΠ»ΠΎΠ². ΠΠΌΠ΅ΡΡΠΎ ΡΡΠΎΠ³ΠΎ Π±Π»ΠΎΠΊ For-Each Π±Π΅ΡΠ΅Ρ Β«ΠΊΠΎΠ»Π»Π΅ΠΊΡΠΈΡΒ» ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ² (Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ, Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ΡΡΠ΅Π΅ΠΊ) ΠΈ Π·Π°ΠΏΡΡΠΊΠ°Π΅ΡΡΡ ΡΡΠΎΠ»ΡΠΊΠΎ ΡΠ°Π·, ΡΠΊΠΎΠ»ΡΠΊΠΎ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ² Π² ΡΡΠΎΠΉ ΠΊΠΎΠ»Π»Π΅ΠΊΡΠΈΠΈ.
ΠΠΎΡ ΠΏΡΠΈΠΌΠ΅Ρ:
Dim r As ΠΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ΠΠ»Ρ ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ r Π² Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π΅ (Β«A15: J54Β») ΠΡΠ»ΠΈ Π³.ΠΠ½Π°ΡΠ΅Π½ΠΈΠ΅ > 0 Π’ΠΎΠ³Π΄Π° r. Font.Bold = ΠΡΡΠΈΠ½Π° ΠΠΎΠ½Π΅Ρ, Π΅ΡΠ»ΠΈ Π‘Π»Π΅Π΄ΡΡΡΠΈΠΉ Ρ
ΠΠ±ΡΠ°ΡΠΈΡΠ΅ Π²Π½ΠΈΠΌΠ°Π½ΠΈΠ΅ Π½Π° ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ ΠΎΠ±ΡΠ΅ΠΊΡΠ° Range βrβ. ΠΡΠΎ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ ΠΈΡΠ΅ΡΠ°ΡΠΎΡΠ°, ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΠΌΠ°Ρ Π² ΡΠΈΠΊΠ»Π΅ For-Each β ΠΊΠ°ΠΆΠ΄ΡΠΉ ΡΠ°Π· Π² ΡΠΈΠΊΠ»Π΅ Β«rΒ» ΠΏΠΎΠ»ΡΡΠ°Π΅Ρ ΡΡΡΠ»ΠΊΡ Π½Π° ΡΠ»Π΅Π΄ΡΡΡΡΡ ΡΡΠ΅ΠΉΠΊΡ Π² Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π΅.
ΠΡΠ΅ΠΈΠΌΡΡΠ΅ΡΡΠ²ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΡ ΡΠΈΠΊΠ»ΠΎΠ² For-Each Π² Excel VBA Π·Π°ΠΊΠ»ΡΡΠ°Π΅ΡΡΡ Π² ΡΠΎΠΌ, ΡΡΠΎ Π²Ρ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΏΠ΅ΡΠ΅Π±ΠΈΡΠ°ΡΡ Π²ΡΠ΅ ΡΡΠ΅ΠΉΠΊΠΈ Π² Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π΅ Π±Π΅Π· Π²Π»ΠΎΠΆΠ΅Π½Π½ΡΡ ΡΠΈΠΊΠ»ΠΎΠ². ΠΡΠΎ ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ ΡΠ΄ΠΎΠ±Π½ΠΎ, Π΅ΡΠ»ΠΈ Π²Π°ΠΌ Π½ΡΠΆΠ½ΠΎ ΠΏΠ΅ΡΠ΅Π±ΡΠ°ΡΡ Π²ΡΠ΅ ΡΡΠ΅ΠΉΠΊΠΈ Π² ΡΠ»ΠΎΠΆΠ½ΠΎΠΌ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π΅, ΡΠ°ΠΊΠΎΠΌ ΠΊΠ°ΠΊ Range("A1:D12,J13, M1:Y12") .
ΠΠ΄Π½ΠΈΠΌ ΠΈΠ· Π½Π΅Π΄ΠΎΡΡΠ°ΡΠΊΠΎΠ² ΡΠΈΠΊΠ»ΠΎΠ² For-Each ΡΠ²Π»ΡΠ΅ΡΡΡ ΡΠΎ, ΡΡΠΎ Π²Ρ Π½Π΅ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΊΠΎΠ½ΡΡΠΎΠ»ΠΈΡΠΎΠ²Π°ΡΡ ΠΏΠΎΡΡΠ΄ΠΎΠΊ ΠΎΠ±ΡΠ°Π±ΠΎΡΠΊΠΈ ΡΡΠ΅Π΅ΠΊ. Π₯ΠΎΡΡ Π½Π° ΠΏΡΠ°ΠΊΡΠΈΠΊΠ΅ Excel Π±ΡΠ΄Π΅Ρ ΠΏΠ΅ΡΠ΅Π±ΠΈΡΠ°ΡΡ ΡΡΠ΅ΠΉΠΊΠΈ ΠΏΠΎ ΠΏΠΎΡΡΠ΄ΠΊΡ, ΡΠ΅ΠΎΡΠ΅ΡΠΈΡΠ΅ΡΠΊΠΈ ΠΎΠ½ ΠΌΠΎΠΆΠ΅Ρ ΠΎΠ±ΡΠ°Π±Π°ΡΡΠ²Π°ΡΡ ΡΡΠ΅ΠΉΠΊΠΈ Π² ΡΠΎΠ²Π΅ΡΡΠ΅Π½Π½ΠΎ ΡΠ»ΡΡΠ°ΠΉΠ½ΠΎΠΌ ΠΏΠΎΡΡΠ΄ΠΊΠ΅. ΠΡΠ»ΠΈ Π²Π°ΠΌ Π½ΡΠΆΠ½ΠΎ ΠΎΠ±ΡΠ°Π±Π°ΡΡΠ²Π°ΡΡ ΡΡΠ΅ΠΉΠΊΠΈ Π² ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Π½ΠΎΠΌ ΠΏΠΎΡΡΠ΄ΠΊΠ΅, Π²ΠΌΠ΅ΡΡΠΎ ΡΡΠΎΠ³ΠΎ ΡΠ»Π΅Π΄ΡΠ΅Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΡΠΈΠΊΠ»Ρ For-Next.
Do-Loop
Π ΡΠΎ Π²ΡΠ΅ΠΌΡ ΠΊΠ°ΠΊ Π±Π»ΠΎΠΊΠΈ For-Next ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡΡ ΡΡΠ΅ΡΡΠΈΠΊΠΈ, ΡΡΠΎΠ±Ρ Π·Π½Π°ΡΡ, ΠΊΠΎΠ³Π΄Π° ΠΎΡΡΠ°Π½ΠΎΠ²ΠΈΡΡΡΡ, Π±Π»ΠΎΠΊΠΈ Do-Loop Π²ΡΠΏΠΎΠ»Π½ΡΡΡΡΡ Π΄ΠΎ ΡΠ΅Ρ ΠΏΠΎΡ, ΠΏΠΎΠΊΠ° Π½Π΅ Π±ΡΠ΄Π΅Ρ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΎ ΡΡΠ»ΠΎΠ²ΠΈΠ΅. ΠΠ»Ρ ΡΡΠΎΠ³ΠΎ Π²Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΠ΅ ΠΏΡΠ΅Π΄Π»ΠΎΠΆΠ΅Π½ΠΈΠ΅ Before Π»ΠΈΠ±ΠΎ Π² Π½Π°ΡΠ°Π»Π΅, Π»ΠΈΠ±ΠΎ Π² ΠΊΠΎΠ½ΡΠ΅ Π±Π»ΠΎΠΊΠ°, ΠΊΠΎΡΠΎΡΠΎΠ΅ ΠΏΡΠΎΠ²Π΅ΡΡΠ΅Ρ ΡΡΠ»ΠΎΠ²ΠΈΠ΅ ΠΈ Π²ΡΠ·ΡΠ²Π°Π΅Ρ ΠΎΡΡΠ°Π½ΠΎΠ²ΠΊΡ ΡΠΈΠΊΠ»Π° ΠΏΡΠΈ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΠΈ ΡΡΠΎΠ³ΠΎ ΡΡΠ»ΠΎΠ²ΠΈΡ.
ΠΡΠΈΠΌΠ΅Ρ:
Dim str As String ΡΠ» = "ΠΡΡΡΠ°Π»ΠΎ" ΠΠ΅Π»Π°ΡΡ Π΄ΠΎ str = "Buffalo Buffalo Buffalo Buffalo Buffalo Buffalo Buffalo" str = str & " " & "ΠΡΡΡΠ°Π»ΠΎ" ΠΠ΅ΡΠ»Ρ ΠΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ("A1"). ΠΠ½Π°ΡΠ΅Π½ΠΈΠ΅ = ΡΠ»
Π ΡΡΠΎΠΌ ΡΠΈΠΊΠ»Π΅ Β«BuffaloΒ» ΠΎΠ±ΡΠ΅Π΄ΠΈΠ½ΡΠ΅ΡΡΡ Ρ Β«strΒ» ΠΊΠ°ΠΆΠ΄ΡΠΉ ΡΠ°Π· Π² ΡΠΈΠΊΠ»Π΅ Π΄ΠΎ ΡΠ΅Ρ ΠΏΠΎΡ, ΠΏΠΎΠΊΠ° Π½Π΅ ΡΠΎΠ²ΠΏΠ°Π΄Π΅Ρ Ρ ΠΎΠΆΠΈΠ΄Π°Π΅ΠΌΡΠΌ ΠΏΡΠ΅Π΄Π»ΠΎΠΆΠ΅Π½ΠΈΠ΅ΠΌ. Π ΡΡΠΎΠΌ ΡΠ»ΡΡΠ°Π΅ ΡΠ΅ΡΡ Π²ΡΠΏΠΎΠ»Π½ΡΠ΅ΡΡΡ Π² Π½Π°ΡΠ°Π»Π΅ ΡΠΈΠΊΠ»Π° β Π΅ΡΠ»ΠΈ Β«strΒ» ΡΠΆΠ΅ Π±ΡΠ»ΠΎ ΠΎΠΆΠΈΠ΄Π°Π΅ΠΌΡΠΌ ΠΏΡΠ΅Π΄Π»ΠΎΠΆΠ΅Π½ΠΈΠ΅ΠΌ (ΡΡΠΎ Π½Π΅ ΡΠ°ΠΊ, ΠΏΠΎΡΠΎΠΌΡ ΡΡΠΎ ΠΌΡ Π½Π΅ Π½Π°ΡΠ°Π»ΠΈ Π΅Π³ΠΎ ΡΠ°ΠΊΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ, Π½ΠΎ Π΅ΡΠ»ΠΈ Π±Ρ), ΡΠΈΠΊΠ» Π΄Π°ΠΆΠ΅ Π½Π΅ Π·Π°ΠΏΡΡΡΠΈΠ»ΡΡ. .
ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ Π·Π°ΠΏΡΡΡΠΈΡΡ ΡΠΈΠΊΠ» Ρ ΠΎΡΡ Π±Ρ ΠΎΠ΄ΠΈΠ½ ΡΠ°Π·, ΠΏΠ΅ΡΠ΅ΠΌΠ΅ΡΡΠΈΠ² ΠΏΡΠ΅Π΄Π»ΠΎΠΆΠ΅Π½ΠΈΠ΅ Β«ΠΠΎ ΡΠ΅Ρ ΠΏΠΎΡΒ» Π² ΠΊΠΎΠ½Π΅Ρ, Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ:
ΠΠ΅Π»Π°ΡΡ str = str & " " & "ΠΡΡΡΠ°Π»ΠΎ" Π¦ΠΈΠΊΠ» Π΄ΠΎ str = Β«Buffalo Buffalo Buffalo Buffalo Buffalo Buffalo BuffaloΒ»
ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ Π»ΡΠ±ΡΡ Π²Π΅ΡΡΠΈΡ, ΠΊΠΎΡΠΎΡΠ°Ρ ΠΈΠΌΠ΅Π΅Ρ ΡΠΌΡΡΠ» Π² Π²Π°ΡΠ΅ΠΌ ΠΌΠ°ΠΊΡΠΎΡΠ΅.
ΠΠ ΠΠΠ£ΠΠ ΠΠΠΠΠΠΠ : Π²Ρ ΠΌΠΎΠΆΠ΅ΡΠ΅ Π²ΡΠ·Π²Π°ΡΡ Π±Π΅ΡΠΊΠΎΠ½Π΅ΡΠ½ΡΠΉ ΡΠΈΠΊΠ» Ρ ΠΏΠΎΠΌΠΎΡΡΡ Π±Π»ΠΎΠΊΠ° Do-Loop, Π΅ΡΠ»ΠΈ ΡΡΠ»ΠΎΠ²ΠΈΠ΅ Β«ΠΠΎ ΡΠ΅Ρ ΠΏΠΎΡΒ» Π½ΠΈΠΊΠΎΠ³Π΄Π° Π½Π΅ Π²ΡΠΏΠΎΠ»Π½ΡΠ΅ΡΡΡ. ΠΡΠ΅Π³Π΄Π° ΠΏΠΈΡΠΈΡΠ΅ ΡΠ²ΠΎΠΉ ΠΊΠΎΠ΄ ΡΠ°ΠΊ, ΡΡΠΎΠ±Ρ ΡΡΠ»ΠΎΠ²ΠΈΠ΅ Β«Π΄ΠΎ ΡΠ΅Ρ ΠΏΠΎΡΒ» ΠΎΠ±ΡΠ·Π°ΡΠ΅Π»ΡΠ½ΠΎ Π²ΡΠΏΠΎΠ»Π½ΡΠ»ΠΎΡΡ ΠΏΡΠΈ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠΈ ΡΡΠΎΠ³ΠΎ ΡΠΈΠΏΠ° ΡΠΈΠΊΠ»Π°.
Π§ΡΠΎ Π΄Π°Π»ΡΡΠ΅?
ΠΠΎΡΠ»Π΅ ΡΠΎΠ³ΠΎ, ΠΊΠ°ΠΊ Π²Ρ ΡΡΠ²ΠΎΠΈΠ»ΠΈ ΠΎΡΠ½ΠΎΠ²Ρ, ΠΏΠΎΡΠ΅ΠΌΡ Π±Ρ Π½Π΅ ΠΏΠΎΠΏΡΠΎΠ±ΠΎΠ²Π°ΡΡ ΠΈΠ·ΡΡΠΈΡΡ Π±ΠΎΠ»Π΅Π΅ ΠΏΡΠΎΠ΄Π²ΠΈΠ½ΡΡΡΠ΅ ΡΠ΅Ρ Π½ΠΈΠΊΠΈ? ΠΠ°Ρ ΡΡΠ΅Π±Π½ΠΈΠΊ ΠΏΠΎ Π°Π΄ΡΠ΅ΡΡ https://www.automateexcel.com/excel/learn-vba-tutorial/ Π±ΡΠ΄Π΅Ρ ΠΎΡΠ½ΠΎΠ²ΡΠ²Π°ΡΡΡΡ Π½Π° Π²ΡΠ΅ΠΌ, ΡΡΠΎ Π²Ρ Π·Π΄Π΅ΡΡ ΡΠ·Π½Π°Π»ΠΈ, ΠΈ ΡΠ°ΡΡΠΈΡΠΈΡ Π²Π°ΡΠΈ Π½Π°Π²ΡΠΊΠΈ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΡΠΎΠ±ΡΡΠΈΠΉ, ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»ΡΡΠΊΠΈΡ ΡΠΎΡΠΌ, ΠΎΠΏΡΠΈΠΌΠΈΠ·Π°ΡΠΈΠΈ ΠΊΠΎΠ΄Π° ΠΈ ΠΌΠ½ΠΎΠ³ΠΎΠ³ΠΎ Π΄ΡΡΠ³ΠΎΠ³ΠΎ!
Β
ΠΠ°ΠΊ Π·Π°ΠΏΡΡΡΠΈΡΡ ΠΌΠ°ΠΊΡΠΎΡ Π² Excel
ΠΠΎΡΠΌΠΎΡΡΠ΅ΡΡ Π²ΠΈΠ΄Π΅ΠΎ β ΠΠ°ΠΊ Π·Π°ΠΏΡΡΡΠΈΡΡ ΠΌΠ°ΠΊΡΠΎΡ Π² Excel
Π Excel ΠΌΠΎΠΆΠ½ΠΎ ΡΠΎΠ·Π΄Π°ΡΡ ΠΌΠ°ΠΊΡΠΎΡ, Π·Π°ΠΏΠΈΡΠ°Π² Π΅Π³ΠΎ ΠΈΠ»ΠΈ Π½Π°ΠΏΠΈΡΠ°Π² ΠΊΠΎΠ΄ Π² ΡΠ΅Π΄Π°ΠΊΡΠΎΡΠ΅ VB.
ΠΠΎΡΠ»Π΅ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ Π·Π°ΠΏΡΡΡΠΈΡΡ ΠΌΠ°ΠΊΡΠΎΡ.
Π ΡΡΠΎΠΌ ΡΡΠΎΠΊΠ΅ Ρ ΠΏΠΎΠΊΠ°ΠΆΡ Π²Π°ΠΌ ΡΠ°Π·Π»ΠΈΡΠ½ΡΠ΅ ΡΠΏΠΎΡΠΎΠ±Ρ Π·Π°ΠΏΡΡΠΊΠ° ΠΌΠ°ΠΊΡΠΎΡΠ° Π² Excel.
ΠΡΠ»ΠΈ Π²Ρ Π·Π°ΠΈΠ½ΡΠ΅ΡΠ΅ΡΠΎΠ²Π°Π½Ρ Π² ΠΏΡΠΎΡΡΠΎΠΌ ΠΈΠ·ΡΡΠ΅Π½ΠΈΠΈ VBA, ΠΎΠ·Π½Π°ΠΊΠΎΠΌΡΡΠ΅ΡΡ Ρ ΠΌΠΎΠΈΠΌ ΠΊΡΡΡΠΎΠΌ Online Excel VBA Training .
ΠΡΠΎ ΡΡΠΊΠΎΠ²ΠΎΠ΄ΡΡΠ²ΠΎ ΠΎΡ Π²Π°ΡΡΠ²Π°Π΅Ρ:
ΠΠ»Ρ ΡΠ΅Π»Π΅ΠΉ ΡΡΠΎΠ³ΠΎ ΡΡΠΊΠΎΠ²ΠΎΠ΄ΡΡΠ²Π° ΠΏΡΠ΅Π΄ΠΏΠΎΠ»ΠΎΠΆΠΈΠΌ, ΡΡΠΎ Ρ Π½Π°Ρ Π΅ΡΡΡ ΠΌΠ°ΠΊΡΠΎΡ Ρ ΠΈΠΌΠ΅Π½Π΅ΠΌ Β«ColorCellΒ» ΡΠΎ ββΡΠ»Π΅Π΄ΡΡΡΠΈΠΌ ΠΊΠΎΠ΄ΠΎΠΌ:
Sub ColorCell() ΠΠΈΠ°ΠΏΠ°Π·ΠΎΠ½("A1").Interior.Color = vbRed End Sub
ΠΡΠΎΡ ΠΎΠ΄Π½ΠΎΡΡΡΠΎΡΠ½ΡΠΉ ΠΊΠΎΠ΄ Π·Π°ΠΏΠΎΠ»Π½ΠΈΡ ΡΡΠ΅ΠΉΠΊΡ A1 Π°ΠΊΡΠΈΠ²Π½ΠΎΠ³ΠΎ Π»ΠΈΡΡΠ° ΠΊΡΠ°ΡΠ½ΡΠΌ ΡΠ²Π΅ΡΠΎΠΌ.
Π’Π΅ΠΏΠ΅ΡΡ Π΄Π°Π²Π°ΠΉΡΠ΅ ΡΠ°ΡΡΠΌΠΎΡΡΠΈΠΌ ΡΠ°Π·Π»ΠΈΡΠ½ΡΠ΅ ΡΠΏΠΎΡΠΎΠ±Ρ Π·Π°ΠΏΡΡΠΊΠ° ΡΡΠΎΠ³ΠΎ ΠΌΠ°ΠΊΡΠΎΡΠ° Π² Excel.
ΠΠ°ΠΏΡΡΡΠΈΡΡ ΠΌΠ°ΠΊΡΠΎΡ, ΡΠ΅Π»ΠΊΠ½ΡΠ² ΡΠΈΠ³ΡΡΡ
ΠΠ΄ΠΈΠ½ ΠΈΠ· ΡΠ°ΠΌΡΡ ΠΏΡΠΎΡΡΡΡ ΡΠΏΠΎΡΠΎΠ±ΠΎΠ² Π·Π°ΠΏΡΡΡΠΈΡΡ ΠΌΠ°ΠΊΡΠΎΡ β ΡΠΎΠ·Π΄Π°ΡΡ ΠΊΠ½ΠΎΠΏΠΊΡ Π½Π° ΡΠ°Π±ΠΎΡΠ΅ΠΌ Π»ΠΈΡΡΠ΅ ΠΈ ΡΠ΅Π»ΠΊΠ½ΡΡΡ Π΅Π΅, ΡΡΠΎΠ±Ρ Π²ΡΠΏΠΎΠ»Π½ΠΈΡΡ ΠΌΠ°ΠΊΡΠΎΡ.
ΠΡΠΎ ΠΏΡΠΎΡΡΠΎ ΠΈ ΠΈΠ½ΡΡΠΈΡΠΈΠ²Π½ΠΎ ΠΏΠΎΠ½ΡΡΠ½ΠΎ.
ΠΡΠ΅ΠΈΠΌΡΡΠ΅ΡΡΠ²ΠΎ ΡΡΠΎΠ³ΠΎ ΠΌΠ΅ΡΠΎΠ΄Π° Π² ΡΠΎΠΌ, ΡΡΠΎ ΠΎΠ½ Π΄Π΅Π»Π°Π΅Ρ Π·Π°ΠΏΡΡΠΊ ΠΌΠ°ΠΊΡΠΎΡΠ° ΠΎΡΠ΅Π½Ρ ΠΏΡΠΎΡΡΡΠΌ ΠΈ ΠΈΠ½ΡΡΠΈΡΠΈΠ²Π½ΠΎ ΠΏΠΎΠ½ΡΡΠ½ΡΠΌ Π΄Π»Ρ Π²ΡΠ΅Ρ . ΠΠ°ΠΆΠ΅ Π΅ΡΠ»ΠΈ Π²Ρ Π΄Π΅Π»ΠΈΡΠ΅ΡΡ ΠΊΠ½ΠΈΠ³ΠΎΠΉ Ρ ΠΊΠ΅ΠΌ-ΡΠΎ, ΠΊΡΠΎ Π½Π΅ Π·Π½Π°ΠΊΠΎΠΌ Ρ VBA, ΠΎΠ½ ΠΈΠ»ΠΈ ΠΎΠ½Π° ΠΌΠΎΠΆΠ΅Ρ ΠΏΡΠΎΡΡΠΎ Π½Π°ΠΆΠ°ΡΡ ΠΊΠ½ΠΎΠΏΠΊΡ ΠΈ ΡΠ²ΠΈΠ΄Π΅ΡΡ, ΡΡΠΎ ΠΏΡΠΎΠΈΡΡ ΠΎΠ΄ΠΈΡ (Π΄Π°ΠΆΠ΅ Π½Π΅ Π·Π½Π°Ρ, ΡΡΠΎ ΠΏΡΠΎΠΈΡΡ ΠΎΠ΄ΠΈΡ Π² Π±ΡΠΊΡΠ½Π΄Π΅).
ΠΡΠΈΠΌΠ΅ΡΠ½ΠΎ ΡΠ°ΠΊ, ΠΊΠ°ΠΊ ΠΏΠΎΠΊΠ°Π·Π°Π½ΠΎ Π½ΠΈΠΆΠ΅:
ΠΠΎΡ ΡΠ°Π³ΠΈ Π΄Π»Ρ ΡΡΠΎΠ³ΠΎ:
- ΠΠ΅ΡΠ΅ΠΉΠ΄ΠΈΡΠ΅ Π½Π° Π²ΠΊΠ»Π°Π΄ΠΊΡ Β«ΠΡΡΠ°Π²ΠΊΠ°Β».
- Π Π³ΡΡΠΏΠΏΠ΅ Β«ΠΠ»Π»ΡΡΡΡΠ°ΡΠΈΠΈΒ» ΡΠ΅Π»ΠΊΠ½ΠΈΡΠ΅ Π·Π½Π°ΡΠΎΠΊ Β«Π€ΠΈΠ³ΡΡΡΒ». ΠΡΡΠ°Π²ΡΡΠ΅ Π»ΡΠ±ΡΡ ΡΠΈΠ³ΡΡΡ, ΠΊΠΎΡΠΎΡΠΎΠΉ Π²Ρ Ρ ΠΎΡΠΈΡΠ΅ Π½Π°Π·Π½Π°ΡΠΈΡΡ ΠΌΠ°ΠΊΡΠΎΡ.
- Π©Π΅Π»ΠΊΠ½ΠΈΡΠ΅ Π² Π»ΡΠ±ΠΎΠΌ ΠΌΠ΅ΡΡΠ΅ ΡΠ°Π±ΠΎΡΠ΅Π³ΠΎ Π»ΠΈΡΡΠ°. ΠΠ½ Π²ΡΡΠ°Π²ΠΈΡ ΠΎΠ±ΡΠ΅ΠΊΡ ΡΠΎΡΠΌΡ Π½Π° ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ.
- ΠΠ·ΠΌΠ΅Π½ΠΈΡΠ΅ ΡΠ°Π·ΠΌΠ΅Ρ/ΡΠΎΡΠΌΠ°Ρ ΡΠΈΠ³ΡΡΡ ΠΏΠΎ ΡΠ²ΠΎΠ΅ΠΌΡ ΡΡΠΌΠΎΡΡΠ΅Π½ΠΈΡ. Π ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½Π½ΠΎΠΌ Π²ΡΡΠ΅ ΠΏΡΠΈΠΌΠ΅ΡΠ΅ Ρ ΠΈΠ·ΠΌΠ΅Π½ΠΈΠ» ΡΠ°Π·ΠΌΠ΅Ρ, ΡΠ²Π΅Ρ ΠΈ Π³ΡΠ°Π½ΠΈΡΡ. ΠΡ ΡΠ°ΠΊΠΆΠ΅ ΠΌΠΎΠΆΠ΅ΡΠ΅ Π²ΡΡΠ°Π²ΠΈΡΡ Π»ΡΠ±ΠΎΠΉ ΡΠ΅ΠΊΡΡ Π² ΡΠΈΠ³ΡΡΡ, ΠΏΡΠΎΡΡΠΎ Π²ΡΠ΄Π΅Π»ΠΈΠ² Π΅Π΅ ΠΈ Π½Π°Π±ΡΠ°Π² ΡΠ΅ΠΊΡΡ.
- Π©Π΅Π»ΠΊΠ½ΠΈΡΠ΅ ΡΠΈΠ³ΡΡΡ ΠΏΡΠ°Π²ΠΎΠΉ ΠΊΠ½ΠΎΠΏΠΊΠΎΠΉ ΠΌΡΡΠΈ ΠΈ Π²ΡΠ±Π΅ΡΠΈΡΠ΅ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡ Β«ΠΠ°Π·Π½Π°ΡΠΈΡΡ ΠΌΠ°ΠΊΡΠΎΡΒ». ΠΡΠΊΡΠΎΠ΅ΡΡΡ Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠ΅ ΠΎΠΊΠ½ΠΎ Β«ΠΠ°Π·Π½Π°ΡΠΈΡΡ ΠΌΠ°ΠΊΡΠΎΡΒ».
- Π Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠΌ ΠΎΠΊΠ½Π΅ Β«ΠΠ°Π·Π½Π°ΡΠΈΡΡ ΠΌΠ°ΠΊΡΠΎΡΒ» Π²ΡΠ±Π΅ΡΠΈΡΠ΅ ΠΌΠ°ΠΊΡΠΎΡ, ΠΊΠΎΡΠΎΡΡΠΉ Π²Ρ Ρ ΠΎΡΠΈΡΠ΅ Π½Π°Π·Π½Π°ΡΠΈΡΡ ΡΠΈΠ³ΡΡΠ΅, ΠΈ Π½Π°ΠΆΠΌΠΈΡΠ΅ ΠΊΠ½ΠΎΠΏΠΊΡ Β«ΠΠΒ».
ΠΠΎΡ ΠΎΠ½ΠΎ! Π’Π΅ΠΏΠ΅ΡΡ ΡΠΈΠ³ΡΡΠ° Π±ΡΠ΄Π΅Ρ ΡΠ°Π±ΠΎΡΠ°ΡΡ ΠΊΠ°ΠΊ ΠΊΠ½ΠΎΠΏΠΊΠ°, ΠΈ Π²ΡΡΠΊΠΈΠΉ ΡΠ°Π·, ΠΊΠΎΠ³Π΄Π° Π²Ρ Π½Π°ΠΆΠΈΠΌΠ°Π΅ΡΠ΅ Π½Π° Π½Π΅Π΅, ΠΎΠ½Π° Π·Π°ΠΏΡΡΠΊΠ°Π΅Ρ Π½Π°Π·Π½Π°ΡΠ΅Π½Π½ΡΠΉ ΠΌΠ°ΠΊΡΠΎΡ.
ΠΠ°ΠΏΡΡΠΊ ΠΌΠ°ΠΊΡΠΎΡΠ° Π½Π°ΠΆΠ°ΡΠΈΠ΅ΠΌ ΠΊΠ½ΠΎΠΏΠΊΠΈ
Π₯ΠΎΡΡ ΡΠΎΡΠΌΡ ΠΌΠΎΠΆΠ½ΠΎ ΡΠΎΡΠΌΠ°ΡΠΈΡΠΎΠ²Π°ΡΡ, ΠΊΠ½ΠΎΠΏΠΊΠ° ΠΈΠΌΠ΅Π΅Ρ ΡΡΠ°Π½Π΄Π°ΡΡΠ½ΡΠΉ ΡΠΎΡΠΌΠ°Ρ.
ΠΠΎΡ ΠΊΠ°ΠΊ ΡΡΠΎ Π²ΡΠ³Π»ΡΠ΄ΠΈΡ:
ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ Π½Π°Π·Π½Π°ΡΠΈΡΡ ΠΌΠ°ΠΊΡΠΎΡ ΠΊΠ½ΠΎΠΏΠΊΠ΅, Π° Π·Π°ΡΠ΅ΠΌ Π·Π°ΠΏΡΡΡΠΈΡΡ ΠΌΠ°ΠΊΡΠΎΡ, ΠΏΡΠΎΡΡΠΎ Π½Π°ΠΆΠ°Π² ΡΡΡ ΠΊΠ½ΠΎΠΏΠΊΡ.
ΠΠΎΡ ΡΠ°Π³ΠΈ Π΄Π»Ρ Π½Π°Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΠΌΠ°ΠΊΡΠΎΡΠ° ΠΊΠ½ΠΎΠΏΠΊΠ΅:
- ΠΠ΅ΡΠ΅ΠΉΠ΄ΠΈΡΠ΅ Π½Π° Π²ΠΊΠ»Π°Π΄ΠΊΡ Β«Π Π°Π·ΡΠ°Π±ΠΎΡΡΠΈΠΊΒ» β> Β«ΠΠ»Π΅ΠΌΠ΅Π½ΡΡ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡΒ» β> Β«ΠΡΡΠ°Π²ΠΈΡΡΒ» β> Β«ΠΠ»Π΅ΠΌΠ΅Π½ΡΡ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ ΡΠΎΡΠΌΠΎΠΉΒ» β> Β«ΠΠ½ΠΎΠΏΠΊΠ°Β».
- ΠΠΊΠ»Π°Π΄ΠΊΠ° Β«Π Π°Π·ΡΠ°Π±ΠΎΡΡΠΈΠΊΒ» ΠΏΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ Π½Π΅ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°Π΅ΡΡΡ Π½Π° Π»Π΅Π½ΡΠ΅, ΠΈ Π²Π°ΠΌ ΠΌΠΎΠΆΠ΅Ρ ΠΏΠΎΡΡΠ΅Π±ΠΎΠ²Π°ΡΡΡΡ Π΄ΠΎΠ±Π°Π²ΠΈΡΡ Π΅Π΅ ΠΏΠ΅ΡΠ΅Π΄ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ΠΌ.
- Π©Π΅Π»ΠΊΠ½ΠΈΡΠ΅ Π² Π»ΡΠ±ΠΎΠΌ ΠΌΠ΅ΡΡΠ΅ ΡΠ°Π±ΠΎΡΠ΅Π³ΠΎ Π»ΠΈΡΡΠ°. ΠΠ°ΠΊ ΡΠΎΠ»ΡΠΊΠΎ Π²Ρ ΡΡΠΎ ΡΠ΄Π΅Π»Π°Π΅ΡΠ΅, ΠΎΡΠΊΡΠΎΠ΅ΡΡΡ Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠ΅ ΠΎΠΊΠ½ΠΎ Β«ΠΠ°Π·Π½Π°ΡΠΈΡΡ ΠΌΠ°ΠΊΡΠΎΡΒ».
- ΠΡΠ±Π΅ΡΠΈΡΠ΅ ΠΌΠ°ΠΊΡΠΎΡ, ΠΊΠΎΡΠΎΡΡΠΉ Π²Ρ Ρ ΠΎΡΠΈΡΠ΅ Π½Π°Π·Π½Π°ΡΠΈΡΡ ΠΊΠ½ΠΎΠΏΠΊΠ΅, ΠΈ Π½Π°ΠΆΠΌΠΈΡΠ΅ OK. ΠΡΠΎ Π²ΡΡΠ°Π²ΠΈΡ ΠΊΠ½ΠΎΠΏΠΊΡ Π½Π° Π»ΠΈΡΡ.
ΠΠ½ΠΎΠΏΠΊΠ°, Π²ΡΡΠ°Π²Π»ΡΠ΅ΠΌΠ°Ρ ΠΏΠΎ ΡΡΠΎΠΉ ΠΌΠ΅ΡΠΎΠ΄ΠΈΠΊΠ΅, ΡΡΠ°Π½Π΄Π°ΡΡΠ½Π°Ρ ΠΈ ΠΈΠ·ΠΌΠ΅Π½ΠΈΡΡ ΡΠΎΡΠΌΠ°Ρ ΠΊΠ½ΠΎΠΏΠΊΠΈ Π½Π΅Π»ΡΠ·Ρ (Π² ΠΎΡΠ»ΠΈΡΠΈΠ΅ ΠΎΡ ΡΠΈΠ³ΡΡ, Π³Π΄Π΅ ΠΌΠΎΠΆΠ½ΠΎ ΠΈΠ·ΠΌΠ΅Π½ΠΈΡΡ ΠΏΡΠ°ΠΊΡΠΈΡΠ΅ΡΠΊΠΈ Π²ΡΠ΅).
ΠΠ΄Π½Π°ΠΊΠΎ Π²Ρ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΈΠ·ΠΌΠ΅Π½ΠΈΡΡ ΡΠ΅ΠΊΡΡ ΠΊΠ½ΠΎΠΏΠΊΠΈ. ΠΠ»Ρ ΡΡΠΎΠ³ΠΎ ΡΠ΅Π»ΠΊΠ½ΠΈΡΠ΅ ΠΏΠΎ Π½Π΅ΠΌΡ ΠΏΡΠ°Π²ΠΎΠΉ ΠΊΠ½ΠΎΠΏΠΊΠΎΠΉ ΠΌΡΡΠΈ ΠΈ Π²ΡΠ±Π΅ΡΠΈΡΠ΅ Β«Π Π΅Π΄Π°ΠΊΡΠΈΡΠΎΠ²Π°ΡΡ ΡΠ΅ΠΊΡΡΒ».
ΠΡΠΈΠΌΠ΅ΡΠ°Π½ΠΈΠ΅. ΠΡ ΡΠ°ΠΊΠΆΠ΅ ΠΌΠΎΠΆΠ΅ΡΠ΅ Π½Π°Π·Π½Π°ΡΠΈΡΡ ΠΌΠ°ΠΊΡΠΎΡ Π΄ΡΡΠ³ΠΈΠΌ ΠΈΠ½ΡΠ΅ΡΠ°ΠΊΡΠΈΠ²Π½ΡΠΌ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠ°ΠΌ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ, ΡΠ°ΠΊΠΈΠΌ ΠΊΠ°ΠΊ ΡΠ»Π°ΠΆΠΎΠΊ ΠΈΠ»ΠΈ ΠΏΠΎΠ»ΠΎΡΠ° ΠΏΡΠΎΠΊΡΡΡΠΊΠΈ.
ΠΠ°ΠΏΡΡΠΊ ΠΌΠ°ΠΊΡΠΎΡΠ° Ρ Π»Π΅Π½ΡΡ (Π²ΠΊΠ»Π°Π΄ΠΊΠ° "Π Π°Π·ΡΠ°Π±ΠΎΡΡΠΈΠΊ")
ΠΡΠ»ΠΈ Π² ΠΊΠ½ΠΈΠ³Π΅ Π΅ΡΡΡ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΎ ΠΌΠ°ΠΊΡΠΎΡΠΎΠ², Π²Ρ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΡΠ²ΠΈΠ΄Π΅ΡΡ ΡΠΏΠΈΡΠΎΠΊ Π²ΡΠ΅Ρ ΠΌΠ°ΠΊΡΠΎΡΠΎΠ² Π² Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠΌ ΠΎΠΊΠ½Π΅ "ΠΠ°ΠΊΡΠΎΡΡ". ΠΡΠΎ ΡΠΏΡΠΎΡΠ°Π΅Ρ Π·Π°ΠΏΡΡΠΊ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΈΡ ΠΌΠ°ΠΊΡΠΎΡΠΎΠ² ΠΈΠ· ΠΎΠ΄Π½ΠΎΠ³ΠΎ ΠΌΠ΅ΡΡΠ°.
ΠΠΎΡ ΡΠ°Π³ΠΈ:
- ΠΠ΅ΡΠ΅ΠΉΠ΄ΠΈΡΠ΅ Π½Π° Π²ΠΊΠ»Π°Π΄ΠΊΡ Β«Π Π°Π·ΡΠ°Π±ΠΎΡΡΠΈΠΊΒ» -> Β«ΠΠΎΠ΄Β» -> Β«ΠΠ°ΠΊΡΠΎΡΡΒ».
- Π Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠΌ ΠΎΠΊΠ½Π΅ "ΠΠ°ΠΊΡΠΎΡΡ" ΠΏΠ΅ΡΠ΅ΡΠΈΡΠ»Π΅Π½Ρ Π²ΡΠ΅ ΠΌΠ°ΠΊΡΠΎΡΡ Π² ΠΊΠ½ΠΈΠ³Π΅. ΠΡΠ±Π΅ΡΠΈΡΠ΅ ΡΠΎΡ, ΠΊΠΎΡΠΎΡΡΠΉ Π²Ρ Ρ ΠΎΡΠΈΡΠ΅ Π·Π°ΠΏΡΡΡΠΈΡΡ.
- ΠΠ°ΠΆΠΌΠΈΡΠ΅ Β«ΠΡΠΏΠΎΠ»Π½ΠΈΡΡΒ».
ΠΠ°ΠΏΡΡΠΊ ΠΌΠ°ΠΊΡΠΎΡΠ° ΠΈΠ· ΡΠ΅Π΄Π°ΠΊΡΠΎΡΠ° VB
ΠΡΠ»ΠΈ Π²Ρ ΠΏΠΈΡΠ΅ΡΠ΅ ΠΈ ΡΠ΅ΡΡΠΈΡΡΠ΅ΡΠ΅ ΠΌΠ°ΠΊΡΠΎΡΡ, ΡΠΎ Π²ΠΌΠ΅ΡΡΠΎ Π²ΡΡΠ°Π²ΠΊΠΈ ΠΊΠ½ΠΎΠΏΠΎΠΊ Π²Ρ ΠΌΠΎΠΆΠ΅ΡΠ΅ Π½Π°ΠΏΡΡΠΌΡΡ Π·Π°ΠΏΡΡΠΊΠ°ΡΡ ΠΌΠ°ΠΊΡΠΎΡ ΠΈΠ· ΡΠ΅Π΄Π°ΠΊΡΠΎΡΠ° VB.
ΠΠΎΡ ΡΠ°Π³ΠΈ:
- ΠΡΠ±Π΅ΡΠΈΡΠ΅ Π»ΡΠ±ΡΡ ΡΡΡΠΎΠΊΡ ΠΊΠΎΠ΄Π° Π² ΠΎΠΊΠ½Π΅ ΠΊΠΎΠ΄Π°. ΠΡΠ»ΠΈ Ρ Π²Π°Ρ Π΅ΡΡΡ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΎ ΠΌΠ°ΠΊΡΠΎΡΠΎΠ²/ΠΏΠΎΠ΄ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌ, ΡΠ±Π΅Π΄ΠΈΡΠ΅ΡΡ, ΡΡΠΎ Π²Π°Ρ ΠΊΡΡΡΠΎΡ Π½Π°Ρ ΠΎΠ΄ΠΈΡΡΡ Π² ΠΌΠ°ΠΊΡΠΎΡΠ΅, ΠΊΠΎΡΠΎΡΡΠΉ Π²Ρ Ρ ΠΎΡΠΈΡΠ΅ Π·Π°ΠΏΡΡΡΠΈΡΡ.
- ΠΠ΅ΡΠ΅ΠΉΠ΄ΠΈΡΠ΅ Π½Π° ΠΏΠ°Π½Π΅Π»Ρ ΠΈΠ½ΡΡΡΡΠΌΠ΅Π½ΡΠΎΠ² ΠΈ Π½Π°ΠΆΠΌΠΈΡΠ΅ Π½Π° Π·Π½Π°ΡΠΎΠΊ Π·Π΅Π»Π΅Π½ΠΎΠ³ΠΎ ΡΡΠ΅ΡΠ³ΠΎΠ»ΡΠ½ΠΈΠΊΠ° (ΡΠ°ΠΊΠΆΠ΅ ΠΌΠΎΠΆΠ½ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΡΠΎΡΠ΅ΡΠ°Π½ΠΈΠ΅ ΠΊΠ»Π°Π²ΠΈΡ β F5).