Vba ΡΡΠΎ ΡΠ°ΠΊΠΎΠ΅: ΠΌΠ°ΠΊΡΠΎΡΡ VBA / ΠΠ»ΠΎΠ³ ΠΊΠΎΠΌΠΏΠ°Π½ΠΈΠΈ Digital Security / Π₯Π°Π±Ρ
Π£ΡΠΎΠΊ 1 ΠΏΠΎ VBA — Π·Π½Π°ΠΊΠΎΠΌΡΡΠ²ΠΎ Ρ Visual Basic for Applications
Π ΡΡΠΎ ΡΡΠ°ΡΡΠ΅ ΠΌΡ ΠΊΡΠ°ΡΠΊΠΎ ΠΏΠΎΠ·Π½Π°ΠΊΠΎΠΌΠΈΠΌΡΡ Ρ ΡΠ·ΡΠΊΠΎΠΌ VBA, ΠΊΠΎΡΠΎΡΡΠΉ ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ ΡΠΎΠ·Π΄Π°Π²Π°ΡΡ ΠΌΠ°ΠΊΡΠΎΡΡ Π² ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΡΡ ΠΏΡΠΎΠ΄ΡΠΊΡΠ°Ρ Microsoft Office. ΠΠ°ΠΊΡΠΎΡΡ β Π½Π΅ΠΊΠΈΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΡΠΉ ΠΊΠΎΠ΄, ΠΊΠΎΡΠΎΡΡΠΉ ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ ΡΠ΅Π°Π»ΠΈΠ·ΠΎΠ²ΡΠ²Π°ΡΡ Π·Π° Π²Π°Ρ ΠΏΠΎΡΡΠ°Π²Π»Π΅Π½Π½ΡΡ Π·Π°Π΄Π°ΡΡ. Π ΠΎΡΠ»ΠΈΡΠΈΠΈ ΠΎΡ ΠΏΡΠΈΠΊΠ»Π°Π΄Π½ΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌ, ΠΌΠ°ΠΊΡΠΎΡΡ VBA ΠΊΠ°ΠΊ ΡΠ°ΠΊΠΎΠ²ΡΠ΅ Π½Π΅ ΠΌΠΎΠ³ΡΡ Π²ΡΠΏΠΎΠ»Π½ΡΡΡΡΡ ΡΠ°ΠΌΠΎΡΡΠΎΡΡΠ΅Π»ΡΠ½ΠΎ. Π―Π·ΡΠΊ VBA β Visual Basic for Applications ΡΠ²Π»ΡΠ΅ΡΡΡ ΡΠΎΠ΄ΡΡΠ²Π΅Π½Π½ΠΈΠΊΠΎΠΌ ΡΠ°ΠΊΠΈΡ ΡΠ·ΡΠΊΠΎΠ² ΠΊΠ°ΠΊ VBScript, Visual Basic ΠΈΠ»ΠΈ ΠΏΡΠΎΡΡΠΎΠΉ Basic. Π‘ΠΈΠ½ΡΠ°ΠΊΡΠΈΡ ΠΈ ΠΎΠ±ΡΠΈΠ΅ ΠΏΡΠ°Π²ΠΈΠ»Π° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΏΡΠ°ΠΊΡΠΈΡΠ΅ΡΠΊΠΈ ΠΈΠ΄Π΅Π½ΡΠΈΡΠ½Ρ.
ΠΠΎ ΡΡΡΠΈ, Π·Π½Π°Ρ ΡΠ·ΡΠΊ VBScript ΡΠ΅ΡΠ²Π΅ΡΠ° Windows Script Host, Π²Ρ Ρ Π»Π΅Π³ΠΊΠΎΡΡΡΡ ΠΎΡΠ²ΠΎΠΈΡΠ΅ Π²ΡΠ΅ ΠΏΡΠ΅ΠΌΡΠ΄ΡΠΎΡΡΠΈ VBA.
ΠΡΠ»ΠΈΡΠΈΡ VBA ΠΎΡ VBScript
ΠΡΠ°ΡΠΈΡΠ΅ΡΠΊΠΈΠΉ ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡ β ΡΠ΅Π΄Π°ΠΊΡΠΎΡ VBA ΠΏΡΠ΅Π΄ΠΎΡΡΠ°Π²Π»ΡΠ΅Ρ ΠΌΠΈΠ½ΠΈΠΌΠ°Π»ΡΠ½ΡΠΉ Π½Π°Π±ΠΎΡ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ² Π΄Π»Ρ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ Π³ΡΠ°ΡΠΈΡΠ΅ΡΠΊΠΎΠ³ΠΎ ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡΠ°. ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ Π΄ΠΎΠ±Π°Π²ΠΈΡΡ Π² ΠΏΡΠΎΠ΅ΠΊΡ Π½ΠΎΠ²ΡΡ ΡΠΎΡΠΌΡ ΠΈ ΠΏΠΎΠΌΠ΅ΡΡΠΈΡΡ Π½Π° Π½Π΅Π΅ Π½ΡΠΆΠ½ΡΠ΅ ΠΎΠ±ΡΠ΅ΠΊΡΡ, Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ, ΡΠΏΠΈΡΠΎΠΊ, ΠΊΠ½ΠΎΠΏΠΊΡ, ΡΠ΅ΠΊΡΡΠΎΠ²ΠΎΠ΅ ΠΏΠΎΠ»Π΅ ΠΈ ΡΠ°ΠΊ Π΄Π°Π»Π΅Π΅. Π VBScript Π΄Π»Ρ ΡΡΠΈΡ
ΡΠ΅Π»Π΅ΠΉ Π½ΡΠΆΠ½ΠΎ ΠΏΡΠΈΠ±Π΅Π³Π°ΡΡ ΠΊ ΠΏΠΎΠΌΠΎΡΠΈ ΡΡΠΎΡΠΎΠ½Π½Π΅Π³ΠΎ ΠΎΠ±ΡΠ΅ΠΊΡΠ° WindowSystemObject.
ΠΠ½Π΅ΡΠ½ΠΈΠ΅ ΠΎΠ±ΡΠ΅ΠΊΡΡ β ΠΎΠ±Π° ΡΠ·ΡΠΊΠ° ΠΏΠΎΠ·Π²ΠΎΠ»ΡΡΡ ΠΏΠΎΠ΄ΠΊΠ»ΡΡΠ°ΡΡ ΡΡΠ½ΠΊΡΠΈΠΎΠ½Π°Π»ΡΠ½ΡΠ΅ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΠΈ Π²Π½Π΅ΡΠ½ΠΈΡ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ². ΠΠ±ΡΠ΅ΠΊΡ β Π² Π΄Π°Π½Π½ΠΎΠΌ ΠΊΠΎΠ½ΡΠ΅ΠΊΡΡΠ΅ ΡΡΠΎ Π²Π½Π΅ΡΠ½ΠΈΠΉ Π±ΠΈΠ±Π»ΠΈΠΎΡΠ΅ΡΠ½ΡΠΉ ΡΠ°ΠΉΠ» Ρ Π½Π°Π±ΠΎΡΠΎΠΌ ΠΌΠ΅ΡΠΎΠ΄ΠΎΠ² (ΡΡΠ½ΠΊΡΠΈΠΉ) ΠΈ ΡΠ²ΠΎΠΉΡΡΠ² (ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ ). ΠΠ΄Π½Π°ΠΊΠΎ, Π΅ΡΠ»ΠΈ Π²Ρ ΡΠΎΠ·Π΄Π°Π΅ΡΠ΅ ΠΌΠ°ΠΊΡΠΎΡ Π² Word, ΡΠΎ ΠΎΠ±ΡΠ΅ΠΊΡ Word.Application Π±ΡΠ΄Π΅Ρ Π΄ΠΎΡΡΡΠΏΠ΅Π½ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΈ, Π΅ΡΠ»ΠΈ ΠΌΠ°ΠΊΡΠΎΡ ΡΠ°Π±ΠΎΡΠ°Π΅Ρ Π² Π΄ΠΎΠΊΡΠΌΠ΅Π½ΡΠ΅ Excel, ΡΠΎ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΈ Π΄ΠΎΡΡΡΠΏΠ΅Π½ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½Ρ Excel.Application. Π Windows Script Host ΡΡΠ΅Π½Π°ΡΠΈΡΡ ΡΡΠΈ ΠΎΠ±ΡΠ΅ΠΊΡΡ Π½ΡΠΆΠ½ΠΎ ΠΏΠΎΠ΄ΠΊΠ»ΡΡΠ°ΡΡ ΡΠ°ΠΌΠΎΡΡΠΎΡΡΠ΅Π»ΡΠ½ΠΎ (ΡΠ΄Π΅Π»Π°ΡΡ ΡΡΡΠ»ΠΊΡ).
ΠΠ±ΡΠ°Π±ΠΎΡΠΊΠ° ΡΠΎΠ±ΡΡΠΈΠΉ β Π² VBA ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΡ ΡΠΎΡΠΌΡ ΠΏΠΎΠ΄Π΄Π΅ΡΠΆΠΈΠ²Π°ΡΡ Π½Π΅ ΡΠΎΠ»ΡΠΊΠΎ ΠΌΠ΅ΡΠΎΠ΄Ρ ΠΈ ΡΠ²ΠΎΠΉΡΡΠ², Π½ΠΎ ΠΈ ΡΠΎΠ±ΡΡΠΈΡ, Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ, Π½Π°ΠΆΠ°ΡΠΈΠ΅ ΠΊΠ½ΠΎΠΏΠΊΠΈ ΠΌΡΡΠΈ. Π WSH ΠΎΠ±ΡΠ°Π±ΠΎΡΠΊΠ° ΡΠΎΠ±ΡΡΠΈΠΉ Π½Π΅ ΠΏΡΠ΅Π΄ΡΡΠΌΠΎΡΡΠ΅Π½Π° ΠΏΠΎ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½ΠΈΡ, ΡΠ°ΠΊ ΠΊΠ°ΠΊ, ΡΠ°ΠΌ Π½ΡΠΆΠ½ΠΎ ΠΎΡΠ΄Π΅Π»ΡΠ½ΠΎ ΠΏΠΎΠ΄ΠΊΠ»ΡΡΠ°ΡΡ ΠΊΠ»Π°ΡΡΡ Π΄Π»Ρ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ Π³ΡΠ°ΡΠΈΡΠ΅ΡΠΊΠΎΠ³ΠΎ ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡ.
ΠΡΠ°ΠΊΡΠΈΡΠ΅ΡΠΊΠΎΠ΅ ΠΏΡΠΈΠΌΠ΅Π½Π΅Π½ΠΈΠ΅ VBA
Π ΡΠ°ΠΊ, ΠΎΡΠΊΡΡΠ² Π»ΡΠ±ΠΎΠΉ Π΄ΠΎΠΊΡΠΌΠ΅Π½Ρ Microsoft Office, Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ, Word, ΠΌΡ ΠΌΠΎΠΆΠ΅Ρ Π²ΡΠ·Π²Π°ΡΡ Π²ΡΡΡΠΎΠ΅Π½Π½ΡΠΉ ΡΠ΅Π΄Π°ΠΊΡΠΎΡ Visual Basic (ΠΊΠΎΠΌΠ±ΠΈΠ½Π°ΡΠΈΡ ΠΊΠ»Π°Π²ΠΈΡ Alt + F11) ΠΈ ΠΏΡΠΈΡΡΡΠΏΠΈΡΡ ΠΊ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ ΠΌΠ°ΠΊΡΠΎΡΠ°. ΠΠ°ΠΊ ΡΠΏΠΎΠΌΠΈΠ½Π°Π»ΠΎΡΡ Π²ΡΡΠ΅, Π² ΠΌΠ°ΠΊΡΠΎΡΠ°Ρ
ΠΌΠΎΠΆΠ½ΠΎ ΠΏΠΎΠ΄ΠΊΠ»ΡΡΠ°ΡΡ ΡΡΠ½ΠΊΡΠΈΠΎΠ½Π°Π»ΡΠ½ΡΠ΅ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΠΈ Π²Π½Π΅ΡΠ½ΠΈΡ
ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ², ΡΠ΅ΠΌ ΡΠ°ΠΌΡΠΌ, ΠΏΠΎΠ»ΡΡΠ°ΡΡ Π΄ΠΎΡΡΡΠΏ ΠΊ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠ°ΠΌ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΎΠ½Π½ΠΎΠΉ ΡΠΈΡΡΠ΅ΠΌΡ, Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ, ΡΠ°ΠΉΠ»ΠΎΠ²Π°Ρ ΡΠΈΡΡΠ΅ΠΌΠ°, ΡΠ΅Π΅ΡΡΡ ΠΈ ΡΠ°ΠΊ Π΄Π°Π»Π΅Π΅. ΠΠ΅Π»Π°ΡΠ΅Π»ΡΠ½ΠΎ, ΡΡΠΎ Π±Ρ Π² Π½Π°ΡΡΡΠΎΠΉΠΊΠ°Ρ
Π±ΡΠ» ΠΎΡΠΊΠ»ΡΡΠ΅Π½ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΈΠΉ Π·Π°ΠΏΡΡΠΊ ΠΌΠ°ΠΊΡΠΎΡΠ° ΠΏΡΠΈ ΠΎΡΠΊΡΡΡΠΈΠΈ Π΄ΠΎΠΊΡΠΌΠ΅Π½ΡΠ°, Π΄Π°Π±Ρ Π΄ΡΡΡΠ²ΡΠΉ ΠΈΠ»ΠΈ Π·Π»ΠΎΠ²ΡΠ΅Π΄Π½ΡΠΉ ΠΊΠΎΠ΄ Π½Π΅ Π½Π°ΡΠ²ΠΎΡΠΈΠ» Π»ΠΈΡ
Π°.
ΠΠ΄Π½Π°ΠΊΠΎ, Π½Π° ΡΠ΅Π³ΠΎΠ΄Π½ΡΡΠ½ΠΈΠΉ ΠΌΠΎΠΌΠ΅Π½Ρ, ΠΌΠ°ΠΊΡΠΎΡΡ ΠΈ ΡΠ·ΡΠΊ VBA ΠΊΠ°ΠΊ ΡΠ»Π΅ΠΌΠ΅Π½ΡΡ Π°Π΄ΠΌΠΈΠ½ΠΈΡΡΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΡΠ΅ΡΡΡΡ ΡΠ²ΠΎΠ΅ ΠΏΡΠ΅ΠΈΠΌΡΡΠ΅ΡΡΠ²ΠΎ. Π’ΠΎΡ ΠΆΠ΅ Microsoft Access, ΠΊΠΎΡΠΎΡΡΠΉ ΠΏΡΠ΅Π΄Π½Π°Π·Π½Π°ΡΠ΅Π½ Π΄Π»Ρ ΡΠ°Π±ΠΎΡΡ Ρ Π±Π°Π·Π°ΠΌΠΈ Π΄Π°Π½Π½ΡΡ ΡΠ°ΠΊΠΆΠ΅ ΠΏΡΠ°ΠΊΡΠΈΡΠ΅ΡΠΊΠΈ Π½Π΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ. ΠΠΎΠ»Π΅Π΅ Π°ΠΊΡΡΠ°Π»ΡΠ½ΡΠΌ ΡΠ²Π»ΡΠ΅ΡΡΡ ΠΏΠ°ΠΊΠ΅Ρ 1Π‘.
ΠΠ±ΡΠΈΠ΅ ΡΠΈΠ½ΡΠ°ΠΊΡΠΈΡΠ΅ΡΠΊΠΈΠ΅ ΠΏΡΠΈΠ½ΡΠΈΠΏΡ ΡΠ·ΡΠΊΠ° VBA
- Π Π΅Π³ΠΈΡΡΡ Π½Π΅ ΠΈΠ³ΡΠ°Π΅Ρ ΡΠΎΠ»ΠΈ β Π²Ρ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΏΡΠΎΠΏΠΈΡΠ°ΡΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡ ΠΊΠ°ΠΊ Π² Π²Π΅ΡΡ Π½Π΅ΠΌ, ΡΠ°ΠΊ ΠΈ Π² Π½ΠΈΠΆΠ½Π΅ΠΌ ΡΠ΅Π³ΠΈΡΡΡΠ΅, ΠΈΠ»ΠΈ Π²ΠΎΠΎΠ±ΡΠ΅ Π² Π²ΠΏΠ΅ΡΠ΅ΠΌΠ΅ΡΠΊΡ, Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ, dim, DIM, Dim, ΡΠ°Π·Π½ΠΈΡΡ Π½Π΅Ρ.
- ΠΠΎΠΌΠΌΠ΅Π½ΡΠ°ΡΠΈΠΈ β Π΄Π»Ρ ΠΊΠΎΠΌΠΌΠ΅Π½ΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΡΡΡΠΎΠΊΠΈ, ΠΏΠ΅ΡΠ΅Π΄ Π½Π΅ΠΉ ΠΏΡΠΎΠΏΠΈΡΡΠ²Π°Π΅ΡΡΡ ΠΎΠ΄ΠΈΠ½Π°ΡΠ½Π°Ρ ΠΊΠ°Π²ΡΡΠΊΠ° ΠΈΠ»ΠΈ ΠΊΠ»ΡΡΠ΅Π²ΠΎΠ΅ ΡΠ»ΠΎΠ²ΠΎ REM.
- ΠΠ°ΠΊΡΠΈΠΌΠ°Π»ΡΠ½Π°Ρ Π΄Π»ΠΈΠ½Π° Π»ΡΠ±ΠΎΠ³ΠΎ ΠΈΠΌΠ΅Π½ΠΈ (Π±ΡΠ΄Ρ ΡΠΎ ΠΈΠΌΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ, ΠΊΠΎΠ½ΡΡΠ°Π½ΡΡ ΠΈΠ»ΠΈ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ) ΡΠΎΡΡΠ°Π²Π»ΡΠ΅Ρ 255 Π·Π½Π°ΠΊΠΎΠ².
- Π ΠΎΡΠ»ΠΈΡΠΈΠΈ ΠΎΡ JavaScript, Jscript ΠΈΠ»ΠΈ Π‘ ΡΠ·ΡΠΊΠΎΠ², Π² VBA Π² ΠΊΠΎΠ½ΡΠ΅ ΡΡΡΠΎΠΊΠΈ Ρ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΠ°ΠΌΠΈ Π½Π΅ Π½ΡΠΆΠ½ΠΎ ΡΡΠ°Π²ΠΈΡΡ Π·Π°ΠΏΡΡΠΎΠΉ.
- ΠΠ²ΠΎΠ΅ΡΠΎΡΠΈΠ΅ β ΡΡΠΎΠ±Ρ Π½Π΅ ΠΏΡΠΎΠΏΠΈΡΡΠ²Π°ΡΡ ΠΊΠ°ΠΆΠ΄ΡΠΉ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡ Π² ΠΎΡΠ΄Π΅Π»ΡΠ½ΠΎΠΉ ΡΡΡΠΎΠΊΠ΅, ΠΈΡ ΠΌΠΎΠΆΠ½ΠΎ Ρ ΠΏΠΎΠΌΠΎΡΡΡ Π΄Π²ΠΎΠ΅ΡΠΎΡΠΈΡ ΠΏΡΠΎΠΏΠΈΡΠ°ΡΡ Π² ΠΎΠ΄Π½Ρ ΡΡΡΠΎΠΊΡ, Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ: MsgBox «Π‘ΡΡΠΎΠΊΠ°1» : MsgBox «Π‘ΡΡΠΎΠΊΠ°2»
- ΠΠ΅ΡΠ΅Π½ΠΎΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΠΎΠ² β Π΅ΡΠ»ΠΈ ΡΡΡΠΎΠΊΠ° Ρ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΠ°ΠΌΠΈ ΡΠ»ΠΈΡΠΊΠΎΠΌ Π΄Π»ΠΈΠ½Π½Π°Ρ, ΡΠΎ Π΅Π΅ ΠΌΠΎΠΆΠ½ΠΎ ΡΠ°Π·Π΄Π΅Π»ΠΈΡΡ Π½Π° Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΎ ΠΏΡΠΈ ΠΏΠΎΠΌΠΎΡΠΈ ΡΠΈΠΌΠ²ΠΎΠ»Π° ΠΏΠΎΠ΄ΡΠ΅ΡΠΊΠΈΠ²Π°Π½ΠΈΡ ΠΈ Π·Π½Π°ΠΊΠ° &, Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ:
MsgBox «ΠΡΠΎ ΠΏΡΠΎΡΡΠ°Ρ» _
& Β «ΡΡΡΠΎΠΊΠ°»
ΠΠ»Ρ Π΄Π΅ΠΌΠΎΠ½ΡΡΡΠ°ΡΠΈΠΈ ΡΠ°Π±ΠΎΡΡ Ρ ΠΌΠ°ΠΊΡΠΎΡΠ°ΠΌΠΈ Π½Π°ΠΏΠΈΡΠ΅ΠΌ ΡΠ°ΠΊΠΎΠΉ ΠΏΡΠΈΠΌΠ΅Ρ. ΠΡΠΊΡΠΎΠΉΡΠ΅ Π΄ΠΎΠΊΡΠΌΠ΅Π½Ρ Microsoft Word ΠΈ Π·Π°ΠΏΡΡΡΠΈΡΠ΅ ΡΠ΅Π΄Π°ΠΊΡΠΎΡ Visual Basic. ΠΠ°ΠΌ Π½ΡΠΆΠ½ΠΎ ΡΠΎΠ·Π΄Π°ΡΡ Π½ΠΎΠ²ΡΡ ΡΠΎΡΠΌΡ ΠΈ Π½ΠΎΠ²ΡΠΉ ΠΌΠΎΠ΄ΡΠ»Ρ (ΠΌΠ°ΠΊΡΠΎΡ). Π¦Π΅Π»Ρ β ΡΠ΅ΡΠ΅Π½ΠΈΠ΅ ΠΊΠ²Π°Π΄ΡΠ°ΡΠ½ΠΎΠ³ΠΎ ΡΡΠ°Π²Π½Π΅Π½ΠΈΡ Ρ ΠΈΠ·ΠΌΠ΅Π½ΡΠ΅ΠΌΡΠΌΠΈ Π·Π½Π°ΡΠ΅Π½ΠΈΡΠΌΠΈ.
ΠΠ° ΠΏΠΎΠ²Π΅ΡΡ Π½ΠΎΡΡΡ ΡΠΎΡΠΌΡ Π½Π°Π΄ΠΎ Π΄ΠΎΠ±Π°Π²ΠΈΡΡ ΡΡΠΈ ΠΏΠΎΠ»ΠΎΡΡ ΠΏΡΠΎΠΊΡΡΡΠΊΠΈ ΠΈ Π΄Π²Π΅ ΡΠ΅ΠΊΡΡΠΎΠ²ΡΠ΅ ΠΌΠ΅ΡΠΊΠΈ. Π ΡΠ΅Π΄Π°ΠΊΡΠΎΡΠ΅ ΠΊΠΎΠ΄Π° Π΄Π»Ρ ΡΠΎΡΠΌΡ ΠΏΡΠΎΠΏΠΈΡΠΈΡΠ΅:
Option Explicit Sub Get_Result() Dim MyA As Byte, MyB As Byte, MyC As Byte Dim D, x, x1, x2, msg Β Β Β MyA = ScrollBar1. |
ΠΠΎΠ΄ VBA ΠΏΡΠ΅Π΄Π΅Π»ΡΠ½ΠΎ ΠΏΡΠΎΡΡ, Π² ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ΅ Get_Result ΠΏΡΠΎΠΈΡΡ ΠΎΠ΄ΠΈΡ ΠΏΡΠΎΠ²Π΅ΡΠΊΠ° ΡΠ΅ΠΊΡΡΠΈΡ Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ Π΄Π»Ρ ΠΏΠΎΠ»ΠΎΡ ΠΏΡΠΎΠΊΡΡΡΠΊΠΈ, Π΄Π°Π»Π΅Π΅ ΡΡΠΈ Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΠΏΠΎΠ΄ΡΡΠ°Π²Π»ΡΡΡΡΡ Π² ΡΠΎΡΠΌΡΠ»Ρ Π΄Π»Ρ Π½Π°Ρ ΠΎΠΆΠ΄Π΅Π½ΠΈΡ Π΄ΠΈΡΠΊΡΠΈΠΌΠΈΠ½Π°Π½ΡΠ°. Π Π΅Π·ΡΠ»ΡΡΠ°Ρ ΡΠ΅ΡΠ΅Π½ΠΈΡ Π±ΡΠ΄Π΅Ρ Π²ΡΠ²ΠΎΠ΄ΠΈΡΡΡΡ Π½Π° ΠΏΠΎΠ²Π΅ΡΡ Π½ΠΎΡΡΠΈ ΡΠΎΡΠΌΡ Π²ΠΎ Π²ΡΠΎΡΡΡ ΡΠ΅ΠΊΡΡΠΎΠ²ΡΡ ΠΌΠ΅ΡΠΊΡ. ΠΠ½Π°Π»ΠΎΠ³ΠΈΡΠ½ΡΠΉ ΠΏΡΠΈΠΌΠ΅Ρ Ρ ΡΠ°Π·Π±ΠΈΡΠ°Π» Π΄Π»Ρ ΡΠ·ΡΠΊΠ° VBScript Π² ΡΡΠΎΠΉ ΡΡΠ°ΡΡΠ΅.
VBA β ΠΌΠ°ΡΠ΅ΡΠΈΠ°Π»Ρ Π΄Π»Ρ ΠΈΠ·ΡΡΠ΅Π½ΠΈΡ
ΠΡΠΈΠ²Π΅Ρ, ΡΠ΅ΠΉΡΠ°Ρ ΠΌΡ ΡΠ°ΡΡΠΌΠΎΡΡΠΈΠΌ ΡΠΈΡΡΠ°ΡΠΈΡ, ΠΊΠΎΠ³Π΄Π° Ρ ΠΠ°Ρ Π²ΠΎΠ·Π½ΠΈΠΊΠ»Π° Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎΡΡΡ Π² Excel ΡΠΎΡ ΡΠ°Π½ΡΡΡ ΡΠ°ΠΉΠ»
ΠΡΠ»ΠΈ Ρ ΠΠ°Ρ Π²ΡΡΠ°Π»Π° Π·Π°Π΄Π°ΡΠ° Π°ΡΠΈΠ½Ρ ΡΠΎΠ½Π½ΠΎ Π²ΡΠΏΠΎΠ»Π½ΡΡΡ Ρ ΡΠ°Π½ΠΈΠΌΡΠ΅ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ Π² Microsoft SQL Server, ΠΏΡΠΈ
ΠΡΠ΅ΠΌ ΠΏΡΠΈΠ²Π΅Ρ! ΠΠ°ΡΠ΅ΡΠΈΠ°Π» ΡΠ΅Π³ΠΎΠ΄Π½Ρ Π±ΡΠ΄Π΅Ρ ΠΏΠΎΡΠ²ΡΡΠ΅Π½ ΡΠ°ΡΡΠΌΠΎΡΡΠ΅Π½ΠΈΡ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΠΈ Access Π²ΡΠ³ΡΡΠΆΠ°ΡΡ Recordset Π² Excel Π½Π°
ΠΡΠ»ΠΈ ΠΡ Ρ ΠΎΡΠΈΡΠ΅ Π² ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅, ΡΠ΅Π°Π»ΠΈΠ·ΠΎΠ²Π°Π½Π½ΠΎΠΉ Π² Access 2003 Π½Π°Π±Π»ΡΠ΄Π°ΡΡ Π·Π° Ρ ΠΎΠ΄ΠΎΠΌ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΠ½Π½ΠΎΠΉ
ΠΡΠ»ΠΈ Ρ ΠΠ°Ρ Π²ΠΎΠ·Π½ΠΈΠΊΠ»Π° Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎΡΡΡ Π²ΡΠ³ΡΡΠΆΠ°ΡΡ Π΄Π°Π½Π½ΡΠ΅ ΠΈΠ· Π±Π°Π·Ρ MS SQL Server Π² ΡΠ΅ΠΊΡΡΠΎΠ²ΡΠΉ
Π‘Π΅Π³ΠΎΠ΄Π½Ρ ΠΌΡ Π·Π°ΠΉΠΌΡΠΌΡΡ ΠΈΠ½ΡΠ΅Π³ΡΠ°ΡΠΈΠ΅ΠΉ ΡΠ»ΡΠΆΠ± Reporting Services Π² ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ, ΠΈ Π² ΠΊΠ°ΡΠ΅ΡΡΠ²Π΅ ΠΏΡΠΈΠΌΠ΅ΡΠ° Π΄Π°Π²Π°ΠΉΡΠ΅,
ΠΠ°Π½Π½ΡΠΉ ΠΌΠ°ΡΠ΅ΡΠΈΠ°Π» ΠΏΠΎΡΠ²ΡΡΠ΅Π½ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ ΠΏΡΠΎΡΡΠΎΠ³ΠΎ ΡΠ΅Π΄Π°ΠΊΡΠΎΡΠ° SQL Π·Π°ΠΏΡΠΎΡΠΎΠ², Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΠΊΠΎΡΠΎΡΠΎΠ³ΠΎ ΠΌΠΎΠΆΠ½ΠΎ ΠΏΠΎΡΡΠ»Π°ΡΡ SQL
ΠΠ°Π½Π½ΡΠΉ ΡΡΠΎΠΊ ΠΏΠΎΡΠ²ΡΡΠ΅Π½ SQL Π·Π°ΠΏΡΠΎΡΠ°ΠΌ ΠΊ Π±Π°Π·Π΅ Π΄Π°Π½Π½ΡΡ
Π½Π° VBA Access. ΠΡ ΡΠ°ΡΡΠΌΠΎΡΡΠΈΠΌ, ΠΊΠ°ΠΊ
Access ΠΎΡΠ΅Π½Ρ ΠΏΠΎΠΏΡΠ»ΡΡΠ΅Π½ ΠΈ ΠΌΠ½ΠΎΠ³ΠΈΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΡΡ Ρ ΡΠ΅Π±Ρ Π² ΠΎΡΠ³Π°Π½ΠΈΠ·Π°ΡΠΈΠΈ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡΡ Π΅Π³ΠΎ Π² ΠΊΠ°ΡΠ΅ΡΡΠ²Π΅
ΠΡΠΎΠ΄ΠΎΠ»ΠΆΠ°Π΅ΠΌ ΠΎΡΠ²Π°ΠΈΠ²Π°ΡΡ Access 2003, ΠΈ ΠΏΡΠΈΡΠ»ΠΎ Π²ΡΠ΅ΠΌΡ ΠΏΠΎΠ³ΠΎΠ²ΠΎΡΠΈΡΡ ΠΎ Π½Π°ΠΏΠΈΡΠ°Π½ΠΈΠΈ ΡΠΎΠ±ΡΡΠ²Π΅Π½Π½ΡΡ ΡΡΠ½ΠΊΡΠΈΠΉ Π½Π° VBA.
ΠΠ°ΠΊ Π½Π°ΠΏΠΈΡΠ°ΡΡ ΡΡΠ½ΠΊΡΠΈΡ Π½Π° VBA Access 2003 | Info-Comp.ru
ΠΡΠΎΠ΄ΠΎΠ»ΠΆΠ°Π΅ΠΌ ΠΎΡΠ²Π°ΠΈΠ²Π°ΡΡ Access 2003, ΠΈ ΠΏΡΠΈΡΠ»ΠΎ Π²ΡΠ΅ΠΌΡ ΠΏΠΎΠ³ΠΎΠ²ΠΎΡΠΈΡΡ ΠΎ Π½Π°ΠΏΠΈΡΠ°Π½ΠΈΠΈ ΡΠΎΠ±ΡΡΠ²Π΅Π½Π½ΡΡ ΡΡΠ½ΠΊΡΠΈΠΉ Π½Π° VBA. ΠΡ ΡΠ°ΡΡΠΌΠΎΡΡΠΈΠΌ Π½Π΅ΠΌΠ½ΠΎΠ³ΠΎ ΡΠ΅ΠΎΡΠΈΠΈ, Ρ.Π΅. Π³Π΄Π΅ ΡΠΎΠ·Π΄Π°ΡΡΡΡ ΡΡΠΈ ΡΡΠ½ΠΊΡΠΈΠΈ, Π΄Π»Ρ ΡΠ΅Π³ΠΎ ΠΈΡ ΠΏΠΈΡΡΡ, Π° ΡΠ°ΠΊΠΆΠ΅ ΠΊΠ°ΠΊ ΠΎΠ±ΡΡΠ½ΠΎ ΠΏΠΎΠΏΡΠ°ΠΊΡΠΈΠΊΡΠ΅ΠΌΡΡ Π² ΡΡΠΎΠΌ, Π² ΠΏΡΠΈΠ½ΡΠΈΠΏΠ΅ Π½Π΅ ΡΠ»ΠΎΠΆΠ½ΠΎΠΌ, Π΄Π΅Π»Π΅.
Π’Π΅ΠΌΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ Π½Π° VBA Access 2003 ΠΌΡ ΡΠΆΠ΅ Π½Π΅ΠΌΠ½ΠΎΠ³ΠΎ Π·Π°ΡΡΠ°Π³ΠΈΠ²Π°Π»ΠΈ, Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ, ΡΠ°ΡΡΠΌΠ°ΡΡΠΈΠ²Π°Π»ΠΈ Π²ΡΡΡΠΎΠ΅Π½Π½ΡΠ΅ ΡΡΠ½ΠΊΡΠΈΠΈ ΠΈ Π΅ΡΠ»ΠΈ Π³ΠΎΠ²ΠΎΡΠΈΡΡ Π²ΠΎΠΎΠ±ΡΠ΅ ΠΎΠ± Access 2003, ΡΠΎ ΡΡΡ ΠΌΡ ΡΠΎΠΆΠ΅ ΠΏΡΠ΅ΡΡΠΏΠ΅Π»ΠΈ, Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ, ΠΎΡΠ²ΠΎΠΈΠ»ΠΈ Π³ΡΡΠΏΠΏΠΈΡΠΎΠ²ΠΊΡ Π΄Π°Π½Π½ΡΡ
Π² ΠΎΡΡΠ΅ΡΠ΅.
Π ΡΠ΅Π³ΠΎΠ΄Π½Ρ, ΠΏΡΠΈΡΡΡΠΏΠΈΠΌ ΠΊ Π±ΠΎΠ»Π΅Π΅ ΠΈΠ½ΡΠ΅ΡΠ΅ΡΠ½ΠΎΠΉ, ΠΊΠ°ΠΊ ΠΌΠ½Π΅ ΠΊΠ°ΠΆΠ΅ΡΡΡ, ΡΠ΅ΠΌΠ΅ ΡΡΠΎ Π½Π°ΠΏΠΈΡΠ°Π½ΠΈΠ΅ ΡΠ²ΠΎΠΈΡ ΡΡΠ½ΠΊΡΠΈΠΉ Π½Π° ΡΠ·ΡΠΊΠ΅ VBA.
Π§ΡΠΎ ΡΠ°ΠΊΠΎΠ΅ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»ΡΡΠΊΠΈΠ΅ ΡΡΠ½ΠΊΡΠΈΠΈ VBA ΠΈ Π·Π°ΡΠ΅ΠΌ ΠΈΡ ΠΏΠΈΡΡΡ
ΠΡΠΎ ΡΡΠ½ΠΊΡΠΈΠΈ, ΠΊΠΎΡΠΎΡΡΠ΅ ΠΏΠΈΡΠ΅Ρ ΡΠ°ΠΌ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΡ Π΄Π»Ρ ΡΠΏΡΠΎΡΠ΅Π½ΠΈΡ ΠΎΡΡΠ°Π»ΡΠ½ΠΎΠ³ΠΎ ΠΊΠΎΠ΄Π° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ.
Π§ΡΠΎ Π·Π΄Π΅ΡΡ ΠΏΠΎΠ½ΠΈΠΌΠ°Π΅ΡΡΡ ΠΏΠΎΠ΄ ΡΠΏΡΠΎΡΠ΅Π½ΠΈΠ΅ΠΌ, ΠΈ Π΄Π»Ρ ΡΠ΅Π³ΠΎ Π²ΠΎΠΎΠ±ΡΠ΅ Π½ΡΠΆΠ½ΠΎ ΠΏΠΈΡΠ°ΡΡ ΡΠ°ΠΊΠΈΠ΅ ΡΡΠ½ΠΊΡΠΈΠΈ, Ρ ΡΠ΅ΡΠΈΠ» ΠΎΠ±ΡΡΡΠ½ΠΈΡΡ ΠΏΠΎ ΠΏΡΠ½ΠΊΡΠ°ΠΌ, ΡΠ°ΠΊ ΠΊΠ°ΠΊ ΡΡΠΎ Π±ΡΠ΄Π΅Ρ Π±ΠΎΠ»Π΅Π΅ ΠΏΠΎΠ½ΡΡΠ½ΠΎ Π΄Π»Ρ Π½Π°ΡΠΈΠ½Π°ΡΡΠΈΡ , Π΄Π° ΠΈ ΠΏΡΠΎΡΡΠΎ Π΄Π»Ρ Π²ΠΎΡΠΏΡΠΈΡΡΠΈΡ:
- Π Π² ΠΏΠ΅ΡΠ²ΠΎΠΌ ΠΏΡΠ½ΠΊΡΠ΅ ΡΡΠ°Π·Ρ Ρ ΠΎΡΠ΅Π»ΠΎΡΡ Π±Ρ ΠΎΡΠΌΠ΅ΡΠΈΡΡ ΡΡΠΎ Π·Π½Π°ΡΠΈΡΠ΅Π»ΡΠ½ΠΎΠ΅ ΡΠΎΠΊΡΠ°ΡΠ΅Π½ΠΈΠ΅ ΠΊΠΎΠ΄Π°. ΠΠ°ΠΏΡΠΈΠΌΠ΅Ρ, ΠΠ°ΠΌ ΡΠ°ΡΡΠΎ Π½ΡΠΆΠ½ΠΎ Π²ΡΠΏΠΎΠ»Π½ΡΡΡ ΠΊΠ°ΠΊΠΈΠ΅-Π»ΠΈΠ±ΠΎ Π΄Π΅ΠΉΡΡΠ²ΠΈΡ, ΠΊΠΎΠ΄ ΠΊΠΎΡΠΎΡΡΡ Π·Π°Π½ΠΈΠΌΠ°Π΅Ρ, ΡΠΊΠ°ΠΆΠ΅ΠΌ, 10-20 ΠΈ Π±ΠΎΠ»Π΅Π΅ ΡΡΡΠΎΠΊ, ΠΈ Π²ΠΎΡ ΠΏΡΠ΅Π΄ΡΡΠ°Π²ΠΈΡΠ΅, ΡΡΠΎ ΠΡ Π΄Π°Π½Π½ΡΠΉ ΠΊΠΎΠ΄ Π±ΡΠ΄Π΅ΡΠ΅ ΠΏΠΎΠ²ΡΠΎΡΡΡΡ 2-3-10β¦ ΡΠ°Π· Π² ΡΠ²ΠΎΠ΅ΠΌ ΠΎΡΠ½ΠΎΠ²Π½ΠΎΠΌ ΠΊΠΎΠ΄Π΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ, Π΄ΡΡΠ³ΠΈΠΌΠΈ ΡΠ»ΠΎΠ²Π°ΠΌΠΈ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΡΡΡΠΎΠΊ ΠΎΡΠ½ΠΎΠ²Π½ΠΎΠ³ΠΎ ΠΊΠΎΠ΄Π° Π²ΠΎΠ·ΡΠ°ΡΡΠ΅Ρ Π² ΡΠ°Π·Ρ, Π° ΡΠ΅ΠΌ ΡΡΠΎ Π³ΡΠΎΠ·ΠΈΡ, ΡΠ°ΡΡΠΌΠΎΡΡΠΈΠΌ Π²ΠΎ Π²ΡΠΎΡΠΎΠΌ ΠΏΡΠ½ΠΊΡΠ΅;
- ΠΡΠ»ΠΈ Ρ ΠΠ°Ρ ΠΊΠΎΠ΄ ΠΎΡΠ΅Π½Ρ Π±ΠΎΠ»ΡΡΠΎΠΉ, ΡΠΎ Π΅Π³ΠΎ Π±ΡΠ΄Π΅Ρ ΡΡΡΠ΄Π½ΠΎ Π² Π΄Π°Π»ΡΠ½Π΅ΠΉΡΠ΅ΠΌ ΡΠ΅Π΄Π°ΠΊΡΠΈΡΠΎΠ²Π°ΡΡ ΠΈ ΠΊ ΡΠΎΠΌΡ ΠΆΠ΅ Π΅ΡΠ»ΠΈ Ρ ΠΠ°Ρ Π΅ΡΡΡ ΠΏΠΎΠ²ΡΠΎΡΡΡΡΠ΅ΠΉΡΡ ΠΊΠΎΠ΄, ΡΠΎ ΡΠΎΠ³Π΄Π° ΠΏΡΠΈΠ΄Π΅ΡΡΡ ΠΈΡΠΊΠ°ΡΡ Π΅Π³ΠΎ ΠΈ ΠΈΡΠΏΡΠ°Π²Π»ΡΡΡ ΠΊΠΎΠ΄ Π²ΠΎ Π²ΡΠ΅Ρ ΠΌΠ΅ΡΡΠ°Ρ , ΡΡΠΎ ΡΠΎΠ³Π»Π°ΡΠΈΡΠ΅ΡΡ ΠΏΠ΅ΡΠ²ΠΎΠ΅, ΡΡΠΎ ΠΎΡΠ΅Π½Ρ Π½ΡΠ΄Π½ΠΎ, Π° Π²ΡΠΎΡΠΎΠ΅ ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΏΡΠΎΡΡΠΎ Π·Π°Π±ΡΡΡ ΠΈΠ·ΠΌΠ΅Π½ΠΈΡΡ ΠΊΠΎΠ΄ Π² ΠΊΠ°ΠΊΠΎΠΌ-Π½ΠΈΠ±ΡΠ΄Ρ ΠΌΠ΅ΡΡΠ΅ ΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° Π½Π΅ Π±ΡΠ΄Π΅Ρ ΡΠ°Π±ΠΎΡΠ°ΡΡ ΠΈΠ»ΠΈ ΡΡΠΎ Π΅ΡΠ΅ Ρ ΡΠΆΠ΅, Π±ΡΠ΄Π΅Ρ ΡΠ°Π±ΠΎΡΠ°ΡΡ, Π½ΠΎ Π½Π΅ ΠΏΡΠ°Π²ΠΈΠ»ΡΠ½ΠΎ, Π·Π° ΡΡΠΎ ΠΠ°Ρ ΠΊΠΎΠ½Π΅ΡΠ½ΠΎ Π½Π°ΡΠ°Π»ΡΡΡΠ²ΠΎ Π½Π΅ ΠΏΠΎΡ Π²Π°Π»ΠΈΡ;
- ΠΡΠΎ ΡΠΎΠΊΡΠ°ΡΠ΅Π½ΠΈΠ΅ ΠΊΠΎΠ΄Π° ΠΌΡ ΡΠΊΠ°Π·Π°Π»ΠΈ, Π½ΠΎ ΡΠ°ΠΊΠΆΠ΅ ΠΌΡ Π΄Π΅Π»Π°Π΅ΠΌ Π΅Π³ΠΎ Π±ΠΎΠ»Π΅Π΅ Π½Π°Π³Π»ΡΠ΄Π½ΡΠΌ ΠΈ ΠΏΠΎΠ½ΡΡΠ½ΡΠΌ.
ΠΡΡΠ³ΠΈΠΌΠΈ ΡΠ»ΠΎΠ²Π°ΠΌΠΈ, ΠΊΠΎΠ³Π΄Π° Π² ΠΊΠΎΠ΄Π΅ ΠΌΡ Π²ΡΡΡΠ΅ΡΠΈΠΌ Π²ΡΠ·ΠΎΠ² ΡΠΎΠΉ ΠΈΠ»ΠΈ ΠΈΠ½ΠΎΠΉ ΡΡΠ½ΠΊΡΠΈΠΈ, ΠΌΡ ΡΡΠ°Π·Ρ ΠΏΠΎΠΉΠΌΠ΅ΠΌ, ΡΡΠΎ ΠΎΠ½Π° Π΄Π΅Π»Π°Π΅Ρ, ΠΈ Π±ΡΠ΄Π΅ΠΌ ΠΌΠ΅Π½ΡΡΠ΅ ΡΡΠ°ΡΠΈΡΡ Π²ΡΠ΅ΠΌΡ Π½Π° ΡΠ°Π·Π±ΠΎΡ ΠΈ ΠΏΠΎΠ½ΠΈΠΌΠ°Π½ΠΈΠ΅ Π²ΡΠ΅Π³ΠΎ ΠΊΠΎΠ΄Π°, Π° ΡΡΠΎ ΠΏΡΠΈΠ½Π΅ΡΠ΅Ρ Π½Π°ΠΌ Π²ΡΠ³ΠΎΠ΄Ρ, ΡΠ°ΠΊ ΠΊΠ°ΠΊ ΠΌΡ Π±ΡΠ΄Π΅ΠΌ Π±ΠΎΠ»Π΅Π΅ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠ²Π½ΠΎ Π²Π½ΠΎΡΠΈΡΡ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΡ Π² ΡΡΠ½ΠΊΡΠΈΠΎΠ½Π°Π» Π½Π°ΡΠ΅ΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ, Π° Π²ΠΎΡ Π·Π° ΡΡΠΎ Π½Π°ΡΠ°Π»ΡΡΡΠ²ΠΎ ΠΌΠΎΠΆΠ΅Ρ Π½Π°Ρ ΠΏΠΎΡ Π²Π°Π»ΠΈΡΡ.
ΠΠ°ΠΊ ΠΈ Ρ Π»ΡΠ±ΠΎΠ³ΠΎ ΡΠ·ΡΠΊΠ° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΈ ΡΡΠ΅Π΄Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ Π² VBA Access Π΅ΡΡΡ ΠΎΠ±Π»Π°ΡΡΡ Π²ΠΈΠ΄ΠΈΠΌΠΎΡΡΠΈ ΡΡΠ½ΠΊΡΠΈΠΈ, Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ, ΠΌΡ, ΠΌΠΎΠΆΠ΅ΠΌ Π½Π°ΠΏΠΈΡΠ°ΡΡ ΡΡΠ½ΠΊΡΠΈΡ ΠΊΠΎΡΠΎΡΡΡ ΠΌΠΎΠΆΠ½ΠΎ Π±ΡΠ΄Π΅Ρ Π²ΡΠ·Π²Π°ΡΡ ΡΠΎΠ»ΡΠΊΠΎ Π² ΠΏΡΠ΅Π΄Π΅Π»Π°Ρ ΠΎΠ΄Π½ΠΎΠ³ΠΎ ΠΎΠ±ΡΠ΅ΠΊΡΠ° (ΡΠΎΡΠΌΡ ΠΈΠ»ΠΈ ΠΎΡΡΠ΅ΡΠ°) ΠΈΠ»ΠΈ ΠΌΡ ΠΌΠΎΠΆΠ΅ΠΌ Π΅Π΅ Π½Π°ΠΏΠΈΡΠ°ΡΡ Π² ΠΎΠ±Π»Π°ΡΡΠΈ Π²ΠΈΠ΄ΠΈΠΌΠΎΡΡΠΈ Π²ΡΠ΅Π³ΠΎ ΠΏΡΠΎΠ΅ΠΊΡΠ°, Ρ.Π΅. ΡΡΠ½ΠΊΡΠΈΡ ΠΌΠΎΠΆΠ½ΠΎ Π±ΡΠ΄Π΅Ρ Π²ΡΠ·Π²Π°ΡΡ ΠΈΠ· Π»ΡΠ±ΠΎΠΉ ΡΠΎΡΠΌΡ ΠΈΠ»ΠΈ ΠΎΡΡΠ΅ΡΠ°. ΠΡ ΡΠ΅Π³ΠΎΠ΄Π½Ρ ΡΠ°ΡΡΠΌΠΎΡΡΠΈΠΌ ΠΎΠ±Π° Π²Π°ΡΠΈΠ°Π½ΡΠ°, ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²Π΅Π½Π½ΠΎ Π½Π° ΠΏΡΠΈΠΌΠ΅ΡΠ°Ρ .
ΠΡΠΈΠΌΠ΅ΡΡ Π½Π°ΠΏΠΈΡΠ°Π½ΠΈΡ ΡΡΠ½ΠΊΡΠΈΠΉ VBA Access
Π Π΄Π»Ρ Π½Π°ΡΠ°Π»Π° Π΄Π°Π²Π°ΠΉΡΠ΅ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΠΈΠΌΡΡ, ΡΡΠΎ Π·Π° ΡΡΠ½ΠΊΡΠΈΡ ΠΌΡ Π±ΡΠ΄Π΅ΠΌ ΠΏΠΈΡΠ°ΡΡ, Ρ.Π΅. ΡΡΠΎ ΠΎΠ½Π° Π±ΡΠ΄Π΅Ρ Π΄Π΅Π»Π°ΡΡ. Π― ΠΏΡΠ΅Π΄Π»Π°Π³Π°Ρ Π½Π°ΠΏΠΈΡΠ°ΡΡ Π² ΠΊΠ°ΡΠ΅ΡΡΠ²Π΅ ΠΏΡΠΎΡΡΠΎΠ³ΠΎ ΠΏΡΠΈΠΌΠ΅ΡΠ° ΡΡΠ½ΠΊΡΠΈΡ, ΠΊΠΎΡΠΎΡΠ°Ρ Π±ΡΠ΄Π΅Ρ ΠΏΡΠΈΠ½ΠΈΠΌΠ°ΡΡ ΠΎΠ΄ΠΈΠ½ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡ Ρ ΡΠΈΠΏΠΎΠΌ date ΠΈ Π²ΠΎΠ·Π²ΡΠ°ΡΠ°ΡΡ ΡΡΡΠΎΠΊΡ Π²ΠΈΠ΄Π° Β«19 ΠΡΠ½Ρ 2014Π³. Β». ΠΠ°ΠΊ ΠΌΠ½Π΅ ΠΊΠ°ΠΆΠ΅ΡΡΡ Π΄ΠΎΡΡΠ°ΡΠΎΡΠ½ΠΎ ΠΏΡΠΎΡΡΠΎΠΉ ΠΏΡΠΈΠΌΠ΅Ρ, Π½ΠΎ Π²Π΄ΡΡΠ³ ΠΊΠΎΠΌΡ-Π½ΠΈΠ±ΡΠ΄Ρ ΠΏΡΠΈΠ³ΠΎΠ΄ΠΈΡΡΡ.
ΠΠΈΡΠ΅ΠΌ Π»ΠΎΠΊΠ°Π»ΡΠ½ΡΡ ΡΡΠ½ΠΊΡΠΈΡ VBA
ΠΠ°ΠΊ Ρ ΡΠΆΠ΅ ΡΠΊΠ°Π·Π°Π» ΡΠ°Π½Π΅Π΅, Π΅ΡΡΡ ΡΠ°Π·Π½ΡΠ΅ ΠΎΠ±Π»Π°ΡΡΠΈ Π²ΠΈΠ΄ΠΈΠΌΠΎΡΡΠΈ ΡΡΠ½ΠΊΡΠΈΠΉ ΠΈ ΡΠ΅ΠΉΡΠ°Ρ ΠΌΡ Π½Π°ΠΏΠΈΡΠ΅ΠΌ ΡΠ²ΠΎΠ΅Π³ΠΎ ΡΠΎΠ΄Π° Π»ΠΎΠΊΠ°Π»ΡΠ½ΡΡ ΡΡΠ½ΠΊΡΠΈΡ, ΠΊΠΎΡΠΎΡΡΡ ΠΌΠΎΠΆΠ½ΠΎ Π±ΡΠ΄Π΅Ρ Π·Π°ΠΏΡΡΡΠΈΡΡ ΡΠΎΠ»ΡΠΊΠΎ ΠΈΠ· ΠΊΠΎΠ΄Π° ΡΠΎΠ³ΠΎ ΠΎΠ±ΡΠ΅ΠΊΡΠ°, Π³Π΄Π΅ ΡΡΠ° ΡΡΠ½ΠΊΡΠΈΡ Π½Π°ΠΏΠΈΡΠ°Π½Π°.
ΠΠ»Ρ ΡΠ΅Π°Π»ΠΈΠ·Π°ΡΠΈΠΈ Π½Π°ΡΠ΅Π³ΠΎ ΠΏΡΠΈΠΌΠ΅ΡΠ° Π΄Π°Π²Π°ΠΉΡΠ΅ ΡΠΎΠ·Π΄Π°Π΄ΠΈΠΌ ΡΠΎΡΠΌΡ, Π΄ΠΎΠ±Π°Π²ΠΈΠΌ Π½Π° Π½Π΅Π΅ ΠΊΠ½ΠΎΠΏΠΊΡ, ΠΊΠ»ΠΈΠΊ ΠΏΠΎ ΠΊΠΎΡΠΎΡΠΎΠΉ Π±ΡΠ΄Π΅Ρ Π²ΡΠ·ΡΠ²Π°ΡΡ Π½Π°ΡΡ ΡΡΠ½ΠΊΡΠΈΡ. ΠΡΠΌΠ°Ρ ΠΏΠΎΠΊΠ°Π·ΡΠ²Π°ΡΡ, ΠΊΠ°ΠΊ ΡΠΎΠ·Π΄Π°ΡΡ ΡΠΎΡΠΌΡ Π½Π΅ ΡΡΠΎΠΈΡ, ΡΠ°ΠΊ ΠΊΠ°ΠΊ ΠΌΡ ΡΡΠΎ ΡΠΆΠ΅ Π½Π΅ΠΎΠ΄Π½ΠΎΠΊΡΠ°ΡΠ½ΠΎ Π΄Π΅Π»Π°Π»ΠΈ, Π΅Π΄ΠΈΠ½ΡΡΠ²Π΅Π½Π½ΠΎΠ΅ ΡΠΊΠ°ΠΆΡ, ΡΡΠΎ Ρ ΡΠΎΡΠΌΡ Π½Π°Π·Π²Π°Π» Β«Π’Π΅ΡΡΠΎΠ²Π°Ρ ΡΠΎΡΠΌΠ°Β», ΡΠ»Π΅ΠΌΠ΅Π½Ρ ΠΊΠ½ΠΎΠΏΠΊΠ° Π½Π°Π·Π²Π°Π» Β«startΒ» Ρ ΠΏΠΎΠ΄ΠΏΠΈΡΡΡ Β«Π‘ΡΠ°ΡΡΒ»
Π’Π΅ΠΏΠ΅ΡΡ Π·Π°ΠΏΡΡΡΠΈΠΌ ΡΠ΅Π΄Π°ΠΊΡΠΎΡ ΠΊΠΎΠ΄Π° VBA, ΡΡΠΎ ΠΌΠΎΠΆΠ½ΠΎ ΡΠ΄Π΅Π»Π°ΡΡ ΠΏΡΡΠ΅ΠΌ Π½Π°ΠΆΠ°ΡΠΈΡ ΠΊΠ½ΠΎΠΏΠΊΠΈ Π½Π° ΠΏΠ°Π½Π΅Π»ΠΈ ΠΈΠ½ΡΡΡΡΠΌΠ΅Π½ΡΠΎΠΌ Β«ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠ°Β»
Π Π²ΡΡΠ°Π²Π»ΡΠ΅ΠΌ ΠΊΠΎΠ΄ Π½Π°ΡΠ΅ΠΉ ΡΡΠ½ΠΊΡΠΈΠΈ ΠΈ ΡΡΠ°Π·Ρ ΠΆΠ΅ ΠΊΠΎΠ΄ Π΅Π΅ Π²ΡΠ·ΠΎΠ²Π°, Ρ.Π΅. ΠΊΠΎΠ΄ ΠΎΠ±ΡΠ°Π±ΠΎΡΠΊΠΈ ΡΠΎΠ±ΡΡΠΈΡ Π½Π°ΠΆΠ°ΡΠΈΡ ΠΊΠ½ΠΎΠΏΠΊΠΈ (Π²Π΅ΡΡ ΠΊΠΎΠ΄ ΠΏΡΠΎΠΊΠΎΠΌΠΌΠ΅Π½ΡΠΈΡΠΎΠ²Π°Π½):
Private Function getStrDate(dt As Date) As String 'ΠΠ±ΡΡΠ²Π»ΡΠ΅ΠΌ Π²ΡΠΏΠΎΠΌΠΎΠ³Π°ΡΠ΅Π»ΡΠ½ΡΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΠ΅ Dim d As String Dim m As String Dim y As String 'ΠΠΎΠ»ΡΡΠ°Π΅ΠΌ Π΄Π΅Π½Ρ d = Day(dt) 'ΠΠΎΠ»ΡΡΠ°Π΅ΠΌ ΠΌΠ΅ΡΡΡ m = Month(dt) 'ΠΠΏΡΠ΅Π΄Π΅Π»ΡΠ΅ΠΌ, ΠΊΠ°ΠΊΠΎΠΉ ΠΈΠΌΠ΅Π½Π½ΠΎ ΠΌΠ΅ΡΡΡ Select Case m Case 1: m = "Π―Π½Π²Π°ΡΡ" Case 2: m = "Π€Π΅Π²ΡΠ°Π»Ρ" Case 3: m = "ΠΠ°ΡΡΠ°" Case 4: m = "ΠΠΏΡΠ΅Π»Ρ" Case 5: m = "ΠΠ°Ρ" Case 6: m = "ΠΡΠ½Ρ" Case 7: m = "ΠΡΠ»Ρ" Case 8: m = "ΠΠ²Π³ΡΡΡΠ°" Case 9: m = "Π‘Π΅Π½ΡΡΠ±ΡΡ" Case 10: m = "ΠΠΊΡΡΠ±ΡΡ" Case 11: m = "ΠΠΎΡΠ±ΡΡ" Case 12: m = "ΠΠ΅ΠΊΠ°Π±ΡΡ" End Select 'ΠΠΎΠ»ΡΡΠ°Π΅ΠΌ Π³ΠΎΠ΄ y = Year(dt) 'Π‘ΠΎΠ΅Π΄ΠΈΠ½ΡΠ΅ΠΌ ΠΈ Π²ΠΎΠ·Π²ΡΠ°ΡΠ°Π΅ΠΌ ΡΠ΅Π·ΡΠ»ΡΡΠ°Ρ getStrDate = d & " " & m & " " & y & "Π³." End Function Private Sub start_Click() 'ΠΡΠ²ΠΎΠ΄ΠΈΠΌ ΡΠΎΠΎΠ±ΡΠ΅Π½ΠΈΠ΅ Ρ ΡΠ΅ΠΊΡΡΠΎΠΌ, ΠΊΠΎΡΠΎΡΡΠΉ Π²Π΅ΡΠ½Π΅Ρ Π½Π°ΠΌ Π½Π°ΡΠ° ΡΡΠ½ΠΊΡΠΈΡ MsgBox getStrDate("19.06.2014") End Sub
Π ΠΈΡΠΎΠ³Π΅ Ρ ΠΠ°Ρ Π΄ΠΎΠ»ΠΆΠ½ΠΎ ΠΏΠΎΠ»ΡΡΠΈΡΡΡ ΡΠ»Π΅Π΄ΡΡΡΠ΅Π΅:
Π’ΠΎ, ΡΡΠΎ ΡΡΠΎ ΡΡΠ½ΠΊΡΠΈΡ Π»ΠΎΠΊΠ°Π»ΡΠ½Π°Ρ ΡΠ²ΠΈΠ΄Π΅ΡΠ΅Π»ΡΡΡΠ²ΡΠ΅Ρ ΡΠ»ΠΎΠ²ΠΎ Private ΠΏΠ΅ΡΠ΅Π΄ Π½Π°Π·Π²Π°Π½ΠΈΠ΅ΠΌ ΡΡΠ½ΠΊΡΠΈΠΈ.
Π’Π΅ΠΏΠ΅ΡΡ Π²ΡΠ΅ ΡΠΎΡ ΡΠ°Π½ΡΠ΅ΠΌ, ΠΎΡΠΊΡΡΠ²Π°Π΅ΠΌ Π½Π°ΡΡ ΡΠΎΡΠΌΡ, ΠΆΠΌΠ΅ΠΌ, ΡΡΠ°ΡΡ ΠΈ ΠΏΠΎΠ»ΡΡΠ°Π΅ΠΌ Π½Π°ΡΠ΅ ΡΠΎΠΎΠ±ΡΠ΅Π½ΠΈΠ΅:
ΠΠ°ΠΊ Π²ΠΈΠ΄ΠΈΡΠ΅, ΠΌΡ ΠΏΠΎΠ»ΡΡΠΈΠ»ΠΈ ΡΠΎΡ ΡΠ΅Π·ΡΠ»ΡΡΠ°Ρ, ΠΊΠΎΡΠΎΡΡΠΉ Ρ ΠΎΡΠ΅Π»ΠΈ, Ρ.Π΅. ΠΌΡ ΠΏΠ΅ΡΠ΅Π΄Π°Π²Π°Π»ΠΈ Π² ΠΊΠ°ΡΠ΅ΡΡΠ²Π΅ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠ° Π΄Π°ΡΡ Β«19.06.2014Β» ΠΈ ΠΏΠΎΠ»ΡΡΠΈΠ»ΠΈ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠΈΠΉ ΡΠ΅Π·ΡΠ»ΡΡΠ°Ρ.
ΠΠΈΡΠ΅ΠΌ Π³Π»ΠΎΠ±Π°Π»ΡΠ½ΡΡ ΡΡΠ½ΠΊΡΠΈΡ VBA
ΠΠ»Ρ ΡΠΎΠ³ΠΎ ΡΡΠΎΠ±Ρ Π½Π°ΠΏΠΈΡΠ°ΡΡ ΡΠ°ΠΊΡΡ ΡΡΠ½ΠΊΡΠΈΡ ΡΠΎΠ·Π΄Π°Π΄ΠΈΠΌ ΠΌΠΎΠ΄ΡΠ»Ρ, Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ Β«test_funcΒ» Π° ΡΠ°ΠΌ ΡΠΆΠ΅ Π½Π°ΠΏΠΈΡΠ΅ΠΌ Π½Π°ΡΡ ΡΡΠ½ΠΊΡΠΈΡ. ΠΠ»Ρ ΡΠΎΠ³ΠΎ ΡΡΠΎΠ±Ρ ΡΠΎΠ·Π΄Π°ΡΡ ΠΌΠΎΠ΄ΡΠ»Ρ, ΠΎΡΠΊΡΡΠ²Π°Π΅ΠΌ Access ΠΈ Π½Π° ΠΏΠ°Π½Π΅Π»ΠΈ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ² Π²ΡΠ±ΠΈΡΠ°Π΅ΠΌ Β«ΠΠΎΠ΄ΡΠ»ΠΈΒ» ΠΈ ΠΆΠΌΠ΅ΠΌ Β«Π‘ΠΎΠ·Π΄Π°ΡΡΒ».
ΠΠ°ΡΠ΅ΠΌ Π²ΡΡΠ°Π²Π»ΡΠ΅ΠΌ Π½Π°Ρ ΠΊΠΎΠ΄, Ρ ΠΎΠ΄Π½ΠΈΠΌ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΠ΅ΠΌ, ΠΏΠ΅ΡΠ΅Π΄ Π½Π°Π·Π²Π°Π½ΠΈΠ΅ΠΌ ΡΡΠ½ΠΊΡΠΈΠΈ ΠΏΠΈΡΠ΅ΠΌ Public, ΠΈ Ρ ΠΠ°Ρ Π΄ΠΎΠ»ΠΆΠ½ΠΎ ΠΏΠΎΠ»ΡΡΠΈΡΡΡ Π²ΠΎΡ ΡΠ°ΠΊΠ°Ρ ΠΊΠ°ΡΡΠΈΠ½Π°:
Π’Π΅ΠΏΠ΅ΡΡ ΠΎΡΡΠ°Π»ΠΎΡΡ ΠΈΠ·ΠΌΠ΅Π½ΠΈΡΡ ΠΊΠΎΠ΄ Π²ΡΠ·ΠΎΠ²Π° Π½Π°ΡΠ΅ΠΉ Π½ΠΎΠ²ΠΎΠΉ Π³Π»ΠΎΠ±Π°Π»ΡΠ½ΠΎΠΉ ΡΡΠ½ΠΊΡΠΈΠΈ, Π΄Π»Ρ ΡΡΠΎΠ³ΠΎ ΠΌΠ΅Π½ΡΠ΅ΠΌ ΠΊΠΎΠ΄ ΠΎΠ±ΡΠ°Π±ΠΎΡΠΊΠΈ ΡΠΎΠ±ΡΡΠΈΡ Π½Π°ΠΆΠ°ΡΠΈΡ ΠΊΠ½ΠΎΠΏΠΊΠΈ Π½Π° Π½Π°ΡΠ΅ΠΉ ΡΠ΅ΡΡΠΎΠ²ΠΎΠΉ ΡΠΎΡΠΌΠ΅, Π½Π° Π²ΠΎΡ ΡΠ°ΠΊΠΎΠΉ:
MsgBox test_func.getStrDate("19.06.2014")
Π‘ΠΎΡ ΡΠ°Π½ΡΠ΅ΠΌ ΠΈ ΠΏΡΠΎΠ²Π΅ΡΡΠ΅ΠΌ, ΡΠ΅Π·ΡΠ»ΡΡΠ°Ρ Π±ΡΠ΄Π΅Ρ ΡΠ°ΠΊΠΈΠΌ ΠΆΠ΅, Π½ΠΎ Π΅Π³ΠΎ Π½Π°ΠΌ Π²Π΅ΡΠ½ΡΠ»Π° ΡΠΆΠ΅ ΡΠΎΠ²ΡΠ΅ΠΌ Π΄ΡΡΠ³Π°Ρ ΡΡΠ½ΠΊΡΠΈΡ.
ΠΠ°ΠΊ Π²ΠΈΠ΄ΠΈΡΠ΅, Π²ΡΠ΅ Π½Π΅Ρ ΡΠ°ΠΊ ΡΠΆ ΠΈ ΡΠ»ΠΎΠΆΠ½ΠΎ, ΡΡΠ½ΠΊΡΠΈΡ ΠΊΠΎΠ½Π΅ΡΠ½ΠΎ ΠΏΡΠΎΡΡΠ°Ρ, Π½ΠΎ ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΏΠΈΡΠ°ΡΡ ΡΡΠ½ΠΊΡΠΈΠΈ Π΄Π»Ρ ΡΠΎΠ±ΡΡΠ²Π΅Π½Π½ΡΡ Π½ΡΠΆΠ΄, ΠΊΠΎΡΠΎΡΡΠ΅ Π±ΡΠ΄ΡΡ Π±ΠΎΠ»Π΅Π΅ ΡΠ»ΠΎΠΆΠ½ΡΠΌΠΈ. Π― Π²ΡΠ΅ΠΌ ΡΠΎΠ²Π΅ΡΡΡ Π²Π΅ΡΡ ΠΏΠΎΠ²ΡΠΎΡΡΡΡΠΈΠΉΡΡ ΠΊΠΎΠ΄ Π²ΡΠ½ΠΎΡΠΈΡΡ Π² ΡΡΠ½ΠΊΡΠΈΠΈ, ΡΠ°ΠΊ ΠΊΠ°ΠΊ ΡΡΠΎ Π±ΡΠ΄Π΅Ρ Π½Π°ΠΌΠ½ΠΎΠ³ΠΎ Π»ΡΡΡΠ΅, ΠΊΠ°ΠΊ Π΄Π»Ρ ΡΠ°Π±ΠΎΡΡ Ρ ΡΡΠΈΠΌ ΠΊΠΎΠ΄ΠΎΠΌ, ΡΠ°ΠΊ ΠΈ ΠΏΡΠΎΡΡΠΎ Π΄Π»Ρ Π²ΠΎΡΠΏΡΠΈΡΡΠΈΡ. ΠΠ°Π΄Π΅ΡΡΡ, ΡΠ΅Π³ΠΎΠ΄Π½ΡΡΠ½ΡΡ ΡΡΠ°ΡΡΡ ΠΏΠΎΠΌΠΎΠ³Π»Π° ΠΠ°ΠΌ ΡΠ°Π·ΠΎΠ±ΡΠ°ΡΡΡΡ Ρ Π²ΠΎΠΏΡΠΎΡΠΎΠΌ Β«ΠΠ°ΠΊ Π½Π°ΠΏΠΈΡΠ°ΡΡ ΡΡΠ½ΠΊΡΠΈΠΈ Π½Π° VBA Access?Β». Π£Π΄Π°ΡΠΈ Π² ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠΈ Π½Π° VBA.
ΠΡΠ°Π²ΠΈΡΡΡ2ΠΠ΅ Π½ΡΠ°Π²ΠΈΡΡΡ
Π‘ΡΡΡΠΊΡΡΡΠ° ΡΠ΅Π΄Π°ΠΊΡΠΎΡΠ° VBA (Visual Basic for Applications)
Π Π΅Π΄Π°ΠΊΡΠΎΡ VBA Π°ΠΊΡΠΈΠ²ΠΈΠ·ΠΈΡΡΠ΅ΡΡΡ ΠΊΠΎΠΌΠ°Π½Π΄ΠΎΠΉ Alt + F11 ΠΈΠ»ΠΈ Π‘Π΅ΡΠ²ΠΈΡ, ΠΠ°ΠΊΡΠΎΡ, Π Π΅Π΄Π°ΠΊΡΠΎΡ Visual Basic (Tools, Macro, Visual Basic Editor) ΠΈΠ»ΠΈ Π½Π°ΠΆΠ°ΡΠΈΠ΅ΠΌ ΠΊΠ½ΠΎΠΏΠΊΠΈ Π Π΅Π΄Π°ΠΊΡΠΎΡ Visual Basic (Visual Basic Editor) ΠΏΠ°Π½Π΅Π»ΠΈ ΠΈΠ½ΡΡΡΡΠΌΠ΅Π½ΡΠΎΠ² Visual Basic.
ΠΠΎΠ·Π²ΡΠ°ΡΠΈΡΡΡΡ ΠΈΠ· ΡΠ΅Π΄Π°ΠΊΡΠΎΡΠ° VBA Π² ΡΠ°Π±ΠΎΡΡΡ ΠΊΠ½ΠΈΠ³Ρ ΠΌΠΎΠΆΠ½ΠΎ Π½Π°ΠΆΠ°ΡΠΈΠ΅ΠΌ ΠΊΠ½ΠΎΠΏΠΊΠΈ ΠΠΈΠ΄ Microsoft Excel (View Microsoft Excel) ΠΠ½ΡΠ΅ΡΡΠ΅ΠΉΡ VBA ΡΠΎΡΡΠΎΠΈΡ ΠΈΠ· ΡΠ»Π΅Π΄ΡΡΡΠΈΡ ΠΎΡΠ½ΠΎΠ²Π½ΡΡ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΠΎΠ²: ΠΎΠΊΠ½ΠΎ ΠΏΡΠΎΠ΅ΠΊΡΠ°, ΠΎΠΊΠ½ΠΎ ΡΠ²ΠΎΠΉΡΡΠ², ΠΎΠΊΠ½ΠΎ ΡΠ΅Π΄Π°ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΊΠΎΠ΄Π°, ΠΎΠΊΠ½Π° ΡΠΎΡΠΌ, ΠΌΠ΅Π½Ρ ΠΈ ΠΏΠ°Π½Π΅Π»ΠΈ ΠΈΠ½ΡΡΡΡΠΌΠ΅Π½ΡΠΎΠ².
Β
ΠΠΊΠ½ΠΎ ΠΏΡΠΎΠ΅ΠΊΡΠ°
ΠΠΊΠ½ΠΎ ΠΏΡΠΎΠ΅ΠΊΡΠ° Π² ΡΠ΅Π΄Π°ΠΊΡΠΎΡΠ΅ VBA Π°ΠΊΡΠΈΠ²ΠΈΠ·ΠΈΡΡΠ΅ΡΡΡ Π²ΡΠ±ΠΎΡΠΎΠΌ ΠΊΠΎΠΌΠ°Π½Π΄Ρ ΠΠΈΠ΄, ΠΠΊΠ½ΠΎ ΠΏΡΠΎΠ΅ΠΊΡΠ° (View, Project window) ΠΈΠ»ΠΈ Π½Π°ΠΆΠ°ΡΠΈΠ΅ΠΌ ΠΊΠ½ΠΎΠΏΠΊΠΈ ΠΠΊΠ½ΠΎ ΠΏΡΠΎΠ΅ΠΊΡΠ° (Project window) Π ΠΎΠΊΠ½Π΅ ΠΏΡΠΎΠ΅ΠΊΡΠ° (VBAProject) ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»Π΅Π½Π° ΠΈΠ΅ΡΠ°ΡΡ ΠΈΡΠ΅ΡΠΊΠ°Ρ ΡΡΡΡΠΊΡΡΡΠ° ΡΠ°ΠΉΠ»ΠΎΠ² ΡΠΎΡΠΌ ΠΈ ΠΌΠΎΠ΄ΡΠ»Π΅ΠΉ ΡΠ΅ΠΊΡΡΠ΅Π³ΠΎ ΠΏΡΠΎΠ΅ΠΊΡΠ° (ΡΠΈΡ. 1.2).
Β
Π ΠΏΡΠΎΠ΅ΠΊΡΠ΅ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΈ ΡΠΎΠ·Π΄Π°Π΅ΡΡΡ ΠΌΠΎΠ΄ΡΠ»Ρ Π΄Π»Ρ ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ ΡΠ°Π±ΠΎΡΠ΅Π³ΠΎ Π»ΠΈΡΡΠ° ΠΈ Π΄Π»Ρ Π²ΡΠ΅ΠΉ ΠΊΠ½ΠΈΠ³ΠΈ. ΠΡΠΎΠΌΠ΅ ΡΠΎΠ³ΠΎ, ΠΌΠΎΠ΄ΡΠ»ΠΈ ΡΠΎΠ·Π΄Π°ΡΡΡΡ Π΄Π»Ρ ΠΊΠ°ΠΆΠ΄ΠΎΠΉ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»ΡΡΠΊΠΎΠΉ ΡΠΎΡΠΌΡ, ΠΌΠ°ΠΊΡΠΎΡΠΎΠ² ΠΈ ΠΊΠ»Π°ΡΡΠΎΠ². ΠΠΎ ΡΠ²ΠΎΠ΅ΠΌΡ ΠΏΡΠ΅Π΄Π½Π°Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΠΌΠΎΠ΄ΡΠ»ΠΈ Π΄Π΅Π»ΡΡΡΡ Π½Π° Π΄Π²Π° ΡΠΈΠΏΠ°: ΠΌΠΎΠ΄ΡΠ»ΠΈ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ² ΠΈ ΡΡΠ°Π½Π΄Π°ΡΡΠ½ΡΠ΅. Π ΡΡΠ°Π½Π΄Π°ΡΡΠ½ΡΠΌ ΠΌΠΎΠ΄ΡΠ»ΡΠΌ ΠΎΡΠ½ΠΎΡΡΡΡΡ ΡΠ΅, ΠΊΠΎΡΠΎΡΡΠ΅ ΡΠΎΠ΄Π΅ΡΠΆΠ°Ρ ΠΌΠ°ΠΊΡΠΎΡΡ. Π’Π°ΠΊΠΈΠ΅ ΠΌΠΎΠ΄ΡΠ»ΠΈ Π΄ΠΎΠ±Π°Π²Π»ΡΡΡΡΡ Π² ΠΏΡΠΎΠ΅ΠΊΡ ΠΊΠΎΠΌΠ°Π½Π΄ΠΎΠΉ ΠΡΡΠ°Π²ΠΊΠ°, ΠΠΎΠ΄ΡΠ»Ρ (Insert, Module). Π ΠΌΠΎΠ΄ΡΠ»ΡΠΌ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ² ΠΎΡΠ½ΠΎΡΡΡΡΡ ΠΌΠΎΠ΄ΡΠ»ΠΈ, ΡΠ²ΡΠ·Π°Π½Π½ΡΠ΅ Ρ ΡΠ°Π±ΠΎΡΠ΅ΠΉ ΠΊΠ½ΠΈΠ³ΠΎΠΉ, ΡΠ°Π±ΠΎΡΠΈΠΌΠΈ Π»ΠΈΡΡΠ°ΠΌΠΈ, ΡΠΎΡΠΌΠ°ΠΌΠΈ, ΠΈ ΠΌΠΎΠ΄ΡΠ»ΠΈ ΠΊΠ»Π°ΡΡΠ°.
Β
Π€ΠΎΡΠΌΡ ΡΠΎΠ·Π΄Π°ΡΡΡΡ ΠΊΠΎΠΌΠ°Π½Π΄ΠΎΠΉ ΠΡΡΠ°Π²ΠΊΠ°, UserForm (Insert, UserForm), Π° ΠΌΠΎΠ΄ΡΠ»ΠΈ ΠΊΠ»Π°ΡΡΠ° β ΠΊΠΎΠΌΠ°Π½Π΄ΠΎΠΉ ΠΡΡΠ°Π²ΠΊΠ°, ΠΠΎΠ΄ΡΠ»Ρ ΠΊΠ»Π°ΡΡΠ° (Insert, Module). ΠΠΎ ΠΌΠ΅ΡΠ΅ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ, Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΡ ΠΈ ΡΠ΄Π°Π»Π΅Π½ΠΈΡ ΡΠ°ΠΉΠ»ΠΎΠ² ΠΈΠ· ΠΏΡΠΎΠ΅ΠΊΡΠ° ΡΡΠΈ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΡ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°ΡΡΡΡ Π² ΠΎΠΊΠ½Π΅ ΠΏΡΠΎΠ΅ΠΊΡΠ°. ΠΡΠΌΠ΅ΡΠΈΠΌ, ΡΡΠΎ ΡΠ΄Π°Π»Π΅Π½ΠΈΠ΅ ΡΠ°ΠΉΠ»Π° ΠΈΠ· ΠΎΠΊΠ½Π° ΠΏΡΠΎΠ΅ΠΊΡΠ° ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΠΈΡΡΡ Π²ΡΠ±ΠΎΡΠΎΠΌ Π·Π½Π°ΡΠΊΠ° ΡΠ°ΠΉΠ»Π° Ρ ΠΏΠΎΡΠ»Π΅Π΄ΡΡΡΠΈΠΌ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΠ΅ΠΌ ΠΊΠΎΠΌΠ°Π½Π΄Ρ Π€Π°ΠΉΠ», Π£Π΄Π°Π»ΠΈΡΡ (File, Delete).
Β
Π ΠΎΠΊΠ½Π΅ ΠΏΡΠΎΠ΅ΠΊΡΠ° Π²ΡΠ²ΠΎΠ΄ΠΈΡΡΡ ΠΏΡΠΎΠ΅ΠΊΡ Π²ΡΠ΅Ρ ΠΎΡΠΊΡΡΡΡΡ ΡΠ°Π±ΠΎΡΠΈΡ ΠΊΠ½ΠΈΠ³. ΠΡΠΎ ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ Π»Π΅Π³ΠΊΠΎ ΠΊΠΎΠΏΠΈΡΠΎΠ²Π°ΡΡ ΡΠΎΡΠΌΡ ΠΈ ΠΊΠΎΠ΄Ρ ΠΈΠ· ΠΎΠ΄Π½ΠΎΠ³ΠΎ ΠΏΡΠΎΠ΅ΠΊΡΠ° Π² Π΄ΡΡΠ³ΠΎΠΉ, ΡΡΠΎ ΡΠ±ΡΡΡΡΡΠ΅Ρ ΠΏΡΠΎΡΠ΅ΡΡ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ Π½ΠΎΠ²ΡΡ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠΉ.
Β
Π ΠΈΡ. 1.2. ΠΠΊΠ½ΠΎ ΠΏΡΠΎΠ΅ΠΊΡΠ°
Β
ΠΠΊΠ½ΠΎ Π΄Π»Ρ ΡΠ΅Π΄Π°ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΊΠΎΠ΄Π°
ΠΠ΅ΡΠ΅ΠΌΠ΅ΡΠ΅Π½ΠΈΠ΅ ΡΠΊΠ°Π·Π°ΡΠ΅Π»Ρ Π½Π° Π·Π½Π°ΡΠΎΠΊ ΡΠ°ΠΉΠ»Π° Π² ΠΎΠΊΠ½Π΅ ΠΏΡΠΎΠ΅ΠΊΡΠ° ΠΈ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΠ΅ Π΄Π²ΠΎΠΉΠ½ΠΎΠ³ΠΎ ΡΠ΅Π»ΡΠΊΠ° ΠΊΠ½ΠΎΠΏΠΊΠΎΠΉ ΠΌΡΡΠΈ ΠΎΡΠΊΡΡΠ²Π°Π΅Ρ ΠΎΠΊΠ½ΠΎ ΡΠ΅Π΄Π°ΠΊΡΠΎΡΠ° ΠΊΠΎΠ΄Π° (ΡΠΈΡ. 1.3) Π΄Π»Ρ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠ΅Π³ΠΎ ΠΌΠΎΠ΄ΡΠ»Ρ.
Β
Π ΠΈΡ. 1.3. ΠΠΊΠ½ΠΎ ΡΠ΅Π΄Π°ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΊΠΎΠ΄Π°
Β
ΠΠΊΠ½ΠΎ ΡΠ΅Π΄Π°ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΊΠΎΠ΄Π° ΡΠ»ΡΠΆΠΈΡ Π² ΠΊΠ°ΡΠ΅ΡΡΠ²Π΅ ΡΠ΅Π΄Π°ΠΊΡΠΎΡΠ° Π΄Π»Ρ Π²Π²ΠΎΠ΄Π° ΠΈ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΡ ΠΊΠΎΠ΄Π° ΠΏΡΠΎΡΠ΅Π΄ΡΡ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ. ΠΠΎΠ΄ Π²Π½ΡΡΡΠΈ ΠΌΠΎΠ΄ΡΠ»Ρ ΠΎΡΠ³Π°Π½ΠΈΠ·ΠΎΠ²Π°Π½ Π² Π²ΠΈΠ΄Π΅ ΠΎΡΠ΄Π΅Π»ΡΠ½ΡΡ
ΡΠ°Π·Π΄Π΅Π»ΠΎΠ² Π΄Π»Ρ ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ ΠΎΠ±ΡΠ΅ΠΊΡΠ°, ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΡΠ΅ΠΌΠΎΠ³ΠΎ Π² ΠΌΠΎΠ΄ΡΠ»Π΅. Π ΠΎΠΊΠ½Π΅ ΡΠ΅Π΄Π°ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ Π΄ΠΎΡΡΡΠΏΠ½Ρ Π΄Π²Π° ΡΠ΅ΠΆΠΈΠΌΠ° ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»Π΅Π½ΠΈΡ ΠΊΠΎΠ΄Π°: ΠΏΡΠΎΡΠΌΠΎΡΡ ΠΎΡΠ΄Π΅Π»ΡΠ½ΠΎΠΉ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ ΠΈ Π²ΡΠ΅Π³ΠΎ ΠΌΠΎΠ΄ΡΠ»Ρ. ΠΠ΅ΡΠ΅ΠΊΠ»ΡΡΠ΅Π½ΠΈΠ΅ ΡΠ΅ΠΆΠΈΠΌΠΎΠ² ΡΠ°Π±ΠΎΡΡ ΠΎΠΊΠ½Π° ΡΠ΅Π΄Π°ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΊΠΎΠ΄Π° ΠΎΡΡΡΠ΅ΡΡΠ²Π»ΡΠ΅ΡΡΡ Π²ΡΠ±ΠΎΡΠΎΠΌ ΠΎΠ΄Π½ΠΎΠΉ ΠΈΠ· Π΄Π²ΡΡ
ΠΊΠ½ΠΎΠΏΠΎΠΊ Π² Π½ΠΈΠΆΠ½Π΅ΠΌ Π»Π΅Π²ΠΎΠΌ ΡΠ³Π»Ρ ΠΎΠΊΠ½Π° ΡΠ΅Π΄Π°ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΊΠΎΠ΄Π° (ΡΠ°Π±Π». 1.1), Π»ΠΈΠ±ΠΎ ΡΡΡΠ°Π½ΠΎΠ²ΠΊΠΎΠΉ ΠΈΠ»ΠΈ ΡΠ½ΡΡΠΈΠ΅ΠΌ ΡΠ»Π°ΠΆΠΊΠ°ΠΡΠΎΡΠΌΠΎΡΡ Π²ΡΠ΅Π³ΠΎ ΠΌΠΎΠ΄ΡΠ»Ρ (Default to Full Module View) Π²ΠΊΠ»Π°Π΄ΠΊΠΈ Π Π΅Π΄Π°ΠΊΡΠΎΡ (Editor) Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠ³ΠΎ ΠΎΠΊΠ½Π° ΠΠ°ΡΠ°ΠΌΠ΅ΡΡΡ (Options), ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°Π΅ΠΌΠΎΠ³ΠΎ Π½Π° ΡΠΊΡΠ°Π½Π΅ ΠΊΠΎΠΌΠ°Π½Π΄ΠΎΠΉ Π‘Π΅ΡΠ²ΠΈΡ, ΠΠ°ΡΠ°ΠΌΠ΅ΡΡΡ(Tools, Options) (ΡΠΈΡ. 1.4).
Β
Π’Π°Π±Π»ΠΈΡΠ° 1.1. Π Π΅ΠΆΠΈΠΌΡ ΡΠ°Π±ΠΎΡΡ ΡΠ΅Π΄Π°ΠΊΡΠΎΡΠ° ΠΊΠΎΠ΄Π°
ΠΠ½ΠΎΠΏΠΊΠ° | Π Π΅ΠΆΠΈΠΌ ΡΠ°Π±ΠΎΡΡ |
ΠΡΠ΄Π΅Π»ΡΠ½Π°Ρ ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° | |
ΠΡΠ΅ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ ΠΌΠΎΠ΄ΡΠ»Ρ |
Β
Π ΠΈΡ. 1.4. ΠΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠ΅ ΠΎΠΊΠ½ΠΎ ΠΠ°ΡΠ°ΠΌΠ΅ΡΡΡ
Β
ΠΠ²Π° ΡΠ°ΡΠΊΡΡΠ²Π°ΡΡΠΈΡ
ΡΡ ΡΠΏΠΈΡΠΊΠ° Π² Π²Π΅ΡΡ
Π½Π΅ΠΉ ΡΠ°ΡΡΠΈ ΠΎΠΊΠ½Π° ΡΠ΅Π΄Π°ΠΊΡΠΎΡΠ° ΠΊΠΎΠ΄Π° ΠΎΠ±Π»Π΅Π³ΡΠ°ΡΡ ΠΎΡΠΈΠ΅Π½ΡΠ°ΡΠΈΡ Π² ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ°Ρ
. ΠΠ΅Π²ΡΠΉ ΡΠ°ΡΠΊΡΡΠ²Π°ΡΡΠΈΠΉΡΡ ΡΠΏΠΈΡΠΎΠΊ ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ Π²ΡΠ±ΡΠ°ΡΡ ΡΠΏΡΠ°Π²Π»ΡΡΡΠΈΠΉ ΡΠ»Π΅ΠΌΠ΅Π½Ρ ΠΈΠ»ΠΈ ΡΠΎΡΠΌΡ, Π° ΠΏΡΠ°Π²ΡΠΉ β ΡΠΎΠ΄Π΅ΡΠΆΠΈΡ ΡΠΏΠΈΡΠΎΠΊ ΡΠΎΠ±ΡΡΠΈΠΉ, Π΄ΠΎΠΏΡΡΡΠΈΠΌΡΡ
Π΄Π»Ρ Π²ΡΠ±ΡΠ°Π½Π½ΠΎΠ³ΠΎ Π² Π»Π΅Π²ΠΎΠΌ ΡΠΏΠΈΡΠΊΠ΅ ΠΎΠ±ΡΠ΅ΠΊΡΠ°. ΠΡΠΌΠ΅ΡΠΈΠΌ, ΡΡΠΎ ΠΏΡΠΈ Π²ΡΠ±ΠΎΡΠ΅ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠ° ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ Π² ΡΠΎΡΠΌΠ΅ ΠΏΠΎΡΡΠ΅Π΄ΡΡΠ²ΠΎΠΌ Π΄Π²ΠΎΠΉΠ½ΠΎΠ³ΠΎ ΡΠ΅Π»ΡΠΊΠ° ΠΈΠ»ΠΈ ΠΏΠ΅ΡΠ΅ΠΌΠ΅ΡΠ΅Π½ΠΈΠΈ ΡΠΊΠ°Π·Π°ΡΠ΅Π»Ρ Π½Π° ΡΠ»Π΅ΠΌΠ΅Π½Ρ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ ΠΈ Π½Π°ΠΆΠ°ΡΠΈΠΈ ΠΊΠ½ΠΎΠΏΠΊΠΈ ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° (Veiw Code) ΠΎΡΠΊΡΡΠ²Π°Π΅ΡΡΡ ΠΎΠΊΠ½ΠΎ ΡΠ΅Π΄Π°ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΊΠΎΠ΄Π° ΠΊΠ°ΠΊ ΡΠ°Π· Π² ΡΠΎΠΌ ΠΌΠ΅ΡΡΠ΅, Π³Π΄Π΅ ΡΠ°ΡΠΏΠΎΠ»Π°Π³Π°Π΅ΡΡΡ ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ°, ΡΠ²ΡΠ·Π°Π½Π½Π°Ρ Ρ ΡΡΠΈΠΌ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠΌ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ. ΠΠ±ΡΠ°ΡΠ½ΡΠΉ ΠΏΠ΅ΡΠ΅Ρ
ΠΎΠ΄ ΠΎΡ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ ΠΊ ΠΎΠ±ΡΠ΅ΠΊΡΡ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ Π±ΡΡΡΡΠ΅Π΅ Π²ΡΠ΅Π³ΠΎ ΠΎΡΡΡΠ΅ΡΡΠ²ΠΈΡΡ Π½Π°ΠΆΠ°ΡΠΈΠ΅ΠΌ ΠΊΠ½ΠΎΠΏΠΊΠΈ ΠΠ±ΡΠ΅ΠΊΡ(Veiw Object).
Β
ΠΠ½ΡΠ΅Π»Π»Π΅ΠΊΡΡΠ°Π»ΡΠ½ΡΠ΅ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΠΈ ΡΠ΅Π΄Π°ΠΊΡΠΎΡΠ° ΠΊΠΎΠ΄Π°
ΠΠ°ΠΏΠΈΡΠ°Π½ΠΈΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌ ΡΡΡΠ΅ΡΡΠ²Π΅Π½Π½ΠΎ ΠΎΠ±Π»Π΅Π³ΡΠ°Π΅ΡΡΡ Π·Π° ΡΡΠ΅Ρ ΡΠΏΠΎΡΠΎΠ±Π½ΠΎΡΡΠΈ ΡΠ΅Π΄Π°ΠΊΡΠΎΡΠ° ΠΊΠΎΠ΄Π° Π°Π²ΡΠΎΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΈ Π·Π°Π²Π΅ΡΡΠ°ΡΡ Π½Π°ΠΏΠΈΡΠ°Π½ΠΈΠ΅ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΠΎΠ², ΡΠ²ΠΎΠΉΡΡΠ² ΠΈ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠΎΠ². ΠΡΠΈ Π½Π°ΠΏΠΈΡΠ°Π½ΠΈΠΈ ΠΊΠΎΠ΄Π° ΡΠ΅Π΄Π°ΠΊΡΠΎΡ ΡΠ°ΠΌ ΠΏΡΠ΅Π΄Π»Π°Π³Π°Π΅Ρ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ ΡΠΏΠΈΡΠΎΠΊ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΠΎΠ², Π»ΠΎΠ³ΠΈΡΠ΅ΡΠΊΠΈ Π·Π°Π²Π΅ΡΡΠ°ΡΡΠΈΡ Π²Π²ΠΎΠ΄ΠΈΠΌΡΡ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Π΅ΠΌ ΠΈΠ½ΡΡΡΡΠΊΡΠΈΡ. ΠΠ°ΠΏΡΠΈΠΌΠ΅Ρ, Π½Π°Π±ΠΈΡΠ°Ρ ΠΊΠΎΠ΄
Β
Range(«A1»).
Β
ΠΏΠΎΡΠ»Π΅ Π²Π²ΠΎΠ΄Π° ΡΠΎΡΠΊΠΈ Π½Π° ΡΠΊΡΠ°Π½Π΅ ΠΎΡΠΎΠ±ΡΠ°Π·ΠΈΡΡΡ ΡΠΏΠΈΡΠΎΠΊ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΠΎΠ² (ΡΠΈΡ. 1.5), ΠΊΠΎΡΠΎΡΡΠ΅ Π»ΠΎΠ³ΠΈΡΠ΅ΡΠΊΠΈ Π·Π°Π²Π΅ΡΡΠ°ΡΡ Π΄Π°Π½Π½ΡΡ ΠΈΠ½ΡΡΡΡΠΊΡΠΈΡ. ΠΠ²ΠΎΠΉΠ½ΠΎΠΉ ΡΠ΅Π»ΡΠΎΠΊ Π½Π° Π²ΡΠ±ΡΠ°Π½Π½ΠΎΠΌ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠ΅ ΠΈΠ· ΡΡΠΎΠ³ΠΎ ΡΠΏΠΈΡΠΊΠ° ΠΈΠ»ΠΈ Π½Π°ΠΆΠ°ΡΠΈΠ΅ ΠΊΠ»Π°Π²ΠΈΡΠΈ <Π’Π°b> Π²ΡΡΠ°Π²Π»ΡΠ΅Ρ Π²ΡΠ±ΡΠ°Π½Π½ΠΎΠ΅ ΠΈΠΌΡ Π² ΠΊΠΎΠ΄ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ. ΠΡΠΈ ΡΡΠΎΠΌ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ ΠΊΠ»Π°Π²ΠΈΡΠΈ <Π’Π°b> Π²ΠΌΠ΅ΡΡΠΎ ΠΌΡΡΠΊΠΈ ΠΈΠ½ΠΎΠ³Π΄Π° ΠΏΡΠ΅Π΄ΠΏΠΎΡΡΠΈΡΠ΅Π»ΡΠ½Π΅ΠΉ, Ρ. ΠΊ. ΡΡΠ° ΠΊΠ»Π°Π²ΠΈΡΠ° Π½Π°Ρ
ΠΎΠ΄ΠΈΡΡΡ ΠΏΡΡΠΌΠΎ ΠΏΠΎΠ΄ ΡΡΠΊΠΎΠΉ ΠΈ Π½Π°ΠΆΠ°ΡΠΈΠ΅ Π½Π° Π½Π΅Π΅ ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΠΈΡΡΡ ΡΠΎΠ»ΡΠΊΠΎ ΠΎΠ΄Π½ΠΈΠΌ Π΄Π²ΠΈΠΆΠ΅Π½ΠΈΠ΅ΠΌ ΠΏΠ°Π»ΡΡΠ° Π»Π΅Π²ΠΎΠΉ ΡΡΠΊΠΈ, ΡΡΠΎ Π½Π΅ ΡΡΠ΅Π±ΡΠ΅Ρ ΠΎΡΠΎΠ±ΠΎΠ³ΠΎ Π²ΡΠ΅ΠΌΠ΅Π½ΠΈ ΠΈ ΡΡΠΈΠ»ΠΈΠΉ.
Β
Π ΠΈΡ. 1.5. Π‘ΠΏΠΈΡΠΎΠΊ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΠΎΠ²
Β
ΠΠ²ΡΠΎΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΎΠ΅ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΠ΅ ΡΠΏΠΈΡΠΊΠ° ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΠΎΠ² ΠΏΡΠΎΠΈΡΡ ΠΎΠ΄ΠΈΡ ΡΠΎΠ»ΡΠΊΠΎ ΠΏΡΠΈ ΡΡΡΠ°Π½ΠΎΠ²Π»Π΅Π½Π½ΠΎΠΌ ΡΠ»Π°ΠΆΠΊΠ΅ Π‘ΠΏΠΈΡΠΎΠΊ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΠΎΠ² (Auto List Members) Π²ΠΊΠ»Π°Π΄ΠΊΠΈ Π Π΅Π΄Π°ΠΊΡΠΎΡ (Editor) Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠ³ΠΎ ΠΎΠΊΠ½Π° ΠΠ°ΡΠ°ΠΌΠ΅ΡΡΡ (Options), ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°Π΅ΠΌΠΎΠ³ΠΎ Π½Π° ΡΠΊΡΠ°Π½Π΅ ΠΏΠΎΡΠ»Π΅ Π²ΡΠ±ΠΎΡΠ° ΠΊΠΎΠΌΠ°Π½Π΄Ρ Π‘Π΅ΡΠ²ΠΈΡ, ΠΠ°ΡΠ°ΠΌΠ΅ΡΡΡ (Tools, Options).
Β
Π‘ΠΏΠΈΡΠΎΠΊ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΠΎΠ² ΠΌΠΎΠΆΠ½ΠΎ Π²ΡΠ²ΠΎΠ΄ΠΈΡΡ Π½Π° ΡΠΊΡΠ°Π½ Π½Π°ΠΆΠ°ΡΠΈΠ΅ΠΌ ΠΊΠΎΠΌΠ±ΠΈΠ½Π°ΡΠΈΠΈ ΠΊΠ»Π°Π²ΠΈΡ <Ctrl>+<J>, ΠΏΡΠΈ ΡΡΠΎΠΌ ΡΠΏΠΈΡΠΎΠΊ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°Π΅ΡΡΡ ΠΊΠ°ΠΊ ΠΏΡΠΈ ΡΡΡΠ°Π½ΠΎΠ²Π»Π΅Π½Π½ΠΎΠΌ, ΡΠ°ΠΊ ΠΈ ΠΏΡΠΈ ΡΠ½ΡΡΠΎΠΌ ΡΠ»Π°ΠΆΠΊΠ΅ Π‘ΠΏΠΈΡΠΎΠΊ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΠΎΠ² (Auto List Members) Π²ΠΊΠ»Π°Π΄ΠΊΠΈ Π Π΅Π΄Π°ΠΊΡΠΎΡ (Editor) Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠ³ΠΎ ΠΎΠΊΠ½Π° ΠΠ°ΡΠ°ΠΌΠ΅ΡΡΡ (Options).
Β
ΠΡΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΠ΅ ΡΠΏΠΈΡΠΊΠ° ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΠΎΠ², Π»ΠΎΠ³ΠΈΡΠ΅ΡΠΊΠΈ Π·Π°Π²Π΅ΡΡΠ°ΡΡΠΈΡ Π²Π²ΠΎΠ΄ΠΈΠΌΡΡ ΠΈΠ½ΡΡΡΡΠΊΡΠΈΡ,, ΡΠ²Π»ΡΠ΅ΡΡΡ ΠΎΠ΄Π½ΠΈΠΌ ΠΈΠ· ΠΈΠ½ΡΠ΅Π»Π»Π΅ΠΊΡΡΠ°Π»ΡΠ½ΡΡ ΠΊΠ°ΡΠ΅ΡΡΠ² ΡΠ΅Π΄Π°ΠΊΡΠΎΡΠ° ΠΊΠΎΠ΄Π°. ΠΡΠΈΠΌ ΠΊΠ°ΡΠ΅ΡΡΠ²ΠΎΠΌ ΠΈΠ½ΡΠ΅Π»Π»Π΅ΠΊΡΡΠ°Π»ΡΠ½ΡΠ΅ ΡΠ΅ΡΡΡΡΡ ΡΠ΅Π΄Π°ΠΊΡΠΎΡΠ° ΠΊΠΎΠ΄Π° Π½Π΅ ΠΈΡΡΠ΅ΡΠΏΡΠ²Π°ΡΡΡΡ. ΠΡΡΠ³ΠΈΠΌ Π΅Π³ΠΎ ΡΠ°ΠΊΠΎΠ³ΠΎ ΡΠΎΠ΄Π° ΠΊΠ°ΡΠ΅ΡΡΠ²ΠΎΠΌ ΡΠ²Π»ΡΠ΅ΡΡΡ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΎΠ΅ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΠ΅ Π½Π° ΡΠΊΡΠ°Π½Π΅ ΡΠ²Π΅Π΄Π΅Π½ΠΈΠΉ ΠΎ ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ°Ρ , ΡΡΠ½ΠΊΡΠΈΡΡ , ΡΠ²ΠΎΠΉΡΡΠ²Π°Ρ ΠΈ ΠΌΠ΅ΡΠΎΠ΄Π°Ρ ΠΏΠΎΡΠ»Π΅ Π½Π°Π±ΠΎΡΠ° ΠΈΡ ΠΈΠΌΠ΅Π½ΠΈ (ΡΠΈΡ. 1.6).
Β
Π ΠΈΡ. 1.6. ΠΡΠΎΠ±ΡΠ°ΠΆΠ°Π΅ΠΌΡΠ΅ ΡΠ²Π΅Π΄Π΅Π½ΠΈΡ ΠΎ Π²Π²ΠΎΠ΄ΠΈΠΌΠΎΠΉ ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ΅
Β
ΠΠ²ΡΠΎΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΎΠ΅ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΠ΅ Π½Π° ΡΠΊΡΠ°Π½Π΅ ΡΠ²Π΅Π΄Π΅Π½ΠΈΠΉ ΠΎ ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ°Ρ
, ΡΡΠ½ΠΊΡΠΈΡΡ
, ΡΠ²ΠΎΠΉΡΡΠ²Π°Ρ
ΠΈ ΠΌΠ΅ΡΠΎΠ΄Π°Ρ
ΠΏΠΎΡΠ»Π΅ Π²Π²ΠΎΠ΄Π° ΠΈΡ
ΠΈΠΌΠ΅Π½ΠΈ ΠΏΡΠΎΠΈΡΡ
ΠΎΠ΄ΠΈΡ ΡΠΎΠ»ΡΠΊΠΎ ΠΏΡΠΈ ΡΡΡΠ°Π½ΠΎΠ²Π»Π΅Π½Π½ΠΎΠΌ ΡΠ»Π°ΠΆΠΊΠ΅ ΠΡΠ°ΡΠΊΠΈΠ΅ ΡΠ²Π΅Π΄Π΅Π½ΠΈΡ (Auto Quick Info) Π²ΠΊΠ»Π°Π΄ΠΊΠΈ Π Π΅Π΄Π°ΠΊΡΠΎΡ (Editor) Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠ³ΠΎ ΠΎΠΊΠ½Π° ΠΠ°ΡΠ°ΠΌΠ΅ΡΡΡ (Options), ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°Π΅ΠΌΠΎΠ³ΠΎ Π½Π° ΡΠΊΡΠ°Π½Π΅ ΠΏΠΎΡΠ»Π΅ Π²ΡΠ±ΠΎΡΠ° ΠΊΠΎΠΌΠ°Π½Π΄Ρ Π‘Π΅ΡΠ²ΠΈΡ, ΠΠ°ΡΠ°ΠΌΠ΅ΡΡΡ (Tools, Options) (ΡΠΌ. ΡΠΈΡ. 1.4).
Β
ΠΠΏΠΈΡΠ°Π½Π½ΡΡ Π²ΡΡΠ΅ Π²ΡΠΏΠ»ΡΠ²Π°ΡΡΡΡ ΠΏΠΎΠ΄ΡΠΊΠ°Π·ΠΊΡ ΠΌΠΎΠΆΠ½ΠΎ ΡΠ°ΠΊΠΆΠ΅ Π²ΡΠ²ΠΎΠ΄ΠΈΡΡ Π½Π° ΡΠΊΡΠ°Π½ Π½Π°ΠΆΠ°ΡΠΈΠ΅ΠΌ ΠΊΠΎΠΌΠ±ΠΈΠ½Π°ΡΠΈΠΈ ΠΊΠ»Π°Π²ΠΈΡ <Ctrl>+<!>. ΠΡΠΈ ΡΡΠΎΠΌ Π²ΡΠΏΠ»ΡΠ²Π°ΡΡΠ°Ρ ΠΏΠΎΠ΄ΡΠΊΠ°Π·ΠΊΠ° ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°Π΅ΡΡΡ ΠΊΠ°ΠΊ ΠΏΡΠΈ ΡΡΡΠ°Π½ΠΎΠ²Π»Π΅Π½Π½ΠΎΠΌ, ΡΠ°ΠΊ ΠΈ ΠΏΡΠΈ ΡΠ½ΡΡΠΎΠΌ ΡΠ»Π°ΠΆΠΊΠ΅ ΠΡΠ°ΡΠΊΠΈΠ΅ ΡΠ²Π΅Π΄Π΅Π½ΠΈΡ Π²ΠΊΠ»Π°Π΄ΠΊΠΈ Π Π΅Π΄Π°ΠΊΡΠΎΡ Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠ³ΠΎ ΠΎΠΊΠ½Π° ΠΠ°ΡΠ°ΠΌΠ΅ΡΡΡ (Options).
Β
Π Π΅Π΄Π°ΠΊΡΠΎΡ ΠΊΠΎΠ΄Π° ΡΠ°ΠΊΠΆΠ΅ ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΠΈΡ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΡΡ ΠΏΡΠΎΠ²Π΅ΡΠΊΡ ΡΠΈΠ½ΡΠ°ΠΊΡΠΈΡΠ° Π½Π°Π±ΡΠ°Π½Π½ΠΎΠΉ ΡΡΡΠΎΠΊΠΈ ΠΊΠΎΠ΄Π° ΡΡΠ°Π·Ρ ΠΏΠΎΡΠ»Π΅ Π½Π°ΠΆΠ°ΡΠΈΡ ΠΊΠ»Π°Π²ΠΈΡΠΈ <Enter>. ΠΡΠ»ΠΈ ΠΏΠΎΡΠ»Π΅ Π½Π°Π±ΠΎΡΠ° ΡΡΡΠΎΠΊΠΈ ΠΈ Π½Π°ΠΆΠ°ΡΠΈΡ ΠΊΠ»Π°Π²ΠΈΡΠΈ <Enter> ΡΡΡΠΎΠΊΠ° Π²ΡΠ΄Π΅Π»ΡΠ΅ΡΡΡ ΠΊΡΠ°ΡΠ½ΡΠΌ ΡΠ²Π΅ΡΠΎΠΌ, ΡΠΎ ΡΡΠΎ ΠΊΠ°ΠΊ ΡΠ°Π· ΠΈ ΡΠΊΠ°Π·ΡΠ²Π°Π΅Ρ Π½Π° Π½Π°Π»ΠΈΡΠΈΠ΅ ΡΠΈΠ½ΡΠ°ΠΊΡΠΈΡΠ΅ΡΠΊΠΎΠΉ ΠΎΡΠΈΠ±ΠΊΠΈ Π² Π½Π°Π±ΡΠ°Π½Π½ΠΎΠΉ ΡΡΡΠΎΠΊΠ΅. ΠΡΡ ΠΎΡΠΈΠ±ΠΊΡ Π½Π΅ΠΎΠ±Ρ
ΠΎΠ΄ΠΈΠΌΠΎ Π½Π°ΠΉΡΠΈ ΠΈ ΠΈΡΠΏΡΠ°Π²ΠΈΡΡ. ΠΡΠΎΠΌΠ΅ ΡΠΎΠ³ΠΎ, Π΅ΡΠ»ΠΈ ΡΡΡΠ°Π½ΠΎΠ²Π»Π΅Π½ ΡΠ»Π°ΠΆΠΎΠΊ ΠΡΠΎΠ²Π΅ΡΠΊΠ°_ΡΠΈΠ½ΡΠ°ΠΊΡΠΈΡΠ° (Auto Syntax Check) Π²ΠΊΠ»Π°Π΄ΠΊΠΈ Π Π΅Π΄Π°ΠΊΡΠΎΡ (Editor) Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠ³ΠΎ ΠΎΠΊΠ½Π° ΠΠ°ΡΠ°ΠΌΠ΅ΡΡΡ (Options), ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°Π΅ΠΌΠΎΠ³ΠΎ Π½Π° ΡΠΊΡΠ°Π½Π΅ ΠΏΠΎΡΡΠ΅Π΄ΡΡΠ²ΠΎΠΌ Π²ΡΠ±ΠΎΡΠ° ΠΊΠΎΠΌΠ°Π½Π΄Ρ Π‘Π΅ΡΠ²ΠΈΡ, ΠΠ°ΡΠ°ΠΌΠ΅ΡΡΡ (Tools, Options) (ΡΠΌ. ΡΠΈΡ. 1.4), ΠΏΠΎΠΌΠΈΠΌΠΎ Π²ΡΠ΄Π΅Π»Π΅Π½ΠΈΡ ΠΊΡΠ°ΡΠ½ΡΠΌ ΡΠ²Π΅ΡΠΎΠΌ ΡΡΠ°Π³ΠΌΠ΅Π½ΡΠ° ΠΊΠΎΠ΄Π° Ρ ΡΠΈΠ½ΡΠ°ΠΊΡΠΈΡΠ΅ΡΠΊΠΎΠΉ ΠΎΡΠΈΠ±ΠΊΠΎΠΉ, Π½Π° ΡΠΊΡΠ°Π½Π΅ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°Π΅ΡΡΡ Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠ΅ ΠΎΠΊΠ½ΠΎ, ΠΏΠΎΡΡΠ½ΡΡΡΠ΅Π΅, ΠΊΠ°ΠΊΠ°Ρ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½Π°Ρ ΠΎΡΠΈΠ±ΠΊΠ° ΠΏΡΠΎΠΈΠ·ΠΎΡΠ»Π°.
Β
Π Π΅Π΄Π°ΠΊΡΠΎΡ ΠΊΠΎΠ΄Π° ΠΎΠ±Π»Π°Π΄Π°Π΅Ρ Π΅ΡΠ΅ ΠΎΠ΄Π½ΠΎΠΉ ΠΌΠΎΡΠ½ΠΎΠΉ ΠΈΠ½ΡΠ΅Π»Π»Π΅ΠΊΡΡΠ°Π»ΡΠ½ΠΎΠΉ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΡΡ, ΡΠ²Π΅Π»ΠΈΡΠΈΠ²Π°ΡΡΠ΅ΠΉ ΡΡΡΠ΅ΠΊΡΠΈΠ²Π½ΠΎΡΡΡ ΡΠ°Π±ΠΎΡΡ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ. ΠΡΠ»ΠΈ ΠΊΡΡΡΠΎΡ ΡΠ°ΡΠΏΠΎΠ»ΠΎΠΆΠΈΡΡ Π½Π° ΠΊΠ»ΡΡΠ΅Π²ΠΎΠΌ ΡΠ»ΠΎΠ²Π΅ ΡΠ·ΡΠΊΠ° VBA, ΠΈΠΌΠ΅Π½ΠΈ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ, ΡΡΠ½ΠΊΡΠΈΠΈ, ΡΠ²ΠΎΠΉΡΡΠ²Π° ΠΈΠ»ΠΈ ΠΌΠ΅ΡΠΎΠ΄Π° ΠΈ Π½Π°ΠΆΠ°ΡΡ ΠΊΠ»Π°Π²ΠΈΡΡ <F1>, ΡΠΎ Π½Π° ΡΠΊΡΠ°Π½Π΅ ΠΏΠΎΡΠ²ΠΈΡΡΡ ΠΎΠΊΠ½ΠΎ ΡΠΎ ΡΠΏΡΠ°Π²ΠΎΡΠ½ΠΎΠΉ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠ΅ΠΉ ΠΎΠ± ΡΡΠΎΠΉ ΡΡΠ½ΠΊΡΠΈΠΈ. ΠΠ±ΡΡΠ½ΠΎ Π² ΡΠΏΡΠ°Π²ΠΊΠ΅ ΠΈΠΌΠ΅Π΅ΡΡΡ ΠΏΡΠΈΠΌΠ΅Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΡ ΠΊΠΎΠ΄Π°, ΡΡΠΎ ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ Π±ΡΡΡΡΠ΅Π΅ ΡΠ°Π·ΠΎΠ±ΡΠ°ΡΡΡΡ Π² ΡΠΈΡΡΠ°ΡΠΈΠΈ, ΠΊΠΎΡΠΎΡΠ°Ρ ΠΏΡΠΈ Π½Π°ΠΏΠΈΡΠ°Π½ΠΈΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΎΠ·Π°Π΄Π°ΡΠΈΠ»Π° Π²Π°Ρ.
Β
Π Π°Π±ΠΎΡΠ° ΠΎΡ ΠΏΡΠΈΠΌΠ΅ΡΠ° ΡΠ²Π»ΡΠ΅ΡΡΡ ΠΎΠ΄Π½ΠΈΠΌ ΠΈΠ· ΠΊΡΠ°Π΅ΡΠ³ΠΎΠ»ΡΠ½ΡΡ
ΠΏΡΠΈΠ½ΡΠΈΠΏΠΎΠ² ΠΌΠΈΡΠΎΠΏΠΎΠ·Π½Π°-Π½ΠΈΡ ΠΈ ΡΠ²ΠΎΡΡΠ΅ΡΡΠ²Π°. Π‘ΡΠΈΠ»Ρ ΡΠ°Π±ΠΎΡΡ ΠΎΡ ΠΏΡΠΈΠΌΠ΅ΡΠ° ΠΎΡΠ΅Π½Ρ ΡΡΠΊΠΎ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ΅Π½ Π² ΠΏΡΠΈΠ½ΡΠΈΠΏΠ΅ ΡΠ°ΠΉΠ½ΠΈΠΊΠ°. ΠΠ΅ΡΠΌΠΎΡΡΡ Π½Π° Π²ΡΡ Π΅Π³ΠΎ ΡΡΡΠ»ΠΈΠ²ΠΎΡΡΡ ΠΈ ΠΊΠ°ΠΆΡΡΡΡΡΡ Π°Π±ΡΡΡΠ΄Π½ΠΎΡΡΡ, Π² Π½Π΅ΠΌ ΡΡΠΎΡΠΌΡΠ»ΠΈΡΠΎΠ²Π°Π½ ΠΌΠ½ΠΎΠ³ΠΎΠ²Π΅ΠΊΠΎΠ²ΠΎΠΉ ΠΎΠΏΡΡ ΡΠ°Π±ΠΎΡΡ, ΠΊΠΎΡΠΎΡΡΠΉ ΠΎΡΠ΅Π½Ρ ΡΠ°ΡΡΠΎ ΠΏΡΠΈΠ²ΠΎΠ΄ΠΈΡ ΠΊ Π±ΡΡΡΡΡΠΌ ΠΈ ΡΡΡΠ΅ΠΊΡΠΈΠ²Π½ΡΠΌ ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ°ΠΌ. ΠΠΎΠΏΡΡΠ°Π΅ΠΌΡΡ ΠΎΠΏΠΈΡΠ°ΡΡ ΠΏΡΠΈΠ½ΡΠΈΠΏ ΡΠ°ΠΉΠ½ΠΈΠΊΠ° ΡΠ»Π΅Π΄ΡΡΡΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ. Π£ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΡΠ° ΡΠΏΡΠΎΡΠΈΠ»ΠΈ, ΠΊΠ°ΠΊ Π½Π°Π΄ΠΎ Π²ΡΠΊΠΈΠΏΡΡΠΈΡΡ Π²ΠΎΠ΄Ρ, Π΅ΡΠ»ΠΈ Π½Π° ΠΊΡΡ
Π½Π΅ Π΅ΡΡΡ ΡΠΏΠΈΡΠΊΠΈ, Π³Π°Π·ΠΎΠ²Π°Ρ ΠΏΠ»ΠΈΡΠ°, Π²ΠΎΠ΄ΠΎΠΏΡΠΎΠ²ΠΎΠ΄Π½ΡΠΉ ΠΊΡΠ°Π½ ΠΈ ΠΏΡΡΡΠΎΠΉ ΡΠ°ΠΉΠ½ΠΈΠΊ, ΡΡΠΎΡΡΠΈΠΉ Π½Π° ΠΊΡΡ
ΠΎΠ½Π½ΠΎΠΌ ΡΡΠΎΠ»Π΅. «Π’ΡΠΈΠ²ΠΈΠ°Π»ΡΠ½ΠΎ! β ΠΎΡΠ²Π΅ΡΠΈΠ» ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΡ. — ΠΠ°Π»Π΅ΠΉΡΠ΅ Π² ΡΠ°ΠΉΠ½ΠΈΠΊ Π²ΠΎΠ΄Ρ, Π·Π°ΠΆΠ³ΠΈΡΠ΅ Π³ΠΎΡΠ΅Π»ΠΊΡ Π³Π°Π·ΠΎΠ²ΠΎΠΉ ΠΏΠ»ΠΈΡΡ ΠΈ ΠΏΠΎΡΡΠ°Π²ΡΡΠ΅ Π½Π° Π½Π΅Π΅ ΡΠ°ΠΉΠ½ΠΈΠΊ.» Π’ΠΎΠ³Π΄Π° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΡΡ Π·Π°Π΄Π°ΡΡ ΡΠ»Π΅Π΄ΡΡΡΠΈΠΉ Π²ΠΎΠΏΡΠΎΡ: «ΠΠ° ΠΊΡΡ
ΠΎΠ½Π½ΠΎΠΌ ΡΡΠΎΠ»Π΅ ΡΡΡΠΈΡ ΡΠ°ΠΉΠ½ΠΈΠΊ Ρ Π²ΠΎΠ΄ΠΎΠΉ, Π³ΠΎΡΠ΅Π»ΠΊΠ° Π³Π°Π·ΠΎΠ²ΠΎΠΉ ΠΏΠ»ΠΈΡΡ Π·Π°ΠΆΠΆΠ΅Π½Π°. ΠΠ°ΠΊ Π²ΡΠΊΠΈΠΏΡΡΠΈΡΡ ΡΠ°ΠΉΠ½ΠΈΠΊ?» «ΠΠ»Π΅ΠΌΠ΅Π½ΡΠ°ΡΠ½ΠΎ! — ΠΎΡΠ²Π΅ΡΠ°Π΅Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΡ. β ΠΠ°Π΄ΠΎ ΠΏΡΠΎΡΡΠΎ Π²ΡΠ»ΠΈΡΡ Π²ΠΎΠ΄Ρ ΠΈΠ· ΡΠ°ΠΉΠ½ΠΈΠΊΠ°, ΠΏΠΎΠ³Π°ΡΠΈΡΡ Π³ΠΎΡΠ΅Π»ΠΊΡ ΠΈ ΠΌΡ ΠΎΠΊΠ°Π·ΡΠ²Π°Π΅ΠΌΡΡ Π² ΡΡΠ»ΠΎΠ²ΠΈΡΡ
Π·Π°Π΄Π°ΡΠΈ, ΠΊΠΎΡΠΎΡΠ°Ρ ΡΠΎΠ»ΡΠΊΠΎ ΡΡΠΎ Π±ΡΠ»Π° ΡΡΠΏΠ΅ΡΠ½ΠΎ ΡΠ΅ΡΠ΅Π½Π°!»
Β
ΠΠΊΠ½ΠΎ ΡΠ΅Π΄Π°ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΡΠΎΡΠΌ (UserForm)
ΠΠ»Ρ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΡΡ
ΠΎΠΊΠΎΠ½, ΡΠ°Π·ΡΠ°Π±Π°ΡΡΠ²Π°Π΅ΠΌΡΡ
ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠΉ Π² VBA, ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡΡΡΡ ΡΠΎΡΠΌΡ. Π Π΅Π΄Π°ΠΊΡΠΎΡ ΡΠΎΡΠΌ ΡΠ²Π»ΡΠ΅ΡΡΡ ΠΎΠ΄Π½ΠΈΠΌ ΠΈΠ· ΠΎΡΠ½ΠΎΠ²Π½ΡΡ
ΠΈΠ½ΡΡΡΡΠΌΠ΅Π½ΡΠΎΠ² Π²ΠΈΠ·ΡΠ°Π»ΡΠ½ΠΎΠ³ΠΎ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ. Π€ΠΎΡΠΌΠ° Π² ΠΏΡΠΎΠ΅ΠΊΡ Π΄ΠΎΠ±Π°Π²Π»ΡΠ΅ΡΡΡ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΠΊΠΎΠΌΠ°Π½Π΄Ρ ΠΡΡΠ°Π²ΠΊΠ°, Π€ΠΎΡΠΌΠ° (Insert, Form) ΠΈΠ»ΠΈ Π½Π°ΠΆΠ°ΡΠΈΠ΅ΠΌ ΠΊΠ½ΠΎΠΏΠΊΠΈ ΠΡΡΠ°Π²ΠΈΡΡ UserForm (Insert UserForm). Π ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ΅ Π½Π° ΡΠΊΡΠ°Π½ Π²ΡΠ²ΠΎΠ΄ΠΈΡΡΡ Π½Π΅Π·Π°ΠΏΠΎΠ»Π½Π΅Π½Π½Π°Ρ ΡΠΎΡΠΌΠ° Ρ ΠΏΠ°Π½Π΅Π»ΡΡ ΠΈΠ½ΡΡΡΡΠΌΠ΅Π½ΡΠΎΠ² ΠΠ°Π½Π΅Π»Ρ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠ² (Toolbox) (ΡΠΈΡ. 1.7).
Β
Π ΠΈΡ. 1.7. ΠΠΊΠ½ΠΎ ΡΠ΅Π΄Π°ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΡΠΎΡΠΌ ΠΈ ΠΏΠ°Π½Π΅Π»Ρ ΠΈΠ½ΡΡΡΡΠΌΠ΅Π½ΡΠΎΠ² ΠΠ°Π½Π΅Π»Ρ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠ²
Β
ΠΡΠΏΠΎΠ»ΡΠ·ΡΡ ΠΏΠ°Π½Π΅Π»Ρ ΠΈΠ½ΡΡΡΡΠΌΠ΅Π½ΡΠΎΠ² ΠΠ°Π½Π΅Π»Ρ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠ² ΠΈΠ· Π½Π΅Π·Π°ΠΏΠΎΠ»Π½Π΅Π½Π½ΠΎΠΉ ΡΠΎΡΠΌΡ, ΠΌΠΎΠΆΠ½ΠΎ ΡΠΊΠΎΠ½ΡΡΡΡΠΈΡΠΎΠ²Π°ΡΡ Π»ΡΠ±ΠΎΠ΅ ΡΡΠ΅Π±ΡΠ΅ΠΌΠΎΠ΅ Π΄Π»Ρ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠ΅ ΠΎΠΊΠ½ΠΎ. Π Π°Π·ΠΌΠ΅ΡΠ΅Π½ΠΈΠ΅ Π½ΠΎΠ²ΠΎΠ³ΠΎ ΡΠΏΡΠ°Π²Π»ΡΡΡΠ΅Π³ΠΎ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠ° Π² ΡΠΎΡΠΌΠ΅ ΠΎΡΡΡΠ΅ΡΡΠ²Π»ΡΠ΅ΡΡΡ ΡΠ»Π΅Π΄ΡΡΡΠ΅ΠΉ ΠΏΠΎΡΠ»Π΅Π΄ΠΎΠ²Π°ΡΠ΅Π»ΡΠ½ΠΎΡΡΡΡ Π΄Π΅ΠΉΡΡΠ²ΠΈΠΉ:
Β
- Π©Π΅Π»ΠΊΠ½ΠΈΡΠ΅ Π·Π½Π°ΡΠΎΠΊ ΡΠΎΠ³ΠΎ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠ°, ΠΊΠΎΡΠΎΡΡΠΉ Π²Ρ ΡΠΎΠ±ΠΈΡΠ°Π΅ΡΠ΅ΡΡ ΡΠ°Π·ΠΌΠ΅ΡΡΠΈΡΡ Π² ΡΠΎΡΠΌΠ΅.
- ΠΠΎΠΌΠ΅ΡΡΠΈΡΠ΅ ΡΠΊΠ°Π·Π°ΡΠ΅Π»Ρ ΠΌΡΡΠΈ Π½Π° ΡΠΎ ΠΌΠ΅ΡΡΠΎ, Π³Π΄Π΅ Π±ΡΠ΄Π΅Ρ ΡΠ°ΡΠΏΠΎΠ»Π°Π³Π°ΡΡΡΡ ΡΠΏΡΠ°Π²Π»ΡΡΡΠΈΠΉ ΡΠ»Π΅ΠΌΠ΅Π½Ρ.
- ΠΠ°ΠΆΠΌΠΈΡΠ΅ Π»Π΅Π²ΡΡ ΠΊΠ½ΠΎΠΏΠΊΡ ΠΌΡΡΠΈ ΠΈ, Π½Π΅ ΠΎΡΠΏΡΡΠΊΠ°Ρ Π΅Π΅, ΡΠ°ΡΡΡΠ½ΠΈΡΠ΅ ΠΏΠΎΡΠ²ΠΈΠ²ΡΠΈΠΉΡΡ ΠΏΡΡΠΌΠΎΡΠ³ΠΎΠ»ΡΠ½ΠΈΠΊ Π΄ΠΎ ΡΡΠ΅Π±ΡΠ΅ΠΌΡΡ ΡΠ°Π·ΠΌΠ΅ΡΠΎΠ².
- ΠΡΠΏΡΡΡΠΈΡΠ΅ ΠΊΠ½ΠΎΠΏΠΊΡ ΠΌΡΡΠΈ. ΠΠ»Π΅ΠΌΠ΅Π½Ρ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ Π½Π° Π½ΡΠΆΠ½ΠΎΠΌ ΠΌΠ΅ΡΡΠΎ ΡΠΎΠ·Π΄Π°Π½.
Β
Π Π°Π·ΠΌΠ΅ΡΡ ΡΠΎΡΠΌΡ ΠΈ ΡΠ°ΡΠΏΠΎΠ»ΠΎΠΆΠ΅Π½Π½ΡΡ Π½Π° Π½Π΅ΠΉ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠ² ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ ΠΌΠΎΠΆΠ½ΠΎ ΠΈΠ·ΠΌΠ΅Π½ΡΡΡ. Π’Π΅Ρ Π½ΠΎΠ»ΠΎΠ³ΠΈΡ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΡ ΡΠ°Π·ΠΌΠ΅ΡΠΎΠ² ΡΡΠ°Π½Π΄Π°ΡΡΠ½Π°Ρ Π΄Π»Ρ Windows: Π²ΡΠ΄Π΅Π»ΠΈΡΡ ΠΈΠ·ΠΌΠ΅Π½ΡΠ΅ΠΌΡΠΉ ΡΠ»Π΅ΠΌΠ΅Π½Ρ, ΡΠ°Π·ΠΌΠ΅ΡΡΠΈΡΡ ΡΠΊΠ°Π·Π°ΡΠ΅Π»Ρ ΠΌΡΡΠΈ Π½Π° ΠΎΠ΄Π½ΠΎΠΌ ΠΈΠ· ΡΠ°Π·ΠΌΠ΅ΡΠ½ΡΡ ΠΌΠ°ΡΠΊΠ΅ΡΠΎΠ² ΠΈ ΠΏΡΠΎΡΠ°ΡΠΈΡΡ Π΅Π³ΠΎ ΠΏΡΠΈ Π½Π°ΠΆΠ°ΡΠΎΠΉ Π»Π΅Π²ΠΎΠΉ ΠΊΠ½ΠΎΠΏΠΊΠΈ ΠΌΡΡΠΈ ΡΠ°ΠΊ, ΡΡΠΎΠ±Ρ ΠΎΠ±ΡΠ΅ΠΊΡ ΠΏΡΠΈΠ½ΡΠ» ΡΡΠ΅Π±ΡΠ΅ΠΌΡΠ΅ ΡΠ°Π·ΠΌΠ΅ΡΡ. ΠΠΊΠ½ΠΎ ΡΠ΅Π΄Π°ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΡΠΎΡΠΌ ΠΏΠΎΠ΄Π΄Π΅ΡΠΆΠΈΠ²Π°Π΅Ρ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΈ Π±ΡΡΠ΅ΡΠ° ΠΎΠ±ΠΌΠ΅Π½Π°.
Β
Π ΠΈΡ. 1.8. ΠΠΎΠΌΠ°Π½Π΄Ρ ΠΌΠ΅Π½Ρ Π€ΠΎΡΠΌΠ°Ρ
Β
Π’Π°ΠΊΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ, ΠΌΠΎΠΆΠ½ΠΎ ΠΊΠΎΠΏΠΈΡΠΎΠ²Π°ΡΡ, Π²ΡΡΠ΅Π·Π°ΡΡ ΠΈ Π²ΡΡΠ°Π²Π»ΡΡΡ ΡΠ»Π΅ΠΌΠ΅Π½ΡΡ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ, ΡΠ°ΡΠΏΠΎΠ»ΠΎΠΆΠ΅Π½Π½ΡΠ΅ Π½Π° ΠΏΠΎΠ²Π΅ΡΡ
Π½ΠΎΡΡΠΈ ΡΠΎΡΠΌΡ. ΠΠ»Ρ ΠΎΠ±Π»Π΅Π³ΡΠ΅Π½ΠΈΡ ΡΠ°Π·ΠΌΠ΅ΡΠ΅Π½ΠΈΡ ΠΈ Π²ΡΡΠ°Π²Π½ΠΈΠ²Π°Π½ΠΈΡ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠ² ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ ΡΠ΅ΡΠΊΠ°. ΠΠΊΡΠΈΠ²ΠΈΠ·ΠΈΡΠΎΠ²Π°ΡΡ Π΅Π΅ ΠΌΠΎΠΆΠ½ΠΎ Ρ ΠΏΠΎΠΌΠΎΡΡΡ Π²ΠΊΠ»Π°Π΄ΠΊΠΈ ΠΠ±ΡΠΈΠ΅ (General) Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠ³ΠΎ ΠΎΠΊΠ½Π° ΠΠ°ΡΠ°ΠΌΠ΅ΡΡΡ (Options), Π²ΡΠ·ΡΠ²Π°Π΅ΠΌΠΎΠ³ΠΎ ΠΊΠΎΠΌΠ°Π½Π΄ΠΎΠΉ Π‘Π΅ΡΠ²ΠΈΡ, ΠΠ°ΡΠ°ΠΌΠ΅ΡΡΡ(Tools, Options), ΡΠ°ΠΌ ΠΆΠ΅ ΡΡΡΠ°Π½Π°Π²Π»ΠΈΠ²Π°Π΅ΡΡΡ ΡΠ°Π³ ΡΠ΅ΡΠΊΠΈ. ΠΡΠΎΠΌΠ΅ ΡΠΎΠ³ΠΎ, ΠΊΠΎΠΌΠ°Π½Π΄Ρ ΠΌΠ΅Π½Ρ Π€ΠΎΡΠΌΠ°Ρ (Format) Π°Π²ΡΠΎΠΌΠ°ΡΠΈΠ·ΠΈΡΡΡΡ ΠΈ ΠΎΠ±Π»Π΅Π³ΡΠ°ΡΡ ΠΏΡΠΎΡΠ΅ΡΡ Π²ΡΡΠ°Π²Π½ΠΈΠ²Π°Π½ΠΈΡ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠ² ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ ΠΊΠ°ΠΊ ΠΏΠΎ ΠΈΡ
Π²Π·Π°ΠΈΠΌΠ½ΠΎΠΌΡ ΠΌΠ΅ΡΡΠΎΠΏΠΎΠ»ΠΎΠΆΠ΅Π½ΠΈΡ, ΡΠ°ΠΊ ΠΈ ΠΏΠΎ ΡΠ°Π·ΠΌΠ΅ΡΠ°ΠΌ (ΡΠΈΡ. 1.8).
Β
ΠΠΊΠ½ΠΎ ΡΠ²ΠΎΠΉΡΡΠ²
Π ΠΎΠΊΠ½Π΅ ΡΠ²ΠΎΠΉΡΡΠ² ΠΏΠ΅ΡΠ΅ΡΠΈΡΠ»ΡΡΡΡΡ ΠΎΡΠ½ΠΎΠ²Π½ΡΠ΅ ΡΡΡΠ°Π½ΠΎΠ²ΠΊΠΈ ΡΠ²ΠΎΠΉΡΡΠ² Π²ΡΠ±ΡΠ°Π½Π½ΠΎΠΉ ΡΠΎΡΠΌΡ ΠΈΠ»ΠΈ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠ° ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ. ΠΡΠΏΠΎΠ»ΡΠ·ΡΡ ΡΡΠΎ ΠΎΠΊΠ½ΠΎ, ΠΌΠΎΠΆΠ½ΠΎ ΠΏΡΠΎΡΠΌΠ°ΡΡΠΈΠ²Π°ΡΡ ΡΠ²ΠΎΠΉΡΡΠ²Π° ΠΈ ΠΈΠ·ΠΌΠ΅Π½ΡΡΡ ΠΈΡ ΡΡΡΠ°Π½ΠΎΠ²ΠΊΠΈ. ΠΠ»Ρ ΠΏΡΠΎΡΠΌΠΎΡΡΠ° ΡΠ²ΠΎΠΉΡΡΠ² Π²ΡΠ±ΡΠ°Π½Π½ΠΎΠ³ΠΎ ΠΎΠ±ΡΠ΅ΠΊΡΠ° Π½Π°Π΄ΠΎ Π»ΠΈΠ±ΠΎ ΡΠ΅Π»ΠΊΠ½ΡΡΡ ΠΊΠ½ΠΎΠΏΠΊΡ ΠΠΊΠ½ΠΎ ΡΠ²ΠΎΠΉΡΡΠ² (Properties Window) Π»ΠΈΠ±ΠΎ Π²ΡΠ±ΡΠ°ΡΡ ΠΊΠΎΠΌΠ°Π½Π΄Ρ ΠΠΈΠ΄, ΠΠΊΠ½ΠΎ ΡΠ²ΠΎΠΉΡΡΠ² (View, Properties Window) (ΡΠΈΡ. 1.9).
Β
Π ΠΈΡ. 1.9. ΠΠΊΠ½ΠΎ ΡΠ²ΠΎΠΉΡΡΠ²
Β
ΠΠΊΠ½ΠΎ ΡΠ²ΠΎΠΉΡΡΠ² ΡΠΎΡΡΠΎΠΈΡ ΠΈΠ· Π΄Π²ΡΡ
ΡΠΎΡΡΠ°Π²Π½ΡΡ
ΡΠ°ΡΡΠ΅ΠΉ: Π²Π΅ΡΡ
Π½Π΅ΠΉ ΠΈ ΡΠ°Π±ΠΎΡΠ΅ΠΉ. Π Π²Π΅ΡΡ
Π½Π΅ΠΉ ΡΠ°ΡΡΠΈ ΠΎΠΊΠ½Π° ΡΠ²ΠΎΠΉΡΡΠ² ΡΠ°ΡΠΏΠΎΠ»Π°Π³Π°Π΅ΡΡΡ ΡΠ°ΡΠΊΡΡΠ²Π°ΡΡΠΈΠΉΡΡ ΡΠΏΠΈΡΠΎΠΊ, ΠΈΠ· ΠΊΠΎΡΠΎΡΠΎΠ³ΠΎ ΠΌΠΎΠΆΠ½ΠΎ Π²ΡΠ±ΡΠ°ΡΡ Π»ΡΠ±ΠΎΠΉ ΡΠ»Π΅ΠΌΠ΅Π½Ρ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ ΡΠ΅ΠΊΡΡΠ΅ΠΉ ΡΠΎΡΠΌΡ ΠΈΠ»ΠΈ ΡΠ°ΠΌΡ ΡΠΎΡΠΌΡ. Π Π°Π±ΠΎΡΠ°Ρ ΡΠ°ΡΡΡ ΡΠΎΡΡΠΎΠΈΡ ΠΈΠ· Π΄Π²ΡΡ
Π²ΠΊΠ»Π°Π΄ΠΎΠΊ: ΠΠΎ Π°Π»ΡΠ°Π²ΠΈΡΡ (Alphabetic) ΠΈ ΠΠΎ ΠΊΠ°ΡΠ΅Π³ΠΎΡΠΈΡΠΌ (Categorized), ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°ΡΡΠΈΠ΅ Π½Π°Π±ΠΎΡ ΡΠ²ΠΎΠΉΡΡΠ² Π² Π°Π»ΡΠ°Π²ΠΈΡΠ½ΠΎΠΌ ΠΏΠΎΡΡΠ΄ΠΊΠ΅ ΠΈΠ»ΠΈ ΠΏΠΎ ΠΊΠ°ΡΠ΅Π³ΠΎΡΠΈΡΠΌ. Π ΠΎΠ±ΠΎΠΈΡ
Π²ΠΊΠ»Π°Π΄ΠΊΠ°Ρ
ΡΠ²ΠΎΠΉΡΡΠ²ΠΎ Name (ΠΈΠΌΡ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠ° ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ) Π±ΡΠ΄Π΅Ρ ΠΏΠ΅ΡΠ²ΡΠΌ. ΠΠ·ΠΌΠ΅Π½ΡΡΡΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΡΠ²ΠΎΠΉΡΡΠ² ΠΎΠ΄Π½ΠΈΠΌ ΠΈΠ· ΡΠ»Π΅Π΄ΡΡΡΠΈΡ
ΡΠΏΠΎΡΠΎΠ±ΠΎΠ²:
Β
- ΠΠ²ΠΎΠ΄ΠΎΠΌ Ρ ΠΊΠ»Π°Π²ΠΈΠ°ΡΡΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΡΠ²ΠΎΠΉΡΡΠ²Π° Π² ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠ΅Π΅ ΠΏΠΎΠ»Π΅.
- ΠΠ½Π°ΡΠ΅Π½ΠΈΡ Π±ΠΎΠ»ΡΡΠΈΠ½ΡΡΠ²Π° ΡΠ²ΠΎΠΉΡΡΠ² ΠΌΠΎΠΆΠ½ΠΎ Π²ΡΠ±ΡΠ°ΡΡ ΠΈΠ· ΡΠ°ΡΠΊΡΡΠ²Π°ΡΡΠ΅Π³ΠΎΡΡ ΡΠΏΠΈΡΠΊΠ°. Π Π°ΡΠΊΡΡΠ²Π°ΡΡΠΈΠΉΡΡ ΡΠΏΠΈΡΠΎΠΊ Π°ΠΊΡΠΈΠ²ΠΈΠ·ΠΈΡΡΠ΅ΡΡΡ ΡΠ΅Π»ΡΠΊΠΎΠΌ Π² ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠ΅ΠΌ ΠΏΠΎΠ»Π΅ ΠΎΠΊΠ½Π° ΡΠ²ΠΎΠΉΡΡΠ².
Β
ΠΠΊΠ½ΠΎ ΠΡΠΎΡΠΌΠΎΡΡ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ² (Object Browser)
ΠΠΊΠ½ΠΎ ΠΡΠΎΡΠΌΠΎΡΡ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ² (Object Browser) Π²ΡΠ·ΡΠ²Π°Π΅ΡΡΡ ΠΊΠΎΠΌΠ°Π½Π΄ΠΎΠΉ ΠΠΈΠ΄, ΠΡΠΎΡΠΌΠΎΡΡ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ² (View, Object Browser) ΠΈΠ»ΠΈ Π½Π°ΠΆΠ°ΡΠΈΠ΅ΠΌ ΠΊΠ½ΠΎΠΏΠΊΠΈ ΠΡΠΎΡΠΌΠΎΡΡ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ² (Object Browser) (ΡΠΈΡ. 1.10). Π ΡΡΠΎΠΌ ΠΎΠΊΠ½Π΅ ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½ ΡΠΏΠΈΡΠΎΠΊ Π²ΡΠ΅Ρ
ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ², ΠΊΠΎΡΠΎΡΡΠ΅ ΠΈΠΌΠ΅ΡΡΡΡ Π² ΡΠΈΡΡΠ΅ΠΌΠ΅ ΠΈ ΠΊΠΎΡΠΎΡΡΠ΅ ΠΌΠΎΠΆΠ½ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΠΏΡΠΈ ΡΠΎΠ·Π΄Π°Π½ΠΈΠΈ ΠΏΡΠΎΠ΅ΠΊΡΠ°.
Β
Π ΠΈΡ. 1.10. ΠΠΊΠ½ΠΎ ΠΡΠΎΡΠΌΠΎΡΡ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ²
Β
ΠΠΊΠ½ΠΎ ΠΡΠΎΡΠΌΠΎΡΡ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ² (Object Browser) ΡΠΎΡΡΠΎΠΈΡ ΠΈΠ· ΡΡΠ΅Ρ ΠΎΡΠ½ΠΎΠ²Π½ΡΡ ΡΠ°ΡΡΠ΅ΠΉ:
Β
- Π Π°ΡΠΊΡΡΠ²Π°ΡΡΠ΅Π³ΠΎΡΡ ΡΠΏΠΈΡΠΊΠ° ΠΡΠΎΠ΅ΠΊΡ/ΠΠΈΠ±Π»ΠΈΠΎΡΠ΅ΠΊΠ° (Project/Library) Π² Π»Π΅Π²ΠΎΠΌ Π²Π΅ΡΡ Π½Π΅ΠΌ ΡΠ³Π»Ρ ΠΎΠΊΠ½Π°. Π ΡΡΠΎΠΌ ΡΠ°ΡΠΊΡΡΠ²Π°ΡΡΠ΅ΠΌΡΡ ΡΠΏΠΈΡΠΊΠ΅ ΠΌΠΎΠΆΠ½ΠΎ Π²ΡΠ±ΡΠ°ΡΡ ΡΠ°Π·Π»ΠΈΡΠ½ΡΠ΅ ΠΏΡΠΎΠ΅ΠΊΡΡ ΠΈ Π±ΠΈΠ±Π»ΠΈΠΎΡΠ΅ΠΊΠΈ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ². Π ΡΠ°ΡΡΠ½ΠΎΡΡΠΈ, Π±ΠΈΠ±Π»ΠΈΠΎΡΠ΅ΠΊΠΈ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ² Excel, VBA, Office ΠΈ VBAProject (ΠΎΠ±ΡΠ΅ΠΊΡΡ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»ΡΡΠΊΠΎΠ³ΠΎ ΠΏΡΠΎΠ΅ΠΊΡΠ°). ΠΡΠ±ΠΎΡ Π² ΡΠΏΠΈΡΠΊΠ΅ ΡΡΡΠΎΠΊΠΈ <ΠΡΠ΅ Π±ΠΈΠ±Π»ΠΈΠΎΡΠ΅ΠΊΠΈ> (<Πll Libraries>) ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°Π΅Ρ ΡΠΏΠΈΡΠΎΠΊ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ² Π²ΡΠ΅Ρ Π±ΠΈΠ±Π»ΠΈΠΎΡΠ΅ΠΊ.
- Π‘ΠΏΠΈΡΠΊΠ° ΠΠ»Π°ΡΡΡ (Classes). ΠΠΎΡΠ»Π΅ Π²ΡΠ±ΠΎΡΠ° ΠΈΠ· ΡΠ°ΡΠΊΡΡΠ²Π°ΡΡΠ΅Π³ΠΎΡΡ ΡΠΏΠΈΡΠΊΠ° ΠΡΠΎΠ΅ΠΊΡ/ΠΠΈΠ±Π»ΠΈΠΎΡΠ΅ΠΊΠ° (Project/Library) ΠΏΡΠΎΡΠΌΠ°ΡΡΠΈΠ²Π°Π΅ΠΌΠΎΠΉ Π±ΠΈΠ±Π»ΠΈΠΎΡΠ΅ΠΊΠΈ, Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ VBA, Π²ΡΠ΅ ΠΊΠ»Π°ΡΡΡ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ² Π²ΡΠ±ΡΠ°Π½Π½ΠΎΠΉ Π±ΠΈΠ±Π»ΠΈΠΎΡΠ΅ΠΊΠΈ Π²ΡΠ²ΠΎΠ΄ΡΡΡΡ Π² ΡΠΏΠΈΡΠΊΠ΅ ΠΠ»Π°ΡΡΡ (Classes).
- Π‘ΠΏΠΈΡΠΊΠ° ΠΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΡ (Members). ΠΠΎΡΠ»Π΅ Π²ΡΠ±ΠΎΡΠ° ΠΊΠ»Π°ΡΡΠ° ΠΈΠ· ΡΠΏΠΈΡΠΊΠ° ΠΠ»Π°ΡΡΡ (Classes) ΠΏΡΠΎΡΠΌΠ°ΡΡΠΈΠ²Π°Π΅ΠΌΠΎΠΉ Π±ΠΈΠ±Π»ΠΈΠΎΡΠ΅ΠΊΠΈ, Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ FileSystem, Π²ΡΠ΅ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΡ Π²ΡΠ±ΡΠ°Π½Π½ΠΎΠ³ΠΎ ΠΊΠ»Π°ΡΡΠ° Π²ΡΠ²ΠΎΠ΄ΡΡΡΡ Π² ΡΠΏΠΈΡΠΊΠ΅ ΠΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΡ (Members). ΠΡΠΈ Π²ΡΠ΄Π΅Π»Π΅Π½ΠΈΠΈ ΡΡΡΠΎΠΊΠΈ Π² ΡΡΠΎΠΌ ΡΠΏΠΈΡΠΊΠ΅ Π² Π½ΠΈΠΆΠ½Π΅ΠΉ ΡΠ°ΡΡΠΈ ΠΎΠΊΠ½Π° ΠΡΠΎΡΠΌΠΎΡΡ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ² (Object Browser) ΠΏΡΠΈΠ²ΠΎΠ΄ΠΈΡΡΡ Π΄ΠΎΠΏΠΎΠ»Π½ΠΈΡΠ΅Π»ΡΠ½Π°Ρ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ ΠΎ Π²ΡΠ±ΡΠ°Π½Π½ΠΎΠΌ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΠ΅. ΠΡΠΎΠΌΠ΅ ΡΠΎΠ³ΠΎ, Π΅ΡΠ»ΠΈ Π½Π°ΠΆΠ°ΡΡ Π½Π° ΠΊΠ½ΠΎΠΏΠΊΡ Π‘ΠΏΡΠ°Π²ΠΊΠ° (Help), ΡΠ°ΡΠΏΠΎΠ»ΠΎΠΆΠ΅Π½Π½ΡΡ Π½Π° ΠΏΠ°Π½Π΅Π»ΠΈ ΠΈΠ½ΡΡΡΡΠΌΠ΅Π½ΡΠΎΠ² Π² ΠΏΡΠ°Π²ΠΎΠΉ Π²Π΅ΡΡ Π½Π΅ΠΉ ΡΠ°ΡΡΠΈ ΠΎΠΊΠ½Π° ΠΡΠΎΡΠΌΠΎΡΡ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ² (Object Browser), ΡΠΎ Π½Π° ΡΠΊΡΠ°Π½Π΅ ΠΎΡΠΎΠ±ΡΠ°Π·ΠΈΡΡΡ ΠΎΠΊΠ½ΠΎ Π‘ΠΏΡΠ°Π²ΠΎΡΠ½ΠΈΠΊ Visual_Basic (Microsoft Visual Basic Help) Ρ ΠΏΠΎΠ΄ΡΠΎΠ±Π½ΠΎΠΉ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠ΅ΠΉ ΠΎ Π²ΡΠ΄Π΅Π»Π΅Π½Π½ΠΎΠΌ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΠ΅.
ΠΡΠ»ΠΈ Π²Ρ ΡΡΡΠ°Π»ΠΈ ΠΈΠ·ΡΡΠ°ΡΡ ΡΠ΅Π΄Π°ΠΊΡΠΎΡ VBA, ΡΠΎ ΡΠΎΠ²Π΅ΡΡΡ Π²Π°ΠΌ ΠΈΠ·ΡΡΠΈΡΡ Π»ΡΡΡΠΈΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π΄Π»Ρ Π°Π½Π΄ΡΠΎΠΈΠ΄ Π½Π° ΡΠ°ΠΉΡΠ΅ http://www.fly-phone.ru/notes/android/luchshie-programmy-dlya-android/
ΠΡΠ΅ Π·Π°ΠΏΠΈΡΠΈ ΠΏΠΎ ΡΠ΅ΠΌΠ΅
Π§ΡΠΎ ΡΠ°ΠΊΠΎΠ΅ VBA? | KV.
by
ΠΠ΅Π»ΡΠ·Ρ Π±ΡΠ»ΠΎ ΡΠ΅ΡΠ° ΡΡΠΈΡΡ ΡΠΊΡΠΈΠΏΡΡ ΠΏΠΈΡΠ°ΡΡ. ΠΡΠ΅ΡΠ° Π³ΠΎΠ²ΠΎΡΠΈΡ: «ΠΡΠΆΠ½ΠΎ ΡΠΊΡΠΈΠΏΡΠΈΠΊ Π½Π°ΠΏΠΈΡΠ°ΡΡ Π½Π° VBA, ΠΊΠΎΡΠΎΡΡΠΉ ΠΈΡΠ΅Ρ Π²ΠΎ Π²ΡΠ΅Ρ *.doc-ΡΠ°ΠΉΠ»Π°Ρ Π·Π°Π΄Π°Π½Π½ΠΎΠΉ ΠΏΠ°ΠΏΠΊΠΈ ΡΡΡΠΎΠΊΡ «gcc» ΠΈ Π²ΡΠ²ΠΎΠ΄ΠΈΡ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠΈΠΉ ΡΠΏΠΈΡΠΎΠΊ ΡΠ°ΠΉΠ»ΠΎΠ²; Ρ ΡΠΆΠ΅ Π½Π°ΠΊΠΎΠΏΠ°Π» ΡΡΠ½ΠΊΡΠΈΠΈ ΠΎΡΠΊΡΡΡΠΈΡ ΡΠ°ΠΉΠ»ΠΎΠ², ΡΡΠ΅Π½ΠΈΡ ΠΏΠ°ΠΏΠΊΠΈ, ΡΠ°ΠΌ Π½Π°ΠΏΠΈΡΠ΅ΡΡ ΠΈΠ»ΠΈ Ρ Π½Π° Π²ΡΡ ΠΎΠ΄Π½ΡΡ ΡΠ΄Π΅Π»Π°Ρ?» ΠΠ΅ ΠΌΠΎΠ³ F3 Π² ΠΡΠΎΠ²ΠΎΠ΄Π½ΠΈΠΊΠ΅ Π½Π°ΠΆΠ°ΡΡ… ΠΠΎ |
Π‘Π΅Π³ΠΎΠ΄Π½Ρ ΡΡΠ° Π°Π±Π±ΡΠ΅Π²ΠΈΠ°ΡΡΡΠ° ΠΈΠ· ΡΡΡΡ
Π»Π°ΡΠΈΠ½ΡΠΊΠΈΡ
Π±ΡΠΊΠ² ΡΠΆΠ΅ Π½Π΅ ΡΠ°ΠΊ
ΠΏΠΎΠ²ΡΠ΅ΠΌΠ΅ΡΡΠ½ΠΎ ΡΠ°ΡΠΏΡΠΎΡΡΡΠ°Π½Π΅Π½Π°, ΠΊΠ°ΠΊ,
ΡΠΊΠ°ΠΆΠ΅ΠΌ, Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΎ Π»Π΅Ρ Π½Π°Π·Π°Π΄, ΠΊΠΎΠ³Π΄Π° Π²
Π‘Π΅ΡΠΈ ΠΈ Π² ΠΎΡΠ»Π°ΠΉΠ½ΠΎΠ²ΡΡ
ΠΊΠ½ΠΈΠΆΠ½ΡΡ
ΠΌΠ°Π³Π°Π·ΠΈΠ½Π°Ρ
ΠΏΡΠ΅Π΄Π»Π°Π³Π°Π»ΠΈΡΡ ΠΈΠ·Π΄Π°Π½ΠΈΡ,
ΠΏΠΎΡΠ²ΡΡΠ΅Π½Π½ΡΠ΅ VBA, Π° ΠΊΡΡΡΡ ΠΏΠΎ Π½Π΅ΠΌΡ
Π²Ρ
ΠΎΠ΄ΠΈΠ»ΠΈ Π²ΠΎ ΠΌΠ½ΠΎΠ³ΠΈΠ΅ ΡΡΠ΅Π±Π½ΠΈΠΊΠΈ ΠΏΠΎ
ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΊΠ΅. Π‘Π΅Π³ΠΎΠ΄Π½Ρ, ΠΊΠΎΠ½Π΅ΡΠ½ΠΎ,
ΡΠΈΡΡΠ°ΡΠΈΡ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΎ ΠΏΠΎΠΌΠ΅Π½ΡΠ»Π°ΡΡ, Π½ΠΎ,
Π² ΡΠ΅Π»ΠΎΠΌ, VBA ΡΠΎΠ²ΡΠ΅ΠΌ Π½Π΅ Π·Π°Π±ΡΡ.
Π Π°ΡΡΠΈΡΡΠΎΠ²ΡΠ²Π°Π΅ΡΡΡ Π΄Π°Π½Π½Π°Ρ
Π°Π±Π±ΡΠ΅Π²ΠΈΠ°ΡΡΡΠ° ΠΊΠ°ΠΊ Visual Basic for Applications,
Π½Π° ΡΡΡΡΠΊΠΈΠΉ ΡΠ·ΡΠΊ ΡΡΠΎ ΠΎΠ±ΡΡΠ½ΠΎ
ΠΏΠ΅ΡΠ΅Π²ΠΎΠ΄ΡΡ ΠΊΠ°ΠΊ «Visual Basic Π΄Π»Ρ
ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠΉ». Π’Π°ΠΊ Π½Π°Π·ΡΠ²Π°ΡΡ ΡΠ·ΡΠΊ
ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ, Π²ΡΡΡΠΎΠ΅Π½Π½ΡΠΉ Π²ΠΎ
ΠΌΠ½ΠΎΠ³ΠΈΠ΅ ΠΈΠ·Π²Π΅ΡΡΠ½ΡΠ΅ ΠΏΠ°ΠΊΠ΅ΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌ
Π΄Π»Ρ Π½Π°ΠΏΠΈΡΠ°Π½ΠΈΡ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Π΅ΠΌ
ΠΏΡΠΎΡΡΡΡ
ΡΡΠ΅Π½Π°ΡΠΈΠ΅Π² (ΠΌΠ°ΠΊΡΠΎΡΠΎΠ²) Π΄Π»Ρ
Π°Π²ΡΠΎΠΌΠ°ΡΠΈΠ·Π°ΡΠΈΠΈ ΡΠ²ΠΎΠΈΡ
Π΄Π΅ΠΉΡΡΠ²ΠΈΠΉ.
Π‘Π°ΠΌΡΠΌ ΠΈΠ·Π²Π΅ΡΡΠ½ΡΠΌ ΠΈΠ· ΡΠ°ΠΊΠΈΡ
ΠΏΠ°ΠΊΠ΅ΡΠΎΠ²,
ΠΊΠΎΠ½Π΅ΡΠ½ΠΎ ΠΆΠ΅, ΠΌΠΎΠΆΠ½ΠΎ ΡΡΠΈΡΠ°ΡΡ Microsoft Office,
Π½ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ VBA ΠΈ Π² Π΄ΡΡΠ³ΠΈΡ
ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΡΡ
ΠΏΡΠΎΠ΄ΡΠΊΡΠ°Ρ
, ΡΠ°ΠΊΠΈΡ
, ΠΊΠ°ΠΊ
AutoCAD, SolidWorks, CorelDRAW, WordPerfect ΠΈ ESRI ArcGIS.
ΠΠ°ΠΊ Π½Π΅ΡΠ»ΠΎΠΆΠ½ΠΎ Π΄ΠΎΠ³Π°Π΄Π°ΡΡΡΡ ΠΏΠΎ
Π½Π°Π·Π²Π°Π½ΠΈΡ Π΄Π°Π½Π½ΠΎΠ³ΠΎ ΡΠ·ΡΠΊΠ°, Π΅Π³ΠΎ ΠΎΡΠ½ΠΎΠ²ΠΎΠΉ
ΡΠ²Π»ΡΠ΅ΡΡΡ «Π±ΠΎΠ»ΡΡΠΎΠΉ» Visual Basic,
Ρ
ΠΎΡΡ, ΠΏΠΎ ΡΡΠ°Π²Π½Π΅Π½ΠΈΡ Ρ ΠΎΡΠΈΠ³ΠΈΠ½Π°Π»ΡΠ½ΡΠΌ
ΡΠ·ΡΠΊΠΎΠΌ, ΡΠΈΠ½ΡΠ°ΠΊΡΠΈΡ VBA Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΎ
ΡΠΏΡΠΎΡΠ΅Π½. Π‘Π΄Π΅Π»Π°Π½ΠΎ ΡΡΠΎ, ΠΊΠΎΠ½Π΅ΡΠ½ΠΎ ΠΆΠ΅, Π½Π΅
ΡΠ»ΡΡΠ°ΠΉΠ½ΠΎ — Π΄Π΅Π»ΠΎ Π² ΡΠΎΠΌ, ΡΡΠΎ ΠΌΠ°ΠΊΡΠΎΡΡ
Π΄ΠΎΠ»ΠΆΠ½Ρ Π±ΡΡΡ Π΄ΠΎΡΡΡΠΏΠ½Ρ ΠΈ ΡΠ΅ΠΌ Π»ΡΠ΄ΡΠΌ,
ΠΊΠΎΡΠΎΡΡΠ΅ Π΄ΠΎΡΡΠ°ΡΠΎΡΠ½ΠΎ ΡΠΌΡΡΠ½ΠΎ, Π²ΠΎΠΎΠ±ΡΠ΅
Π³ΠΎΠ²ΠΎΡΡ, ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΡΡ ΡΠ΅Π±Π΅, ΡΡΠΎ
ΡΠ°ΠΊΠΎΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅, Π² ΠΏΡΠΈΠ½ΡΠΈΠΏΠ΅.
ΠΠ»Ρ ΡΡΠΎΠ³ΠΎ ΠΆΠ΅ Π² ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡΡ
, Π³Π΄Π΅ VBA
Π΄ΠΎΡΡΡΠΏΠ΅Π½ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»ΡΠΌ Π² ΠΊΠ°ΡΠ΅ΡΡΠ²Π΅
ΡΡΠ΅Π΄ΡΡΠ²Π° Π°Π²ΡΠΎΠΌΠ°ΡΠΈΠ·Π°ΡΠΈΠΈ ΠΈΡ
Π΄Π΅ΠΉΡΡΠ²ΠΈΠΉ, ΠΊΠ°ΠΊ ΠΏΡΠ°Π²ΠΈΠ»ΠΎ, Π΅ΡΡΡ ΠΈ
ΡΠΏΠ΅ΡΠΈΠ°Π»ΡΠ½ΡΠ΅ «ΠΌΠ°ΡΡΠ΅ΡΠ°»,
ΠΏΠΎΠ·Π²ΠΎΠ»ΡΡΡΠΈΠ΅ ΠΊΠΎΠ½ΡΡΡΡΠΈΡΠΎΠ²Π°ΡΡ
ΡΡΠ΅Π½Π°ΡΠΈΠΈ Π² Π²ΠΈΠ·ΡΠ°Π»ΡΠ½ΠΎΠΌ ΡΠ΅ΠΆΠΈΠΌΠ΅ —
Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ, Π·Π°ΠΏΠΈΡΡΠ²Π°ΡΡ Π·Π°
ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Π΅ΠΌ ΠΏΠΎΡΠ»Π΅Π΄ΠΎΠ²Π°ΡΠ΅Π»ΡΠ½ΠΎΡΡΡ
Π²ΡΠΏΠΎΠ»Π½ΡΠ΅ΠΌΡΡ
Π΄Π΅ΠΉΡΡΠ²ΠΈΠΉ ΠΈ Π·Π°ΡΠ΅ΠΌ
«ΠΏΠ΅ΡΠ΅ΠΊΠ»Π°Π΄ΡΠ²Π°ΡΡ» Π΅Ρ Π½Π° ΡΠ·ΡΠΊ
ΠΊΠΎΠΌΠ°Π½Π΄, Π΄ΠΎΡΡΡΠΏΠ½ΡΡ
Π΅ΠΌΡ ΠΏΡΠΈ
ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠΈ VBA.
ΠΠ΅ΡΠΌΠΎΡΡΡ Π½Π° ΡΠΎ, ΡΡΠΎ VBA ΡΠ²Π»ΡΠ΅ΡΡΡ
ΠΈΠ½ΡΠ΅ΡΠΏΡΠ΅ΡΠΈΡΡΠ΅ΠΌΡΠΌ ΡΠ·ΡΠΊΠΎΠΌ, ΠΈ
ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ, Π½Π°ΠΏΠΈΡΠ°Π½Π½ΡΠ΅ Π½Π° Π½ΡΠΌ, ΠΌΠΎΠ³ΡΡ
Π±ΡΡΡ Π²ΡΠΏΠΎΠ»Π½Π΅Π½Ρ ΡΠΎΠ»ΡΠΊΠΎ Π²Π½ΡΡΡΠΈ
ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ, ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΠ΅Π³ΠΎ Π² ΡΠ΅Π±Π΅
ΠΈΠ½ΡΠ΅ΡΠΏΡΠ΅ΡΠ°ΡΠΎΡ VBA-ΡΡΠ΅Π½Π°ΡΠΈΠ΅Π², ΡΡΠΎΡ
ΡΠ·ΡΠΊ ΠΏΡΠ΅Π΄ΠΎΡΡΠ°Π²Π»ΡΠ΅Ρ Π΄ΠΎΡΡΠ°ΡΠΎΡΠ½ΠΎ
ΡΠ΅ΡΡΡΠ·Π½ΡΠ΅ ΡΡΠ΅Π΄ΡΡΠ²Π° Π΄Π»Ρ
ΠΌΠ°Π½ΠΈΠΏΡΠ»ΠΈΡΠΎΠ²Π°Π½ΠΈΡ COM-ΠΎΠ±ΡΠ΅ΠΊΡΠ°ΠΌΠΈ,
ΡΠ°ΠΉΠ»Π°ΠΌΠΈ ΠΈ ΡΠΈΡΡΠ΅ΠΌΠΎΠΉ Π² ΡΠ΅Π»ΠΎΠΌ. Π ΡΠ²ΡΠ·ΠΈ
Ρ ΡΡΠΈΠΌ ΠΏΠΎΠ½ΡΡΠ΅Π½ ΠΈΠ½ΡΠ΅ΡΠ΅Ρ ΠΊ Π½Π΅ΠΌΡ
Π²ΠΈΡΡΡΠΎΠΏΠΈΡΠ°ΡΠ΅Π»Π΅ΠΉ. ΠΠΎ ΡΠΈΡ
ΠΏΠΎΡ
Π½Π°Π±Π»ΡΠ΄Π°ΡΡΡΡ ΠΌΠ°ΡΡΠΎΠ²ΡΠ΅ ΡΠ°ΡΡΡΠ»ΠΊΠΈ
Π΄ΠΎΠΊΡΠΌΠ΅Π½ΡΠΎΠ² Π² ΡΠΎΡΠΌΠ°ΡΠ°Ρ
Microsoft Office (Π²
ΠΎΡΠ½ΠΎΠ²Π½ΠΎΠΌ, ΠΊΠΎΠ½Π΅ΡΠ½ΠΎ ΠΆΠ΅, Microsoft Word),
ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΠΈΡ
Π² ΡΠ΅Π±Π΅ Π²ΡΠ΅Π΄ΠΎΠ½ΠΎΡΠ½ΡΠΉ ΠΊΠΎΠ΄
Π½Π° VBA. Π ΡΠ²ΡΠ·ΠΈ Ρ ΡΡΠΈΠΌ Π² ΡΠ²Π΅ΠΆΠΈΡ
Π²Π΅ΡΡΠΈΡΡ
«ΠΡΠΈΡΠ°» ΠΊΠΎΡΠΏΠΎΡΠ°ΡΠΈΡ
Microsoft Π΄ΠΎΡΡΠ°ΡΠΎΡΠ½ΠΎ ΡΠ΅ΡΡΠ΅Π·Π½ΠΎ
ΠΏΠΎΡΡΡΠ΄ΠΈΠ»Π°ΡΡ Π½Π°Π΄ Π±Π΅Π·ΠΎΠΏΠ°ΡΠ½ΠΎΡΡΡΡ
ΡΠ°Π±ΠΎΡΡ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ Ρ ΠΌΠ°ΠΊΡΠΎΡΠ°ΠΌΠΈ —
ΠΎΠ½ΠΈ ΠΏΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ ΠΎΡΠΊΠ»ΡΡΠ΅Π½Ρ, ΠΈ ΠΎΡ
ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ ΡΡΠ΅Π±ΡΠ΅ΡΡΡ
ΠΏΠΎΠ΄ΡΠ²Π΅ΡΠΆΠ΄Π°ΡΡ Π±ΡΠΊΠ²Π°Π»ΡΠ½ΠΎ ΠΊΠ°ΠΆΠ΄ΡΠΉ ΡΠ°Π³
ΠΌΠ°ΠΊΡΠΎΡΠ°, ΠΊΠΎΡΠΎΡΡΠΉ ΠΌΠΎΠΆΠ΅Ρ
ΠΏΠΎΡΠ΅Π½ΡΠΈΠ°Π»ΡΠ½ΠΎ ΡΡΠ°ΡΡ ΠΈΡΡΠΎΡΠ½ΠΈΠΊΠΎΠΌ
ΠΊΠ°ΠΊΠΈΡ
-Π»ΠΈΠ±ΠΎ ΠΏΡΠΎΠ±Π»Π΅ΠΌ ΠΈΠ»ΠΈ
Π½Π΅ΠΏΡΠΈΡΡΠ½ΠΎΡΡΠ΅ΠΉ.
Π Π½ΠΎΠ²ΠΎΠΉ Π²Π΅ΡΡΠΈΠΈ Microsoft Office Π΄Π»Ρ Mac OS
ΠΏΠΎΠ΄Π΄Π΅ΡΠΆΠΊΠ° VBA Π±ΡΠ»Π° ΠΏΡΠ΅ΠΊΡΠ°ΡΠ΅Π½Π°, Ρ
ΠΎΡΡ
Π΅Π³ΠΎ Π²ΠΎΠ·Π²ΡΠ°ΡΠ΅Π½ΠΈΡ ΠΎΠΆΠΈΠ΄Π°ΡΡ Π²
Π³ΠΎΡΠΎΠ²ΡΡΠ΅ΠΉΡΡ ΠΊ Π²ΡΠΏΡΡΠΊΡ Π²Π΅ΡΡΠΈΠΈ Office
2011. Π’Π΅ΠΌ Π½Π΅ ΠΌΠ΅Π½Π΅Π΅, Π²Π·Π³Π»ΡΠ΄Ρ ΡΠΊΡΠΏΠ΅ΡΡΠΎΠ²
Π½Π° Π±ΡΠ΄ΡΡΠ΅Π΅ Visual Basic for Applications Π²Π΅ΡΡΠΌΠ°
Π½Π΅ΠΎΠ΄Π½ΠΎΠ·Π½Π°ΡΠ½Ρ ΠΈ Π²Π°ΡΡΠΈΡΡΡΡΡΡ ΠΎΡ
ΠΊΡΠ°ΠΉΠ½Π΅Π³ΠΎ ΠΏΠ΅ΡΡΠΈΠΌΠΈΠ·ΠΌΠ° Π΄ΠΎ
Π±Π΅Π·ΡΠ΄Π΅ΡΠΆΠ½ΠΎΠ³ΠΎ ΠΎΠΏΡΠΈΠΌΠΈΠ·ΠΌΠ°.
ΠΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ ΠΆΠ΅ ΠΏΡΠΎΡΡΠΎ ΠΏΠΎΠ»Π΅Π·Π½ΠΎ
Π·Π½Π°ΡΡ VBA Ρ
ΠΎΡΡ Π±Ρ Π½Π° Π½Π°ΡΠ°Π»ΡΠ½ΠΎΠΌ
ΡΡΠΎΠ²Π½Π΅, ΡΡΠΎΠ±Ρ Π±ΡΡΡ ΡΠΏΠΎΡΠΎΠ±Π½ΡΠΌ
ΡΠΏΡΠ°Π²ΠΈΡΡΡΡ Ρ Π²ΠΎΠ·Π½ΠΈΠΊΠ°ΡΡΠΈΠΌΠΈ Π·Π°Π΄Π°ΡΠ°ΠΌΠΈ
ΠΈ ΠΈΠΌΠ΅ΡΡ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΡ Ρ
ΠΎΡΡ Π±Ρ Π±Π°Π·ΠΎΠ²ΠΎΠΉ
Π°Π²ΡΠΎΠΌΠ°ΡΠΈΠ·Π°ΡΠΈΠΈ ΡΠ²ΠΎΠΈΡ
Π΄Π΅ΠΉΡΡΠ²ΠΈΠΉ.
ΠΠ°Π΄ΠΈΠΌ Π‘Π’ΠΠΠΠΠΠΠ§,
[email protected]
Π§ΡΠΎ ΡΠ°ΠΊΠΎΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ ΠΈ ΠΊΠ°ΠΊ ΠΏΡΠ°Π²ΠΈΠ»ΡΠ½ΠΎ Π΅Ρ ΠΎΠ±ΡΡΠ²ΠΈΡΡ?
Π₯ΠΈΡΡΠΎΡΡΠΈ Β»
1 ΠΠ°ΠΉ 2011 Β Β Β Β ΠΠΌΠΈΡΡΠΈΠΉ Β Β Β Β 166302 ΠΏΡΠΎΡΠΌΠΎΡΡΠΎΠ²
ΠΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ — ΡΡΠΎ Π½Π΅ΠΊΠΈΠΉ ΠΊΠΎΠ½ΡΠ΅ΠΉΠ½Π΅Ρ, Π² ΠΊΠΎΡΠΎΡΠΎΠΌ VBA Ρ ΡΠ°Π½ΠΈΡ Π΄Π°Π½Π½ΡΠ΅. ΠΡΠ»ΠΈ ΠΏΠΎΠ΄ΡΠΎΠ±Π½Π΅Π΅, ΡΠΎ ΡΡΠΎ ΠΊΠ°ΠΊ ΠΊΠΎΡΠΎΠ±ΠΎΡΠΊΠ°, Π² ΠΊΠΎΡΠΎΡΡΡ ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΏΠΎΠ»ΠΎΠΆΠΈΡΡ ΡΡΠΎ-ΡΠΎ Π½Π° Ρ ΡΠ°Π½Π΅Π½ΠΈΠ΅, Π° Π·Π°ΡΠ΅ΠΌ ΠΏΠΎ ΠΌΠ΅ΡΠ΅ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎΡΡΠΈ Π΄ΠΎΡΡΠ°ΡΡ. Π’ΠΎΠ»ΡΠΊΠΎ Π² Π΄Π°Π½Π½ΠΎΠΌ ΡΠ»ΡΡΠ°Π΅ Π² ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ ΠΌΡ Ρ ΡΠ°Π½ΠΈΠΌ ΡΠΈΡΠ»ΠΎ, ΡΡΡΠΎΠΊΡ ΠΈΠ»ΠΈ ΠΈΠ½ΡΠ΅ Π΄Π°Π½Π½ΡΠ΅, ΠΊΠΎΡΠΎΡΡΠ΅ Π·Π°ΡΠ΅ΠΌ ΠΌΠΎΠΆΠ΅ΠΌ ΠΈΠ·Π²Π»Π΅ΠΊΠ°ΡΡ ΠΈΠ· Π½Π΅Ρ ΠΈ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ Π² ΠΊΠΎΠ΄Π΅ ΠΏΠΎ ΠΌΠ΅ΡΠ΅ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎΡΡΠΈ.
ΠΠ»Ρ ΡΠ΅Π³ΠΎ Π½ΡΠΆΠ½Π° ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ? Π§ΡΠΎΠ±Ρ Ρ
ΡΠ°Π½ΠΈΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΠΈ ΠΏΡΠΈΠΌΠ΅Π½ΠΈΡΡ Π΅Π³ΠΎ ΠΏΠΎΠ·ΠΆΠ΅ Π² Π»ΡΠ±ΠΎΠΉ ΠΌΠΎΠΌΠ΅Π½Ρ. ΠΠ°ΠΏΡΠΈΠΌΠ΅Ρ, Π² ΡΡΠ΅ΠΉΠΊΠ΅ Π1 Π·Π°ΠΏΠΈΡΠ°Π½Π° ΡΡΠΌΠΌΠ°, Π° Π½Π°ΠΆΠ°ΡΠΈΠ΅ΠΌ Π½Π° ΠΊΠ½ΠΎΠΏΠΊΡ Π·Π°ΠΏΡΡΠΊΠ°Π΅ΡΡΡ ΠΎΠ±Π½ΠΎΠ²Π»Π΅Π½ΠΈΠ΅ ΠΎΡΡΠ΅ΡΠ°. ΠΠΎΡΠ»Π΅ ΠΎΠ±Π½ΠΎΠ²Π»Π΅Π½ΠΈΡ ΠΎΡΡΠ΅ΡΠ° ΡΡΠΌΠΌΠ° Π² Π1 ΠΈΠ·ΠΌΠ΅Π½ΠΈΡΡΡ. ΠΠ΅ΠΎΠ±Ρ
ΠΎΠ΄ΠΈΠΌΠΎ ΡΠ²Π΅ΡΠΈΡΡ ΡΡΠΌΠΌΡ Π΄ΠΎ ΠΎΠ±Π½ΠΎΠ²Π»Π΅Π½ΠΈΡ Ρ ΡΡΠΌΠΌΠΎΠΉ ΠΏΠΎΡΠ»Π΅ ΠΈ Π² Π·Π°Π²ΠΈΡΠΈΠΌΠΎΡΡΠΈ ΠΎΡ ΡΡΠΎΠ³ΠΎ ΡΠ΄Π΅Π»Π°ΡΡ ΠΊΠ°ΠΊΠΎΠ΅-Π»ΠΈΠ±ΠΎ Π΄Π΅ΠΉΡΡΠ²ΠΈΠ΅. ΠΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ ΠΊΠ°ΠΊ ΡΠ°Π· ΠΏΠΎΠ·Π²ΠΎΠ»ΠΈΡ Π·Π°ΠΏΠΎΠΌΠ½ΠΈΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΡΡΠ΅ΠΉΠΊΠΈ Π΄ΠΎ ΡΠΎΠ³ΠΎ, ΠΊΠ°ΠΊ ΠΎΠ½Π° ΠΎΠ±Π½ΠΎΠ²ΠΈΡΡΡ ΠΈ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΠΈΠΌΠ΅Π½Π½ΠΎ ΡΡΠΎ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΠΏΠΎΡΠ»Π΅ ΠΎΠ±Π½ΠΎΠ²Π»Π΅Π½ΠΈΡ.
Β
Π’ΡΠ΅Π±ΠΎΠ²Π°Π½ΠΈΡ ΠΊ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΠΌ:
Π ΠΊΠ°ΡΠ΅ΡΡΠ²Π΅ ΠΈΠΌΠ΅Π½ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ ΠΌΠΎΠΆΠ½ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΡΠΈΠΌΠ²ΠΎΠ»Ρ Π±ΡΠΊΠ² ΠΈ ΡΠΈΡΠ»Π°, Π½ΠΎ ΠΏΠ΅ΡΠ²ΠΎΠΉ Π² ΠΈΠΌΠ΅Π½ΠΈ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ Π²ΡΠ΅Π³Π΄Π° Π΄ΠΎΠ»ΠΆΠ½Π° Π±ΡΡΡ Π±ΡΠΊΠ²Π°. ΠΠ΅ Π΄ΠΎΠΏΡΡΠΊΠ°Π΅ΡΡΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ ΡΠΎΡΠΊΠΈ, Π·Π°ΠΏΡΡΠΎΠΉ, ΠΏΡΠΎΠ±Π΅Π»Π° ΠΈ ΠΈΠ½ΡΡ Π·Π½Π°ΠΊΠΎΠ² ΠΏΡΠ΅ΠΏΠΈΠ½Π°Π½ΠΈΡ, ΠΊΡΠΎΠΌΠ΅ Π½ΠΈΠΆΠ½Π΅Π³ΠΎ ΠΏΠΎΠ΄ΡΠ΅ΡΠΊΠΈΠ²Π°Π½ΠΈΡ. ΠΠ»ΠΈΠ½Π° ΠΈΠΌΠ΅Π½ΠΈ Π½Π΅ Π΄ΠΎΠ»ΠΆΠ½Π° ΠΏΡΠ΅Π²ΡΡΠ°ΡΡ 254 ΡΠΈΠΌΠ²ΠΎΠ»ΠΎΠ². Π’Π°ΠΊ ΠΆΠ΅ Π½Π΅Π»ΡΠ·Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ Π² ΠΊΠ°ΡΠ΅ΡΡΠ²Π΅ ΠΈΠΌΠ΅Π½ Π΄Π»Ρ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ Π·Π°ΡΠ΅Π·Π΅ΡΠ²ΠΈΡΠΎΠ²Π°Π½Π½ΡΠ΅ ΠΊΠΎΠ½ΡΡΠ°Π½ΡΡ ΡΠ΅Π΄Π°ΠΊΡΠΎΡΠ° VBA(Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ Sub, Msgbox, ubound, Date ΠΈ Ρ.ΠΏ.). Π’Π°ΠΊ ΠΆΠ΅ Π΄Π»Ρ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ Π½Π΅Π²Π°ΠΆΠ΅Π½ ΡΠ΅Π³ΠΈΡΡΡ Π±ΡΠΊΠ².
Β
Π’Π΅ΠΏΠ΅ΡΡ ΡΠ°ΡΡΠΌΠΎΡΡΠΈΠΌ ΠΎΡΠ½ΠΎΠ²Π½ΡΠ΅ Π΄Π΅ΠΊΠ»Π°ΡΠΈΡΠΎΠ²Π°Π½Π½ΡΠ΅ Π² VBA ΡΠΈΠΏΡ Π΄Π°Π½Π½ΡΡ
, ΠΊΠΎΡΠΎΡΡΠ΅ ΠΌΠΎΠΆΠ½ΠΎ Ρ
ΡΠ°Π½ΠΈΡΡ Π² ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ
:
Π’ΠΈΠΏ Π΄Π°Π½Π½ΡΡ | ΠΠ°Π½ΠΈΠΌΠ°Π΅Ρ Π±Π°ΠΉΡ Π² ΠΏΠ°ΠΌΡΡΠΈ | ΠΡΠ΅Π΄Π΅Π»Ρ Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ |
---|---|---|
Byte | 1 | Π¦Π΅Π»ΡΠ΅ ΡΠΈΡΠ»Π° ΠΎΡ 0 Π΄ΠΎ 255 |
Boolean | 2 | True ΠΈΠ»ΠΈ False |
Integer | 2 | Π¦Π΅Π»ΡΠ΅ ΡΠΈΡΠ»Π° ΠΎΡ (-32768) Π΄ΠΎ 32767 |
Long | 4 | Π¦Π΅Π»ΡΠ΅ ΡΠΈΡΠ»Π° ΠΎΡ (-2147483648) Π΄ΠΎ 2147483647 |
Single | 4 | ΠΡ (β3.![]() |
Double | 8 | ΠΡ Β±1.79769313486232Π+308 Π΄ΠΎ Β±4.94065645841247Π-324 |
Decimal | 12 | ΠΡ Β±79228162514264337593543950335 Π±Π΅Π· Π΄Π΅ΡΡΡΠΈΡΠ½ΡΡ Π·Π½Π°ΠΊΠΎΠ² Π΄ΠΎ Β±7,9228162514264337593543950335 Ρ 28-Ρ Π·Π½Π°ΠΊΠ°ΠΌΠΈ ΠΏΠΎΡΠ»Π΅ Π·Π°ΠΏΡΡΠΎΠΉ |
Currency | 8 | ΠΡ (β922337203685477.5808) Π΄ΠΎ 922337203685477.5807 |
Date | 8 | ΠΡ 01.01.100 Π΄ΠΎ 31.12.9999(Π½Π΅ Π½Π°Π΄ΠΎ ΠΏΡΡΠ°ΡΡ Ρ Π΄Π°ΡΠ°ΠΌΠΈ Π² Excel — 01.01.1900 Π΄ΠΎ 31.12.9999) |
String | 10(+Π΄Π»ΠΈΠ½Π° ΡΡΡΠΎΠΊΠΈ) | ΠΡ 0 Π΄ΠΎ 65400 ΡΠΈΠΌΠ²ΠΎΠ»ΠΎΠ² Π΄Π»Ρ ΡΠΈΠΊΡΠΈΡΠΎΠ²Π°Π½Π½ΡΡ ΡΡΡΠΎΠΊ ΠΈ ΡΡΡΡ Π±ΠΎΠ»Π΅Π΅ 2 ΠΌΠ»ΡΠ΄. Π΄Π»Ρ ΡΡΡΠΎΠΊ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ Π΄Π»ΠΈΠ½Ρ |
Object | 4 | ΠΡΠ±ΠΎΠΉ ΠΎΠ±ΡΠ΅ΠΊΡ |
Array | ΠΠΏΡΠ΅Π΄Π΅Π»ΡΠ΅ΡΡΡ ΠΊΠΎΠ»-Π²ΠΎΠΌ ΠΈ ΡΠ°Π·ΠΌΠ΅ΡΠΎΠΌ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠ² | — |
Variant | ΠΎΡ 16-ΡΠΈ | ΠΡΠ±ΠΎΠΉ ΠΈΠ· Π²ΡΡΡΠΎΠ΅Π½Π½ΡΡ ΡΠΈΠΏΠΎΠ² Π΄Π°Π½Π½ΡΡ |
ΠΠ°ΠΊ Π²ΠΈΠ΄Π½ΠΎ ΠΈΠ· ΡΠ°Π±Π»ΠΈΡΡ Π±ΠΎΠ»ΡΡΠ΅ Π²ΡΠ΅Π³ΠΎ ΠΏΠ°ΠΌΡΡΠΈ Π·Π°Π½ΠΈΠΌΠ°Π΅Ρ Variant. ΠΡΠΈΡΠΎΠΌ ΡΡΠΎ Π΅ΡΠ»ΠΈ ΠΎΠ½ Ρ
ΡΠ°Π½ΠΈΡ ΡΠΈΡΠ»ΠΎΠ²ΡΠ΅ Π΄Π°Π½Π½ΡΠ΅. ΠΡΠ»ΠΈ ΠΆΠ΅ ΡΠ°ΠΊΠ°Ρ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ Π±ΡΠ΄Π΅Ρ Ρ
ΡΠ°Π½ΠΈΡΡ Π΄Π°Π½Π½ΡΠ΅ ΡΡΡΠΎΠΊΠΎΠ²ΠΎΠ³ΠΎ ΡΠΈΠΏΠ°(ΡΠ΅ΠΊΡΡ), ΡΠΎ ΡΠ°Π·ΠΌΠ΅Ρ Π·Π°Π½ΠΈΠΌΠ°Π΅ΠΌΠΎΠΉ ΠΏΠ°ΠΌΡΡΠΈ Π±ΡΠ΄Π΅Ρ ΠΈΠ·ΠΌΠ΅ΡΡΡΡΡΡ ΡΠΆΠ΅ Π½Π°ΡΠΈΠ½Π°Ρ Ρ 22 Π±Π°ΠΉΡ + Π΄Π»ΠΈΠ½Π° ΡΡΡΠΎΠΊΠΈ, Ρ
ΡΠ°Π½ΡΡΠ΅ΠΉΡΡ Π² ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ. Π§Π΅ΠΌ Π±ΠΎΠ»ΡΡΠ΅ ΠΏΠ°ΠΌΡΡΠΈ Π·Π°Π½ΠΈΠΌΠ°Π΅Ρ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ, ΡΠ΅ΠΌ Π΄ΠΎΠ»ΡΡΠ΅ ΠΎΠ½Π° ΠΈΠ½ΠΈΡΠΈΠ°Π»ΠΈΠ·ΠΈΡΡΠ΅ΡΡΡ Π² ΠΏΠ°ΠΌΡΡΠΈ ΠΈ ΡΠ΅ΠΌ ΠΌΠ΅Π΄Π»Π΅Π½Π½Π΅Π΅ ΠΊΠΎΠ΄ Π±ΡΠ΄Π΅Ρ Π²ΡΠΏΠΎΠ»Π½ΡΡΡΡΡ. ΠΠΎΡ ΠΏΠΎΡΡΠΎΠΌΡ ΠΈ Π²Π°ΠΆΠ½ΠΎ ΡΠ²Π½ΠΎ Π·Π°Π΄Π°Π²Π°ΡΡ ΡΠΈΠΏ Π΄Π°Π½Π½ΡΡ
, Ρ
ΡΠ°Π½ΠΈΠΌΡΡ
Π² ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ — ΡΡΠΎ Π½Π°Π·ΡΠ²Π°Π΅ΡΡΡ ΠΎΠ±ΡΡΠ²ΠΈΡΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ.
Π’ΠΈΠΏ Π΄Π°Π½Π½ΡΡ Decimal Π±ΠΎΠ»ΡΡΠ΅ Π½Π΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ, ΠΏΠΎΡΡΠΎΠΌΡ ΠΎΠ±ΡΡΠ²ΠΈΡΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ Π΄Π°Π½Π½ΠΎΠ³ΠΎ ΡΠΈΠΏΠ° Π² VBA Π½Π΅ ΠΏΠΎΠ»ΡΡΠΈΡΡΡ — ΠΏΠΎΠ΄ΠΎΠ±Π½Π°Ρ ΠΏΠΎΠΏΡΡΠΊΠ° ΠΏΡΠΈΠ²Π΅Π΄Π΅Ρ ΠΊ ΡΠΈΠ½ΡΠ°ΠΊΡΠΈΡΠ΅ΡΠΊΠΎΠΉ ΠΎΡΠΈΠ±ΠΊΠ΅. ΠΠ»Ρ ΡΠ°Π±ΠΎΡΡ Ρ Π΄Π°Π½Π½ΡΠΌΠΈ ΡΠΈΠΏΠ° Decimal ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΠΈΠ·Π½Π°ΡΠ°Π»ΡΠ½ΠΎ ΠΎΠ±ΡΡΠ²ΠΈΡΡ ΠΊΠ°ΠΊ Variant ΠΈΠ»ΠΈ Π²ΠΎΠΎΠ±ΡΠ΅ Π±Π΅Π· ΡΠΈΠΏΠ° (Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ Dim a), Ρ.ΠΊ. ΡΠΈΠΏ Π΄Π°Π½Π½ΡΡ Variant ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ Π² VBA ΠΏΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ ΠΈ ΠΏΡΠΈΠ½ΠΈΠΌΠ°Π΅Ρ Π»ΡΠ±ΠΎΠΉ ΡΠΈΠΏ Π΄Π°Π½Π½ΡΡ .
Π’Π°ΠΊ ΠΆΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΠΌ ΠΌΠΎΠΆΠ½ΠΎ Π½Π°Π·Π½Π°ΡΠ°ΡΡ ΠΈ Π΄ΡΡΠ³ΠΈΠ΅ ΡΠΈΠΏΡ Π΄Π°Π½Π½ΡΡ
, ΠΊΠΎΡΠΎΡΡΡ
Π½Π΅Ρ Π² ΡΠ°Π±Π»ΠΈΡΠ΅ Π²ΡΡΠ΅ — ΡΡΠΎ ΡΠΈΠΏΡ, ΠΊΠΎΡΠΎΡΡΠ΅ ΠΏΠΎΠ΄Π΄Π΅ΡΠΆΠΈΠ²Π°ΡΡΡΡ ΠΎΠ±ΡΠ΅ΠΊΡΠ½ΠΎΠΉ ΠΌΠΎΠ΄Π΅Π»ΡΡ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠΉ, ΠΊ ΠΊΠΎΡΠΎΡΡΠΌ «ΠΏΠΎΠ΄ΠΊΠ»ΡΡΠ΅Π½» VBA. ΠΠ°ΠΏΡΠΈΠΌΠ΅Ρ, Π΅ΡΠ»ΠΈ Π·Π°ΠΉΡΠΈ Π² VBA ΠΈΠ· Excel, ΡΠΎ Π±ΠΈΠ±Π»ΠΈΠΎΡΠ΅ΠΊΠ° ΡΠΈΠΏΠΎΠ² ΠΎΠ±ΡΠ΅ΠΊΡΠ½ΠΎΠΉ ΠΌΠΎΠ΄Π΅Π»ΠΈ Excel ΠΏΠΎΠ΄ΠΊΠ»ΡΡΠ΅Π½Π° ΠΏΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ ΠΈ Π΄Π»Ρ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ
ΡΡΠ°Π½ΠΎΠ²ΠΈΡΡΡ Π΄ΠΎΡΡΡΠΏΠ½ΠΎ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²ΠΎ ΡΠΈΠΏΠΎΠ² ΡΡΠΎΠΉ ΠΎΠ±ΡΠ΅ΠΊΡΠ½ΠΎΠΉ ΠΌΠΎΠ΄Π΅Π»ΠΈ. ΠΠ½ΠΎΠ³ΠΈΠ΅ ΠΈΠ· Π½ΠΈΡ
Π·Π½Π°ΠΊΠΎΠΌΡ Π²ΡΠ΅ΠΌ: Workbook, Worksheet, Range, Cells, Chart ΠΈ Ρ.Π΄. Π’.Π΅. ΡΡΠΎ ΠΊΠ½ΠΈΠ³ΠΈ, Π»ΠΈΡΡΡ, ΡΡΠ΅ΠΉΠΊΠΈ, Π΄ΠΈΠ°Π³ΡΠ°ΠΌΠΌΡ. Π’ΠΈΠΏΠΎΠ² ΠΌΠ½ΠΎΠ³ΠΎ, ΠΏΠΎΡΡΠΈ Π½Π° ΠΊΠ°ΠΆΠ΄ΡΠΉ ΠΎΠ±ΡΠ΅ΠΊΡ ΠΈ ΠΊΠΎΠ»Π»Π΅ΠΊΡΠΈΡ. Π Π°ΡΡΠΌΠ°ΡΡΠΈΠ²Π°ΡΡ Π·Π΄Π΅ΡΡ Π²ΡΠ΅ Π±Π΅ΡΡΠΌΡΡΠ»Π΅Π½Π½ΠΎ. ΠΠΎΠ³Ρ Π»ΠΈΡΡ ΠΏΡΠΈΠ²Π΅ΡΡΠΈ ΠΏΠ°ΡΡ ΡΡΡΠΎΠΊ ΠΊΠΎΠ΄Π°:
Dim rRange as Range 'Π½Π°Π·Π½Π°ΡΠΈΠ»ΠΈ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ ΡΠΈΠΏ ΡΡΠ΅ΠΉΠΊΠ°/Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ Set rRange = Range("A1") 'ΠΏΡΠΈΡΠ²ΠΎΠΈΠ»ΠΈ ΡΡΡΠ»ΠΊΡ Π½Π° ΡΡΠ΅ΠΉΠΊΡ A1 ΡΠ΅ΠΊΡΡΠ΅Π³ΠΎ Π»ΠΈΡΡΠ° |
Dim rRange as Range ‘Π½Π°Π·Π½Π°ΡΠΈΠ»ΠΈ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ ΡΠΈΠΏ ΡΡΠ΅ΠΉΠΊΠ°/Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½
Set rRange = Range(«A1») ‘ΠΏΡΠΈΡΠ²ΠΎΠΈΠ»ΠΈ ΡΡΡΠ»ΠΊΡ Π½Π° ΡΡΠ΅ΠΉΠΊΡ A1 ΡΠ΅ΠΊΡΡΠ΅Π³ΠΎ Π»ΠΈΡΡΠ°
ΠΡΠΎ ΠΎΠ±ΡΡΠ²Π»Π΅Π½ΠΈΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ
ΠΏΠΎΠ΄ΡΠΎΠ±Π½ΠΎ Π½Π°ΠΏΠΈΡΠ°Π½ΠΎ ΡΡΡΡ Π½ΠΈΠΆΠ΅.
Π Π±ΠΎΠ»Π΅Π΅ ΠΏΠΎΠ΄ΡΠΎΠ±Π½ΠΎ ΠΏΡΠΎ ΠΎΠ±ΡΠ°ΡΠ΅Π½ΠΈΠ΅ ΠΊ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π°ΠΌ ΠΈΠ· VBA ΠΌΠΎΠΆΠ½ΠΎ ΠΏΠΎΡΠΈΡΠ°ΡΡ Π² ΡΡΠΎΠΉ ΡΡΠ°ΡΡΠ΅: ΠΠ°ΠΊ ΠΎΠ±ΡΠ°ΡΠΈΡΡΡΡ ΠΊ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Ρ ΠΈΠ· VBA
Β
ΠΊΠ°ΠΊ ΠΎΠ±ΡΡΠ²Π»ΡΡΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΠ΅
ΠΠ° ΡΠ°ΠΌΠΎΠΌ Π΄Π΅Π»Π΅ Π²ΡΠ΅ ΠΎΡΠ΅Π½Ρ ΠΏΡΠΎΡΡΠΎ. ΠΡΠΎ Π΄Π΅Π»Π°Π΅ΡΡΡ ΠΏΡΠΈ ΠΏΠΎΠΌΠΎΡΠΈ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΠΎΠ² ΠΎΠ±Π»Π°ΡΡΠΈ Π΄Π΅ΠΉΡΡΠ²ΠΈΡ: Dim, Public,Static ΠΈ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΠ° ΠΏΡΠΈΡΠ²ΠΎΠ΅Π½ΠΈΡ ΡΠΈΠΏΠ° As. Π‘Π°ΠΌΡΠΉ ΡΠ°ΡΠΏΡΠΎΡΡΡΠ°Π½Π΅Π½Π½ΡΠΉ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡ — Dim. ΠΠ³ΠΎ ΠΈ Π²ΠΎΠ·ΡΠΌΠ΅ΠΌ Π² ΠΊΠ°ΡΠ΅ΡΡΠ²Π΅ ΠΏΡΠΈΠΌΠ΅ΡΠ°. Π‘ΠΈΠ½ΡΠ°ΠΊΡΠΈΡ ΠΎΠ±ΡΡΠ²Π»Π΅Π½ΠΈΡ:
[ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡ ΠΎΠ±Π»Π°ΡΡΠΈ Π΄Π΅ΠΉΡΡΠ²ΠΈΡ] ΠΠΌΡ_ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ As [ΡΠΈΠΏ Π΄Π°Π½Π½ΡΡ ] |
[ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡ ΠΎΠ±Π»Π°ΡΡΠΈ Π΄Π΅ΠΉΡΡΠ²ΠΈΡ] ΠΠΌΡ_ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ As [ΡΠΈΠΏ Π΄Π°Π½Π½ΡΡ ]
ΠΡΠ΅Π½Ρ ΡΠ°ΡΡΠ°Ρ ΠΎΡΠΈΠ±ΠΊΠ° ΠΏΡΠΈ ΠΎΠ±ΡΡΠ²Π»Π΅Π½ΠΈΠΈ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ , ΡΠΎΠ²Π΅ΡΡΠ°Π΅ΠΌΠ°Ρ Π½Π°ΡΠΈΠ½Π°ΡΡΠΈΠΌΠΈ ΠΈΠ·ΡΡΠ°ΡΡ VBA:
Dim MyVar1, MyVar2, MyVar3 As Integer |
Dim MyVar1, MyVar2, MyVar3 As Integer
ΠΡΠΎΠ΄Π΅ Π±Ρ ΠΈΡΡ
ΠΎΠ΄Ρ ΠΈΠ· Π»ΠΎΠ³ΠΈΠΊΠΈ Π²ΡΠ΅ΠΌ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΠΌ ΠΏΡΠΈΡΠ²ΠΎΠ΅Π½ ΡΠΈΠΏ Π΄Π°Π½Π½ΡΡ
Integer. ΠΠΎ ΡΡΠΎ ΠΎΡΠΈΠ±ΠΎΡΠ½ΠΎΠ΅ ΡΡΠΆΠ΄Π΅Π½ΠΈΠ΅. Π’ΠΈΠΏΒ Integer ΠΏΡΠΈΡΠ²ΠΎΠ΅Π½ ΡΠΎΠ»ΡΠΊΠΎ ΠΏΠΎΡΠ»Π΅Π΄Π½Π΅ΠΉ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ, ΠΊ ΠΊΠΎΡΠΎΡΠΎΠΉ ΠΎΠ½ «ΠΏΡΠΈΠ²ΡΠ·Π°Π½» ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΠΎΠΌ As — MyVar3. ΠΡΠ΅ ΠΎΡΡΠ°Π»ΡΠ½ΡΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΠ΅ ΠΈΠΌΠ΅ΡΡ ΡΠΈΠΏ Π΄Π°Π½Π½ΡΡ
Variant. Π’.Π΅. Π΅ΡΠ»ΠΈ ΠΡ Π½Π΅ Π·Π°Π΄Π°Π΅ΡΠ΅ ΠΊΠ°ΠΆΠ΄ΠΎΠΉ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ ΡΠ²ΠΎΠΉ ΡΠΈΠΏ Ρ
ΡΠ°Π½ΠΈΠΌΡΡ
Π΄Π°Π½Π½ΡΡ
ΡΠ²Π½ΠΎ(Ρ.Π΅. Π½Π΅ ΡΠΊΠ°Π·ΡΠ²Π°Π΅ΡΠ΅ Π΄Π»Ρ Π½Π΅Ρ ΡΠΈΠΏ Π΄Π°Π½Π½ΡΡ
ΡΠ΅ΡΠ΅Π· As), ΡΠΎ VBA ΡΠ°ΠΌ ΠΏΡΠΈΡΠ²Π°ΠΈΠ²Π°Π΅Ρ Π΄Π»Ρ ΡΠ°ΠΊΠΎΠΉ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ ΡΠΈΠΏ Π΄Π°Π½Π½ΡΡ
Variant, Ρ. ΠΊ. ΠΎΠ½ ΠΌΠΎΠΆΠ΅Ρ Ρ
ΡΠ°Π½ΠΈΡΡ Π»ΡΠ±ΠΎΠΉ ΡΠΈΠΏ Π΄Π°Π½Π½ΡΡ
. Π Π²ΠΎΡ ΡΠ°ΠΊ Π²ΡΠ³Π»ΡΠ΄ΠΈΡ ΠΏΡΠ°Π²ΠΈΠ»ΡΠ½ΠΎΠ΅ ΠΏΡΠΈΡΠ²ΠΎΠ΅Π½ΠΈΠ΅ ΡΠΈΠΏΠ° Π΄Π°Π½Π½ΡΡ
:
Dim MyVar1 As Integer, MyVar2 As Integer, MyVar3 As Integer |
Dim MyVar1 As Integer, MyVar2 As Integer, MyVar3 As Integer
ΠΡΠΎ ΠΈ Π΅ΡΡΡ ΠΎΠ±ΡΡΠ²Π»Π΅Π½ΠΈΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ
. Π’.Π΅. ΡΠ½Π°ΡΠ°Π»Π° ΠΈΠ΄Π΅Ρ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡ ΠΎΠ±Π»Π°ΡΡΠΈ Π΄Π΅ΠΉΡΡΠ²ΠΈΡ (Dim, Public,Static), ΡΡΠ°Π·Ρ Π·Π° Π½ΠΈΠΌ ΠΈΠΌΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ, Π·Π°ΡΠ΅ΠΌ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡ As ΠΈ ΡΠΈΠΏ.
ΠΠΎ ΡΡΠΎ Π½Π΅ Π²ΡΠ΅. ΠΠ΅ΠΊΠΎΡΠΎΡΡΠ΅ ΡΠΈΠΏΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΠΌ ΠΌΠΎΠΆΠ½ΠΎ ΠΏΡΠΈΡΠ²Π°ΠΈΠ²Π°ΡΡ Π΅ΡΠ΅ ΠΊΠΎΡΠΎΡΠ΅ — Π΄Π°ΠΆΠ΅ Π±Π΅Π· ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΠ° As:
Dim MyVar1%, MyVar2%, MyVar3% |
Dim MyVar1%, MyVar2%, MyVar3%
ΠΡΠ΅Π³ΠΎ ΡΠ΅ΡΡΡ ΡΠΈΠΏΠΎΠ², ΠΊΠΎΡΠΎΡΡΠ΅ ΠΌΠΎΠΆΠ½ΠΎ ΠΎΠ±ΡΡΠ²ΠΈΡΡ ΠΏΠΎΠ΄ΠΎΠ±Π½ΡΠΌ ΠΌΠ΅ΡΠΎΠ΄ΠΎΠΌ:
! — Single
# — Double
$ — String
% — Integer
& — Long
@ — Currency
ΠΠ° ΡΡΠΎ ΡΡΠΎΠΈΡ ΠΎΠ±ΡΠ°ΡΠΈΡΡ Π²Π½ΠΈΠΌΠ°Π½ΠΈΠ΅, ΠΏΡΠΈ ΠΎΠ±ΡΡΠ²Π»Π΅Π½ΠΈΠΈ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ
ΠΏΠΎΠ΄ΠΎΠ±Π½ΡΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ: ΠΌΠ΅ΠΆΠ΄Ρ ΠΈΠΌΠ΅Π½Π΅ΠΌ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ ΠΈ Π·Π½Π°ΠΊΠΎΠΌ ΡΠΈΠΏΠ° Π½Π΅ Π΄ΠΎΠ»ΠΆΠ½ΠΎ Π±ΡΡΡ ΠΏΡΠΎΠ±Π΅Π»ΠΎΠ².
Π― Π»ΠΈΡΠ½ΠΎ Π² Π±ΠΎΠ»ΡΡΠΈΠ½ΡΡΠ²Π΅ ΡΡΠ°ΡΠ΅ΠΉ ΠΏΡΠ΅Π΄ΠΏΠΎΡΠΈΡΠ°Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΠΏΠ΅ΡΠ²ΡΠΉ ΠΌΠ΅ΡΠΎΠ΄, Ρ. Π΅. ΠΏΠΎΠ»Π½ΠΎΠ΅ ΡΠΊΠ°Π·Π°Π½ΠΈΠ΅ ΡΠΈΠΏΠ°. ΠΡΠΎ ΡΠΈΡΠ°Π±Π΅Π»ΡΠ½Π΅Π΅ ΠΈ ΠΏΠΎΠ½ΡΡΠ½Π΅Π΅. Π ΠΊΠ°ΠΊΠΈΡ
-ΡΠΎ ΠΏΡΠΎΠ΅ΠΊΡΠ°Ρ
ΠΌΠΎΠ³Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΠΊΡΠ°ΡΠΊΠΎΠ΅ ΡΠΊΠ°Π·Π°Π½ΠΈΠ΅, Π² ΠΎΠ±ΡΠΈΡ
(ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠ° Π² ΠΊΠΎΠΌΠ°Π½Π΄Π΅) — ΠΏΠΎΠ»Π½ΠΎΠ΅. Π ΡΠ²ΠΎΠΈΡ
ΠΊΠΎΠ΄Π°Ρ
ΠΡ Π²ΠΏΡΠ°Π²Π΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΡΠ΄ΠΎΠ±Π½ΡΠΉ ΠΠ°ΠΌ ΠΌΠ΅ΡΠΎΠ΄ — ΠΎΡΠΈΠ±ΠΊΠΈ Π½Π΅ Π±ΡΠ΄Π΅Ρ.
Π’Π΅ΠΏΠ΅ΡΡ ΡΠ°Π·Π±Π΅ΡΠ΅ΠΌΡΡ Ρ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΠ°ΠΌΠΈ ΠΎΠ±Π»Π°ΡΡΠΈ Π΄Π΅ΠΉΡΡΠ²ΠΈΡ(Dim, Public ΠΈ Static):
- Dim — Π΄Π°Π½Π½ΡΠΉ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ Π΄Π»Ρ ΠΎΠ±ΡΡΠ²Π»Π΅Π½ΠΈΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ, Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΠΊΠΎΡΠΎΡΠΎΠΉ Π±ΡΠ΄Π΅Ρ Ρ
ΡΠ°Π½ΠΈΡΡΡΡ ΡΠΎΠ»ΡΠΊΠΎ Π² ΡΠΎΠΉ ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ΅, Π²Π½ΡΡΡΠΈ ΠΊΠΎΡΠΎΡΠΎΠΉ Π΄Π°Π½Π½Π°Ρ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ ΠΎΠ±ΡΡΠ²Π»Π΅Π½Π°. ΠΠΎ Π²ΡΠ΅ΠΌΡ Π·Π°ΠΏΡΡΠΊΠ° ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ ΡΠ°ΠΊΠ°Ρ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ ΠΈΠ½ΠΈΡΠΈΠ°Π»ΠΈΠ·ΠΈΡΡΠ΅ΡΡΡ Π² ΠΏΠ°ΠΌΡΡΠΈ, ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ Π΅Ρ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ Π²Π½ΡΡΡΠΈ ΡΠΎΠ»ΡΠΊΠΎ ΡΡΠΎΠΉ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ ΠΈ ΠΏΠΎ Π·Π°Π²Π΅ΡΡΠ΅Π½ΠΈΡ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ Π²ΡΠ³ΡΡΠΆΠ°Π΅ΡΡΡ ΠΈΠ· ΠΏΠ°ΠΌΡΡΠΈ(ΠΎΠ±Π½ΡΠ»ΡΠ΅ΡΡΡ) ΠΈ Π΄Π°Π½Π½ΡΠ΅ ΠΏΠΎ Π½Π΅ΠΉ ΡΠ΅ΡΡΡΡΡΡ. ΠΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ, ΠΎΠ±ΡΡΠ²Π»Π΅Π½Π½ΡΡ ΠΏΠΎΠ΄ΠΎΠ±Π½ΡΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ Π΅ΡΠ΅ Π½Π°Π·ΡΠ²Π°ΡΡ Π»ΠΎΠΊΠ°Π»ΡΠ½ΠΎΠΉ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ. ΠΠ΄Π½Π°ΠΊΠΎ Ρ ΠΏΠΎΠΌΠΎΡΡΡ Π΄Π°Π½Π½ΠΎΠ³ΠΎ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΠ° ΠΌΠΎΠΆΠ½ΠΎ ΠΎΠ±ΡΡΠ²ΠΈΡΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ, ΠΊΠΎΡΠΎΡΠ°Ρ Π±ΡΠ΄Π΅Ρ Π΄ΠΎΡΡΡΠΏΠ½Π° Π² Π»ΡΠ±ΠΎΠΉ ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ΅ ΠΌΠΎΠ΄ΡΠ»Ρ. ΠΠ΅ΠΎΠ±Ρ
ΠΎΠ΄ΠΈΠΌΠΎ ΠΎΠ±ΡΡΠ²ΠΈΡΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ Π²Π½Π΅ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ — Π² ΠΎΠ±Π»Π°ΡΡΠΈ ΠΎΠ±ΡΡΠ²Π»Π΅Π½ΠΈΠΉ(ΡΠΈΡΠ°ΡΡ ΠΊΠ°ΠΊ ΠΏΠ΅ΡΠ²ΠΎΠΉ ΡΡΡΠΎΠΊΠΎΠΉ Π² ΠΌΠΎΠ΄ΡΠ»Π΅, ΠΏΠΎΡΠ»Π΅ ΡΡΡΠΎΠΊ ΠΎΠ±ΡΡΠ²Π»Π΅Π½ΠΈΠΉ ΡΠΈΠΏΠ° — Option Explicit).
Π’ΠΎΠ³Π΄Π° Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ Π±ΡΠ΄Π΅Ρ Π΄ΠΎΡΡΡΠΏΠ½ΠΎ Π² Π»ΡΠ±ΠΎΠΉ ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ΅ Π»ΠΈΡΡ ΡΠΎΠ³ΠΎ ΠΌΠΎΠ΄ΡΠ»Ρ, Π² ΠΊΠΎΡΠΎΡΠΎΠΌ Π΄Π°Π½Π½Π°Ρ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ Π±ΡΠ»Π° ΠΎΠ±ΡΡΠ²Π»Π΅Π½Π°. Π’Π°ΠΊΠΈΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΠ΅ Π½Π°Π·ΡΠ²Π°ΡΡΡΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΠΌΠΈ ΡΡΠΎΠ²Π½Ρ ΠΌΠΎΠ΄ΡΠ»Ρ.
- Static — Π΄Π°Π½Π½ΡΠΉ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ Π΄Π»Ρ ΠΎΠ±ΡΡΠ²Π»Π΅Π½ΠΈΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ, Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΠΊΠΎΡΠΎΡΠΎΠΉ ΠΏΡΠ΅Π΄ΠΏΠΎΠ»Π°Π³Π°Π΅ΡΡΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ Π²Π½ΡΡΡΠΈ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ, Π½ΠΎ Π½Π΅ ΡΠ΅ΡΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΡ Π΄Π°Π½Π½ΠΎΠΉ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ ΠΏΠΎ Π·Π°Π²Π΅ΡΡΠ΅Π½ΠΈΠΈ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ. ΠΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΠ΅ Π΄Π°Π½Π½ΠΎΠ³ΠΎ ΡΠΈΠΏΠ° ΠΎΠ±ΡΡΠ½ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡΡ Π² ΠΊΠ°ΡΠ΅ΡΡΠ²Π΅ Π½Π°ΠΊΠΎΠΏΠΈΡΠ΅Π»ΡΠ½ΡΡ ΡΡΠ΅ΡΡΠΈΠΊΠΎΠ². Π’Π°ΠΊΠ°Ρ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ ΠΈΠ½ΠΈΡΠΈΠ°Π»ΠΈΠ·ΠΈΡΡΠ΅ΡΡΡ Π² ΠΏΠ°ΠΌΡΡΠΈ ΠΏΡΠΈ ΠΏΠ΅ΡΠ²ΠΎΠΌ Π·Π°ΠΏΡΡΠΊΠ΅ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ, Π² ΠΊΠΎΡΠΎΡΠΎΠΉ ΠΎΠ½Π° ΠΎΠ±ΡΡΠ²Π»Π΅Π½Π°. ΠΠΎ Π·Π°Π²Π΅ΡΡΠ΅Π½ΠΈΠΈ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ Π΄Π°Π½Π½ΡΠ΅ ΠΏΠΎ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ Π½Π΅ Π²ΡΠ³ΡΡΠΆΠ°ΡΡΡΡ ΠΈΠ· ΠΏΠ°ΠΌΡΡΠΈ, Π½ΠΎ ΠΎΠ΄Π½Π°ΠΊΠΎ ΠΎΠ½ΠΈ Π½Π΅ Π΄ΠΎΡΡΡΠΏΠ½Ρ Π² Π΄ΡΡΠ³ΠΈΡ ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ°Ρ . ΠΠ°ΠΊ ΡΠΎΠ»ΡΠΊΠΎ ΠΡ Π·Π°ΠΏΡΡΡΠΈΡΠ΅ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ Ρ ΡΡΠΎΠΉ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ Π΅ΡΠ΅ ΡΠ°Π· — Π΄Π°Π½Π½ΡΠ΅ ΠΏΠΎ ΡΠ°ΠΊΠΎΠΉ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ Π±ΡΠ΄ΡΡ Π΄ΠΎΡΡΡΠΏΠ½Ρ Π² ΡΠΎΠΌ Π²ΠΈΠ΄Π΅, Π² ΠΊΠΎΡΠΎΡΠΎΠΌ Π±ΡΠ»ΠΈ Π΄ΠΎ Π·Π°Π²Π΅ΡΡΠ΅Π½ΠΈΡ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ. ΠΡΠ³ΡΡΠΆΠ°Π΅ΡΡΡ ΠΈΠ· ΠΏΠ°ΠΌΡΡΠΈ ΡΠ°ΠΊΠ°Ρ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ ΡΠΎΠ»ΡΠΊΠΎ ΠΏΠΎΡΠ»Π΅ Π·Π°ΠΊΡΡΡΠΈΡ ΠΏΡΠΎΠ΅ΠΊΡΠ°(ΠΊΠ½ΠΈΠ³ΠΈ Ρ ΠΊΠΎΠ΄ΠΎΠΌ). Π ΠΏΡΠΎΡΡΠΎΠ½Π°ΡΠΎΠ΄ΡΠ΅ ΡΠ°ΠΊΠΈΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΠ΅ ΡΠ°ΡΠ΅ Π½Π°Π·ΡΠ²Π°ΡΡ Π³Π»ΠΎΠ±Π°Π»ΡΠ½ΡΠΌΠΈ(Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎ ΠΈΠ·-Π·Π° ΡΠΎΠ³ΠΎ, ΡΡΠΎ ΡΠ°Π½ΡΡΠ΅ ΠΏΠΎΠ΄ΠΎΠ±Π½ΡΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΠ΅ ΠΎΠ±ΡΡΠ²Π»ΡΠ»ΠΈΡΡ ΠΏΡΠΈ ΠΏΠΎΠΌΠΎΡΠΈ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΠ° Global, ΠΊΠΎΡΠΎΡΡΠΉ Π² Π½Π°ΡΡΠΎΡΡΠ΅Π΅ Π²ΡΠ΅ΠΌΡ ΡΡΡΠ°ΡΠ΅Π» ΠΈ Π½Π΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ)
- Public — Π΄Π°Π½Π½ΡΠΉ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ Π΄Π»Ρ ΠΎΠ±ΡΡΠ²Π»Π΅Π½ΠΈΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ, Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΠΊΠΎΡΠΎΡΠΎΠΉ Π±ΡΠ΄Π΅Ρ Π΄ΠΎΡΡΡΠΏΠ½ΠΎ Π² Π»ΡΠ±ΠΎΠΉ ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ΅ ΠΏΡΠΎΠ΅ΠΊΡΠ°(Π² ΠΎΠ±ΡΡΠ½ΡΡ
ΠΌΠΎΠ΄ΡΠ»ΡΡ
, ΠΌΠΎΠ΄ΡΠ»ΡΡ
ΠΊΠ»Π°ΡΡΠ°, ΠΌΠΎΠ΄ΡΠ»ΡΡ
ΡΠΎΡΠΌ, ΠΌΠΎΠ΄ΡΠ»ΡΡ
Π»ΠΈΡΡΠΎΠ² ΠΈ ΠΊΠ½ΠΈΠ³).
ΠΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ, ΠΎΠ±ΡΡΠ²Π»Π΅Π½Π½Π°Ρ ΠΏΠΎΠ΄ΠΎΠ±Π½ΡΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ, Π΄ΠΎΠ»ΠΆΠ½Π° Π±ΡΡΡ ΠΎΠ±ΡΡΠ²Π»Π΅Π½Π° Π²Π½Π΅ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ — Π² ΠΎΠ±Π»Π°ΡΡΠΈ ΠΎΠ±ΡΡΠ²Π»Π΅Π½ΠΈΠΉ. Π’Π°ΠΊΠ°Ρ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ Π·Π°Π³ΡΡΠΆΠ°Π΅ΡΡΡ Π² ΠΏΠ°ΠΌΡΡΡ Π²ΠΎ Π²ΡΠ΅ΠΌΡ Π·Π°Π³ΡΡΠ·ΠΊΠΈ ΠΏΡΠΎΠ΅ΠΊΡΠ°(ΠΏΡΠΈ ΠΎΡΠΊΡΡΡΠΈΠΈ ΠΊΠ½ΠΈΠ³ΠΈ) ΠΈ Ρ ΡΠ°Π½ΠΈΡ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ Π΄ΠΎ Π²ΡΠ³ΡΡΠ·ΠΊΠΈ ΠΏΡΠΎΠ΅ΠΊΡΠ°(Π·Π°ΠΊΡΡΡΠΈΡ ΠΊΠ½ΠΈΠ³ΠΈ). ΠΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ Π΅Ρ ΠΌΠΎΠΆΠ½ΠΎ Π² Π»ΡΠ±ΠΎΠΌ ΠΌΠΎΠ΄ΡΠ»Π΅ ΠΈ Π»ΡΠ±ΠΎΠΉ ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ΅ ΠΏΡΠΎΠ΅ΠΊΡΠ°. ΠΠ°ΠΆΠ½ΠΎ: ΠΎΠ±ΡΡΠ²Π»ΡΡΡ ΠΏΠΎΠ΄ΠΎΠ±Π½ΡΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΡΡΡΠΎΠ³ΠΎ Π² ΡΡΠ°Π½Π΄Π°ΡΡΠ½ΠΎΠΌ ΠΌΠΎΠ΄ΡΠ»Π΅. Π’Π°ΠΊΠΈΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΠ΅ Π½Π°Π·ΡΠ²Π°ΡΡΡΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΠΌΠΈ ΡΡΠΎΠ²Π½Ρ ΠΏΡΠΎΠ΅ΠΊΡΠ°.
ΠΠ»Ρ Π±ΠΎΠ»ΡΡΠ΅Π³ΠΎ ΠΏΠΎΠ½ΠΈΠΌΠ°Π½ΠΈΡ ΡΠΎΠ³ΠΎ, Π³Π΄Π΅ ΠΈ ΠΊΠ°ΠΊ ΠΎΠ±ΡΡΠ²Π»ΡΡΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΠ΅ ΡΡΠΎΠ²Π½Ρ ΠΏΡΠΎΠ΅ΠΊΡΠ° Π΄Π²Π° Π½Π΅Π±ΠΎΠ»ΡΡΠΈΡ ΠΏΡΠΈΠΌΠ΅ΡΠ°.
ΠΠ΅ΠΏΡΠ°Π²ΠΈΠ»ΡΠ½ΠΎΠ΅ ΠΎΠ±ΡΡΠ²Π»Π΅Π½ΠΈΠ΅Option Explicit Β Sub main() Public MyVariable As String MyVariable = "ΠΠ»ΠΎΠ±Π°Π»ΡΠ½Π°Ρ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ" 'ΠΏΠΎΠΊΠ°Π·ΡΠ²Π°Π΅ΠΌ ΡΠ΅ΠΊΡΡΠ΅Π΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ MsgBox MyVariable 'ΠΏΡΠΎΠ±ΡΠ΅ΠΌ ΠΈΠ·ΠΌΠ΅Π½ΠΈΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ Call sub_main 'ΠΏΠΎΠΊΠ°Π·ΡΠ²Π°Π΅ΠΌ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½Π½ΠΎΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ MsgBox MyVariable End Sub 'Π΄ΠΎΠΏ.ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΡ Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ Sub ChangeMyVariable() MyVariable = "ΠΠ·ΠΌΠ΅Π½ΠΈΠ»ΠΈ Π΅Ρ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅" End Sub
Option Explicit
Sub main()
Public MyVariable As String
MyVariable = «ΠΠ»ΠΎΠ±Π°Π»ΡΠ½Π°Ρ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ»
‘ΠΏΠΎΠΊΠ°Π·ΡΠ²Π°Π΅ΠΌ ΡΠ΅ΠΊΡΡΠ΅Π΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ
MsgBox MyVariable
‘ΠΏΡΠΎΠ±ΡΠ΅ΠΌ ΠΈΠ·ΠΌΠ΅Π½ΠΈΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ
Call sub_main
‘ΠΏΠΎΠΊΠ°Π·ΡΠ²Π°Π΅ΠΌ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½Π½ΠΎΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ
MsgBox MyVariable
End Sub
‘Π΄ΠΎΠΏ.ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΡ Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ
Sub ChangeMyVariable()
MyVariable = «ΠΠ·ΠΌΠ΅Π½ΠΈΠ»ΠΈ Π΅Ρ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅»
End SubΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΠ΅ Π½Π΅ Π±ΡΠ΄ΡΡ Π²ΠΈΠ΄Π½Ρ Π²ΠΎ Π²ΡΠ΅Ρ ΠΌΠΎΠ΄ΡΠ»ΡΡ Π²ΡΠ΅Ρ ΠΏΡΠΎΡΠ΅Π΄ΡΡ ΠΈ ΡΡΠ½ΠΊΡΠΈΠΉ ΠΏΡΠΎΠ΅ΠΊΡΠ°, ΠΏΠΎΡΠΎΠΌΡ ΡΡΠΎ:
1. ΠΠΏΠ΅ΡΠ°ΡΠΎΡ Public Π½Π΅Π΄ΠΎΠΏΡΡΡΠΈΠΌ Π²Π½ΡΡΡΠΈ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ(ΠΌΠ΅ΠΆΠ΄Ρ Sub ΠΈ End Sub), ΠΏΠΎΡΡΠΎΠΌΡ VBA ΠΏΡΠΈ ΠΏΠΎΠΏΡΡΠΊΠ΅ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ ΡΠ°ΠΊΠΎΠΉ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ ΠΎΠ±ΡΠ·Π°ΡΠ΅Π»ΡΠ½ΠΎ Π²ΡΠ΄Π°ΡΡ ΠΎΡΠΈΠ±ΠΊΡ — Invalid Attribut in Sub or Function.
2. ΠΠ°ΠΆΠ΅ Π΅ΡΠ»ΠΈ Public Π·Π°ΠΌΠ΅Π½ΠΈΡΡ Π½Π° Dim — ΡΡΠΎ ΡΠΆΠ΅ Π±ΡΠ΄Π΅Ρ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ ΡΡΠΎΠ²Π½Ρ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ ΠΈ Π΄Π»Ρ Π΄ΡΡΠ³ΠΈΡ ΠΏΡΠΎΡΠ΅Π΄ΡΡ Π±ΡΠ΄Π΅Ρ Π½Π΅Π΄ΠΎΡΡΡΠΏΠ½Π°.
3. Π’.ΠΊ. ΠΎΠ±ΡΡΠ²Π»Π΅Π½ΠΈΠ΅ Π½Π΅Π²Π΅ΡΠ½ΠΎΠ΅ — Π²ΡΠΎΡΠ°Ρ ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ°(ChangeMyVariable) Π½ΠΈΡΠ΅Π³ΠΎ Π½Π΅ Π·Π½Π°Π΅Ρ ΠΎ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ MyVariable ΠΈ Π΅ΡΡΠ΅ΡΡΠ²Π΅Π½Π½ΠΎ, Π½Π΅ ΡΠΌΠΎΠΆΠ΅Ρ ΠΈΠ·ΠΌΠ΅Π½ΠΈΡΡ ΠΈΠΌΠ΅Π½Π½ΠΎ Π΅Ρ.
ΠΡΠ°Π²ΠΈΠ»ΡΠ½ΠΎΠ΅ ΠΎΠ±ΡΡΠ²Π»Π΅Π½ΠΈΠ΅'Π²ΡΡΠ΅ Π³Π»ΠΎΠ±Π°Π»ΡΠ½ΡΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ ΠΈ ΠΊΠΎΠ½ΡΡΠ°Π½Ρ ΠΌΠΎΠ³ΡΡ Π±ΡΡΡ ΡΠΎΠ»ΡΠΊΠΎ Π΄Π΅ΠΊΠ»Π°ΡΠ°ΡΠΈΠΈ: Option Explicit 'ΠΏΡΠΈΠ½ΡΠ΄ΠΈΡΠ΅Π»ΡΠ½ΠΎΠ΅ ΠΎΠ±ΡΡΠ²Π»Π΅Π½ΠΈΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ Option Base 1 'Π½ΠΈΠΆΠ½ΡΡ Π³ΡΠ°Π½ΠΈΡΠ° ΠΎΠ±ΡΡΠ²Π»ΡΠ΅ΠΌΡΡ ΠΌΠ°ΡΡΠΈΠ²ΠΎΠ² Π½Π°ΡΠΈΠ½Π°Π΅ΡΡΡ Ρ 1 Option Compare Text 'ΡΡΠ°Π²Π½Π΅Π½ΠΈΠ΅ ΡΠ΅ΠΊΡΡΠ° Π±Π΅Π· ΡΡΠ΅ΡΠ° ΡΠ΅Π³ΠΈΡΡΡΠ° 'Π³Π»ΠΎΠ±Π°Π»ΡΠ½Π°Ρ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ - ΠΏΠ΅ΡΠ²ΠΎΠΉ ΡΡΡΠΎΠΊΠΎΠΉ, Π²ΡΡΠ΅ Π²ΡΠ΅Ρ ΠΏΡΠΎΡΠ΅Π΄ΡΡ Public MyVariable As String 'Π΄Π°Π»Π΅Π΅ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ ΠΈ ΡΡΠ½ΠΊΡΠΈΠΈ Sub main() MyVariable = "ΠΠ»ΠΎΠ±Π°Π»ΡΠ½Π°Ρ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ" 'ΠΏΠΎΠΊΠ°Π·ΡΠ²Π°Π΅ΠΌ ΡΠ΅ΠΊΡΡΠ΅Π΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ MsgBox MyVariable, vbInformation, "www.
excel-vba.ru" 'ΠΏΡΠΎΠ±ΡΠ΅ΠΌ ΠΈΠ·ΠΌΠ΅Π½ΠΈΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ Call ChangeMyVariable 'ΠΏΠΎΠΊΠ°Π·ΡΠ²Π°Π΅ΠΌ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½Π½ΠΎΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ MsgBox MyVariable, vbInformation, "www.excel-vba.ru" End Sub 'Π΄ΠΎΠΏ.ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΡ Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ Sub ChangeMyVariable() MyVariable =
Excel VBA ΠΠ°ΡΠ° ΠΈ Π²ΡΠ΅ΠΌΡ
ΠΠΎΠ΄, ΠΌΠ΅ΡΡΡ, Π΄Π΅Π½Ρ Π΄Π°ΡΡ | DateAdd | Π’Π΅ΠΊΡΡΠ°Ρ Π΄Π°ΡΠ° ΠΈ Π²ΡΠ΅ΠΌΡ | Π§Π°Ρ, ΠΠΈΠ½ΡΡΠ°, Π‘Π΅ΠΊΡΠ½Π΄Π° | TimeValue
Π£Π·Π½Π°ΠΉΡΠ΅, ΠΊΠ°ΠΊ ΡΠ°Π±ΠΎΡΠ°ΡΡ Ρ Π΄Π°ΡΠ°ΠΌΠΈ ΠΈ Π²ΡΠ΅ΠΌΠ΅Π½Π΅ΠΌ Π² Excel VBA .
ΠΠΎΠΌΠ΅ΡΡΠΈΡΠ΅ ΠΊΠΎΠΌΠ°Π½Π΄Π½ΡΡ ΠΊΠ½ΠΎΠΏΠΊΡ Π½Π° Π»ΠΈΡΡ ΠΈ Π΄ΠΎΠ±Π°Π²ΡΡΠ΅ ΡΡΡΠΎΠΊΠΈ ΠΊΠΎΠ΄Π° Π½ΠΈΠΆΠ΅. Π§ΡΠΎΠ±Ρ Π²ΡΠΏΠΎΠ»Π½ΠΈΡΡ ΡΡΡΠΎΠΊΠΈ ΠΊΠΎΠ΄Π°, Π½Π°ΠΆΠΌΠΈΡΠ΅ ΠΊΠ½ΠΎΠΏΠΊΡ ΠΊΠΎΠΌΠ°Π½Π΄Ρ Π½Π° Π»ΠΈΡΡΠ΅.
ΠΠΎΠ΄, ΠΠ΅ΡΡΡ, ΠΠ΅Π½Ρ ΡΠΈΡΠ»Π°
Π‘Π»Π΅Π΄ΡΡΡΠΈΠΉ ΠΌΠ°ΠΊΡΠΎΡ ΠΏΠΎΠ»ΡΡΠ°Π΅Ρ Π³ΠΎΠ΄ Π΄Π°ΡΡ. Π§ΡΠΎΠ±Ρ ΠΎΠ±ΡΡΠ²ΠΈΡΡ Π΄Π°ΡΡ, ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠΉΡΠ΅ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡ Dim.Π§ΡΠΎΠ±Ρ ΠΈΠ½ΠΈΡΠΈΠ°Π»ΠΈΠ·ΠΈΡΠΎΠ²Π°ΡΡ Π΄Π°ΡΡ, ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠΉΡΠ΅ ΡΡΠ½ΠΊΡΠΈΡ DateValue.
ΠΠΎΠ΄:
ΠΡΠΈΠΌΠ΅Ρ ΡΡΡΠΊΠ»ΠΎΠ³ΠΎ ΠΈΠ·ΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΡ ΠΠ°ΡΠ° ΠΊΠ°ΠΊ ΠΠ°ΡΠ°
exampleDate = DateValue («19 ΡΠ½Π²Π°ΡΡ 2020 Π³.»)
MsgBox ΠΠΎΠ΄ (exampleDate)
Π Π΅Π·ΡΠ»ΡΡΠ°Ρ:
ΠΡΠΈΠΌΠ΅ΡΠ°Π½ΠΈΠ΅. ΠΡΠΏΠΎΠ»ΡΠ·ΡΠΉΡΠ΅ ΠΠ΅ΡΡΡ ΠΈ ΠΠ΅Π½Ρ, ΡΡΠΎΠ±Ρ ΠΏΠΎΠ»ΡΡΠΈΡΡ ΠΌΠ΅ΡΡΡ ΠΈ Π΄Π΅Π½Ρ Π΄Π°ΡΡ.
DateAdd
Π§ΡΠΎΠ±Ρ Π΄ΠΎΠ±Π°Π²ΠΈΡΡ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ Π΄Π½Π΅ΠΉ ΠΊ Π΄Π°ΡΠ΅, ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠΉΡΠ΅ ΡΡΠ½ΠΊΡΠΈΡ DateAdd. Π€ΡΠ½ΠΊΡΠΈΡ DateAdd ΠΈΠΌΠ΅Π΅Ρ ΡΡΠΈ Π°ΡΠ³ΡΠΌΠ΅Π½ΡΠ°. ΠΠ²Π΅Π΄ΠΈΡΠ΅ «d» Π² ΠΊΠ°ΡΠ΅ΡΡΠ²Π΅ ΠΏΠ΅ΡΠ²ΠΎΠ³ΠΎ Π°ΡΠ³ΡΠΌΠ΅Π½ΡΠ°, ΡΡΠΎΠ±Ρ Π΄ΠΎΠ±Π°Π²ΠΈΡΡ Π΄Π½ΠΈ.ΠΠ²Π΅Π΄ΠΈΡΠ΅ 3 Π΄Π»Ρ Π²ΡΠΎΡΠΎΠ³ΠΎ Π°ΡΠ³ΡΠΌΠ΅Π½ΡΠ°, ΡΡΠΎΠ±Ρ Π΄ΠΎΠ±Π°Π²ΠΈΡΡ 3 Π΄Π½Ρ. Π’ΡΠ΅ΡΠΈΠΉ Π°ΡΠ³ΡΠΌΠ΅Π½Ρ ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΠ΅Ρ Π΄Π°ΡΡ, ΠΊ ΠΊΠΎΡΠΎΡΠΎΠΉ Π±ΡΠ΄Π΅Ρ Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΎ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ Π΄Π½Π΅ΠΉ.
ΠΠΎΠ΄:
ΠΠ°ΠΌΠ΅Π½ΠΈΡΡ firstDate ΠΊΠ°ΠΊ Π΄Π°ΡΡ, secondDate ΠΊΠ°ΠΊ Π΄Π°ΡΡ
firstDate = DateValue («19 ΡΠ½Π²Π°ΡΡ 2020 Π³.»)
secondDate = DateAdd («d», 3, firstDate)
MsgBox secondDate
Π Π΅Π·ΡΠ»ΡΡΠ°Ρ:
ΠΡΠΈΠΌΠ΅ΡΠ°Π½ΠΈΠ΅. ΠΠ·ΠΌΠ΅Π½ΠΈΡΠ΅ Β«dΒ» Π½Π° Β«mΒ», ΡΡΠΎΠ±Ρ Π΄ΠΎΠ±Π°Π²ΠΈΡΡ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΠΌΠ΅ΡΡΡΠ΅Π² ΠΊ Π΄Π°ΡΠ΅. ΠΠΎΠΌΠ΅ΡΡΠΈΡΠ΅ ΠΊΡΡΡΠΎΡ Π½Π° DateAdd Π² ΡΠ΅Π΄Π°ΠΊΡΠΎΡΠ΅ Visual Basic ΠΈ Π½Π°ΠΆΠΌΠΈΡΠ΅ F1, ΡΡΠΎΠ±Ρ ΠΏΠΎΠ»ΡΡΠΈΡΡ ΡΠΏΡΠ°Π²ΠΊΡ ΠΏΠΎ Π΄ΡΡΠ³ΠΈΠΌ ΡΠΏΠ΅ΡΠΈΡΠΈΠΊΠ°ΡΠΎΡΠ°ΠΌ ΠΈΠ½ΡΠ΅ΡΠ²Π°Π»Π°.ΠΠ°ΡΡ ΡΠΊΠ°Π·Π°Π½Ρ Π² Π°ΠΌΠ΅ΡΠΈΠΊΠ°Π½ΡΠΊΠΎΠΌ ΡΠΎΡΠΌΠ°ΡΠ΅. ΠΠ΅ΡΠ²ΡΠ΅ ΠΌΠ΅ΡΡΡΡ, Π²ΡΠΎΡΡΠ΅ Π΄Π½ΠΈ. ΠΡΠΎΡ ΡΠΈΠΏ ΡΠΎΡΠΌΠ°ΡΠ° Π·Π°Π²ΠΈΡΠΈΡ ΠΎΡ ΡΠ΅Π³ΠΈΠΎΠ½Π°Π»ΡΠ½ΡΡ Π½Π°ΡΡΡΠΎΠ΅ΠΊ Windows.
Π’Π΅ΠΊΡΡΠ°Ρ Π΄Π°ΡΠ° ΠΈ Π²ΡΠ΅ΠΌΡ
Π§ΡΠΎΠ±Ρ ΠΏΠΎΠ»ΡΡΠΈΡΡ ΡΠ΅ΠΊΡΡΡΡ Π΄Π°ΡΡ ΠΈ Π²ΡΠ΅ΠΌΡ, ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠΉΡΠ΅ ΡΡΠ½ΠΊΡΠΈΡ Β«Π‘Π΅ΠΉΡΠ°ΡΒ».
ΠΠΎΠ΄:
MsgBox Π‘Π΅ΠΉΡΠ°Ρ
Π Π΅Π·ΡΠ»ΡΡΠ°Ρ:
ΡΠ°Ρ, ΠΌΠΈΠ½ΡΡΠ°, ΡΠ΅ΠΊΡΠ½Π΄Π°
Π§ΡΠΎΠ±Ρ ΠΏΠΎΠ»ΡΡΠΈΡΡ ΡΠ°Ρ Π²ΡΠ΅ΠΌΠ΅Π½ΠΈ, ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠΉΡΠ΅ ΡΡΠ½ΠΊΡΠΈΡ Hour.
ΠΠΎΠ΄:
MsgBox Hour (ΡΠ΅ΠΉΡΠ°Ρ)
Π Π΅Π·ΡΠ»ΡΡΠ°Ρ:
ΠΡΠΈΠΌΠ΅ΡΠ°Π½ΠΈΠ΅. ΠΡΠΏΠΎΠ»ΡΠ·ΡΠΉΡΠ΅ ΠΌΠΈΠ½ΡΡΡ ΠΈ ΡΠ΅ΠΊΡΠ½Π΄Ρ, ΡΡΠΎΠ±Ρ ΠΏΠΎΠ»ΡΡΠΈΡΡ ΠΌΠΈΠ½ΡΡΡ ΠΈ ΡΠ΅ΠΊΡΠ½Π΄Ρ Π²ΡΠ΅ΠΌΠ΅Π½ΠΈ.
TimeValue
Π€ΡΠ½ΠΊΡΠΈΡ TimeValue ΠΏΡΠ΅ΠΎΠ±ΡΠ°Π·ΡΠ΅Ρ ΡΡΡΠΎΠΊΡ Π² Π²ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ ΠΏΠΎΡΡΠ΄ΠΊΠΎΠ²ΡΠΉ Π½ΠΎΠΌΠ΅Ρ. Π‘Π΅ΡΠΈΠΉΠ½ΡΠΉ Π½ΠΎΠΌΠ΅Ρ Π²ΡΠ΅ΠΌΠ΅Π½ΠΈ — ΡΡΠΎ ΡΠΈΡΠ»ΠΎ ΠΎΡ 0 Π΄ΠΎ 1. ΠΠ°ΠΏΡΠΈΠΌΠ΅Ρ, ΠΏΠΎΠ»Π΄Π΅Π½Ρ (ΡΠ΅ΡΠ΅Π΄ΠΈΠ½Π° Π΄Π½Ρ) ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»Π΅Π½ ΠΊΠ°ΠΊ 0,5.
ΠΠΎΠ΄:
MsgBox TimeValue («9:20:01 ΡΡΡΠ°»)
Π Π΅Π·ΡΠ»ΡΡΠ°Ρ:
Π’Π΅ΠΏΠ΅ΡΡ, ΡΡΠΎΠ±Ρ ΡΡΠ½ΠΎ Π²ΠΈΠ΄Π΅ΡΡ, ΡΡΠΎ Excel Π²Π½ΡΡΡΠ΅Π½Π½Π΅ ΠΎΠ±ΡΠ°Π±Π°ΡΡΠ²Π°Π΅Ρ Π²ΡΠ΅ΠΌΡ ΠΊΠ°ΠΊ ΡΠΈΡΠ»Π° ΠΎΡ 0 Π΄ΠΎ 1, Π΄ΠΎΠ±Π°Π²ΡΡΠ΅ ΡΠ»Π΅Π΄ΡΡΡΠΈΠ΅ ΡΡΡΠΎΠΊΠΈ ΠΊΠΎΠ΄Π°:
Π Π°Π·ΠΌΠ΅Ρ ΠΊΠ°ΠΊ Π΄Π²ΠΎΠΉΠ½ΠΎΠΉ
y = TimeValue («09:20:01»)
MsgBox y
Π Π΅Π·ΡΠ»ΡΡΠ°Ρ:
ΠΠ²Π΅Π΄Π΅Π½ΠΈΠ΅ Π² VBA MGMI ΠΠ²Π³ΡΡΡ Π§ΡΠΎ ΡΠ°ΠΊΠΎΠ΅ VBA? VBA = Visual Basic Π΄Π»Ρ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠΉ ΠΠΎΡΠ½ΡΠΉ Π²ΡΡΡΠΎΠ΅Π½Π½ΡΠΉ ΡΠ·ΡΠΊ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ Excel Π£ΠΏΡΠ°Π²Π»ΡΠ΅ΠΌΡΠΉ ΡΠΎΠ±ΡΡΠΈΡΠΌΠΈ.
ΠΡΠ΅Π·Π΅Π½ΡΠ°ΡΠΈΡ Π½Π° ΡΠ΅ΠΌΡ: Β«ΠΠ²Π΅Π΄Π΅Π½ΠΈΠ΅ Π² VBA MGMI 311 19 Π°Π²Π³ΡΡΡΠ° 2011 Π³ΠΎΠ΄Π°. Π§ΡΠΎ ΡΠ°ΠΊΠΎΠ΅ VBA? VBA = Visual Basic Π΄Π»Ρ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠΉ. ΠΠΎΡΠ½ΡΠΉ Π²ΡΡΡΠΎΠ΅Π½Π½ΡΠΉ ΡΠ·ΡΠΊ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ Excel, ΡΠΏΡΠ°Π²Π»ΡΠ΅ΠΌΡΠΉ ΡΠΎΠ±ΡΡΠΈΡΠΌΠΈΒ» — ΡΡΠ΅Π½ΠΎΠ³ΡΠ°ΠΌΠΌΠ° ΠΏΡΠ΅Π·Π΅Π½ΡΠ°ΡΠΈΠΈ:
1
ΠΠ²Π΅Π΄Π΅Π½ΠΈΠ΅ Π² VBA MGMI 311 19 Π°Π²Π³ΡΡΡΠ° 2011 Π³.
2
Π§ΡΠΎ ΡΠ°ΠΊΠΎΠ΅ VBA? VBA = Visual Basic Π΄Π»Ρ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠΉ ΠΠΎΡΠ½ΡΠΉ Π²ΡΡΡΠΎΠ΅Π½Π½ΡΠΉ ΡΠ·ΡΠΊ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ Excel. Π―Π·ΡΠΊ, ΡΠΏΡΠ°Π²Π»ΡΠ΅ΠΌΡΠΉ ΡΠΎΠ±ΡΡΠΈΡΠΌΠΈ. Π―Π·ΡΠΊ, ΠΎΡΠ½ΠΎΠ²Π°Π½Π½ΡΠΉ Π½Π° ΠΎΠ±ΡΠ΅ΠΊΡΠ°Ρ . ΠΡΠ½ΠΎΠ²Π½ΠΎΠΉ ΠΌΠ°ΠΊΡΠΎΡΠ·ΡΠΊ Π΄Π»Ρ Π²ΡΠ΅Ρ ΠΎΡΠΈΡΠ½ΡΡ ΠΏΡΠΎΠ΄ΡΠΊΡΠΎΠ² Microsoft.
3
Π―Π·ΡΠΊ, ΡΠΏΡΠ°Π²Π»ΡΠ΅ΠΌΡΠΉ ΡΠΎΠ±ΡΡΠΈΡΠΌΠΈ. ΠΠΈΡΠ΅Π³ΠΎ Π½Π΅ ΠΏΡΠΎΠΈΡΡ ΠΎΠ΄ΠΈΡ, Π΅ΡΠ»ΠΈ ΡΡΠΎ-ΡΠΎ Π½Π΅ ΠΏΡΠΎΠΈΡΡ ΠΎΠ΄ΠΈΡ. ΠΠΎΠ΄ Π½Π΅ Π²ΡΠΏΠΎΠ»Π½ΡΠ΅ΡΡΡ, ΠΊΡΠΎΠΌΠ΅ ΠΊΠ°ΠΊ Π² ΠΎΡΠ²Π΅Ρ Π½Π° ΠΊΠ°ΠΊΠΎΠ΅-ΡΠΎ ΡΠΎΠ±ΡΡΠΈΠ΅ (ΠΈΠ»ΠΈ ΠΏΠΎ ΠΊΠΎΠΌΠ°Π½Π΄Π΅ ΠΊΠΎΠ΄Π°, ΠΊΠΎΠ³Π΄Π° ΠΎΠ½ Π·Π°ΠΏΡΡΠΊΠ°Π΅ΡΡΡ ΠΊΠ°ΠΊΠΈΠΌ-Π»ΠΈΠ±ΠΎ ΡΠΎΠ±ΡΡΠΈΠ΅ΠΌ)
4
ΠΠ±ΡΠ΅ΠΊΡΠ½ΠΎ-ΠΎΡΠΈΠ΅Π½ΡΠΈΡΠΎΠ²Π°Π½Π½ΡΠΉ ΡΠ·ΡΠΊ ΠΡΠΈ ΠΎΠ±ΡΠ°ΡΠ΅Π½ΠΈΠΈ ΠΊ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΠ°ΠΌ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ ΡΠ°ΠΊΠΈΠ΅ Π²Π΅ΡΠΈ, ΠΊΠ°ΠΊ ΠΊΠ½ΠΈΠ³ΠΈ, ΡΠ°Π±ΠΎΡΠΈΠ΅ Π»ΠΈΡΡΡ, ΡΡΠ΅ΠΉΠΊΠΈ, Π΄ΠΈΠ°Π³ΡΠ°ΠΌΠΌΡ ΠΈ Ρ. Π.ΡΠ²Π»ΡΡΡΡΡ Β«ΠΎΠ±ΡΠ΅ΠΊΡΠ°ΠΌΠΈΒ». Π£ ΠΎΠ±ΡΠ΅ΠΊΡΠ° Π΅ΡΡΡ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Π½ΡΠ΅ Π°ΡΡΠΈΠ±ΡΡΡ. ΠΠ±ΡΠ΅ΠΊΡΡ ΠΌΠΎΠ³ΡΡ Π΄Π΅Π»Π°ΡΡ ΡΡΠΎ-ΡΠΎ ΠΈΠ»ΠΈ ΡΡΠΎ-ΡΠΎ Ρ Π½ΠΈΠΌΠΈ Π΄Π΅Π»Π°ΡΡ — ΡΡΠΈ Π΄Π΅ΠΉΡΡΠ²ΠΈΡ ΠΈΠ·Π²Π΅ΡΡΠ½Ρ ΠΊΠ°ΠΊ Β«ΠΌΠ΅ΡΠΎΠ΄ΡΒ».
5
ΠΠ°ΠΊΡΠΎΡ Π‘Π΅ΡΠΈΡ ΠΊΠΎΠΌΠ°Π½Π΄ ΠΈ ΡΡΠ½ΠΊΡΠΈΠΉ, ΠΊΠΎΡΠΎΡΡΠ΅ Ρ ΡΠ°Π½ΡΡΡΡ Π² ΠΌΠΎΠ΄ΡΠ»Π΅ Microsoft Visual Basic, ΠΈ ΠΈΡ ΠΌΠΎΠΆΠ½ΠΎ Π·Π°ΠΏΡΡΠΊΠ°ΡΡ Π²ΡΡΠΊΠΈΠΉ ΡΠ°Π·, ΠΊΠΎΠ³Π΄Π° Π²Π°ΠΌ Π½ΡΠΆΠ½ΠΎ Π²ΡΠΏΠΎΠ»Π½ΠΈΡΡ Π·Π°Π΄Π°ΡΡ ο± ΠΠ°ΠΏΠΈΡΠ°ΡΡ ΠΌΠ°ΠΊΡΠΎΡ ο± ΠΠ°ΠΏΡΡΡΠΈΡΡ ΠΌΠ°ΠΊΡΠΎΡ ο± Π Π΅Π΄Π°ΠΊΡΠΈΡΠΎΠ²Π°ΡΡ ΠΌΠ°ΠΊΡΠΎΡ ο± ΠΡΡΠ°Π½ΠΎΠ²ΠΈΡΡ ΠΌΠ°ΠΊΡΠΎΡ
6
ΠΠ°ΠΏΠΈΡΠ°ΡΡ ΠΌΠ°ΠΊΡΠΎΡ ΠΠ°Π½Π΅Π»Ρ ΠΈΠ½ΡΡΡΡΠΌΠ΅Π½ΡΠΎΠ² ΡΠ°Π·ΡΠ°Π±ΠΎΡΡΠΈΠΊΠ° ΠΠ°ΠΏΠΈΡΠ°ΡΡ Π½ΠΎΠ²ΡΠΉ ΠΌΠ°ΠΊΡΠΎΡ Π΄Π»Ρ Π²Π²ΠΎΠ΄Π° ΠΠΌΡ ΠΌΠ°ΠΊΡΠΎΡΠ° ΠΡΠ»ΠΈ Π²Ρ Ρ ΠΎΡΠΈΡΠ΅ Π·Π°ΠΏΡΡΡΠΈΡΡ ΠΌΠ°ΠΊΡΠΎΡ, Π½Π°ΠΆΠ°Π² ΡΠΎΡΠ΅ΡΠ°Π½ΠΈΠ΅ ΠΊΠ»Π°Π²ΠΈΡ, Π²Π²Π΅Π΄ΠΈΡΠ΅ Π±ΡΠΊΠ²Ρ Π² ΠΏΠΎΠ»Π΅ Β«Π‘ΠΎΡΠ΅ΡΠ°Π½ΠΈΠ΅ ΠΊΠ»Π°Π²ΠΈΡΒ» Π©Π΅Π»ΠΊΠ½ΠΈΡΠ΅ ΠΌΠ΅ΡΡΠΎ, Π³Π΄Π΅ Π²Ρ Ρ ΠΎΡΠΈΡΠ΅ ΡΠΎΡ ΡΠ°Π½ΠΈΡΡ ΠΌΠ°ΠΊΡΠΎΡ ΠΠΎΡΠ»Π΅ Π·Π°Π²Π΅ΡΡΠ΅Π½ΠΈΡ Π·Π°Π΄Π°ΡΠΈ Π² Excel , Π½Π°ΠΆΠΌΠΈΡΠ΅ ΠΡΡΠ°Π½ΠΎΠ²ΠΈΡΡ ΠΌΠ°ΠΊΡΠΎΡ (Π½Π° ΠΏΠ°Π½Π΅Π»ΠΈ ΠΈΠ½ΡΡΡΡΠΌΠ΅Π½ΡΠΎΠ²)
7
ΠΠ°ΠΏΡΡΠΊ ΠΌΠ°ΠΊΡΠΎΡΠ°. ΠΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ ΡΠΎΡΠ΅ΡΠ°Π½ΠΈΡ ΠΊΠ»Π°Π²ΠΈΡ. ΠΠ° ΠΏΠ°Π½Π΅Π»ΠΈ ΠΈΠ½ΡΡΡΡΠΌΠ΅Π½ΡΠΎΠ² ΡΠ°Π·ΡΠ°Π±ΠΎΡΡΠΈΠΊΠ° ΡΠ΅Π»ΠΊΠ½ΠΈΡΠ΅ ΠΌΠ°ΠΊΡΠΎΡ. ΠΡΠ±Π΅ΡΠΈΡΠ΅ ΠΌΠ°ΠΊΡΠΎΡ, ΠΊΠΎΡΠΎΡΡΠΉ Π½Π΅ΠΎΠ±Ρ
ΠΎΠ΄ΠΈΠΌΠΎ Π²ΡΠΏΠΎΠ»Π½ΠΈΡΡ. ΠΠ°ΠΆΠΌΠΈΡΠ΅ Β«ΠΡΠΏΠΎΠ»Π½ΠΈΡΡΒ» — ΠΠΠ — ΠΠ°ΠΏΡΡΡΠΈΡΠ΅ ΠΌΠ°ΠΊΡΠΎΡ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΠΊΠ½ΠΎΠΏΠΊΠΈ ΠΏΠ°Π½Π΅Π»ΠΈ ΠΈΠ½ΡΡΡΡΠΌΠ΅Π½ΡΠΎΠ².
8
ΠΡΡΠ°Π½ΠΎΠ²ΠΊΠ° ΠΌΠ°ΠΊΡΠΎΡΠ° ΠΡΠ»ΠΈ Π²Ρ Ρ ΠΎΡΠΈΡΠ΅ ΠΎΡΡΠ°Π½ΠΎΠ²ΠΈΡΡ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΠ΅ ΠΌΠ°ΠΊΡΠΎΡΠ°, ΠΊΠΎΡΠΎΡΡΠΉ Π² Π΄Π°Π½Π½ΡΠΉ ΠΌΠΎΠΌΠ΅Π½Ρ Π²ΡΠΏΠΎΠ»Π½ΡΠ΅ΡΡΡ, Π½Π°ΠΆΠΌΠΈΡΠ΅ ESC ΠΈ ΡΠ΅Π»ΠΊΠ½ΠΈΡΠ΅ ΠΠΎΠ½Π΅Ρ Π² Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠΌ ΠΎΠΊΠ½Π΅ Microsoft Visual Basic. ΠΡΠ»ΠΈ Π²Ρ Ρ ΠΎΡΠΈΡΠ΅ ΠΏΡΠ΅Π΄ΠΎΡΠ²ΡΠ°ΡΠΈΡΡ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΈΠΉ Π·Π°ΠΏΡΡΠΊ ΠΌΠ°ΠΊΡΠΎΡΠ° ΠΏΡΠΈ Π·Π°ΠΏΡΡΠΊΠ΅ Microsoft Excel, ΡΠ΄Π΅ΡΠΆΠΈΠ²Π°ΠΉΡΠ΅ Π½Π°ΠΆΠ°ΡΠΎΠΉ ΠΊΠ»Π°Π²ΠΈΡΡ Shift Π²ΠΎ Π²ΡΠ΅ΠΌΡ Π·Π°ΠΏΡΡΠΊΠ°.
9
Π‘ΠΎΡ
ΡΠ°Π½ΠΈΡΡ Excel — Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΠΌΠ°ΠΊΡΠΎΡΠ° Π‘ΠΎΡ
ΡΠ°Π½ΠΈΡΡ ΠΊΠ°ΠΊ Β«Excel Macro-Enable WorkbookΒ» ΠΠ° ΠΏΠ°Π½Π΅Π»ΠΈ ΠΈΠ½ΡΡΡΡΠΌΠ΅Π½ΡΠΎΠ² ΡΠ°Π·ΡΠ°Π±ΠΎΡΡΠΈΠΊΠ° ΡΠ΅Π»ΠΊΠ½ΠΈΡΠ΅ Β«Macro SecurityΒ» Π² ΠΎΠΊΠ½Π΅ Π¦Π΅Π½ΡΡΠ° ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ Π±Π΅Π·ΠΎΠΏΠ°ΡΠ½ΠΎΡΡΡΡ, Π½Π°ΠΆΠΌΠΈΡΠ΅ Β«Disable all macros with notificationΒ» ΠΡΠΈ Π²ΡΠ·ΠΎΠ²Π΅ ΠΊΠ½ΠΈΠ³ΠΈ Excel Ρ ΠΏΠΎΠ΄Π΄Π΅ΡΠΆΠΊΠΎΠΉ ΠΌΠ°ΠΊΡΠΎΡΠΎΠ² Π½Π°ΠΆΠΌΠΈΡΠ΅ Β«OptionΒ» Select Β» ΠΠΊΠ»ΡΡΠΈΡΡ ΡΡΠΎ ΡΠΎΠ΄Π΅ΡΠΆΠΈΠΌΠΎΠ΅ Β»Π² ΠΎΠΊΠ½Π΅ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠΎΠ² Π±Π΅Π·ΠΎΠΏΠ°ΡΠ½ΠΎΡΡΠΈ Microsoft Office.
10
ΠΡΡΠ΅Π΄Π°ΠΊΡΠΈΡΡΠΉΡΠ΅ ΠΌΠ°ΠΊΡΠΎΡ Π½Π° ΠΏΠ°Π½Π΅Π»ΠΈ ΠΈΠ½ΡΡΡΡΠΌΠ΅Π½ΡΠΎΠ² ΡΠ°Π·ΡΠ°Π±ΠΎΡΡΠΈΠΊΠ°, Π²ΡΠ±Π΅ΡΠΈΡΠ΅ Β«ΠΠ°ΠΊΡΠΎΡΒ». Π©Π΅Π»ΠΊΠ½ΠΈΡΠ΅ ΠΈΠΌΡ ΠΌΠ°ΠΊΡΠΎΡΠ°, ΠΈ ΠΎΡΠΊΡΠΎΠ΅ΡΡΡ ΡΠ΅Π΄Π°ΠΊΡΠΎΡ Visual Basic Editor (VBE). ΠΡΡΠ΅Π΄Π°ΠΊΡΠΈΡΡΠΉΡΠ΅ ΠΌΠ°ΠΊΡΠΎΡ ΠΈΠ· ΠΈΡΡ ΠΎΠ΄Π½ΠΎΠ³ΠΎ ΠΊΠΎΠ΄Π° Π² VBE.
VBA Compiler — ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° Π·Π°ΡΠΈΡΡ VBA.VBA Π² DLL. Π£ΡΠΊΠΎΡΡΡΠ΅ VBA.
VBA Compiler for Excel — ΡΡΠΎ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° Π·Π°ΡΠΈΡΡ VBA, ΠΊΠΎΡΠΎΡΠ°Ρ ΠΏΡΠ΅ΠΎΠ±ΡΠ°Π·ΡΠ΅Ρ ΠΊΠΎΠ΄ VBA ΡΠ°Π±ΠΎΡΠΈΡ ΠΊΠ½ΠΈΠ³ Microsoft Excel ΠΈ Π½Π°Π΄ΡΡΡΠΎΠ΅ΠΊ Excel Π² Π΄Π²ΠΎΠΈΡΠ½ΡΠΉ ΠΊΠΎΠ΄ ΡΠΎΠ±ΡΡΠ²Π΅Π½Π½ΠΎΠ³ΠΎ ΡΠ°ΠΉΠ»Π° DLL Windows.
ΠΠΎΡΠ»Π΅ ΠΊΠΎΠΌΠΏΠΈΠ»ΡΡΠΈΠΈ Π²Π°Ρ ΠΊΠΎΠ΄ VBA Π½Π΅ ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ ΡΠΊΠΎΠΏΠΈΡΠΎΠ²Π°Π½ ΠΈΠ»ΠΈ Π²ΠΎΡΡΡΠ°Π½ΠΎΠ²Π»Π΅Π½ ΠΈ ΠΈΠΌΠ΅Π΅Ρ Π²ΡΡΡΠΈΠΉ ΡΡΠΎΠ²Π΅Π½Ρ Π·Π°ΡΠΈΡΡ ΠΎΡ ΠΏΠΈΡΠ°ΡΡΡΠ²Π° .
ΠΠΎΠΌΠΏΠΈΠ»ΡΡΠΎΡ VBA — Π»ΡΡΡΠ°Ρ Π°Π»ΡΡΠ΅ΡΠ½Π°ΡΠΈΠ²Π° ΠΏΠΎΠ΄Ρ ΠΎΠ΄Π°ΠΌ ΠΊ Π·Π°ΡΠΈΡΠ΅ ΠΊΠΎΠ΄Π° VBA , ΡΠ°ΠΊΠΈΠΌ ΠΊΠ°ΠΊ ΠΎΠ±ΡΡΡΠΊΠ°ΡΠΈΡ ΠΊΠΎΠ΄Π° VBA ΠΈΠ»ΠΈ ΡΡΠ°Π½Π΄Π°ΡΡΠ½Π°Ρ Π·Π°ΡΠΈΡΠ° ΠΏΠ°ΡΠΎΠ»Π΅ΠΌ ΠΏΡΠΎΠ΅ΠΊΡΠ° MS Excel VBA.
Π‘ΠΊΠΎΠΌΠΏΠΈΠ»ΠΈΡΠΎΠ²Π°Π½Π½Π°Ρ ΠΊΠ½ΠΈΠ³Π° ΠΈΠ»ΠΈ ΡΠ°ΠΉΠ» Π½Π°Π΄ΡΡΡΠΎΠΉΠΊΠΈ Excel ΠΎΡΡΠ°Π΅ΡΡΡ Ρ ΠΈΡΡ
ΠΎΠ΄Π½ΡΠΌ ΡΠ°ΡΡΠΈΡΠ΅Π½ΠΈΠ΅ΠΌ ΡΠ°ΠΉΠ»Π° ΠΈ Π²Π΅Π΄Π΅Ρ ΡΠ΅Π±Ρ ΡΠ°ΠΊ ΠΆΠ΅, ΠΊΠ°ΠΊ ΠΈΡΡ
ΠΎΠ΄Π½ΡΠΉ ΡΠ°ΠΉΠ».
Π‘ΠΊΠ°ΡΠ°ΡΡ Π±Π΅ΡΠΏΠ»Π°ΡΠ½ΡΡ ΠΏΡΠΎΠ±Π½ΡΡ Π²Π΅ΡΡΠΈΡ
ΠΡΠ½ΠΎΠ²Π½ΡΠ΅ ΠΏΡΠ΅ΠΈΠΌΡΡΠ΅ΡΡΠ²Π° ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΡ ΠΊΠΎΠΌΠΏΠΈΠ»ΡΡΠΎΡΠ° VBA
- Π‘Π°ΠΌΠ°Ρ Π½Π°Π΄Π΅ΠΆΠ½Π°Ρ ΠΈ Π½Π΅ΠΏΡΠΎΠ½ΠΈΡΠ°Π΅ΠΌΠ°Ρ Π·Π°ΡΠΈΡΠ° ΠΊΠΎΠ΄Π° VBA. ΠΠ΅Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎ Π²ΠΎΡΡΡΠ°Π½ΠΎΠ²ΠΈΡΡ ΠΊΠΎΠ΄ VBA ΠΈΠ· Windows DLL.
- VBA ΡΡΠΊΠΎΡΠΈΡΡ .ΠΡΠΎΠΈΠ·Π²ΠΎΠ΄ΠΈΡΠ΅Π»ΡΠ½ΠΎΡΡΡ Π½Π΅ΠΊΠΎΡΠΎΡΡΡ Π°Π»Π³ΠΎΡΠΈΡΠΌΠΎΠ² VBA Π·Π½Π°ΡΠΈΡΠ΅Π»ΡΠ½ΠΎ ΡΠ²Π΅Π»ΠΈΡΠΈΠ²Π°Π΅ΡΡΡ ΠΏΠΎΡΠ»Π΅ ΠΊΠΎΠΌΠΏΠΈΠ»ΡΡΠΈΠΈ .
- ΠΠ΅Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎ Π½Π°ΠΉΡΠΈ, ΠΎΡΡΠ»Π΅Π΄ΠΈΡΡ ΠΈΠ»ΠΈ ΡΠΊΠΎΠΏΠΈΡΠΎΠ²Π°ΡΡ ΠΊΠΎΠ΄ VBA ΠΏΠΎΡΠ»Π΅ ΠΊΠΎΠΌΠΏΠΈΠ»ΡΡΠΈΠΈ, ΠΏΠΎΡΠΎΠΌΡ ΡΡΠΎ ΠΎΠ½ Π±ΡΠ» ΡΠΊΠΎΠΌΠΏΠΈΠ»ΠΈΡΠΎΠ²Π°Π½ ΠΈ ΠΏΠ΅ΡΠ΅ΠΌΠ΅ΡΠ΅Π½ Π² Windows DLL.
- Π§ΡΠΎΠ±Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ VBA Compiler , Π²Π°ΠΌ Π½Π΅ Π½ΡΠΆΠ½ΠΎ Π·Π½Π°ΡΡ ΠΊΠ°ΠΊΠΈΠ΅-Π»ΠΈΠ±ΠΎ Π΄ΡΡΠ³ΠΈΠ΅ ΡΠ·ΡΠΊΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ , ΠΊΡΠΎΠΌΠ΅ VBA — Visual Basic Π΄Π»Ρ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠΉ.
- ΠΡΡ ΠΎΠ΄Π½Π°Ρ ΠΊΠ½ΠΈΠ³Π° MS Excel ΠΈΠ»ΠΈ ΡΠ°ΡΡΠΈΡΠ΅Π½ΠΈΠ΅ ΡΠ°ΠΉΠ»Π° Π½Π°Π΄ΡΡΡΠΎΠΉΠΊΠΈ ΠΎΡΡΠ°Π΅ΡΡΡ ΡΠ΅ΠΌ ΠΆΠ΅ , ΡΡΠΎ ΠΈ Π΄ΠΎ ΠΊΠΎΠΌΠΏΠΈΠ»ΡΡΠΈΠΈ.
- ΠΠΎΠΌΠΏΠΈΠ»ΡΡΠΎΡ VBA ΡΠ°Π±ΠΎΡΠ°Π΅Ρ Ρ ΠΊΠΎΠΏΠΈΠ΅ΠΉ ΠΈΡΡ
ΠΎΠ΄Π½ΠΎΠ³ΠΎ ΡΠ°ΠΉΠ»Π°, Π° ΡΠΎΡ
ΡΠ°Π½ΡΠ΅Ρ ΠΈΡΡ
ΠΎΠ΄Π½ΡΠΉ ΡΠ°ΠΉΠ» Π±Π΅Π· ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΠΉ .
- ΠΡΠ΅ΠΎΠ±ΡΠ°Π·ΠΎΠ²Π°Π½ΠΈΠ΅ ΠΊΠΎΠ΄Π° VBA Π²ΠΎ Π²ΡΠ΅ΠΌΡ ΠΊΠΎΠΌΠΏΠΈΠ»ΡΡΠΈΠΈ ΠΏΡΠΎΠΈΡΡ ΠΎΠ΄ΠΈΡ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΈ , ΡΡΠΎ ΠΎΠ·Π½Π°ΡΠ°Π΅Ρ, ΡΡΠΎ Π½Π΅ ΡΡΠ΅Π±ΡΠ΅Ρ Π²Π°ΡΠ΅Π³ΠΎ ΡΡΠ°ΡΡΠΈΡ Π² ΠΏΡΠΎΡΠ΅ΡΡΠ΅.
- ΠΠ°ΠΌ Π½Π΅ Π½ΡΠΆΠ½ΠΎ Π²ΡΠ±ΠΈΡΠ°ΡΡ, ΠΊΠ°ΠΊΠΈΠ΅ ΡΡΠ½ΠΊΡΠΈΠΈ VBA Π½ΡΠΆΠ½ΠΎ ΠΊΠΎΠΌΠΏΠΈΠ»ΠΈΡΠΎΠ²Π°ΡΡ — Π²ΡΠ΅ ΠΌΠ΅ΡΠΎΠ΄Ρ ΠΊΠΎΠ΄Π° VBA (ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ, ΡΡΠ½ΠΊΡΠΈΠΈ ΠΈ ΡΠ²ΠΎΠΉΡΡΠ²Π°) Π±ΡΠ΄ΡΡ ΡΠΊΠΎΠΌΠΏΠΈΠ»ΠΈΡΠΎΠ²Π°Π½Ρ ΠΎΠ΄Π½ΠΈΠΌ ΡΠ΅Π»ΡΠΊΠΎΠΌ ΠΌΡΡΠΈ Π½Π° ΠΊΠ½ΠΎΠΏΠΊΠ΅ Β«ΠΠΎΠΌΠΏΠΈΠ»ΠΈΡΠΎΠ²Π°ΡΡΒ».
- Π‘ΠΊΠΎΠΌΠΏΠΈΠ»ΠΈΡΡΠΉΡΠ΅ ΠΊΠΎΠ΄ VBA Ρ Π·Π°ΡΠΈΡΠΎΠΉ ΠΎΡ ΠΊΠΎΠΏΠΈΡΠΎΠ²Π°Π½ΠΈΡ Π²ΠΌΠ΅ΡΡΠ΅ Ρ ΠΊΠ»ΡΡΠΎΠΌ Π°ΠΊΡΠΈΠ²Π°ΡΠΈΠΈ / ΡΠ΅Π³ΠΈΡΡΡΠ°ΡΠΈΠΈ. Π’Π°ΠΊΠΎΠΉ ΡΠΊΠΎΠΌΠΏΠΈΠ»ΠΈΡΠΎΠ²Π°Π½Π½ΡΠΉ ΠΊΠΎΠ΄ VBA Π½Π΅ Π±ΡΠ΄Π΅Ρ ΡΠ°Π±ΠΎΡΠ°ΡΡ Π±Π΅Π· ΠΊΠ»ΡΡΠ° ΡΠ΅Π³ΠΈΡΡΡΠ°ΡΠΈΠΈ / Π°ΠΊΡΠΈΠ²Π°ΡΠΈΠΈ, ΠΊΠΎΡΠΎΡΡΠΉ ΡΠΌΠΎΠΆΠ΅ΡΠ΅ Π²ΡΠ΄Π°ΡΡ ΡΠΎΠ»ΡΠΊΠΎ Π²Ρ.
- Π‘ΠΎΠ·Π΄Π°ΠΉΡΠ΅ ΠΏΡΠΎΠ±Π½ΡΡ / Π΄Π΅ΠΌΠΎΠ½ΡΡΡΠ°ΡΠΈΠΎΠ½Π½ΡΡ Π²Π΅ΡΡΠΈΡ Π²Π°ΡΠ΅Π³ΠΎ ΠΊΠΎΠ΄Π° VBA. ΠΠ°ΡΠΈ ΠΊΠ»ΠΈΠ΅Π½ΡΡ ΡΠΌΠΎΠ³ΡΡ ΠΎΠΏΡΠΎΠ±ΠΎΠ²Π°ΡΡ Π²Π°ΡΡ ΠΊΠ½ΠΈΠ³Ρ ΠΈΠ»ΠΈ Π½Π°Π΄ΡΡΡΠΎΠΉΠΊΡ Excel Π±Π΅Π· ΡΠ΅Π³ΠΈΡΡΡΠ°ΡΠΈΠΈ Π² ΡΠ΅ΡΠ΅Π½ΠΈΠ΅ ΠΎΠ³ΡΠ°Π½ΠΈΡΠ΅Π½Π½ΠΎΠ³ΠΎ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²Π° Π΄Π½Π΅ΠΉ, ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΠ΅ΠΌΠΎΠ³ΠΎ Π²Π°ΠΌΠΈ.
ΠΠ°ΠΊ ΡΠ°Π±ΠΎΡΠ°Π΅Ρ ΠΊΠΎΠΌΠΏΠΈΠ»ΡΡΠΎΡ VBA
DoneEx VbaCompiler ΠΏΡΠ΅ΠΎΠ±ΡΠ°Π·ΡΠ΅Ρ ΠΈΡΡ
ΠΎΠ΄Π½ΡΠΉ ΠΊΠΎΠ΄ VBA Π² ΠΊΠΎΠ΄ C, ΠΈ Π½Π° Π·Π°ΠΊΠ»ΡΡΠΈΡΠ΅Π»ΡΠ½ΠΎΠΌ ΡΡΠ°ΠΏΠ΅ ΠΊΠΎΠ΄ ΡΠ·ΡΠΊΠ° C ΠΊΠΎΠΌΠΏΠΈΠ»ΠΈΡΡΠ΅ΡΡΡ Π² ΡΠΎΠ±ΡΡΠ²Π΅Π½Π½ΡΠΉ ΡΠ°ΠΉΠ» DLL Windows.
ΠΡΠΈ ΠΊΠΎΠΌΠΏΠΈΠ»ΡΡΠΈΠΈ ΠΏΡΠ΅ΠΎΠ±ΡΠ°Π·ΠΎΠ²Π°Π½ΠΈΠ΅ ΠΈΡΡ ΠΎΠ΄Π½ΠΎΠ³ΠΎ ΠΊΠΎΠ΄Π° VBA ΠΏΡΠΎΡ ΠΎΠ΄ΠΈΡ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΎ ΡΡΠ°ΠΏΠΎΠ²:
ΠΡΠ°ΠΏ 1. VbaCompiler ΡΠ°Π·Π±ΠΈΡΠ°Π΅Ρ ΠΈ Π°Π½Π°Π»ΠΈΠ·ΠΈΡΡΠ΅Ρ ΠΈΡΡ ΠΎΠ΄Π½ΡΠΉ ΠΊΠΎΠ΄ VBA.
ΠΡΠ°ΠΏ 2. ΠΡΠΎΠ΄ΡΠΊΡ Π³Π΅Π½Π΅ΡΠΈΡΡΠ΅Ρ ΠΎΠ±ΡΠ΅ΠΊΡΠ½ΡΠΉ ΠΊΠΎΠ΄ ΠΏΠΎ ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ°ΠΌ ΠΏΠ΅ΡΠ²ΠΎΠ³ΠΎ ΡΡΠ°ΠΏΠ°.
ΠΡΠ°ΠΏ 3. ΠΡΠΎΠ΄ΡΠΊΡ Π³Π΅Π½Π΅ΡΠΈΡΡΠ΅Ρ ΠΊΠΎΠ΄ ΡΠ·ΡΠΊΠ° C ΠΈΠ· ΠΎΠ±ΡΠ΅ΠΊΡΠ½ΠΎΠ³ΠΎ ΠΊΠΎΠ΄Π°, ΡΠΎΠ·Π΄Π°Π½Π½ΠΎΠ³ΠΎ Π½Π° ΡΡΠ°ΠΏΠ΅ 2.
ΠΡΠ°ΠΏ 4. VbaCompiler Π·Π°ΠΏΡΡΠΊΠ°Π΅Ρ C-ΠΊΠΎΠΌΠΏΠΈΠ»ΡΡΠΎΡ Π΄Π»Ρ ΠΊΠΎΠΌΠΏΠΈΠ»ΡΡΠΈΠΈ ΠΊΠΎΠ΄Π° ΡΠ·ΡΠΊΠ° C (ΠΊΠΎΡΠΎΡΡΠΉ Π±ΡΠ» ΡΠ³Π΅Π½Π΅ΡΠΈΡΠΎΠ²Π°Π½ Π½Π° ΡΡΠ°ΠΏΠ΅ 3) Π² Windows DLL.
ΠΡΠ°ΠΏ 5. ΠΠ°ΠΊΠ»ΡΡΠΈΡΠ΅Π»ΡΠ½ΡΠΉ ΡΡΠ°ΠΏ ΠΊΠΎΠΌΠΏΠΈΠ»ΡΡΠΈΠΈ — VbaCompiler ΡΠ΄Π°Π»ΡΠ΅Ρ ΡΠΊΠΎΠΌΠΏΠΈΠ»ΠΈΡΠΎΠ²Π°Π½Π½ΡΠΉ ΠΊΠΎΠ΄ VBA ΠΈΠ· ΡΠ°ΠΉΠ»Π° ΠΈ Π³Π΅Π½Π΅ΡΠΈΡΡΠ΅Ρ ΡΠΎΠ΅Π΄ΠΈΠ½ΠΈΡΠ΅Π»ΡΠ½ΡΠΉ ΠΊΠΎΠ΄ VBA, Π² ΠΊΠΎΡΠΎΡΠΎΠΌ Π²ΡΠ΅ ΡΠΊΠΎΠΌΠΏΠΈΠ»ΠΈΡΠΎΠ²Π°Π½Π½ΡΠ΅ ΡΡΠ½ΠΊΡΠΈΠΈ DLL Π²ΡΠ·ΡΠ²Π°ΡΡΡΡ Π²ΠΌΠ΅ΡΡΠΎ ΠΈΡΡ ΠΎΠ΄Π½ΠΎΠ³ΠΎ ΠΊΠΎΠ΄Π° VBA.
ΠΡΠ΄Π΅ΡΠΆΠΊΠ° ΠΈΠ· ΠΈΡΡ ΠΎΠ΄Π½ΠΎΠ³ΠΎ ΠΊΠΎΠ΄Π° VBA ΠΏΠ΅ΡΠ΅Π΄ ΠΊΠΎΠΌΠΏΠΈΠ»ΡΡΠΈΠ΅ΠΉ
Π’ΠΎΡ ΠΆΠ΅ ΠΊΠΎΠ΄ VBA ΠΏΠΎΡΠ»Π΅ ΠΊΠΎΠΌΠΏΠΈΠ»ΡΡΠΈΠΈ Ρ ΠΏΠΎΠΌΠΎΡΡΡ VBA Compiler
ΠΠ°ΠΊ Π²ΠΈΠ΄ΠΈΡΠ΅, ΡΠΎΠ΄Π΅ΡΠΆΠΈΠΌΠΎΠ΅ ΡΡΠ½ΠΊΡΠΈΠΉ VBA ΠΏΠ΅ΡΠ΅ΠΌΠ΅ΡΠ°Π΅ΡΡΡ Π² ΡΠΊΠΎΠΌΠΏΠΈΠ»ΠΈΡΠΎΠ²Π°Π½Π½ΡΠΉ ΡΠ°ΠΉΠ» DLL ΠΈ Π·Π°ΠΌΠ΅Π½ΡΠ΅ΡΡΡ Π²ΡΠ·ΠΎΠ²Π°ΠΌΠΈ ΡΡΠ½ΠΊΡΠΈΠΉ DLL.