Π Π³ΡΡΠΏΠΏΠ΅ ΠΠΎΠ΄ Π½Π° Π²ΠΊΠ»Π°Π΄ΠΊΠ΅ Π Π°Π·ΡΠ°Π±ΠΎΡΡΠΈΠΊ Π½Π°ΠΆΠΌΠΈΡΠ΅ ΠΊΠ½ΠΎΠΏΠΊΡ ΠΠ°ΠΏΠΈΡΡ ΠΌΠ°ΠΊΡΠΎΡΠ°.
ΠΡΠΈ ΠΆΠ΅Π»Π°Π½ΠΈΠΈ Π²Π²Π΅Π΄ΠΈΡΠ΅ ΠΈΠΌΡ ΠΌΠ°ΠΊΡΠΎΡΠ° Π² ΠΏΠΎΠ»Π΅ ΠΠΌΡ ΠΌΠ°ΠΊΡΠΎΡΠ°, Π²Π²Π΅Π΄ΠΈΡΠ΅ ΡΠΎΡΠ΅ΡΠ°Π½ΠΈΡ ΠΊΠ»Π°Π²ΠΈΡ Π² ΠΏΠΎΠ»Π΅ Π‘ΠΎΡΠ΅ΡΠ°Π½ΠΈΡ ΠΊΠ»Π°Π²ΠΈΡ ΠΈ ΠΎΠΏΠΈΡΠ°Π½ΠΈΠ΅ Π² ΠΏΠΎΠ»Π΅ ΠΠΏΠΈΡΠ°Π½ΠΈΠ΅, Π° Π·Π°ΡΠ΅ΠΌ Π½Π°ΠΆΠΌΠΈΡΠ΅ ΠΊΠ½ΠΎΠΏΠΊΡ ΠΠ, ΡΡΠΎΠ±Ρ Π½Π°ΡΠ°ΡΡ Π·Π°ΠΏΠΈΡΡ.
ΠΡΠΏΠΎΠ»Π½ΠΈΡΠ΅ Π΄Π΅ΠΉΡΡΠ²ΠΈΡ, ΠΊΠΎΡΠΎΡΡΠ΅ Π½ΡΠΆΠ½ΠΎ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΠ·ΠΈΡΠΎΠ²Π°ΡΡ, Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ Π²Π²Π΅ΡΡΠΈ ΡΠ°Π±Π»ΠΎΠ½Π½ΡΠΉ ΡΠ΅ΠΊΡΡ ΠΈΠ»ΠΈ Π·Π°ΠΏΠΎΠ»Π½ΠΈΡΡ ΡΡΠΎΠ»Π±Π΅Ρ Π΄Π°Π½Π½ΡΡ
.
ΠΠ° Π²ΠΊΠ»Π°Π΄ΠΊΠ΅ Π Π°Π·ΡΠ°Π±ΠΎΡΡΠΈΠΊ ΡΠ΅Π»ΠΊΠ½ΠΈΡΠ΅ ΠΡΡΠ°Π½ΠΎΠ²ΠΈΡΡ Π·Π°ΠΏΠΈΡΡ.
ΠΠΎΠ΄ΡΠΎΠ±Π½Π΅Π΅ ΠΎ ΠΌΠ°ΠΊΡΠΎΡΠ°Ρ
ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΡΠ·Π½Π°ΡΡ Π½Π΅ΠΌΠ½ΠΎΠ³ΠΎ ΠΎ ΡΠ·ΡΠΊΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ Visual Basic ΠΏΡΡΠ΅ΠΌ ΡΠ΅Π΄Π°ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΌΠ°ΠΊΡΠΎΡΠ°.
Π§ΡΠΎΠ±Ρ ΠΈΠ·ΠΌΠ΅Π½ΠΈΡΡ ΠΌΠ°ΠΊΡΠΎΡ, Π² Π³ΡΡΠΏΠΏΠ΅ ΠΠΎΠ΄ Π½Π° Π²ΠΊΠ»Π°Π΄ΠΊΠ΅ Π Π°Π·ΡΠ°Π±ΠΎΡΡΠΈΠΊ Π½Π°ΠΆΠΌΠΈΡΠ΅ ΠΊΠ½ΠΎΠΏΠΊΡ ΠΠ°ΠΊΡΠΎΡ, Π²ΡΠ±Π΅ΡΠΈΡΠ΅ ΠΈΠΌΡ ΠΌΠ°ΠΊΡΠΎΡΠ° ΠΈ Π½Π°ΠΆΠΌΠΈΡΠ΅ ΠΊΠ½ΠΎΠΏΠΊΡ ΠΠ·ΠΌΠ΅Π½ΠΈΡΡ. ΠΡΠΈ ΡΡΠΎΠΌ Visual Basic ΡΠ΅Π΄Π°ΠΊΡΠΎΡΠ°.
Π£Π·Π½Π°ΠΉΡΠ΅, ΠΊΠ°ΠΊ Π·Π°ΠΏΠΈΡΠ°Π½Π½ΡΠ΅ Π΄Π΅ΠΉΡΡΠ²ΠΈΡ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°ΡΡΡΡ ΠΊΠ°ΠΊ ΠΊΠΎΠ΄. ΠΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎ, ΠΊΠ°ΠΊΠΎΠΉ-ΡΠΎ ΠΊΠΎΠ΄ Π²Π°ΠΌ ΠΏΠΎΠ½ΡΡΠ΅Π½, Π° ΡΠ°ΡΡΡ ΠΌΠΎΠΆΠ΅Ρ ΠΏΠΎΠΊΠ°Π·Π°ΡΡΡΡ Π½Π΅ΠΌΠ½ΠΎΠ³ΠΎ Π½Π΅ΡΠ²Π½ΡΠΌ.
ΠΠΎΡΠΊΡΠΏΠ΅ΡΠΈΠΌΠ΅Π½ΡΠΈΡΡΠΉΡΠ΅ Ρ ΠΊΠΎΠ΄ΠΎΠΌ, Π·Π°ΠΊΡΠΎΠΉΡΠ΅ ΡΠ΅Π΄Π°ΠΊΡΠΎΡ Visual Basic ΠΈ ΡΠ½ΠΎΠ²Π° Π·Π°ΠΏΡΡΡΠΈΡΠ΅ ΠΌΠ°ΠΊΡΠΎΡ. ΠΠ° ΡΡΠΎΡ ΡΠ°Π· ΠΏΠΎΡΠΌΠΎΡΡΠΈΡΠ΅, Π½Π΅ ΠΏΡΠΎΠΈΠ·ΠΎΠΉΠ΄Π΅Ρ Π»ΠΈ ΡΡΠΎ-ΡΠΎ Π΄ΡΡΠ³ΠΎΠ΅!
ΠΠ°Π»ΡΠ½Π΅ΠΉΡΠΈΠ΅ Π΄Π΅ΠΉΡΡΠ²ΠΈΡ ΠΠΎΠΏΠΎΠ»Π½ΠΈΡΠ΅Π»ΡΠ½ΡΠ΅ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ ΠΎ ΡΠΎΠ·Π΄Π°Π½ΠΈΠΈ ΠΌΠ°ΠΊΡΠΎΡΠ° ΡΠΌ. Π² ΡΠ΅ΠΌΠ΅ Π‘ΠΎΠ·Π΄Π°Π½ΠΈΠ΅ ΠΈ ΡΠ΄Π°Π»Π΅Π½ΠΈΠ΅ ΠΌΠ°ΠΊΡΠΎΡΠ°.
Π§ΡΠΎΠ±Ρ ΡΠ·Π½Π°ΡΡ, ΠΊΠ°ΠΊ Π·Π°ΠΏΡΡΠΊΠ°ΡΡ ΠΌΠ°ΠΊΡΠΎΡ, ΡΠΌ. Π² ΡΡΠΎΠΉ ΡΠ΅ΠΌΠ΅.
ΠΡΠΎΡΠ΅Π΄ΡΡΠ°
ΠΠ΅ΡΠ΅Π΄ Π·Π°ΠΏΠΈΡΡΡ ΠΌΠ°ΠΊΡΠΎΡΠ°
Π£Π±Π΅Π΄ΠΈΡΠ΅ΡΡ, ΡΡΠΎ Π½Π° Π»Π΅Π½ΡΠ΅ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°Π΅ΡΡΡ Π²ΠΊΠ»Π°Π΄ΠΊΠ° Π Π°Π·ΡΠ°Π±ΠΎΡΡΠΈΠΊ. ΠΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ Π²ΠΊΠ»Π°Π΄ΠΊΠ° Π Π°Π·ΡΠ°Π±ΠΎΡΡΠΈΠΊ Π½Π΅ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°Π΅ΡΡΡ, ΠΏΠΎΡΡΠΎΠΌΡ ΡΠ΄Π΅Π»Π°ΠΉΡΠ΅ ΡΠ»Π΅Π΄ΡΡΡΠ΅Π΅:
ΠΠ΅ΡΠ΅ΠΉΠ΄ΠΈΡΠ΅ Π² Excel > ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΡ. > Π»Π΅Π½ΡΡ & ΠΏΠ°Π½Π΅Π»Ρ ΠΈΠ½ΡΡΡΡΠΌΠ΅Π½ΡΠΎΠ².
Π ΠΊΠ°ΡΠ΅Π³ΠΎΡΠΈΠΈ ΠΠ°ΡΡΡΠΎΠΈΡΡ Π»Π΅Π½ΡΡ Π² ΡΠΏΠΈΡΠΊΠ΅ ΠΡΠ½ΠΎΠ²Π½ΡΠ΅ Π²ΠΊΠ»Π°Π΄ΠΊΠΈ ΡΡΡΠ°Π½ΠΎΠ²ΠΈΡΠ΅ ΡΠ»Π°ΠΆΠΎΠΊ Π Π°Π·ΡΠ°Π±ΠΎΡΡΠΈΠΊ, Π° Π·Π°ΡΠ΅ΠΌ Π½Π°ΠΆΠΌΠΈΡΠ΅ ΠΊΠ½ΠΎΠΏΠΊΡ Π‘ΠΎΡ
ΡΠ°Π½ΠΈΡΡ.
ΠΠ° Π²ΠΊΠ»Π°Π΄ΠΊΠ΅ Π Π°Π·ΡΠ°Π±ΠΎΡΡΠΈΠΊ Π½Π°ΠΆΠΌΠΈΡΠ΅ ΠΊΠ½ΠΎΠΏΠΊΡ ΠΠ°ΠΏΠΈΡΡ ΠΌΠ°ΠΊΡΠΎΡΠ°.
ΠΡΠΈ ΠΆΠ΅Π»Π°Π½ΠΈΠΈ Π²Π²Π΅Π΄ΠΈΡΠ΅ ΠΈΠΌΡ ΠΌΠ°ΠΊΡΠΎΡΠ° Π² ΠΏΠΎΠ»Π΅ ΠΠΌΡ ΠΌΠ°ΠΊΡΠΎΡΠ°, Π²Π²Π΅Π΄ΠΈΡΠ΅ ΡΠΎΡΠ΅ΡΠ°Π½ΠΈΡ ΠΊΠ»Π°Π²ΠΈΡ Π² ΠΏΠΎΠ»Π΅ Π‘ΠΎΡΠ΅ΡΠ°Π½ΠΈΡ ΠΊΠ»Π°Π²ΠΈΡ ΠΈ ΠΎΠΏΠΈΡΠ°Π½ΠΈΠ΅ Π² ΠΏΠΎΠ»Π΅ ΠΠΏΠΈΡΠ°Π½ΠΈΠ΅, Π° Π·Π°ΡΠ΅ΠΌ Π½Π°ΠΆΠΌΠΈΡΠ΅ ΠΊΠ½ΠΎΠΏΠΊΡ ΠΠ, ΡΡΠΎΠ±Ρ Π½Π°ΡΠ°ΡΡ Π·Π°ΠΏΠΈΡΡ.
ΠΡΠΏΠΎΠ»Π½ΠΈΡΠ΅ Π΄Π΅ΠΉΡΡΠ²ΠΈΡ, ΠΊΠΎΡΠΎΡΡΠ΅ Π½ΡΠΆΠ½ΠΎ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΠ·ΠΈΡΠΎΠ²Π°ΡΡ, Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ Π²Π²Π΅ΡΡΠΈ ΡΠ°Π±Π»ΠΎΠ½Π½ΡΠΉ ΡΠ΅ΠΊΡΡ ΠΈΠ»ΠΈ Π·Π°ΠΏΠΎΠ»Π½ΠΈΡΡ ΡΡΠΎΠ»Π±Π΅Ρ Π΄Π°Π½Π½ΡΡ
.
ΠΠ° Π²ΠΊΠ»Π°Π΄ΠΊΠ΅ Π Π°Π·ΡΠ°Π±ΠΎΡΡΠΈΠΊ Π² Π³ΡΡΠΏΠΏΠ΅ ΠΠΎΠ΄ Π½Π°ΠΆΠΌΠΈΡΠ΅ ΠΊΠ½ΠΎΠΏΠΊΡ ΠΡΡΠ°Π½ΠΎΠ²ΠΈΡΡ Π·Π°ΠΏΠΈΡΡ.
ΠΠΎΠ΄ΡΠΎΠ±Π½Π΅Π΅ ΠΎ ΠΌΠ°ΠΊΡΠΎΡΠ°Ρ
ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΡΠ·Π½Π°ΡΡ Π½Π΅ΠΌΠ½ΠΎΠ³ΠΎ ΠΎ ΡΠ·ΡΠΊΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ Visual Basic ΠΏΡΡΠ΅ΠΌ ΡΠ΅Π΄Π°ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΌΠ°ΠΊΡΠΎΡΠ°.
Π£Π·Π½Π°ΠΉΡΠ΅, ΠΊΠ°ΠΊ Π·Π°ΠΏΠΈΡΠ°Π½Π½ΡΠ΅ Π΄Π΅ΠΉΡΡΠ²ΠΈΡ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°ΡΡΡΡ ΠΊΠ°ΠΊ ΠΊΠΎΠ΄. ΠΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎ, ΠΊΠ°ΠΊΠΎΠΉ-ΡΠΎ ΠΊΠΎΠ΄ Π²Π°ΠΌ ΠΏΠΎΠ½ΡΡΠ΅Π½, Π° ΡΠ°ΡΡΡ ΠΌΠΎΠΆΠ΅Ρ ΠΏΠΎΠΊΠ°Π·Π°ΡΡΡΡ Π½Π΅ΠΌΠ½ΠΎΠ³ΠΎ Π½Π΅ΡΠ²Π½ΡΠΌ.
ΠΠΎΡΠΊΡΠΏΠ΅ΡΠΈΠΌΠ΅Π½ΡΠΈΡΡΠΉΡΠ΅ Ρ ΠΊΠΎΠ΄ΠΎΠΌ, Π·Π°ΠΊΡΠΎΠΉΡΠ΅ ΡΠ΅Π΄Π°ΠΊΡΠΎΡ Visual Basic ΠΈ ΡΠ½ΠΎΠ²Π° Π·Π°ΠΏΡΡΡΠΈΡΠ΅ ΠΌΠ°ΠΊΡΠΎΡ. ΠΠ° ΡΡΠΎΡ ΡΠ°Π· ΠΏΠΎΡΠΌΠΎΡΡΠΈΡΠ΅, Π½Π΅ ΠΏΡΠΎΠΈΠ·ΠΎΠΉΠ΄Π΅Ρ Π»ΠΈ ΡΡΠΎ-ΡΠΎ Π΄ΡΡΠ³ΠΎΠ΅!
ΠΠΎΠΏΠΎΠ»Π½ΠΈΡΠ΅Π»ΡΠ½ΡΠ΅ ΡΠ²Π΅Π΄Π΅Π½ΠΈΡ ΠΡ Π²ΡΠ΅Π³Π΄Π° ΠΌΠΎΠΆΠ΅ΡΠ΅ Π·Π°Π΄Π°ΡΡ Π²ΠΎΠΏΡΠΎΡ ΡΠΏΠ΅ΡΠΈΠ°Π»ΠΈΡΡΡ Excel Tech Community ΠΈΠ»ΠΈ ΠΏΠΎΠΏΡΠΎΡΠΈΡΡ ΠΏΠΎΠΌΠΎΡΠΈ Π² ΡΠΎΠΎΠ±ΡΠ΅ΡΡΠ²Π΅ Answers community.
ΠΡΡΠΎΡΠ½ΠΈΠΊ
VBA Excel. ΠΠ°ΡΠΈΠ½Π°Π΅ΠΌ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°ΡΡ Ρ Π½ΡΠ»Ρ ΠΠ΅ΡΠ²ΠΎΠ΅ Π·Π½Π°ΠΊΠΎΠΌΡΡΠ²ΠΎ Ρ ΡΠ΅Π΄Π°ΠΊΡΠΎΡΠΎΠΌ VBA Excel, ΡΠΎΠ·Π΄Π°Π½ΠΈΠ΅ ΠΏΡΠΎΡΠ΅Π΄ΡΡ (ΠΏΠΎΠ΄ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌ) ΠΈ Π½Π°ΠΏΠΈΡΠ°Π½ΠΈΠ΅ ΠΏΡΠΎΡΡΠ΅ΠΉΡΠ΅Π³ΠΎ ΠΊΠΎΠ΄Π°, ΡΠ°Π±ΠΎΡΠ°ΡΡΠ΅Π³ΠΎ Ρ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΠΌΠΈ ΠΈ ΡΡΠ΅ΠΉΠΊΠ°ΠΌΠΈ ΡΠ°Π±ΠΎΡΠ΅Π³ΠΎ Π»ΠΈΡΡΠ°.
ΠΠ°ΡΠΈΠ½Π°Π΅ΠΌ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°ΡΡ Ρ Π½ΡΠ»Ρ Π§Π°ΡΡΡ 1. ΠΠ΅ΡΠ²Π°Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° [Π§Π°ΡΡΡ 1] [Π§Π°ΡΡΡ 2] [Π§Π°ΡΡΡ 3] [Π§Π°ΡΡΡ 4]
ΠΠ½Π°ΠΊΠΎΠΌΡΡΠ²ΠΎ Ρ ΡΠ΅Π΄Π°ΠΊΡΠΎΡΠΎΠΌ VBA
Π Π»Π΅Π²ΠΎΠΉ ΡΠ°ΡΡΠΈ ΡΠ΅Π΄Π°ΠΊΡΠΎΡΠ° VBA ΡΠ°ΡΠΏΠΎΠ»ΠΎΠΆΠ΅Π½ ΠΏΡΠΎΠ²ΠΎΠ΄Π½ΠΈΠΊ ΠΏΡΠΎΠ΅ΠΊΡΠ°, Π² ΠΊΠΎΡΠΎΡΠΎΠΌ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ΅Π½Ρ Π²ΡΠ΅ ΠΎΡΠΊΡΡΡΡΠ΅ ΠΊΠ½ΠΈΠ³ΠΈ Excel. ΠΠ΅ΡΡ
Π½Π΅ΠΉ ΡΡΡΠΎΠΊΠΈ, ΠΊΠ°ΠΊ Π½Π° ΠΈΠ·ΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΠΈ, Ρ Π²Π°Ρ ΡΠΊΠΎΡΠ΅Π΅ Π²ΡΠ΅Π³ΠΎ Π½Π΅ Π±ΡΠ΄Π΅Ρ, ΡΠ°ΠΊ ΠΊΠ°ΠΊ ΡΡΠΎ β Π»ΠΈΡΠ½Π°Ρ ΠΊΠ½ΠΈΠ³Π° ΠΌΠ°ΠΊΡΠΎΡΠΎΠ². Π‘ΠΏΡΠ°Π²Π° ΡΠ°ΡΠΏΠΎΠ»ΠΎΠΆΠ΅Π½ ΠΌΠΎΠ΄ΡΠ»Ρ, Π² ΠΊΠΎΡΠΎΡΡΠΉ Π·Π°ΠΏΠΈΡΡΠ²Π°ΡΡΡΡ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ (ΠΏΠΎΠ΄ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ) Ρ ΠΊΠΎΠ΄ΠΎΠΌ VBA. ΠΠ° ΠΈΠ·ΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΠΈ ΠΎΡΠΊΡΡΡ ΠΌΠΎΠ΄ΡΠ»Ρ Π»ΠΈΡΡΠ°, ΠΌΡ ΠΆΠ΅ Π΄Π°Π»Π΅Π΅ ΡΠΎΠ·Π΄Π°Π΄ΠΈΠΌ ΡΡΠ°Π½Π΄Π°ΡΡΠ½ΡΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΡΠΉ ΠΌΠΎΠ΄ΡΠ»Ρ.
ΠΠΎΡΠ»Π΅ Π½Π°ΠΆΠ°ΡΠΈΡ ΠΊΠ½ΠΎΠΏΠΊΠΈ Β«ModuleΒ» Π²Ρ ΡΠ²ΠΈΠ΄ΠΈΡΠ΅ ΡΡΡΠ»ΠΊΡ Π½Π° Π½Π΅Π³ΠΎ, ΠΏΠΎΡΠ²ΠΈΠ²ΡΡΡΡΡ Π² ΠΏΡΠΎΠ²ΠΎΠ΄Π½ΠΈΠΊΠ΅ ΡΠ»Π΅Π²Π°.
ΠΠ΅ΡΠ²Π°Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° Π½Π° VBA Excel ΠΠΎΠ±Π°Π²Π»ΡΠ΅ΠΌ Π½Π° ΡΡΠ°Π½Π΄Π°ΡΡΠ½ΡΠΉ ΠΌΠΎΠ΄ΡΠ»Ρ ΡΠ°Π±Π»ΠΎΠ½ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ β ΡΡΡΠΎΠΊΠΈ Π΅Π΅ Π½Π°ΡΠ°Π»Π° ΠΈ Π·Π°Π²Π΅ΡΡΠ΅Π½ΠΈΡ, ΠΌΠ΅ΠΆΠ΄Ρ ΠΊΠΎΡΠΎΡΡΠΌΠΈ ΠΌΡ ΠΈ Π±ΡΠ΄Π΅ΠΌ ΠΏΠΈΡΠ°ΡΡ ΡΠ²ΠΎΡ ΠΏΠ΅ΡΠ²ΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ (ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ, ΠΏΠΎΠ΄ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ).
Π ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ΅ ΠΎΡΠΊΡΠΎΠ΅ΡΡΡ ΠΎΠΊΠ½ΠΎ Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΡ ΡΠ°Π±Π»ΠΎΠ½Π° ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ (Sub).
ΠΠΌΡ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ Π½Π°ΠΏΠΈΡΠ°Π½ΠΎ ΠΊΠ°ΠΊ Π½Π° Π»Π°ΡΠΈΠ½ΠΈΡΠ΅, ΡΠ°ΠΊ ΠΈ Π½Π° ΠΊΠΈΡΠΈΠ»Π»ΠΈΡΠ΅, ΠΌΠΎΠΆΠ΅Ρ ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΡ ΡΠΈΡΡΡ ΠΈ Π·Π½Π°ΠΊ ΠΏΠΎΠ΄ΡΠ΅ΡΠΊΠΈΠ²Π°Π½ΠΈΡ. ΠΠ½ΠΎ ΠΎΠ±ΡΠ·Π°ΡΠ΅Π»ΡΠ½ΠΎ Π΄ΠΎΠ»ΠΆΠ½ΠΎ Π½Π°ΡΠΈΠ½Π°ΡΡΡΡ Ρ Π±ΡΠΊΠ²Ρ ΠΈ Π½Π΅ ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΡ ΠΏΡΠΎΠ±Π΅Π»Ρ, Π²ΠΌΠ΅ΡΡΠΎ ΠΊΠΎΡΠΎΡΡΡ
ΡΠ»Π΅Π΄ΡΠ΅Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ Π·Π½Π°ΠΊ ΠΏΠΎΠ΄ΡΠ΅ΡΠΊΠΈΠ²Π°Π½ΠΈΡ.
Π€ΡΠ½ΠΊΡΠΈΡ MsgBox Π²ΡΠ²ΠΎΠ΄ΠΈΡ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΎΠ½Π½ΠΎΠ΅ ΡΠΎΠΎΠ±ΡΠ΅Π½ΠΈΠ΅ Ρ ΡΠΊΠ°Π·Π°Π½Π½ΡΠΌ ΡΠ΅ΠΊΡΡΠΎΠΌ. Π Π½Π°ΡΠ΅ΠΌ ΠΏΡΠΈΠΌΠ΅ΡΠ΅ β ΡΡΠΎ Β«ΠΡΠΈΠ²Π΅ΡΒ».
ΠΡΠ»ΠΈ Π²Ρ ΡΠ²ΠΈΠ΄Π΅Π»ΠΈ ΡΠ°ΠΊΠΎΠ΅ ΡΠΎΠΎΠ±ΡΠ΅Π½ΠΈΠ΅, ΠΊΠ°ΠΊ Π½Π° ΠΈΠ·ΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΠΈ, ΡΠΎ, ΠΏΠΎΠ·Π΄ΡΠ°Π²Π»ΡΡ β Π²Ρ Π½Π°ΠΏΠΈΡΠ°Π»ΠΈ ΡΠ²ΠΎΡ ΠΏΠ΅ΡΠ²ΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ!
Π Π°Π±ΠΎΡΠ° Ρ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΠΌΠΈ Π§ΡΠΎΠ±Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ Π² ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΠ΅, ΠΈΡ
Π½Π΅ΠΎΠ±Ρ
ΠΎΠ΄ΠΈΠΌΠΎ ΠΎΠ±ΡΡΠ²ΠΈΡΡ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΠΊΠ»ΡΡΠ΅Π²ΠΎΠ³ΠΎ ΡΠ»ΠΎΠ²Π° Β«DimΒ». ΠΡΠ»ΠΈ ΠΏΡΠΈ ΠΎΠ±ΡΡΠ²Π»Π΅Π½ΠΈΠΈ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ
Π½Π΅ ΡΠΊΠ°Π·Π°ΡΡ ΡΠΈΠΏΡ Π΄Π°Π½Π½ΡΡ
, ΠΎΠ½ΠΈ ΡΠΌΠΎΠ³ΡΡ ΠΏΡΠΈΠ½ΠΈΠΌΠ°ΡΡ Π»ΡΠ±ΡΠ΅ Π΄ΠΎΡΡΡΠΏΠ½ΡΠ΅ Π² VBA Excel Π·Π½Π°ΡΠ΅Π½ΠΈΡ. ΠΠΎΠΌΠΌΠ΅Π½ΡΠ°ΡΠΈΠΈ Π² ΡΠ΅ΠΊΡΡΠ΅ ΠΏΡΠΎΡΠ΅Π΄ΡΡ Π½Π°ΡΠΈΠ½Π°ΡΡΡΡ ΡΠΎ Π·Π½Π°ΠΊΠ° Β«’Β» (Π°ΠΏΠΎΡΡΡΠΎΡ).
ΠΡΠΈΠΌΠ΅Ρ 2 ΠΡΠΈΡΠ²ΠΎΠ΅Π½ΠΈΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΠΌ ΡΠΈΡΠ»ΠΎΠ²ΡΡ
Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ:
ΠΡΡΠΎΡΠ½ΠΈΠΊ
ΠΠ²ΡΠΎΠΌΠ°ΡΠΈΠ·Π°ΡΠΈΡ ΡΡΡΠΈΠ½Ρ Π² Microsoft Excel ΠΏΡΠΈ ΠΏΠΎΠΌΠΎΡΠΈ VBA Π ΡΡΠΎΠΌ ΠΏΠΎΡΡΠ΅ Ρ ΡΠ°ΡΡΠΊΠ°ΠΆΡ, ΡΡΠΎ ΡΠ°ΠΊΠΎΠ΅ VBA ΠΈ ΠΊΠ°ΠΊ Ρ Π½ΠΈΠΌ ΡΠ°Π±ΠΎΡΠ°ΡΡ Π² Microsoft Excel 2007/2010 (Π΄Π»Ρ Π±ΠΎΠ»Π΅Π΅ ΡΡΠ°ΡΡΡ
Π²Π΅ΡΡΠΈΠΉ ΠΈΠ·ΠΌΠ΅Π½ΡΠ΅ΡΡΡ Π»ΠΈΡΡ ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡ β ΠΊΠΎΠ΄, ΡΠΊΠΎΡΠ΅Π΅ Π²ΡΠ΅Π³ΠΎ, Π±ΡΠ΄Π΅Ρ ΡΠ°ΠΊΠΈΠΌ ΠΆΠ΅) Π΄Π»Ρ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΠ·Π°ΡΠΈΠΈ ΡΠ°Π·Π»ΠΈΡΠ½ΠΎΠΉ ΡΡΡΠΈΠ½Ρ.
VBA (Visual Basic for Applications) β ΡΡΠΎ ΡΠΏΡΠΎΡΠ΅Π½Π½Π°Ρ Π²Π΅ΡΡΠΈΡ Visual Basic, Π²ΡΡΡΠΎΠ΅Π½Π½Π°Ρ Π² ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²ΠΎ ΠΏΡΠΎΠ΄ΡΠΊΡΠΎΠ² Π»ΠΈΠ½Π΅ΠΉΠΊΠΈ Microsoft Office. ΠΠ½Π° ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ ΠΏΠΈΡΠ°ΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΏΡΡΠΌΠΎ Π² ΡΠ°ΠΉΠ»Π΅ ΠΊΠΎΠ½ΠΊΡΠ΅ΡΠ½ΠΎΠ³ΠΎ Π΄ΠΎΠΊΡΠΌΠ΅Π½ΡΠ°. ΠΠ°ΠΌ Π½Π΅ ΡΡΠ΅Π±ΡΠ΅ΡΡΡ ΡΡΡΠ°Π½Π°Π²Π»ΠΈΠ²Π°ΡΡ ΡΠ°Π·Π»ΠΈΡΠ½ΡΠ΅ IDE β Π²ΡΡ, Π²ΠΊΠ»ΡΡΠ°Ρ ΠΎΡΠ»Π°Π΄ΡΠΈΠΊ, ΡΠΆΠ΅ Π΅ΡΡΡ Π² Excel.
ΠΡΠ΅ ΠΏΡΠΈ ΠΏΠΎΠΌΠΎΡΠΈ Visual Studio Tools for Office ΠΌΠΎΠΆΠ½ΠΎ ΠΏΠΈΡΠ°ΡΡ ΠΌΠ°ΠΊΡΠΎΡΡ Π½Π° C# ΠΈ ΡΠ°ΠΊΠΆΠ΅ Π²ΡΡΡΠ°ΠΈΠ²Π°ΡΡ ΠΈΡ
. Π‘ΠΏΠ°ΡΠΈΠ±ΠΎ, FireStorm.
Π‘ΡΠ°Π·Ρ ΡΠΊΠ°ΠΆΡ β ΠΏΠΈΡΠ°ΡΡ Π½Π° Π΄ΡΡΠ³ΠΈΡ
ΡΠ·ΡΠΊΠ°Ρ
(C++/Delphi/PHP) ΡΠ°ΠΊΠΆΠ΅ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎ, Π½ΠΎ ΡΡΠ΅Π±ΡΠ΅ΡΡΡ Π½Π°ΡΡΠΈΡΡΡ ΡΠΈΡΠ°ΡΡ, ΠΈΠ·ΠΌΠ΅Π½ΡΡΡ ΠΈ ΠΏΠΈΡΠ°ΡΡ ΡΠ°ΠΉΠ»Ρ ΠΎΡΠΈΡΠ° β Π²ΡΡΡΠ°ΠΈΠ²Π°ΡΡ Π² Π΄ΠΎΠΊΡΠΌΠ΅Π½ΡΡ Π½Π΅ ΠΏΠΎΠ»ΡΡΠΈΡΡΡ. Π ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡΡ Microsoft ΡΠ°Π±ΠΎΡΠ°ΡΡ ΡΠ΅ΡΠ΅Π· COM. Π§ΡΠΎΠ±Ρ Π²Ρ ΠΏΠΎΠ½ΡΠ»ΠΈ Π²Π΅ΡΡ ΡΠΆΠ°Ρ, Π²ΠΎΡ Hello World Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ΠΌ COM.
ΠΠΎΡΡΠΎΠΌΡ, ΡΠ²Ρ, Π±ΡΠ΄Π΅ΠΌ ΡΡΠΈΡΡ Visual Basic.
Π§ΡΡΡ-ΡΡΡΡ ΠΏΠΎΠ΄Π³ΠΎΡΠΎΠ²ΠΊΠΈ ΠΈ ΠΏΠΎΡΡΠ°Π½ΠΎΠ²ΠΊΠ° Π·Π°Π΄Π°ΡΠΈ ΠΡΠ°ΠΊ, ΠΏΠΎΠ΅Ρ
Π°Π»ΠΈ. ΠΡΠΊΡΡΠ²Π°Π΅ΠΌ Excel.
ΠΠ»Ρ Π½Π°ΡΠ°Π»Π° Π΄Π°Π²Π°ΠΉΡΠ΅ Π΄ΠΎΠ±Π°Π²ΠΈΠΌ Π² Ribbon ΠΏΠ°Π½Π΅Π»Ρ Β«Π Π°Π·ΡΠ°Π±ΠΎΡΡΠΈΠΊΒ». Π Π½Π΅ΠΉ Π½Π°Ρ
ΠΎΠ΄ΡΡΡΡ ΠΊΠ½ΠΎΠΏΠΊΠΈ, ΡΠ΅ΠΊΡΡΠΎΠ²ΡΠ΅ ΠΏΠΎΠ»Ρ ΠΈ ΠΏΡ. ΡΠ»Π΅ΠΌΠ΅Π½ΡΡ Π΄Π»Ρ ΠΊΠΎΠ½ΡΡΡΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΡΠΎΡΠΌ.
Π’Π΅ΠΏΠ΅ΡΡ Π΄Π°Π²Π°ΠΉΡΠ΅ ΠΏΠΎΠ΄ΡΠΌΠ°Π΅ΠΌ, Π½Π° ΠΊΠ°ΠΊΠΎΠΌ ΠΏΡΠΈΠΌΠ΅ΡΠ΅ ΠΌΡ Π±ΡΠ΄Π΅ΠΌ ΠΈΠ·ΡΡΠ°ΡΡ VBA. ΠΠ΅Π΄Π°Π²Π½ΠΎ ΠΌΠ½Π΅ ΠΏΠΎΡΡΠ΅Π±ΠΎΠ²Π°Π»ΠΎΡΡ ΠΊΡΠ°ΡΠΈΠ²ΠΎ ΠΎΡΠΎΡΠΌΠΈΡΡ ΠΏΡΠ°ΠΉΡ-Π»ΠΈΡΡ, Π²ΡΠ³Π»ΡΠ΄Π΅Π²ΡΠΈΠΉ, ΠΊΠ°ΠΊ ΡΠ°Π±Π»ΠΈΡΠ°. ΠΠ΄ΡΠΌ Π² Π³ΡΠ³Π», Π½Π°Π±ΠΈΡΠ°Π΅ΠΌ Β«ΠΏΡΠ°ΠΉΡ-Π»ΠΈΡΡΒ» ΠΈ ΠΊΠ°ΡΠ°Π΅ΠΌ Π»ΡΠ±ΠΎΠΉ, ΠΊΠΎΡΠΎΡΡΠΉ ΠΎΡΠΎΡΠΌΠ»Π΅Π½ ΠΏΡΠΈΠΌΠ΅ΡΠ½ΠΎ ΡΠ°ΠΊ (Π½Π΅ ΡΠΎΡΡΠΈΡΠ΅ Π·Π° ΡΠ΅ΠΊΠ»Π°ΠΌΡ, ΠΏΠΎΠΆΠ°Π»ΡΠΉΡΡΠ°):
Π’ΠΎ Π΅ΡΡΡ ΡΡΠ΅Π±ΡΠ΅ΡΡΡ, ΡΡΠΎΠ±Ρ Π±ΡΠ»ΠΎ ΠΊΠ°ΠΊ ΠΌΠΈΠ½ΠΈΠΌΡΠΌ Π΄Π²Π΅ Π³ΡΡΠΏΠΏΡ, ΠΏΠΎ ΠΊΠΎΡΠΎΡΡΠΌ ΠΌΠΎΠΆΠ½ΠΎ ΠΎΠ±ΡΠ΅Π΄ΠΈΠ½ΠΈΡΡ ΡΠΎΠ²Π°ΡΡ (Π² Π½Π°ΡΠ΅ΠΌ ΡΠ»ΡΡΠ°Π΅ ΡΡΠΎ Π±ΡΠ΄ΡΡ Π’ΠΈΠΏ ΠΈ ΠΡΠΎΠΈΠ·Π²ΠΎΠ΄ΠΈΡΠ΅Π»Ρ β Π² ΡΠ°ΠΊΠΎΠΌ ΠΏΠΎΡΡΠ΄ΠΊΠ΅). ΠΠ»Ρ ΡΠΎΠ³ΠΎ, ΡΡΠΎΠ±Ρ ΠΏΡΠ΅Π΄Π»ΠΎΠΆΠ΅Π½Π½ΡΠΉ ΠΌΠ½ΠΎΡ Π°Π»Π³ΠΎΡΠΈΡΠΌ ΡΠ°Π±ΠΎΡΠ°Π» ΠΊΠΎΡΡΠ΅ΠΊΡΠ½ΠΎ, ΠΎΡΡΠΎΡΡΠΈΡΡΠΉΡΠ΅ ΡΠΎΠ²Π°ΡΡ ΡΠ°ΠΊ, ΡΡΠΎΠ±Ρ ΡΠΎΠ²Π°ΡΡ ΠΈΠ· ΠΎΠ΄Π½ΠΎΠΉ Π³ΡΡΠΏΠΏΡ ΡΡΠΎΡΠ»ΠΈ ΠΏΠΎΠ΄ΡΡΠ΄ (ΡΠ½Π°ΡΠ°Π»Π° ΠΏΠΎ Π’ΠΈΠΏΡ , ΠΏΠΎΡΠΎΠΌ ΠΏΠΎ ΠΡΠΎΠΈΠ·Π²ΠΎΠ΄ΠΈΡΠ΅Π»Ρ ).
Π Π΅Π·ΡΠ»ΡΡΠ°Ρ, ΠΊΠΎΡΠΎΡΠΎΠ³ΠΎ Ρ
ΠΎΡΠΈΠΌ Π΄ΠΎΠ±ΠΈΡΡΡΡ, Π²ΡΠ³Π»ΡΠ΄ΠΈΡ ΠΏΡΠΈΠΌΠ΅ΡΠ½ΠΎ ΡΠ°ΠΊ:
Π Π°Π·ΡΠΌΠ΅Π΅ΡΡΡ, Π΅ΡΠ»ΠΈ ΡΠΌΠΎΡΡΠ΅ΡΡ ΠΏΡΠ°ΠΉΡ ΡΠΎΠ»ΡΠΊΠΎ Π½Π° ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠ΅, ΡΠΎ ΠΌΠΎΠΆΠ½ΠΎ Π΄ΠΎΠ±Π°Π²ΠΈΡΡ ΡΠΈΠ»ΡΡΡΡ ΠΈ Π±ΡΠ΄Π΅Ρ Π³ΠΎΡΠ°Π·Π΄ΠΎ ΡΠ΄ΠΎΠ±Π½Π΅Π΅ ΠΈΡΠΊΠ°ΡΡ Π½ΡΠΆΠ½ΡΠΉ ΡΠΎΠ²Π°Ρ. ΠΠ΄Π½Π°ΠΊΠΎ ΠΌΡ Ρ
ΠΎΡΠΈΠΌ Π½Π°ΡΡΠΈΡΡΡ ΠΊΠΎΠ΄ΠΈΡΡ ΠΈ Π·Π°Π΄Π°ΡΠ° Π²ΠΏΠΎΠ»Π½Π΅ ΠΏΠΎΠ΄Ρ
ΠΎΠ΄ΡΡΠ°Ρ, Π½Π΅ ΡΠ°ΠΊ Π»ΠΈ?
ΠΠΎΠ΄ΠΈΠΌ ΠΠ»Ρ Π½Π°ΡΠ°Π»Π° ΡΡΠ΅Π±ΡΠ΅ΡΡΡ ΡΠΎΠ·Π΄Π°ΡΡ ΠΊΠ½ΠΎΠΏΠΊΡ, ΠΏΡΠΈ Π½Π°ΠΆΠ°ΡΠΈΠΈ Π½Π° ΠΊΠΎΡΠΎΡΡΡ Π±ΡΠ΄Π΅Ρ Π²ΡΠ·ΡΠ²Π°ΡΡΡΡ Π½Π°ΡΠ° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠ°. ΠΠ½ΠΎΠΏΠΊΠΈ Π½Π°Ρ
ΠΎΠ΄ΡΡΡΡ Π² ΠΏΠ°Π½Π΅Π»ΠΈ Β«Π Π°Π·ΡΠ°Π±ΠΎΡΡΠΈΠΊΒ» ΠΈ ΠΏΠΎΡΠ²Π»ΡΡΡΡΡ ΠΏΠΎ ΠΊΠ½ΠΎΠΏΠΊΠ΅ Β«ΠΡΡΠ°Π²ΠΈΡΡΒ». ΠΠ°ΠΌ Π½ΡΠΆΠ΅Π½ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½Ρ ΡΠΎΡΠΌΡ Β«ΠΠ½ΠΎΠΏΠΊΠ°Β». ΠΠ°ΠΆΠ°Π»ΠΈ, ΠΏΠΎΡΡΠ°Π²ΠΈΠ»ΠΈ Π½Π° Π»ΡΠ±ΠΎΠ΅ ΠΌΠ΅ΡΡΠΎ Π² Π»ΠΈΡΡΠ΅. ΠΠ°Π»Π΅Π΅, Π΅ΡΠ»ΠΈ Π½Π΅ ΠΏΠΎΡΠ²ΠΈΠ»ΠΎΡΡ ΠΎΠΊΠ½ΠΎ Π½Π°Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΠΌΠ°ΠΊΡΠΎΡΠ°, Π½Π°Π΄ΠΎ Π½Π°ΠΆΠ°ΡΡ ΠΏΡΠ°Π²ΠΎΠΉ ΠΊΠ½ΠΎΠΏΠΊΠΎΠΉ ΠΈ Π²ΡΠ±ΡΠ°ΡΡ ΠΏΡΠ½ΠΊΡ Β«ΠΠ°Π·Π½Π°ΡΠΈΡΡ ΠΌΠ°ΠΊΡΠΎΡΒ». ΠΠ°Π·ΠΎΠ²ΡΠΌ Π΅Π³ΠΎ FormatPrice. ΠΠ°ΠΆΠ½ΠΎ, ΡΡΠΎΠ±Ρ ΠΏΠ΅ΡΠ΅Π΄ ΠΈΠΌΠ΅Π½Π΅ΠΌ ΠΌΠ°ΠΊΡΠΎΡΠ° Π½ΠΈΡΠ΅Π³ΠΎ Π½Π΅ Π±ΡΠ»ΠΎ β ΠΈΠ½Π°ΡΠ΅ ΠΎΠ½ ΡΠΎΠ·Π΄Π°ΡΡΡΡ Π² ΠΎΡΠ΄Π΅Π»ΡΠ½ΠΎΠΌ ΠΌΠΎΠ΄ΡΠ»Π΅, Π° Π½Π΅ Π² ΠΏΡΠΎΡΡΡΠ°Π½ΡΡΠ²Π΅ ΠΈΠΌΠ΅Π½ ΠΊΠ½ΠΈΠ³ΠΈ. Π ΡΡΠΎΠΌΡ ΡΠ»ΡΡΠ°Π΅ Π²Π°ΠΌ Π±ΡΠ΄Π΅Ρ Π½Π΅Π΄ΠΎΡΡΡΠΏΠ½ΠΎ Π±ΡΡΡΡΠΎΠ΅ ΠΎΠ±ΡΠ°ΡΠ΅Π½ΠΈΠ΅ ΠΊ Π²ΡΠ΄Π΅Π»Π΅Π½Π½ΠΎΠΌΡ Π»ΠΈΡΡΡ. ΠΠ°ΠΆΠΈΠΌΠ°Π΅ΠΌ ΠΊΠ½ΠΎΠΏΠΊΡ Β«ΠΠΎΠ²ΡΠΉΒ».
Π Π²ΠΎΡ ΠΌΡ Π² ΡΡΠ΅Π΄Π΅ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠΈ VB. Π’Π°ΠΊΠΆΠ΅ Π΅Ρ ΠΌΠΎΠΆΠ½ΠΎ Π²ΡΠ·Π²Π°ΡΡ ΠΈΠ· ΠΊΠΎΠ½ΡΠ΅ΠΊΡΡΠ½ΠΎΠ³ΠΎ ΠΌΠ΅Π½Ρ ΠΊΠΎΠΌΠ°Π½Π΄ΠΎΠΉ Β«ΠΡΡ
ΠΎΠ΄Π½ΡΠΉ ΡΠ΅ΠΊΡΡΒ»/Β«View codeΒ».
ΠΠ΅ΡΠ΅Π΄ Π²Π°ΠΌΠΈ ΠΎΠΊΠ½ΠΎ Ρ Π·Π°Π³Π»ΡΡΠΊΠΎΠΉ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ. ΠΠΎΠΆΠ΅ΡΠ΅ Π΅Π³ΠΎ ΡΠ°Π·Π²Π΅ΡΠ½ΡΡΡ. ΠΠΎΠ΄ Π΄ΠΎΠ»ΠΆΠ΅Π½ Π²ΡΠ³Π»ΡΠ΄Π΅ΡΡ ΠΏΡΠΈΠΌΠ΅ΡΠ½ΠΎ ΡΠ°ΠΊ:
ΠΠ°ΠΏΠΈΡΠ΅ΠΌ Hello World:
Sub FormatPrice() MsgBox «Hello World!» End Sub
Π Π·Π°ΠΏΡΡΡΠΈΠΌ Π»ΠΈΠ±ΠΎ ΡΠ΅Π»ΠΊΠ½ΡΠ² ΠΏΠΎ ΠΊΠ½ΠΎΠΏΠΊΠ΅ (ΠΏΡΠ΅Π΄Π²Π°ΡΠΈΡΠ΅Π»ΡΠ½ΠΎ ΡΠ½ΡΠ² Ρ Π½Π΅Ρ Π²ΡΠ΄Π΅Π»Π΅Π½ΠΈΠ΅), Π»ΠΈΠ±ΠΎ ΠΊΠ»Π°Π²ΠΈΡΠ΅ΠΉ F5 ΠΏΡΡΠΌΠΎ ΠΈΠ· ΡΠ΅Π΄Π°ΠΊΡΠΎΡΠ°.
Π’ΡΡ, ΠΏΠΎΠΆΠ°Π»ΡΠΉ, ΡΠ»Π΅Π΄ΡΠ΅Ρ ΠΎΡΠ²Π»Π΅ΡΡΡΡ Π½Π° Π½Π΅Π±ΠΎΠ»ΡΡΠΎΠΉ Π»ΠΈΠΊΠ±Π΅Π· ΠΏΠΎ ΠΏΠΎΠ²ΠΎΠ΄Ρ ΡΠΈΠ½ΡΠ°ΠΊΡΠΈΡΠ° VB. ΠΡΠΎ Π΅Π³ΠΎ Π·Π½Π°Π΅Ρ β ΠΌΠΎΠΆΠ΅Ρ ΡΠΌΠ΅Π»ΠΎ ΠΏΡΠΎΠΏΡΡΡΠΈΡΡ ΡΡΠΎΡ ΡΠ°Π·Π΄Π΅Π» Π΄ΠΎ ΠΊΠΎΠ½ΡΠ°. ΠΡΠ½ΠΎΠ²Π½ΠΎΠ΅ ΠΎΡΠ»ΠΈΡΠΈΠ΅ Visual Basic ΠΎΡ Pascal/C/Java Π² ΡΠΎΠΌ, ΡΡΠΎ ΠΊΠΎΠΌΠ°Π½Π΄Ρ ΡΠ°Π·Π΄Π΅Π»ΡΡΡΡΡ Π½Π΅ ; , Π° ΠΏΠ΅ΡΠ΅Π½ΠΎΡΠΎΠΌ ΡΡΡΠΎΠΊΠΈ ΠΈΠ»ΠΈ Π΄Π²ΠΎΠ΅ΡΠΎΡΠΈΠ΅ΠΌ (: ), Π΅ΡΠ»ΠΈ ΠΎΡΠ΅Π½Ρ Ρ
ΠΎΡΠ΅ΡΡΡ Π½Π°ΠΏΠΈΡΠ°ΡΡ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΎ ΠΊΠΎΠΌΠ°Π½Π΄ Π² ΠΎΠ΄Π½Ρ ΡΡΡΠΎΠΊΡ. Π§ΡΠΎΠ±Ρ ΠΏΠΎΠ½ΡΡΡ ΠΎΡΠ½ΠΎΠ²Π½ΡΠ΅ ΠΏΡΠ°Π²ΠΈΠ»Π° ΡΠΈΠ½ΡΠ°ΠΊΡΠΈΡΠ°, ΠΏΡΠΈΠ²Π΅Π΄Ρ Π°Π±ΡΡΡΠ°ΠΊΡΠ½ΡΠΉ ΠΊΠΎΠ΄.
ΠΡΠΈΠΌΠ΅ΡΡ ΡΠΈΠ½ΡΠ°ΠΊΡΠΈΡΠ° Dim res As sTRING ‘ Π Π΅Π³ΠΈΡΡΡ Π² VB Π½Π΅ Π²Π°ΠΆΠ΅Π½. ΠΠΏΡΠΎΡΠ΅ΠΌ, ΡΠ΅Π΄Π°ΠΊΡΠΎΡ ΠΠ°Ρ ΠΏΠΎΠΏΡΠ°Π²ΠΈΡ Dim i As Integer ‘ Π¦ΠΈΠΊΠ» Π²ΡΠ΅Π³Π΄Π° ΡΠΎΡΡΠΎΠΈΡ ΠΈΠ· Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΈΡ
ΡΡΡΠΎΠΊ For i = 1 To 10 res = res + CStr(i) ‘ ΠΠΎΠ½Π²Π΅ΡΡΠ°ΡΠΈΡ ΡΠ΅Π³ΠΎ ΡΠ³ΠΎΠ΄Π½ΠΎ Π² String If i = 5 Then Exit For Next i
Dim x As Double x = Val( «1.234» ) ‘ ΠΠ°ΡΡΠΈΠ½Π³ ΡΠΈΡΠ΅Π» x = x + 10 MsgBox x
On Error GoTo Err ‘ ΠΡΠΈ ΠΎΡΠΈΠ±ΠΊΠ΅ ΠΏΠ΅ΡΠ΅ΠΉΡΠΈ ΠΊ ΠΌΠ΅ΡΠΊΠ΅ Err x = 5 / 0 MsgBox «OK!» GoTo ne
ne: On Error GoTo 0 ‘ ΠΡΠΊΠ»ΡΡΠ°Π΅ΠΌ ΠΎΠ±ΡΠ°Π±ΠΎΡΠΊΡ ΠΎΡΠΈΠ±ΠΎΠΊ
‘ Π¦ΠΈΠΊΠ»Ρ Π±ΡΠ²Π°Π΅Ρ, ΠΊΠ°ΠΊΠΈΠ΅ Π·Π°Ρ
ΠΎΡΠΈΡΠ΅ Do While True Exit Do
Loop ‘While True Do ‘Until False Exit Do Loop Until False ‘ Π Π²ΠΎΡ ΠΏΡΠΈ Π²ΡΠ·ΠΎΠ²Π΅ ΡΡΠ½ΠΊΡΠΈΠΉ, ΠΎΡ ΠΊΠΎΡΠΎΡΡΡ
Ρ
ΠΎΡΠΈΠΌ ΠΏΠΎΠ»ΡΡΠΈΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅, ΡΠΊΠΎΠ±ΠΊΠΈ Π½ΡΠΆΠ½Ρ. ‘ Val ΡΠ°ΠΊΠΆΠ΅ ΡΠΌΠ΅Π΅Ρ Π²ΠΎΠ·Π²ΡΠ°ΡΠ°ΡΡ Integer Select Case LengthSqr(Len( «abc» ), Val( «4» )) Case 24 MsgBox «0» Case 25 MsgBox «1» Case 26 MsgBox «2» End Select
ΠΡΠ°Π±Π»ΠΈ-1. ΠΡΠΈ ΠΊΠΎΠΏΠΈΡΠΎΠ²Π°Π½ΠΈΠΈ ΠΊΠΎΠ΄Π° ΠΈΠ· IDE (Π² Π°Π½Π³Π»ΠΈΠΉΡΠΊΠΎΠΌ Excel) Π΅ΡΡ ΡΠ΅ΠΊΡΡ ΠΊΠΎΠ½Π²Π΅ΡΡΠΈΡΡΠ΅ΡΡΡ Π² 1252 Latin-1 . ΠΠΎΡΡΠΎΠΌΡ, Π΅ΡΠ»ΠΈ Ρ
ΠΎΡΠΈΡΠ΅ ΡΠΎΡ
ΡΠ°Π½ΠΈΡΡ ΡΡΡΡΠΊΠΈΠ΅ ΠΊΠΎΠΌΠΌΠ΅Π½ΡΠ°ΡΠΈΠΈ β Π½Π°Π΄ΠΎ ΡΠΎΡ
ΡΠ°Π½ΠΈΡΡ ΠΊΡΠΎΠΊΠΎΠ·ΡΠ±ΡΡ ΠΊΠ°ΠΊ Latin-1 , Π° ΠΏΠΎΡΠΎΠΌ ΠΎΡΠΊΡΡΡΡ Π² 1251.
ΠΡΠ°Π±Π»ΠΈ-2. Π’.ΠΊ. VB ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ Π½Π΅ΠΎΠ±ΡΡΠ²Π»Π΅Π½Π½ΡΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΠ΅, Ρ Π²ΡΠ΅Π³Π΄Π° Π² Π½Π°ΡΠ°Π»Π΅ ΠΊΠΎΠ΄Π° (ΠΏΠ΅ΡΠ΅Π΄ Π²ΡΠ΅ΠΌΠΈ ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ°ΠΌΠΈ) ΡΡΠ°Π²Π»Ρ ΡΡΡΠΎΡΠΊΡ Option Explicit . ΠΡΠ° Π΄ΠΈΡΠ΅ΠΊΡΠΈΠ²Π° Π·Π°ΠΏΡΠ΅ΡΠ°Π΅Ρ ΠΈΠ½ΡΠ΅ΡΠΏΡΠ΅ΡΠ°ΡΠΎΡΡ Π·Π°Π²ΠΎΠ΄ΠΈΡΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΠ΅ ΡΠ°ΠΌΠΎΡΡΠΎΡΡΠ΅Π»ΡΠ½ΠΎ.
ΠΡΠ°Π±Π»ΠΈ-3. ΠΠ»ΠΎΠ±Π°Π»ΡΠ½ΡΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΠ΅ ΠΌΠΎΠΆΠ½ΠΎ ΠΎΠ±ΡΡΠ²Π»ΡΡΡ ΡΠΎΠ»ΡΠΊΠΎ Π΄ΠΎ ΠΏΠ΅ΡΠ²ΠΎΠΉ ΡΡΠ½ΠΊΡΠΈΠΈ/ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ. ΠΠΎΠΊΠ°Π»ΡΠ½ΡΠ΅ β Π² Π»ΡΠ±ΠΎΠΌ ΠΌΠ΅ΡΡΠ΅ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ/ΡΡΠ½ΠΊΡΠΈΠΈ.
ΠΡΠ΅ Π½Π΅ΠΌΠ½ΠΎΠ³ΠΎ Π΄ΠΎΠΏΠΎΠ»Π½ΠΈΡΠ΅Π»ΡΠ½ΡΡ
ΡΡΠ½ΠΊΡΠΈΠΉ, ΠΊΠΎΡΠΎΡΡΠ΅ ΠΌΠΎΠ³ΡΡ ΠΏΡΠΈΠ³ΠΎΠ΄ΠΈΡΡΡ: InPos , Mid , Trim , LBound , UBound . Π’Π°ΠΊΠΆΠ΅ ΠΎΡΠ²Π΅ΡΡ Π½Π° Π²ΡΠ΅ Π²ΠΎΠΏΡΠΎΡΡ ΠΏΠΎ ΠΏΠΎΠ²ΠΎΠ΄Ρ ΡΠ°Π±ΠΎΡΡ ΡΡΠ½ΠΊΡΠΈΠΉ/ΠΈΡ
ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠΎΠ² ΠΌΠΎΠΆΠ½ΠΎ ΠΏΠΎΠ»ΡΡΠΈΡΡ Π² MSDN.
ΠΠ°Π΄Π΅ΡΡΡ, ΡΡΠΎ ΡΡΠΎΠ³ΠΎ ΠΠ°ΠΌ Ρ
Π²Π°ΡΠΈΡ, ΡΡΠΎΠ±Ρ Π½Π΅ ΠΏΡΠ³Π°ΡΡΡΡ ΠΊΠΎΠ΄Π° ΠΈ ΡΠ°ΠΌΠΎΡΡΠΎΡΡΠ΅Π»ΡΠ½ΠΎ Π½Π°ΠΏΠΈΡΠ°ΡΡ ΠΊΠ°ΠΊΠΎΠ΅-Π½ΠΈΠ±ΡΠ΄Ρ Π΄ΠΎΠΌΠ°ΡΠ½Π΅Π΅ Π·Π°Π΄Π°Π½ΠΈΠ΅ ΠΏΠΎ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΊΠ΅. ΠΠΎ Ρ
ΠΎΠ΄Ρ ΠΏΠΎΡΡΠ° Ρ Π±ΡΠ΄Ρ Π½Π΅Π½Π°Π²ΡΠ·ΡΠΈΠ²ΠΎ Π·Π½Π°ΠΊΠΎΠΌΠΈΡΡ ΠΠ°Ρ Ρ Π½ΠΎΠ²ΡΠΌΠΈ ΠΊΠΎΠ½ΡΡΡΡΠΊΡΠΈΡΠΌΠΈ.
ΠΠΎΠ΄ΠΈΠΌ ΠΌΠ½ΠΎΠ³ΠΎ ΠΈ ΠΏΠΎΠ΄ Excel Π ΡΡΠΎΠΉ ΡΠ°ΡΡΠΈ ΠΌΡ ΡΠΆΠ΅ Π½Π°ΡΠ½ΡΠΌ ΠΊΠΎΠ΄ΠΈΡΡ Π½Π΅ΡΡΠΎ, ΡΡΠΎ ΡΠΌΠ΅Π΅Ρ ΡΠ°Π±ΠΎΡΠ°ΡΡ Ρ Π½Π°ΡΠΈΠΌΠΈ Π»ΠΈΡΡΠ°ΠΌΠΈ Π² Excel. ΠΠ»Ρ Π½Π°ΡΠ°Π»Π° ΡΠΎΠ·Π΄Π°Π΄ΠΈΠΌ ΠΎΡΠ΄Π΅Π»ΡΠ½ΡΠΉ Π»ΠΈΡΡ Ρ ΠΈΠΌΠ΅Π½Π΅ΠΌ result (Π»ΠΈΡΡ Ρ Π΄Π°Π½Π½ΡΠΌΠΈ Π½Π°Π·ΠΎΠ²ΡΠΌ data ). Π’Π΅ΠΏΠ΅ΡΡ, Π½Π°Π²Π΅ΡΠ½ΠΎΠ΅, Π½ΡΠΆΠ½ΠΎ ΡΡΠΎΡ Π»ΠΈΡΡ ΠΎΡΠΈΡΡΠΈΡΡ ΠΎΡ ΡΠΎΠ³ΠΎ, ΡΡΠΎ Π½Π° Π½ΡΠΌ Π΅ΡΡΡ. Π’Π°ΠΊΠΆΠ΅ ΠΌΡ Β«Π²ΡΠ΄Π΅Π»ΠΈΠΌΒ» Π»ΠΈΡΡ Ρ Π΄Π°Π½Π½ΡΠΌΠΈ, ΡΡΠΎΠ±Ρ ΠΊΠ°ΠΆΠ΄ΡΠΉ ΡΠ°Π· Π½Π΅ ΠΏΠΈΡΠ°ΡΡ Π΄Π»ΠΈΠ½Π½ΠΎΠ΅ ΠΎΠ±ΡΠ°ΡΠ΅Π½ΠΈΠ΅ ΠΊ ΠΌΠ°ΡΡΠΈΠ²Ρ Ρ Π»ΠΈΡΡΠ°ΠΌΠΈ.
Sub FormatPrice() Sheets( «result» ).Cells.Clear Sheets( «data» ).Activate End Sub
Π Π°Π±ΠΎΡΠ° Ρ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π°ΠΌΠΈ ΡΡΠ΅Π΅ΠΊ ΠΡΡ ΡΠ°Π±ΠΎΡΠ° Π² Excel VBA ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΠΈΡΡΡ Ρ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π°ΠΌΠΈ ΡΡΠ΅Π΅ΠΊ. ΠΠ½ΠΈ ΡΠΎΠ·Π΄Π°ΡΡΡΡ ΡΡΠ½ΠΊΡΠΈΠ΅ΠΉ Range ΠΈ Π²ΠΎΠ·Π²ΡΠ°ΡΠ°ΡΡ ΠΎΠ±ΡΠ΅ΠΊΡ ΡΠΈΠΏΠ° Range . Π£ Π½Π΅Π³ΠΎ Π΅ΡΡΡ Π²ΡΡ Π½Π΅ΠΎΠ±Ρ
ΠΎΠ΄ΠΈΠΌΠΎΠ΅ Π΄Π»Ρ ΡΠ°Π±ΠΎΡΡ Ρ Π΄Π°Π½Π½ΡΠΌΠΈ ΠΈ/ΠΈΠ»ΠΈ ΠΎΡΠΎΡΠΌΠ»Π΅Π½ΠΈΠ΅ΠΌ. ΠΡΡΠ°ΡΠΈ ΡΠΊΠ°Π·Π°ΡΡ, ΡΠ²ΠΎΠΉΡΡΠ²ΠΎ Cells Π»ΠΈΡΡΠ° β ΡΡΠΎ ΡΠΎΠΆΠ΅ Range .
ΠΡΠΈΠΌΠ΅ΡΡ ΡΠ°Π±ΠΎΡΡ Ρ Range Sheets( «result» ).Activate Dim r As Range Set r = Range( «A1» ) r.Value = «123» Set r = Range( «A3,A5» ) r.Font.Color = vbRed r.Value = «456» Set r = Range( «A6:A7» ) r.Value = «=A1+A3»
Π’Π΅ΠΏΠ΅ΡΡ Π΄Π°Π²Π°ΠΉΡΠ΅ ΠΏΠΎΠΉΠΌΠ΅ΠΌ Π°Π»Π³ΠΎΡΠΈΡΠΌ ΡΠ°Π±ΠΎΡΡ Π½Π°ΡΠ΅Π³ΠΎ ΠΊΠΎΠ΄Π°. ΠΡΠ°ΠΊ, Ρ ΠΊΠ°ΠΆΠ΄ΠΎΠΉ ΡΡΡΠΎΡΠΊΠΈ Π»ΠΈΡΡΠ° data , Π½Π°ΡΠΈΠ½Π°Ρ ΡΠΎ Π²ΡΠΎΡΠΎΠΉ, Π΅ΡΡΡ Π½Π΅ΠΊΠΎΡΠΎΡΡΠ΅ Π΄Π°Π½Π½ΡΠ΅, ΠΊΠΎΡΠΎΡΡΠ΅ Π½Π°Ρ Π½Π΅ ΠΈΠ½ΡΠ΅ΡΠ΅ΡΡΡΡ (ID , Π½Π°Π·Π²Π°Π½ΠΈΠ΅ ΠΈ ΡΠ΅Π½Π° ) ΠΈ Π΅ΡΡΡ Π΄Π²Π΅ Π²Π»ΠΎΠΆΠ΅Π½Π½ΡΠ΅ Π³ΡΡΠΏΠΏΡ, ΠΊ ΠΊΠΎΡΠΎΡΡΠΌ ΠΎΠ½Π° ΠΏΡΠΈΠ½Π°Π΄Π»Π΅ΠΆΠΈΡ (ΡΠΈΠΏ ΠΈ ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΠΈΡΠ΅Π»Ρ ). ΠΠΎΠ»Π΅Π΅ ΡΠΎΠ³ΠΎ, ΡΡΠΈ ΡΡΡΠΎΠΊΠΈ ΠΎΡΡΠΎΡΡΠΈΡΠΎΠ²Π°Π½Ρ. ΠΠΎΠΊΠ° ΠΌΡ Π·Π°Π±ΡΠ΄Π΅ΠΌ ΠΏΡΠΎ ΠΏΡΠΎΠΏΡΡΠΊΠΈ ΠΏΠ΅ΡΠ΅Π΄ Π½Π°ΡΠ°Π»ΠΎΠΌ Π½ΠΎΠ²ΠΎΠΉ Π³ΡΡΠΏΠΏΡ β ΡΠ°ΠΊ Π±ΡΠ΄Π΅Ρ ΠΏΡΠΎΡΠ΅. Π― ΠΏΡΠ΅Π΄Π»Π°Π³Π°Ρ ΡΠ°ΠΊΠΎΠΉ Π°Π»Π³ΠΎΡΠΈΡΠΌ:
ΠΠ»Ρ ΡΠΏΡΠΎΡΠ΅Π½ΠΈΡ ΡΠ°Π±ΠΎΡΡ ΡΠ΅ΠΊΠΎΠΌΠ΅Π½Π΄ΡΡ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΠΈΡΡ ΡΠ»Π΅Π΄ΡΡΡΠΈΠ΅ ΡΡΠ½ΠΊΡΠΈΠΈ-ΡΠΎΠΊΡΠ°ΡΠ΅Π½ΠΈΡ:
Function GetCol(Col As Integer ) As String GetCol = Chr(Asc( «A» ) + Col) End Function
ΠΠ°Π»Π΅Π΅ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΠΈΠΌ Π³Π»ΠΎΠ±Π°Π»ΡΠ½ΡΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ Β«ΡΠ΅ΠΊΡΡΠ°Ρ ΡΡΡΠΎΡΠΊΠ°Β»: Dim CurRow As Integer . Π Π½Π°ΡΠ°Π»Π΅ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ Π΅Ρ ΡΠ»Π΅Π΄ΡΠ΅Ρ ΡΠ΄Π΅Π»Π°ΡΡ ΡΠ°Π²Π½ΠΎΠΉ Π΅Π΄ΠΈΠ½ΠΈΡΠ΅. ΠΡΠ΅ Π½Π°ΠΌ ΠΏΠΎΡΡΠ΅Π±ΡΠ΅ΡΡΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ-Β«ΡΠ΅ΠΊΡΡΠ°Ρ ΡΡΡΠΎΠΊΠ° Π² data Β», ΠΌΠ°ΡΡΠΈΠ² Ρ ΠΈΠΌΠ΅Π½Π°ΠΌΠΈ Π³ΡΡΠΏΠΏ ΡΠ΅ΠΊΡΡΠ΅ΠΉ ΠΏΡΠ΅Π΄ΡΠ΄ΡΡΠ΅ΠΉ ΡΡΡΠΎΠΊ. ΠΠΎΡΠΎΠΌ ΠΌΠΎΠΆΠ½ΠΎ Π½Π°ΠΏΠΈΡΠ°ΡΡ ΡΠΈΠΊΠ» Β«ΠΏΠΎΠΊΠ° ΠΏΠ΅ΡΠ²Π°Ρ ΡΡΠ΅ΠΉΠΊΠ° Π² ΡΡΡΠΎΠΊΠ΅ Π½Π΅ΠΏΡΡΡΠ°Β».
ΠΠ»ΠΎΠ±Π°Π»ΡΠ½ΡΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΠ΅ Option Explicit ‘ ΠΏΡΠΎ ΡΡΡ ΡΡΡΠΎΡΠΊΡ Ρ ΡΠΆΠ΅ ΡΠ°ΡΡΠΊΠ°Π·ΡΠ²Π°Π» Dim CurRow As Integer Const GroupsCount As Integer = 2 Const DataCount As Integer = 3
FormatPrice Sub FormatPrice() Dim I As Integer ‘ ΡΡΡΠΎΠΊΠ° Π² data CurRow = 1 Dim Groups(1 To GroupsCount) As String Dim PrGroups(1 To GroupsCount) As String
Π’Π΅ΠΏΠ΅ΡΡ Π½Π°Π΄ΠΎ Π·Π°ΠΏΠΎΠ»Π½ΠΈΡΡ ΠΌΠ°ΡΡΠΈΠ² Groups :
ΠΠ° ΠΌΠ΅ΡΡΠ΅ ΠΌΠ½ΠΎΠ³ΠΎΡΠΎΡΠΈΡ Π ΡΠΎΠ·Π΄Π°ΡΡ Π·Π°Π³ΠΎΠ»ΠΎΠ²ΠΊΠΈ:
ΠΠ° ΠΌΠ΅ΡΡΠ΅ ΠΌΠ½ΠΎΠ³ΠΎΡΠΎΡΠΈΡ Π² ΠΏΡΠ΅Π΄ΡΠ΄ΡΡΠ΅ΠΌ ΠΊΡΡΠΊΠ΅ For I2 = 1 To GroupsCount If Groups(I2) <> PrGroups(I2) Then Dim I3 As Integer For I3 = I2 To GroupsCount AddHeader I3, Groups(I3) Next I3 Exit For End If Next I2
ΠΠ΅ Π·Π°Π±ΡΠ΄Π΅ΠΌ ΠΏΡΠΎ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ AddHeader :
ΠΠ΅ΡΠ΅Π΄ Format Price Π’Π΅ΠΏΠ΅ΡΡ Π½Π°Π΄ΠΎ ΠΏΠ΅ΡΠ΅Π½Π΅ΡΡΠΈ Π²ΡΡΠΊΡΡ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ Π² result
ΠΠΎΠ΄ΠΎΠ³Π½Π°ΡΡ ΡΡΠΎΠ»Π±ΡΡ ΠΏΠΎ ΡΠΈΡΠΈΠ½Π΅ ΠΈ Π²ΡΠ±ΡΠ°ΡΡ Π»ΠΈΡΡ result Π΄Π»Ρ ΠΏΠΎΠΊΠ°Π·Π° ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ°
ΠΠΎΡΠ»Π΅ ΡΠΈΠΊΠ»Π° Π² ΠΊΠΎΠ½ΡΠ΅ FormatPrice Sheets( «Result» ).Activate Columns.AutoFit
ΠΡΡ. ΠΠΎΠΆΠ½ΠΎ Π»ΡΠ±ΠΎΠ²Π°ΡΡΡΡ ΠΏΠ΅ΡΠ²ΠΎΠΉ Π²Π΅ΡΡΠΈΠ΅ΠΉ.
ΠΠ΅ΠΊΡΠ°ΡΠΈΠ²ΠΎ, Π½ΠΎ ΠΏΠΎΡ
ΠΎΠΆΠ΅. ΠΠ°Π²Π°ΠΉΡΠ΅ ΡΠ°Π·Π±ΠΈΡΠ°ΡΡΡΡ Ρ ΡΠΎΡΠΌΠ°ΡΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ΠΌ. Π‘Π½Π°ΡΠ°Π»Π° ΠΈΠ·ΠΌΠ΅Π½ΠΈΠΌ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ AddHeader :
ΠΡΡΠ°Π»ΠΎΡΡ ΡΠΎΠ»ΡΠΊΠΎ ΡΠ΄Π΅Π»Π°ΡΡ Π³ΡΠ°Π½ΠΈΡΡ. Π’ΡΡ ΡΠΆΠ΅ Π½Π°ΠΌ ΡΡΠ΅Π±ΡΠ΅ΡΡΡ ΡΠ°Π±ΠΎΡΠ°ΡΡ ΡΠΎ Π²ΡΠ΅ΠΌΠΈ ΠΎΠ±ΡΠ΅Π΄ΠΈΠ½ΡΠ½Π½ΡΠΌΠΈ ΡΡΠ΅ΠΉΠΊΠ°ΠΌΠΈ, ΠΈΠ½Π°ΡΠ΅ Π±ΠΎΡΠ΄ΡΡ Π±ΡΠ΄Π΅Ρ ΡΠΎΠ»ΡΠΊΠΎ Ρ ΠΎΠ΄Π½ΠΎΠΉ:
ΠΠΎΡΡΠΎΠΌΡ ΡΡΡΡ-ΡΡΡΡ ΠΌΠ΅Π½ΡΠ΅ΠΌ ΠΊΠΎΠ΄ Ρ Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΠ΅ΠΌ ΡΡΠΈΠ»Ρ Π³ΡΠ°Π½ΠΈΡ:
Select Case Ty Case 1 ‘ Π’ΠΈΠΏ .Font.Bold = True .Font.Size = 16 .Borders(xlTop).Weight = xlThick Case 2 ‘ ΠΡΠΎΠΈΠ·Π²ΠΎΠ΄ΠΈΡΠ΅Π»Ρ .Font.Size = 12 .Borders(xlTop).Weight = xlMedium End Select .Borders(xlBottom).Weight = xlMedium ‘ ΠΠΎ ΡΠ±ΡΠ²Π°Π½ΠΈΡ: xlThick, xlMedium, xlThin, xlHairline End With CurRow = CurRow + 1 End Sub
ΠΡΡΠ°Π»ΠΎΡΡ Π»ΠΈΡΡ Π΄ΠΎΠ±ΠΈΡΡΡ ΠΏΡΠΎΠΏΡΡΠΊΠΎΠ² ΠΏΠ΅ΡΠ΅Π΄ Π½Π°ΡΠ°Π»ΠΎΠΌ Π½ΠΎΠ²ΠΎΠΉ Π³ΡΡΠΏΠΏΡ. ΠΡΠΎ Π»Π΅Π³ΠΊΠΎ:
Π Π½Π°ΡΠ°Π»Π΅ FormatPrice Dim I As Integer ‘ ΡΡΡΠΎΠΊΠ° Π² data CurRow = 0 ‘ ΡΡΠΎΠ±Ρ Π½Π΅ Π±ΡΠ»ΠΎ ΠΏΡΠΎΠΏΡΡΠΊΠ° Π² ΡΠ°ΠΌΠΎΠΌ Π½Π°ΡΠ°Π»Π΅ Dim Groups(1 To GroupsCount) As String
Π ΡΠΈΠΊΠ»Π΅ ΡΠ°ΡΡΡΠ°Π½ΠΎΠ²ΠΊΠΈ Π·Π°Π³ΠΎΠ»ΠΎΠ²ΠΊΠΎΠ² If Groups(I2) <> PrGroups(I2) Then CurRow = CurRow + 1 Dim I3 As Integer
Π ΡΠΎΡΠ½ΠΎΡΡΠΈ ΡΠΎ, ΡΡΠΎ ΠΈ Ρ
ΠΎΡΠ΅Π»ΠΈ.
ΠΠ°Π΄Π΅ΡΡΡ, ΡΡΠΎ ΡΡΠ° ΡΡΠ°ΡΡΡ ΠΏΠΎΠΌΠΎΠ³Π»Π° Π²Π°ΠΌ Π½Π΅ΠΌΠ½ΠΎΠ³ΠΎ ΠΎΡΠ²ΠΎΠΈΡΡΡ Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ΠΌ Π΄Π»Ρ Excel Π½Π° VBA. ΠΠΎΠΌΠ°ΡΠ½Π΅Π΅ Π·Π°Π΄Π°Π½ΠΈΠ΅ β Π΄ΠΎΠ±Π°Π²ΠΈΡΡ Π·Π°Π³ΠΎΠ»ΠΎΠ²ΠΊΠΈ «ID, ΠΠ°Π·Π²Π°Π½ΠΈΠ΅, Π¦Π΅Π½Π° » Π² ΡΠ΅Π·ΡΠ»ΡΡΠ°Ρ. ΠΠΎΠ΄ΡΠΊΠ°Π·ΠΊΠ°: CurRow = 0 CurRow = 1 .
Π€Π°ΠΉΠ» ΠΌΠΎΠΆΠ½ΠΎ ΡΠΊΠ°ΡΠ°ΡΡ ΡΡΡ (min.us) ΠΈΠ»ΠΈ ΡΡΡ (Dropbox). ΠΠ΅ Π·Π°Π±ΡΠ΄ΡΡΠ΅ ΡΠ°Π·ΡΠ΅ΡΠΈΡΡ ΠΈΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΠ΅ ΠΌΠ°ΠΊΡΠΎΡΠΎΠ². ΠΡΠ»ΠΈ ΠΊΡΠΎ-Π½ΠΈΠ±ΡΠ΄Ρ ΠΏΠΎΠ΄ΡΠΊΠ°ΠΆΠ΅Ρ ΡΠ΅Π»ΠΎΠ²Π΅ΡΠ΅ΡΠΊΠΈΡ
ΡΠ°ΠΉΠ»ΠΎΡ
ΠΎΡΡΠΈΠ½Π³, Π·Π°Π»ΡΡ ΡΡΠ΄Π°.
Π‘ΠΏΠ°ΡΠΈΠ±ΠΎ Π·Π° Π²Π½ΠΈΠΌΠ°Π½ΠΈΠ΅.
ΠΡΠ΄Ρ ΡΠ°Π΄ ΠΊΠΎΠ½ΡΡΡΡΠΊΡΠΈΠ²Π½ΠΎΠΉ ΠΊΡΠΈΡΠΈΠΊΠ΅ Π² ΠΊΠΎΠΌΠΌΠ΅Π½ΡΠ°ΡΠΈΡΡ
.
UPD: ΠΠ΅ΡΠ΅Π·Π°Π»ΠΈΠ» ΠΏΡΠΈΠΌΠ΅Ρ Π½Π° Dropbox ΠΈ min.us.
UPD2: ΠΠ° ΡΠ°ΠΌΠΎΠΌ Π΄Π΅Π»Π΅, ΠΏΡΠΈ Π²ΡΠ·ΠΎΠ²Π΅ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ Ρ ΠΎΠ΄Π½ΠΈΠΌ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠΎΠΌ ΡΠΊΠΎΠ±ΠΊΠΈ ΠΌΠΎΠΆΠ½ΠΎ ΠΏΠΎΡΡΠ°Π²ΠΈΡΡ. ΠΠΈΠ±ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΠΊΠΎΠ½ΡΡΡΡΠΊΡΠΈΡ Call Foo(Β«barΒ», 1, 2, 3) β ΡΡΡ ΡΠΊΠΎΠ±ΠΊΠΈ Π½ΡΠΆΠ½Ρ ΠΏΠΎΡΡΠΎΡΠ½Π½ΠΎ.
ΠΡΡΠΎΡΠ½ΠΈΠΊ
ΠΠ°ΠΌ ΡΠ°ΠΊΠΆΠ΅ ΠΏΠΎΠ½ΡΠ°Π²ΠΈΡΡΡ ΠΠ°Ρ Ρ
ΠΎΠ΄
ΠΠ³ΡΠ°ΡΡ ΡΠ½ΠΎΠ²Π°