Excel vba ΠΎΠ±ΡΡΠ²Π»Π΅Π½ΠΈΠ΅ ΠΌΠ°ΡΡΠΈΠ²Π°: ΠΡΠ΅ ΠΏΡΠΎ ΠΌΠ°ΡΡΠΈΠ²Ρ Π² VBA ΡΠΈΡΠ°ΡΡ Π² ΠΏΠΎΡΠ°Π³ΠΎΠ²ΠΎΠΌ ΡΡΠΊΠΎΠ²ΠΎΠ΄ΡΡΠ²Π΅ ΠΏΠΎ Excel
Π‘ΠΎΠ΄Π΅ΡΠΆΠ°Π½ΠΈΠ΅
Π‘ΡΡΠ»ΠΊΠ° Π½Π° ΡΠ»Π΅ΠΌΠ΅Π½Ρ ΠΌΠ°ΡΡΠΈΠ²Π°. VBA Π΄Π»Ρ ΡΠ°ΠΉΠ½ΠΈΠΊΠΎΠ²
Π‘ΡΡΠ»ΠΊΠ° Π½Π° ΡΠ»Π΅ΠΌΠ΅Π½Ρ ΠΌΠ°ΡΡΠΈΠ²Π°. VBA Π΄Π»Ρ ΡΠ°ΠΉΠ½ΠΈΠΊΠΎΠ²
ΠΠΈΠΊΠΈΠ§ΡΠ΅Π½ΠΈΠ΅
VBA Π΄Π»Ρ ΡΠ°ΠΉΠ½ΠΈΠΊΠΎΠ²
ΠΠ°ΠΌΠΌΠΈΠ½Π³Ρ Π‘ΡΠΈΠ²
Π‘ΠΎΠ΄Π΅ΡΠΆΠ°Π½ΠΈΠ΅
Π‘ΡΡΠ»ΠΊΠ° Π½Π° ΡΠ»Π΅ΠΌΠ΅Π½Ρ ΠΌΠ°ΡΡΠΈΠ²Π°
ΠΠ°ΠΆΠ΄ΡΠΉ ΠΌΠ°ΡΡΠΈΠ² Π² VBA ΠΈΠΌΠ΅Π΅Ρ ΠΈΠΌΡ, Ρ.Π΅. Π°Π½Π°Π»ΠΎΠ³ Π·Π°Π³ΠΎΠ»ΠΎΠ²ΠΊΠ° ΡΠΏΠΈΡΠΊΠ° Π½Π° Π»ΠΈΡΡΠ΅ Π±ΡΠΌΠ°Π³ΠΈ. Π§ΡΠΎΠ±Ρ ΡΠ°Π±ΠΎΡΠ°ΡΡ Ρ ΠΎΡΠ΄Π΅Π»ΡΠ½ΡΠΌ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠΌ ΠΌΠ°ΡΡΠΈΠ²Π°, Π½ΡΠΆΠ½ΠΎ ΡΠΎΡΠ»Π°ΡΡΡΡ Π½Π° Π½Π΅Π³ΠΎ ΠΏΠΎ ΠΈΠΌΠ΅Π½ΠΈ ΠΌΠ°ΡΡΠΈΠ²Π° ΠΈ ΠΈΠ½Π΄Π΅ΠΊΡΡ — ΡΠ΅Π»ΠΎΠΌΡ ΡΠΈΡΠ»Ρ, ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠ΅ΠΌΡ ΠΌΠ΅ΡΡΡ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠ° Π² ΠΌΠ°ΡΡΠΈΠ²Π΅. ΠΠ°ΠΏΡΠΈΠΌΠ΅Ρ, Π²ΡΡΠ°ΠΆΠ΅Π½ΠΈΠ΅ intLottoArray ( 3 ) ΡΡΡΠ»Π°Π΅ΡΡΡ Π½Π° ΡΡΠ΅ΡΠΈΠΉ (ΠΈΠ»ΠΈ ΡΠ΅ΡΠ²Π΅ΡΡΡΠΉ, Π² Π·Π°Π²ΠΈΡΠΈΠΌΠΎΡΡΠΈ ΠΎΡ ΡΠΈΡΡΠ΅ΠΌΡ Π½ΡΠΌΠ΅ΡΠ°ΡΠΈΠΈ) ΡΠ»Π΅ΠΌΠ΅Π½Ρ ΠΌΠ°ΡΡΠΈΠ²Π° Ρ ΠΈΠΌΠ΅Π½Π΅ΠΌ intLottoArray. ΠΠ°ΠΊ Π²Ρ, Π½Π°Π²Π΅ΡΠ½ΠΎΠ΅, Π΄ΠΎΠ³Π°Π΄Π°Π»ΠΈΡΡ, intΠ² Π½Π°ΡΠ°Π»Π΅ ΠΈΠΌΠ΅Π½ΠΈ ΠΌΠ°ΡΡΠΈΠ²Π° Π³ΠΎΠ²ΠΎΡΠΈΡ ΠΎ ΡΠΎΠΌ, ΡΡΠΎ Π² ΡΡΠΎΠΌ ΠΌΠ°ΡΡΠΈΠ²Π΅ ΠΏΡΠ΅Π΄ΠΏΠΎΠ»Π°Π³Π°Π΅ΡΡΡ Ρ ΡΠ°Π½ΠΈΡΡ ΡΠ΅Π»ΡΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΡ. ΠΠΎΡΡΠΎΠΌΡ ΠΌΠΎΠΆΠ½ΠΎ ΡΡΠ²Π΅ΡΠΆΠ΄Π°ΡΡ, ΡΡΠΎ Π΄Π°Π½Π½ΡΠ΅, Ρ ΡΠ°Π½ΡΡΠΈΠ΅ΡΡ Π² intLottoArray (3), ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΡΡ ΡΠΎΠ±ΠΎΠΉ ΡΠ΅Π»ΠΎΠ΅ ΡΠΈΡΠ»ΠΎ.
Π‘ΠΎΠ·Π΄Π°Π½ΠΈΠ΅ ΠΌΠ°ΡΡΠΈΠ²Π°
Π‘ΠΎΠ·Π΄Π°Π½ΠΈΠ΅ ΠΌΠ°ΡΡΠΈΠ²Π°
arrayΠ‘ΠΎΠ·Π΄Π°Π½ΠΈΠ΅ ΠΈ ΠΈΠ½ΠΈΡΠΈΠ°Π»ΠΈΠ·Π°ΡΠΈΡ ΠΌΠ°ΡΡΠΈΠ²Π°. Π‘ΠΈΠ½ΡΠ°ΠΊΡΠΈΡ:array array([mixed …])Π€ΡΠ½ΠΊΡΠΈΡ Π²ΠΎΠ·Π²ΡΠ°ΡΠ°Π΅Ρ ΡΠΎΠ·Π΄Π°Π½Π½ΡΠΉ ΠΌΠ°ΡΡΠΈΠ². ΠΠ½Π΄Π΅ΠΊΡΡ ΠΈ Π·Π½Π°ΡΠ΅Π½ΠΈΡ Π² ΠΌΠ°ΡΡΠΈΠ²Π΅ ΡΠ°Π·Π΄Π΅Π»ΡΡΡΡΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΠΎΠΌ =. ΠΠ°ΡΡ index=value ΡΠ°Π·Π΄Π΅Π»ΡΡΡΡΡ Π·Π°ΠΏΡΡΡΠΌΠΈ, ΠΎΠ½ΠΈ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΡΡ ΠΈΠ½Π΄Π΅ΠΊΡ ΠΈ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅.ΠΠ½Π΄Π΅ΠΊΡ ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ ΠΊΠ°ΠΊ ΡΠΈΡΠ»ΠΎΠ²ΡΠΌ, ΡΠ°ΠΊ
ΠΠ΅ΡΠ°Π·ΡΠ΅ΡΠΈΠΌΠ°Ρ ΡΠΈΠΌΠ²ΠΎΠ»ΠΈΡΠ΅ΡΠΊΠ°Ρ ΡΡΡΠ»ΠΊΠ° ΠΏΡΠΈ Π·Π°Π³ΡΡΠ·ΠΊΠ΅ ztdummy
ΠΠ΅ΡΠ°Π·ΡΠ΅ΡΠΈΠΌΠ°Ρ ΡΠΈΠΌΠ²ΠΎΠ»ΠΈΡΠ΅ΡΠΊΠ°Ρ ΡΡΡΠ»ΠΊΠ° ΠΏΡΠΈ Π·Π°Π³ΡΡΠ·ΠΊΠ΅ ztdummy
ΠΡΠ°ΠΉΠ²Π΅Ρ ztdummy ΡΡΠ΅Π±ΡΠ΅Ρ Π½Π°Π»ΠΈΡΠΈΡ Π΄ΠΎΡΡΡΠΏΠ½ΠΎΠ³ΠΎ ΠΊΠΎΠ½ΡΡΠΎΠ»Π»Π΅ΡΠ° UHCI USB Π² ΡΠ΄ΡΠ°Ρ
Linux 2.4 (USB-ΠΊΠΎΡΡΠΎΠ»Π»Π΅Ρ Π½Π΅ ΡΠ²Π»ΡΠ΅ΡΡΡ ΠΎΠ±ΡΠ·Π°ΡΠ΅Π»ΡΠ½ΡΠΌ ΡΡΠ΅Π±ΠΎΠ²Π°Π½ΠΈΠ΅ΠΌ Π΄Π»Ρ ΡΠ΄Π΅Ρ Linux 2.6, ΠΏΠΎΡΠΎΠΌΡ ΡΡΠΎ ΠΎΠ½ΠΈ ΡΠΏΠΎΡΠΎΠ±Π½Ρ Π³Π΅Π½Π΅ΡΠΈΡΠΎΠ²Π°ΡΡ ΠΎΠΏΠΎΡΠ½ΡΠΉ ΡΠΈΠ½Ρ
ΡΠΎΡΠΈΠ³Π½Π°Π» ΡΠ°ΡΡΠΎΡΠΎΠΉ 1 ΠΊΠΡ).
Π‘ΡΡΠ»ΠΊΠ° Π½Π° Π³Π»Π°Π²Π½ΡΡ ΡΡΡΠ°Π½ΠΈΡΡ
Π‘ΡΡΠ»ΠΊΠ° Π½Π° Π³Π»Π°Π²Π½ΡΡ ΡΡΡΠ°Π½ΠΈΡΡ
ΠΠ°, Π²Ρ Π½Π΅ ΠΎΡΠΈΠ±Π»ΠΈΡΡ, Π½Π° Π³Π»Π°Π²Π½ΠΎΠΉ ΡΡΡΠ°Π½ΠΈΡΠ΅ ΠΈΠ½ΠΎΠ³Π΄Π° Π΅ΡΡΡ ΡΡΡΠ»ΠΊΠ° Π½Π°β¦ Π³Π»Π°Π²Π½ΡΡ ΡΡΡΠ°Π½ΠΈΡΡ. Π‘ ΡΠΎΡΠΊΠΈ Π·ΡΠ΅Π½ΠΈΡ Π»ΠΎΠ³ΠΈΠΊΠΈ ΡΡΡΠ»Π°ΡΡΡΡ Π½Π° ΡΠ°ΠΌΠΎΠ³ΠΎ ΡΠ΅Π±Ρ β ΡΠ΅ΡΡΠ΅Π·Π½Π°Ρ ΠΎΡΠΈΠ±ΠΊΠ°. ΠΠ΅Π΄Ρ Π΅ΡΠ»ΠΈ Π½Π°ΠΆΠ°ΡΡ Π½Π° ΡΠ°ΠΊΡΡ ΡΡΡΠ»ΠΊΡ, ΠΎΠΊΠ°ΠΆΠ΅ΡΡΡΡ ΡΠ°ΠΌ ΠΆΠ΅. ΠΠ°ΠΏΡΡΠ°Π½Π½Π°Ρ ΠΏΡΠΎΠ±Π»Π΅ΠΌΠ°, ΠΊΠΎΡΠΎΡΠΎΠΉ ΡΠ»Π΅Π΄ΡΠ΅Ρ ΠΈΠ·Π±Π΅Π³Π°ΡΡ.
32.Β Π‘ΡΡΠ»ΠΊΠ°
32.Β Π‘ΡΡΠ»ΠΊΠ°
Π‘ΡΡΠ»ΠΊΠ° β ΡΡΠΎ Π΄ΡΡΠ³ΠΎΠ΅ ΠΈΠΌΡ ΠΎΠ±ΡΠ΅ΠΊΡΠ°. ΠΠ»Π°Π²Π½ΠΎΠ΅ ΠΏΡΠΈΠΌΠ΅Π½Π΅Π½ΠΈΠ΅ ΡΡΡΠ»ΠΎΠΊ Π·Π°ΠΊΠ»ΡΡΠ°Π΅ΡΡΡ Π² ΡΠΏΠ΅ΡΠΈΡΠΈΠΊΠ°ΡΠΈΠΈ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΉ Π΄Π»Ρ ΡΠΈΠΏΠΎΠ², ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΠ΅-ΠΌΡΡ
ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Π΅ΠΌ. ΠΡ
ΠΌΠΎΠΆΠ½ΠΎ ΡΠ°ΠΊΠΆΠ΅ ΠΏΡΠΈΠΌΠ΅Π½ΡΡΡ ΠΊΠ°ΠΊ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΡ ΡΡΠ½ΠΊΡΠΈΠΈ. ΠΠ°ΠΏΠΈΡΡ x& ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΠ΅Ρ ΡΠΎΠ±ΠΎΠΉ ΡΡΡΠ»ΠΊΡ Π½Π° x.Π ΠΏΡΠΈΠΌΠ΅ΡΡ:int i = 1;int& r = i; // r ΠΈ i ΡΠ΅ΠΏΠ΅ΡΡ
ΠΠ°Π½Π½ΡΠ΅ ΠΌΠ°ΡΡΠΈΠ²Π°
ΠΠ°Π½Π½ΡΠ΅ ΠΌΠ°ΡΡΠΈΠ²Π°
ΠΡΠΈ ΡΠ°Π±ΠΎΡΠ΅ Ρ ΠΌΠ°ΡΡΠΈΠ²Π°ΠΌΠΈ Π½ΡΠΆΠ½ΠΎ ΠΏΠΎΠΌΠ½ΠΈΡΡ ΡΠ»Π΅Π΄ΡΡΡΠ΅Π΅.* ΠΠΎΠΆΠ½ΠΎ ΡΠΎΠ·Π΄Π°Π²Π°ΡΡ ΠΌΠ°ΡΡΠΈΠ²Ρ Π΄Π°Π½Π½ΡΡ
Π»ΡΠ±ΡΡ
ΡΠΈΠΏΠΎΠ². VBA Ρ ΡΡΠΏΠ΅Ρ
ΠΎΠΌ Ρ
ΡΠ°Π½ΠΈΡ Π² ΠΌΠ°ΡΡΠΈΠ²Π°Ρ
ΡΡΡΠΎΠΊΠΈ, Π΄Π°ΡΡ, Π΄Π΅Π½Π΅ΠΆΠ½ΡΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΠΈ Π΄Π°Π½Π½ΡΠ΅ Π»ΡΠ±ΡΡ
ΡΠΈΡΠ»ΠΎΠ²ΡΡ
ΡΠΈΠΏΠΎΠ².* Π ΠΎΠ΄Π½ΠΎΠΌ ΠΌΠ°ΡΡΠΈΠ²Π΅ ΠΌΠΎΠ³ΡΡ Ρ
ΡΠ°Π½ΠΈΡΡΡΡ Π΄Π°Π½Π½ΡΠ΅ ΡΠΎΠ»ΡΠΊΠΎ ΠΎΠ΄Π½ΠΎΠ³ΠΎ ΡΠΈΠΏΠ°. ΠΠ΅Π»ΡΠ·Ρ
8.1.5. Π‘ΠΎΡΡΠΈΡΠΎΠ²ΠΊΠ° ΠΌΠ°ΡΡΠΈΠ²Π°
8.1.5. Π‘ΠΎΡΡΠΈΡΠΎΠ²ΠΊΠ° ΠΌΠ°ΡΡΠΈΠ²Π°
Π‘Π°ΠΌΡΠΉ ΠΏΡΠΎΡΡΠΎΠΉ ΡΠΏΠΎΡΠΎΠ± ΠΎΡΡΠΎΡΡΠΈΡΠΎΠ²Π°ΡΡ ΠΌΠ°ΡΡΠΈΠ² β Π²ΠΎΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡΡΡ Π²ΡΡΡΠΎΠ΅Π½Π½ΡΠΌ ΠΌΠ΅ΡΠΎΠ΄ΠΎΠΌ sort:words = %w(the quick brown fox)list = words. sort # [«brown», «fox», «quick», «the»]# ΠΠ»ΠΈ ΠΎΡΡΠΎΡΡΠΈΡΠΎΠ²Π°ΡΡ Π½Π° ΠΌΠ΅ΡΡΠ΅:words.sort!Β Β Β Β Β Β # [«brown», «fox», «quick», «the»]ΠΠ΄Π΅ΡΡ ΠΏΡΠ΅Π΄ΠΏΠΎΠ»Π°Π³Π°Π΅ΡΡΡ, ΡΡΠΎ Π²ΡΠ΅ ΡΠ»Π΅ΠΌΠ΅Π½ΡΡ ΠΌΠ°ΡΡΠΈΠ²Π° ΡΡΠ°Π²Π½ΠΈΠΌΡ
8.1.10. Π Π°Π½Π΄ΠΎΠΌΠΈΠ·Π°ΡΠΈΡ ΠΌΠ°ΡΡΠΈΠ²Π°
8.1.10. Π Π°Π½Π΄ΠΎΠΌΠΈΠ·Π°ΡΠΈΡ ΠΌΠ°ΡΡΠΈΠ²Π°
ΠΠ½ΠΎΠ³Π΄Π° Π½ΡΠΆΠ½ΠΎ ΠΏΠ΅ΡΠ΅ΡΡΠ°Π²ΠΈΡΡ ΡΠ»Π΅ΠΌΠ΅Π½ΡΡ ΠΌΠ°ΡΡΠΈΠ²Π° Π² ΡΠ»ΡΡΠ°ΠΉΠ½ΠΎΠΌ ΠΏΠΎΡΡΠ΄ΠΊΠ΅. ΠΠ΅ΡΠ²ΠΎΠ΅, ΡΡΠΎ ΠΏΡΠΈΡ
ΠΎΠ΄ΠΈΡ Π½Π° ΡΠΌ, β ΡΠ°ΡΠΎΠ²Π°Π½ΠΈΠ΅ ΠΊΠ°ΡΡΠΎΡΠ½ΠΎΠΉ ΠΊΠΎΠ»ΠΎΠ΄Ρ, Π½ΠΎ Π΅ΡΡΡ ΠΈ Π΄ΡΡΠ³ΠΈΠ΅ ΠΏΡΠΈΠΌΠ΅Π½Π΅Π½ΠΈΡ β Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ, ΡΠ»ΡΡΠ°ΠΉΠ½Π°Ρ ΡΠΎΡΡΠΈΡΠΎΠ²ΠΊΠ° ΡΠΏΠΈΡΠΊΠ° Π²ΠΎΠΏΡΠΎΡΠΎΠ².ΠΠ»Ρ ΡΠ΅ΡΠ΅Π½ΠΈΡ ΡΡΠΎΠΉ Π·Π°Π΄Π°ΡΠΈ ΠΏΡΠΈΠ³ΠΎΠ΄ΠΈΡΡΡ ΠΌΠ΅ΡΠΎΠ΄ rand ΠΈΠ·
8.1.18. ΠΠ±Ρ ΠΎΠ΄ ΠΌΠ°ΡΡΠΈΠ²Π°
8.1.18. ΠΠ±Ρ
ΠΎΠ΄ ΠΌΠ°ΡΡΠΈΠ²Π°
ΠΠ°ΠΊ ΠΈ ΡΠ»Π΅Π΄ΠΎΠ²Π°Π»ΠΎ ΠΎΠΆΠΈΠ΄Π°ΡΡ, Π² ΠΊΠ»Π°ΡΡΠ΅ Array Π΅ΡΡΡ ΡΡΠ°Π½Π΄Π°ΡΡΠ½ΡΠΉ ΠΈΡΠ΅ΡΠ°ΡΠΎΡ each. ΠΠΎ ΠΈΠΌΠ΅ΡΡΡΡ ΠΈ Π΄ΡΡΠ³ΠΈΠ΅ ΠΏΠΎΠ»Π΅Π·Π½ΡΠ΅ ΠΈΡΠ΅ΡΠ°ΡΠΎΡΡ.ΠΠ΅ΡΠΎΠ΄ reverse_each ΠΎΠ±Ρ
ΠΎΠ΄ΠΈΡ ΠΌΠ°ΡΡΠΈΠ² Π² ΠΎΠ±ΡΠ°ΡΠ½ΠΎΠΌ ΠΏΠΎΡΡΠ΄ΠΊΠ΅. Π Π΅Π·ΡΠ»ΡΡΠ°Ρ ΡΠ°ΠΊΠΎΠΉ ΠΆΠ΅, ΠΊΠ°ΠΊ Π΅ΡΠ»ΠΈ Π±Ρ ΠΌΡ Π²ΡΠ·Π²Π°Π»ΠΈ ΡΠ½Π°ΡΠ°Π»Π° ΠΌΠ΅ΡΠΎΠ΄ reverse, Π° ΠΏΠΎΡΠΎΠΌ each, Π½ΠΎ ΡΠ°Π±ΠΎΡΠ°Π΅Ρ Π±ΡΡΡΡΠ΅Π΅.words =
8.
1.20. ΠΠ±ΡΠ°ΡΠ΅Π½ΠΈΠ΅ ΠΌΠ°ΡΡΠΈΠ²Π°
8.1.20. ΠΠ±ΡΠ°ΡΠ΅Π½ΠΈΠ΅ ΠΌΠ°ΡΡΠΈΠ²Π°
Π§ΡΠΎΠ±Ρ ΠΏΠ΅ΡΠ΅ΡΡΠ°Π²ΠΈΡΡ ΡΠ»Π΅ΠΌΠ΅Π½ΡΡ ΠΌΠ°ΡΡΠΈΠ²Π° Π² ΠΎΠ±ΡΠ°ΡΠ½ΠΎΠΌ ΠΏΠΎΡΡΠ΄ΠΊΠ΅, Π²ΠΎΡΠΏΠΎΠ»ΡΠ·ΡΠΉΡΠ΅ΡΡ ΠΌΠ΅ΡΠΎΠ΄Π°ΠΌΠΈ reverse ΠΈΠ»ΠΈ reverse!:inputs = [«red», «green», «blue»]outputs = inputs.reverse # [«green»,»blue»,»red»]priorities = %w(eat sleep code)priorities.reverse! #
ΠΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ ΠΌΠ°ΡΡΠΈΠ²Π°
ΠΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ ΠΌΠ°ΡΡΠΈΠ²Π°
Β Β Β Β Β ΠΡΠ΅Π΄ΠΏΠΎΠ»ΠΎΠΆΠΈΠΌ, Ρ Π½Π°Ρ Π΅ΡΡΡ ΠΌΠ°ΡΡΠΈΠ² ΡΡΡΡΠΊΡΡΡ. ΠΠΌΡ ΠΌΠ°ΡΡΠΈΠ²Π° ΡΠ²Π»ΡΠ΅ΡΡΡ ΡΠΈΠ½ΠΎΠ½ΠΈΠΌΠΎΠΌ Π΅Π³ΠΎ Π°Π΄ΡΠ΅ΡΠ°, ΠΏΠΎΡΡΠΎΠΌΡ Π΅Π³ΠΎ ΠΌΠΎΠΆΠ½ΠΎ ΠΏΠ΅ΡΠ΅Π΄Π°ΡΡ ΡΡΠ½ΠΊΡΠΈΠΈ. Π‘ Π΄ΡΡΠ³ΠΎΠΉ ΡΡΠΎΡΠΎΠ½Ρ, ΡΡΠ½ΠΊΡΠΈΠΈ Π±ΡΠ΄Π΅Ρ Π½Π΅ΠΎΠ±Ρ
ΠΎΠ΄ΠΈΠΌ Π΄ΠΎΡΡΡΠΏ ΠΊ ΡΡΡΡΠΊΡΡΡΠ½ΠΎΠΌΡ ΡΠ°Π±Π»ΠΎΠ½Ρ. Π§ΡΠΎΠ±Ρ ΠΏΠΎΠΊΠ°Π·Π°ΡΡ, ΠΊΠ°ΠΊ ΡΠ°ΠΊΠ°Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° ΡΠ°Π±ΠΎΡΠ°Π΅Ρ (ΡΠΈΡ.
ΠΠ±ΡΡΠ²Π»Π΅Π½ΠΈΠ΅ ΠΌΠ°ΡΡΠΈΠ²Π°
ΠΠ±ΡΡΠ²Π»Π΅Π½ΠΈΠ΅ ΠΌΠ°ΡΡΠΈΠ²Π°
Π‘ΠΈΠ½ΡΠ°ΠΊΡΠΈΡ:[<ΡΠΏΠ΅ΡΠΈΡΠΈΠΊΠ°ΡΠΈΡ ΡΠΈΠΏΠ°]> <ΠΎΠΏΠΈΡΠ°ΡΠ΅Π»Ρ> [<ΠΊΠΎΠ½ΡΡΠ°Π½ΡΠ½ΠΎΠ΅ Π²ΡΡΠ°ΠΆΠ΅Π½ΠΈΠ΅>];[<ΡΠΏΠ΅ΡΠΈΡΠΈΠΊΠ°ΡΠΈΡ ΡΠΈΠΏΠ°]> <ΠΎΠΏΠΈΡΠ°ΡΠ΅Π»Ρ> [];ΠΠ²Π°Π΄ΡΠ°ΡΠ½ΡΠ΅ ΡΠΊΠΎΠ±ΠΊΠΈ, ΡΠ»Π΅Π΄ΡΡΡΠΈΠ΅ Π·Π° ΠΎΠΏΠΈΡΠ°ΡΠ΅Π»Π΅ΠΌ, ΡΠ²Π»ΡΡΡΡΡ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠΌ ΡΠ·ΡΠΊΠ° Π‘ΠΈ, Π° Π½Π΅ ΠΏΡΠΈΠ·Π½Π°ΠΊΠΎΠΌ Π½Π΅ΠΎΠ±ΡΠ·Π°ΡΠ΅Π»ΡΠ½ΠΎΡΡΠΈ ΡΠΈΠ½ΡΠ°ΠΊΡΠΈΡΠ΅ΡΠΊΠΎΠΉ
Π‘ΡΡΠ»ΠΊΠ° Π½Π° ΡΠ΅Π±Ρ
Π‘ΡΡΠ»ΠΊΠ° Π½Π° ΡΠ΅Π±Ρ
ΠΠΈΡΡΠΎ Π½Π΅ ΠΏΡΠ΅ΠΏΡΡΡΡΠ²ΡΠ΅Ρ ΠΎΠ±ΡΠ΅ΠΊΡΡ O1 Π² ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Π½ΡΠΉ ΠΌΠΎΠΌΠ΅Π½Ρ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ ΡΠΈΡΡΠ΅ΠΌΡ ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΡ ΡΡΡΠ»ΠΊΡ, ΠΏΡΠΈΡΠΎΠ΅Π΄ΠΈΠ½Π΅Π½Π½ΡΡ ΠΊ ΡΠ°ΠΌΠΎΠΌΡ O1. Π’Π°ΠΊΠ°Ρ ΡΡΡΠ»ΠΊΠ° Π½Π° ΡΠ΅Π±Ρ ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ ΠΊΠΎΡΠ²Π΅Π½Π½ΠΎΠΉ. Π ΡΠΈΡΡΠ°ΡΠΈΠΈ Π½Π° ΡΠΈΡ.8.7 ΠΎΠ±ΡΠ΅ΠΊΡ, ΠΈΠΌΠ΅ΡΡΠΈΠΉ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ΠΌ ΠΏΠΎΠ»Ρ name: «Almaviva», ΡΠ°ΠΌ ΡΠ²Π»ΡΠ΅ΡΡΡ ΡΠ²ΠΎΠΈΠΌ Π»Π΅Π½Π΄Π»ΠΎΡΠ΄ΠΎΠΌ
Π‘Π²ΠΎΠΉΡΡΠ²Π° ΠΌΠ°ΡΡΠΈΠ²Π°
Π‘Π²ΠΎΠΉΡΡΠ²Π° ΠΌΠ°ΡΡΠΈΠ²Π°
ΠΠ΅ΠΊΠΎΡΠΎΡΡΠ΅ Π·Π°ΠΌΠ΅ΡΠ°Π½ΠΈΡ ΠΎ ΠΊΠ»Π°ΡΡΠ΅.[x]. ΠΠΎΠ΄ΠΎΠ±Π½ΡΠ΅ ΠΊΠ»Π°ΡΡΡ ΡΡΡΠ΅ΡΡΠ²ΡΡΡ Π΄Π»Ρ ΠΌΠ°ΡΡΠΈΠ²ΠΎΠ² Π±ΠΎΠ»ΡΡΠ΅ΠΉ ΡΠ°Π·ΠΌΠ΅ΡΠ½ΠΎΡΡΠΈ: ARRAY2 ΠΈ Ρ. Π΄.[x]. ΠΠΎΠΌΠΏΠΎΠ½Π΅Π½Ρ Count ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ ΡΠ΅Π°Π»ΠΈΠ·ΠΎΠ²Π°Π½ ΠΈ ΠΊΠ°ΠΊ Π°ΡΡΠΈΠ±ΡΡ ΠΈ ΠΊΠ°ΠΊ ΡΡΠ½ΠΊΡΠΈΡ, ΠΏΠΎΡΠΊΠΎΠ»ΡΠΊΡ count = upper — lower+1. Π ΡΠ΅Π°Π»ΡΠ½ΠΎΠΌ ΠΊΠ»Π°ΡΡΠ΅ ΡΡΠΎ Π²ΡΡΠ°ΠΆΠ°Π΅ΡΡΡ ΠΈΠ½Π²Π°ΡΠΈΠ°Π½ΡΠΎΠΌ, ΠΊΠ°ΠΊ
Π‘ΡΡΠ»ΠΊΠ° Π½Π° Chrome Web Store ΠΏΠΎΡΠ²ΠΈΠ»Π°ΡΡ Π² Chromium ΠΠ²Π³Π΅Π½ΠΈΠΉ ΠΡΠ΅ΡΡΠ½ΠΈΠΊΠΎΠ²
Π‘ΡΡΠ»ΠΊΠ° Π½Π° Chrome Web Store ΠΏΠΎΡΠ²ΠΈΠ»Π°ΡΡ Π² Chromium
ΠΠ²Π³Π΅Π½ΠΈΠΉ ΠΡΠ΅ΡΡΠ½ΠΈΠΊΠΎΠ²
ΠΠΏΡΠ±Π»ΠΈΠΊΠΎΠ²Π°Π½ΠΎΠΠ²Π³Π΅Π½ΠΈΠΉ ΠΡΠ΅ΡΡΠ½ΠΈΠΊΠΎΠ²
Π Π³ΠΎΡΠΎΠ²ΡΡΠ΅ΠΌΡΡ ΠΎΡΠΊΡΡΡΠΈΠΈ ΠΌΠ°Π³Π°Π·ΠΈΠ½Π° Chrome Web Store ΡΡΠ°Π»ΠΎ ΠΈΠ·Π²Π΅ΡΡΠ½ΠΎ Π΅ΡΡ Π² Π°ΠΏΡΠ΅Π»Π΅ 2010 Π³ΠΎΠ΄Π° β Π½Π° ΠΊΠΎΠ½ΡΠ΅ΡΠ΅Π½ΡΠΈΠΈ Google I/O ΠΏΡΠ΅Π΄ΡΡΠ°Π²ΠΈΡΠ΅Π»ΠΈ ΠΊΠΎΡΠΏΠΎΡΠ°ΡΠΈΠΈ ΠΏΠΎΠΊΠ°Π·Π°Π»ΠΈ ΡΠΊΡΠΈΠ½ΡΠΎΡΡ ΡΠ΅ΡΠ²ΠΈΡΠ° ΠΈ
ΠΡΠ½ΠΎΠ²Π½ΡΠ΅ ΠΏΡΠΈΠ½ΡΠΈΠΏΡ ΠΈ ΠΊΠΎΠ½ΡΠ΅ΠΏΡΠΈΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ Π½Π° ΡΠ·ΡΠΊΠ΅ VBA Π² Excel
ΠΠ»Π°Π²Π½Π°Ρ / ΠΡΠΈΡΠ½ΡΠ΅ ΡΠ΅Ρ
Π½ΠΎΠ»ΠΎΠ³ΠΈΠΈ /
ΠΡΠ½ΠΎΠ²Π½ΡΠ΅ ΠΏΡΠΈΠ½ΡΠΈΠΏΡ ΠΈ ΠΊΠΎΠ½ΡΠ΅ΠΏΡΠΈΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ Π½Π° ΡΠ·ΡΠΊΠ΅ VBA Π² Excel / Π’Π΅ΡΡ 4
Π£ΠΏΡΠ°ΠΆΠ½Π΅Π½ΠΈΠ΅ 1:
ΠΠΎΠΌΠ΅Ρ 1
ΠΠΏΠ΅ΡΠ°ΡΠΎΡ ΠΎΠ±ΡΡΠ²Π»Π΅Π½ΠΈΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ
Dim
ΠΡΠ²Π΅Ρ:
 (1) ΠΎΠ±ΡΠ·Π°ΡΠ΅Π»ΡΠ½ΠΎ Π·Π°ΠΏΠΈΡΡΠ²Π°Π΅ΡΡΡ ΡΡΠ°Π·Ρ ΠΏΠΎΡΠ»Π΅ Π·Π°Π³ΠΎΠ»ΠΎΠ²ΠΊΠ° ΠΏΡΠΎΡΠ΅Π΄ΡΡ 
 (2) ΠΌΠΎΠΆΠ΅Ρ ΡΠ°ΡΠΏΠΎΠ»Π°Π³Π°ΡΡΡΡ Π² Π»ΡΠ±ΠΎΠΌ ΠΌΠ΅ΡΡΠ΅ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ 
 (3) ΠΎΠ±ΡΠ·Π°ΡΠ΅Π»ΡΠ½ΠΎ Π·Π°ΠΏΠΈΡΡΠ²Π°Π΅ΡΡΡ Π² Π½Π°ΡΠ°Π»Π΅ ΠΌΠΎΠ΄ΡΠ»Ρ 
 (4) ΠΌΠΎΠΆΠ΅Ρ ΡΠ°ΡΠΏΠΎΠ»Π°Π³Π°ΡΡΡΡ Π² Π»ΡΠ±ΠΎΠΌ ΠΌΠ΅ΡΡΠ΅ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ, Π½ΠΎ ΠΎΠ±ΡΠ·Π°ΡΠ΅Π»ΡΠ½ΠΎ ΠΏΠ΅ΡΠ΅Π΄ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΠΌΠΎΠΉ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ 
ΠΠΎΠΌΠ΅Ρ 2
ΠΡΠΈ Π·Π°ΠΏΠΈΡΠΈ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΠ°Dim
Π² Π²ΠΈΠ΄Π΅Dim i, j as Integer, k, m as Double
ΠΎΠ±ΡΡΠ²Π»Π΅Π½Π½ΡΠ΅ Π² ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΠ΅ ΠΈΠΌΠ΅ΡΡ ΡΠ»Π΅Π΄ΡΡΡΠΈΠ΅ ΡΠΈΠΏΡ:
ΠΡΠ²Π΅Ρ:
 (1) i - Variant, j - Integer, k - Double, m - Double
 
 (2) i - Integer, j - Integer, k - Variant, m - Double
 
 (3) i - Variant, j - Integer, k - Variant, m - Double
 
ΠΠΎΠΌΠ΅Ρ 3
ΠΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ, ΠΎΠ±ΡΡΠ²Π»Π΅Π½Π½Π°Ρ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΠΎΠΌ Dim NEWVAR$
, ΠΈΠΌΠ΅Π΅Ρ ΡΠΈΠΏ
ΠΡΠ²Π΅Ρ:
 (1) Long
 
 (2) Double
 
 (3) Currency
 
 (4) String
 
Π£ΠΏΡΠ°ΠΆΠ½Π΅Π½ΠΈΠ΅ 2:
ΠΠΎΠΌΠ΅Ρ 1
ΠΡΠ»ΠΈ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ ΠΈΠΌΠ΅Π΅Ρ ΡΠΈΠΏ String
(ΡΠΈΠΌΠ²ΠΎΠ»ΡΠ½Π°Ρ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ), ΡΠΎ ΠΌΠ°ΠΊΡΠΈΠΌΠ°Π»ΡΠ½ΡΠΉ ΡΠ°Π·ΠΌΠ΅Ρ ΡΠ΅ΠΊΡΡΠ°, ΠΊΠΎΡΠΎΡΡΠΉ ΠΌΠΎΠΆΠ½ΠΎ ΡΠΎΡ
ΡΠ°Π½ΠΈΡΡ Π² ΡΡΠΎΠΉ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ:
ΠΡΠ²Π΅Ρ:
 (1) 256 ΡΠΈΠΌΠ²ΠΎΠ»ΠΎΠ² 
 (2) 64000 ΡΠΈΠΌΠ²ΠΎΠ»ΠΎΠ² 
 (3) 1024 ΡΠΈΠΌΠ²ΠΎΠ»ΠΎΠ² 
 (4) 231 ΡΠΈΠΌΠ²ΠΎΠ»ΠΎΠ² 
 (5) 232 ΡΠΈΠΌΠ²ΠΎΠ»ΠΎΠ² 
ΠΠΎΠΌΠ΅Ρ 3
ΠΡΠ»ΠΈ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°ΡB
ΠΎΠ±ΡΡΠ²Π»Π΅Π½Π° ΠΊΠ°ΠΊBoolean
, ΡΠΎ ΠΎΡΠΈΠ±ΠΊΠ° Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ Π²ΠΎΠ·Π½ΠΈΠΊΠ½Π΅Ρ Π² ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΠ΅
ΠΡΠ²Π΅Ρ:
 (1) B=5. 3
 
 (2) B="Not"
 
 (3) B="False"
 
 (4) B=Not True
 
Π£ΠΏΡΠ°ΠΆΠ½Π΅Π½ΠΈΠ΅ 3:
ΠΠΎΠΌΠ΅Ρ 1
ΠΠ°ΡΡΠΈΠ²
ΠΡΠ²Π΅Ρ:
 (1) ΡΡΠΎ ΡΠΎΠ²ΠΎΠΊΡΠΏΠ½ΠΎΡΡΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ ΡΠ°Π·Π½ΡΡ ΡΠΈΠΏΠΎΠ² 
 (2) ΡΡΠΎ ΡΠΎΠ²ΠΎΠΊΡΠΏΠ½ΠΎΡΡΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ ΠΎΠ΄Π½ΠΎΠ³ΠΎ ΡΠΈΠΏΠ° 
 (3) ΡΡΠΎ ΡΠΎΠ²ΠΎΠΊΡΠΏΠ½ΠΎΡΡΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ , Π½ΠΈΡΠ΅ΠΌ Π½Π΅ ΠΎΡΠ»ΠΈΡΠ°ΡΡΠΈΡ ΡΡ Π΄ΡΡΠ³ ΠΎΡ Π΄ΡΡΠ³Π° 
 (4) ΠΏΡΠ΅Π΄ΠΏΠΎΠ»Π°Π³Π°Π΅Ρ ΠΎΠ±ΡΠ°Π±ΠΎΡΠΊΡ ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠ° ΠΎΡΠ΄Π΅Π»ΡΠ½ΠΎ 
ΠΠΎΠΌΠ΅Ρ 2
Π Π°Π·ΠΌΠ΅ΡΠ½ΠΎΡΡΡ Π΄ΠΈΠ½Π°ΠΌΠΈΡΠ΅ΡΠΊΠΎΠ³ΠΎ ΠΌΠ°ΡΡΠΈΠ²Π°
ΠΡΠ²Π΅Ρ:
 (1) ΠΎΠ±ΡΠ·Π°ΡΠ΅Π»ΡΠ½ΠΎ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΠ΅ΡΡΡ ΠΏΡΠΈ ΠΏΠ΅ΡΠ²ΠΎΠΌ ΠΆΠ΅ ΠΎΠ±ΡΡΠ²Π»Π΅Π½ΠΈΠΈ ΠΌΠ°ΡΡΠΈΠ²Π° 
 (2) ΠΌΠΎΠΆΠ΅Ρ ΠΏΠ΅ΡΠ΅ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΡΡΡΡ Π² Π»ΡΠ±ΠΎΠΌ ΠΌΠ΅ΡΡΠ΅ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ 
 (3) ΠΌΠΎΠΆΠ΅Ρ ΠΏΠ΅ΡΠ΅ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΡΡΡΡ, ΡΠΎΠ»ΡΠΊΠΎ Π΅ΡΠ»ΠΈ ΠΌΠ°ΡΡΠΈΠ² ΠΎΠ±ΡΡΠ²Π»Π΅Π½ Π² Π½Π°ΡΠ°Π»Π΅ ΠΌΠΎΠ΄ΡΠ»Ρ ΠΏΠ΅ΡΠ΅Π΄ Π²ΡΠ΅ΠΌΠΈ ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ°ΠΌΠΈ 
 (4) ΠΌΠΎΠΆΠ΅Ρ ΠΏΠ΅ΡΠ΅ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΡΡΡΡ Π² Π»ΡΠ±ΠΎΠΌ ΠΌΠ΅ΡΡΠ΅ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ, ΡΠΎΠ»ΡΠΊΠΎ Π΅ΡΠ»ΠΈ ΠΌΠ°ΡΡΠΈΠ² ΠΎΠ±ΡΡΠ²Π»Π΅Π½ Π² Π½Π°ΡΠ°Π»Π΅ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ 
ΠΠΎΠΌΠ΅Ρ 3
ΠΡΠΈ ΠΎΠ±ΡΡΠ²Π»Π΅Π½ΠΈΠΈ ΠΌΠ°ΡΡΠΈΠ²Π° ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΠΎΠΌ Dim Array(5,6)
Π΅Π³ΠΎ ΡΠ°Π·ΠΌΠ΅ΡΠ½ΠΎΡΡΡ
ΠΡΠ²Π΅Ρ:
 (1) 5 Π½Π° 6 ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠ² 
 (2) 6 Π½Π° 7 ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠ² 
 (3) 5 Π½Π° 7 ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠ² 
 (4) 6 Π½Π° 6 ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠ² 
Π£ΠΏΡΠ°ΠΆΠ½Π΅Π½ΠΈΠ΅ 4:
ΠΠΎΠΌΠ΅Ρ 1
Preserve - ΠΊΠ»ΡΡΠ΅Π²ΠΎΠ΅ ΡΠ»ΠΎΠ²ΠΎ, ΠΏΠΎΠ·Π²ΠΎΠ»ΡΡΡΠ΅Π΅
ΠΡΠ²Π΅Ρ:
 (1) ΠΏΠ΅ΡΠ΅ΠΎΠΏΡΠ΅Π΄Π΅Π»ΠΈΡΡ ΡΡΡΠ΅ΡΡΠ²ΡΡΡΠΈΠ΅ ΡΠ»Π΅ΠΌΠ΅Π½ΡΡ ΠΌΠ°ΡΡΠΈΠ²Π° 
 (2) ΡΠΎΡ ΡΠ°Π½ΠΈΡΡ ΡΡΡΠ΅ΡΡΠ²ΡΡΡΠΈΠ΅ ΡΠ»Π΅ΠΌΠ΅Π½ΡΡ ΠΌΠ°ΡΡΠΈΠ²Π° 
 (3) ΠΏΠ΅ΡΠ΅Π·Π°ΠΏΠΈΡΠ°ΡΡ ΡΡΡΠ΅ΡΡΠ²ΡΡΡΠΈΠ΅ ΡΠ»Π΅ΠΌΠ΅Π½ΡΡ ΠΌΠ°ΡΡΠΈΠ²Π° 
 (4) ΠΏΠΎΠΌΠ΅Π½ΡΡΡ ΠΈΠ½Π΄Π΅ΠΊΡΡ ΠΌΠ°ΡΡΠΈΠ²Π° ΠΌΠ΅ΡΡΠ°ΠΌΠΈ 
ΠΠΎΠΌΠ΅Ρ 2
Π£ Π΄ΠΈΠ½Π°ΠΌΠΈΡΠ΅ΡΠΊΠΎΠ³ΠΎ ΠΌΠ½ΠΎΠ³ΠΎΠΌΠ΅ΡΠ½ΠΎΠ³ΠΎ ΠΌΠ°ΡΡΠΈΠ²Π° ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΠΎΠΌRedim
ΠΏΡΠΈ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠΈPreserve
ΠΌΠΎΠΆΠ½ΠΎ ΠΈΠ·ΠΌΠ΅Π½ΠΈΡΡ
ΠΡΠ²Π΅Ρ:
 (1) ΡΠΎΠ»ΡΠΊΠΎ Π½ΠΈΠΆΠ½ΡΡ Π³ΡΠ°Π½ΠΈΡΡ ΠΏΠ΅ΡΠ²ΠΎΠ³ΠΎ ΠΈΠ½Π΄Π΅ΠΊΡΠ° ΠΌΠ°ΡΡΠΈΠ²Π° 
 (2) ΡΠΎΠ»ΡΠΊΠΎ Π²Π΅ΡΡ Π½ΡΡ Π³ΡΠ°Π½ΠΈΡΡ ΠΏΠΎΡΠ»Π΅Π΄Π½Π΅Π³ΠΎ ΠΈΠ½Π΄Π΅ΠΊΡΠ° ΠΌΠ°ΡΡΠΈΠ²Π° 
 (3) ΡΠΎΠ»ΡΠΊΠΎ ΠΎΠ±Π΅ Π³ΡΠ°Π½ΠΈΡΡ Π»ΡΠ±ΠΎΠ³ΠΎ ΠΈΠ½Π΄Π΅ΠΊΡΠ° ΠΌΠ°ΡΡΠΈΠ²Π° ΠΎΠ΄Π½ΠΎΠ²ΡΠ΅ΠΌΠ΅Π½Π½ΠΎ 
 (4) Π»ΡΠ±ΡΡ Π³ΡΠ°Π½ΠΈΡΡ Π»ΡΠ±ΠΎΠ³ΠΎ ΠΈΠ½Π΄Π΅ΠΊΡΠ° ΠΌΠ°ΡΡΠΈΠ²Π° 
ΠΠΎΠΌΠ΅Ρ 3
Π€ΡΠ½ΠΊΡΠΈΡ Lbound
ΠΡΠ²Π΅Ρ:
 (1) Π²ΠΎΠ·Π²ΡΠ°ΡΠ°Π΅Ρ ΠΈΠ½Π΄Π΅ΠΊΡ ΠΏΠ΅ΡΠ²ΠΎΠ³ΠΎ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠ° ΠΌΠ°ΡΡΠΈΠ²Π° 
 (2) Π²ΠΎΠ·Π²ΡΠ°ΡΠ°Π΅Ρ ΠΈΠ½Π΄Π΅ΠΊΡ ΠΏΠΎΡΠ»Π΅Π΄Π½Π΅Π³ΠΎ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠ° ΠΌΠ°ΡΡΠΈΠ²Π° 
 (3) ΡΡΡΠ°Π½Π°Π²Π»ΠΈΠ²Π°Π΅Ρ ΠΈΠ½Π΄Π΅ΠΊΡ ΠΏΠ΅ΡΠ²ΠΎΠ³ΠΎ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠ° ΠΌΠ°ΡΡΠΈΠ²Π° Π² 0 
 (4) Π²ΠΎΠ·Π²ΡΠ°ΡΠ°Π΅Ρ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠ² ΠΌΠ°ΡΡΠΈΠ²Π° 
Π£ΠΏΡΠ°ΠΆΠ½Π΅Π½ΠΈΠ΅ 5:
ΠΠΎΠΌΠ΅Ρ 1
ΠΠ±Π»Π°ΡΡΡ Π²ΠΈΠ΄ΠΈΠΌΠΎΡΡΠΈ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ -
ΠΡΠ²Π΅Ρ:
 (1) ΡΡΠΎ ΡΠ΅ ΠΌΠΎΠ΄ΡΠ»ΠΈ, Π² ΠΊΠΎΡΠΎΡΡΡ Π΄ΠΎΡΡΡΠΏΠ½ΠΎ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ 
 (2) ΡΡΠΎ ΡΠ΅ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ, Π² ΠΊΠΎΡΠΎΡΡΡ Π΄ΠΎΡΡΡΠΏΠ½ΠΎ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ 
 (3) ΡΡΠΎ ΡΠ΅ ΡΠΎΡΠΌΡ, Π² ΠΊΠΎΡΠΎΡΡΡ Π΄ΠΎΡΡΡΠΏΠ½ΠΎ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ 
 (4) ΡΡΠΎ ΡΠ΅ Π»ΠΈΡΡΡ ΡΠ°Π±ΠΎΡΠ΅ΠΉ ΠΊΠ½ΠΈΠ³ΠΈ, Π² ΠΊΠΎΡΠΎΡΡΡ Π΄ΠΎΡΡΡΠΏΠ½ΠΎ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ 
ΠΠΎΠΌΠ΅Ρ 2
ΠΡΠ»ΠΈ Π² ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ΅ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Π° Π»ΠΎΠΊΠ°Π»ΡΠ½Π°Ρ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ, ΠΈΠ΄Π΅Π½ΡΠΈΡΠΈΠΊΠ°ΡΠΎΡ ΠΊΠΎΡΠΎΡΠΎΠΉ ΡΠΎΠ²ΠΏΠ°Π΄Π°Π΅Ρ Ρ ΠΈΠ΄Π΅Π½ΡΠΈΡΠΈΠΊΠ°ΡΠΎΡΠΎΠΌ ΠΌΠΎΠ΄ΡΠ»ΡΠ½ΠΎΠΉ ΠΈ Π³Π»ΠΎΠ±Π°Π»ΡΠ½ΠΎΠΉ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ, ΡΠΎ Π²Π½ΡΡΡΠΈ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ
ΠΡΠ²Π΅Ρ:
 (1) ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ Π³Π»ΠΎΠ±Π°Π»ΡΠ½Π°Ρ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ 
 (2) ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ ΠΌΠΎΠ΄ΡΠ»ΡΠ½Π°Ρ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ 
 (3) ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ Π»ΠΎΠΊΠ°Π»ΡΠ½Π°Ρ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ 
 (4) ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ, ΠΊΠΎΡΠΎΡΠ°Ρ Π² ΡΠΏΠΈΡΠΊΠ΅ ΠΎΠ±ΡΡΠ²Π»Π΅Π½ΠΈΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ ΡΠ°ΡΠΏΠΎΠ»ΠΎΠΆΠ΅Π½Π° ΡΠ°Π½ΡΡΠ΅ Π΄ΡΡΠ³ΠΈΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ  
ΠΠΎΠΌΠ΅Ρ 3
Π ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅ ΠΈΠΌΠ΅ΡΡΡΡ Π΄Π²Π΅ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡProc1
ΠΈProc2
. ΠΡΠΎΡΠ΅Π΄ΡΡΠ°Proc1
Π·Π°ΠΏΡΠ°ΡΠΈΠ²Π°Π΅Ρ Π΄Π°Π½Π½ΡΠ΅ ΠΈ Π²ΡΡΠ²Π΅ΡΠΈΠ²Π°Π΅Ρ ΡΠ΅Π·ΡΠ»ΡΡΠ°Ρ ΠΈΠ· ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉUser_sum
, Π° ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ°Proc2
ΠΏΠΎΠ»ΡΡΠ°Π΅Ρ Π²Π²Π΅Π΄Π΅Π½Π½ΡΠ΅ Π΄Π°Π½Π½ΡΠ΅ ΠΈΠ·Proc1
ΠΈ ΡΡΠΌΠΌΠΈΡΡΠ΅Ρ ΠΈΡ Π² ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉUser_sum
. ΠΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡUser_sum
ΡΠ»Π΅Π΄ΡΠ΅Ρ ΠΎΠ±ΡΡΠ²ΠΈΡΡ
ΠΡΠ²Π΅Ρ:
 (1) ΠΊΠ°ΠΊ Π»ΠΎΠΊΠ°Π»ΡΠ½ΡΡ Π² ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ΅ Proc2
 
 (2) Π½Π° ΡΡΠΎΠ²Π½Π΅ ΠΌΠΎΠ΄ΡΠ»Ρ, Π² ΠΊΠΎΡΠΎΡΠΎΠΌ ΡΠ°ΡΠΏΠΎΠ»ΠΎΠΆΠ΅Π½Ρ ΠΎΠ±Π΅ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ 
 (3) ΠΊΠ°ΠΊ ΡΡΠ°ΡΠΈΡΠ΅ΡΠΊΡΡ Π² ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ΅ Proc2
 
 (4) ΠΊΠ°ΠΊ ΡΡΠ°ΡΠΈΡΠ΅ΡΠΊΡΡ Π² ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ΅ Proc1
 
Π£ΠΏΡΠ°ΠΆΠ½Π΅Π½ΠΈΠ΅ 6:
ΠΠΎΠΌΠ΅Ρ 1
ΠΠ΅ΡΠ²ΡΠΉ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ A=A+1
. ΠΡΠΌΠ΅ΡΡΡΠ΅ Π½Π΅Π²Π΅ΡΠ½ΠΎΠ΅ ΡΡΠ²Π΅ΡΠΆΠ΄Π΅Π½ΠΈΠ΅.
ΠΡΠ²Π΅Ρ:
 (1) Π²ΠΎΠ·Π½ΠΈΠΊΠ½Π΅Ρ ΠΎΡΠΈΠ±ΠΊΠ°, Π΅ΡΠ»ΠΈ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ A
ΠΎΠΏΠΈΡΠ°Π½Π° ΠΊΠ°ΠΊ String
 
 (2) A
ΠΏΠΎΠ»ΡΡΠΈΡ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ False
, Π΅ΡΠ»ΠΈ A
ΠΎΠΏΠΈΡΠ°Π½Π° ΠΊΠ°ΠΊ Boolean
 
 (3) A
ΠΏΠΎΠ»ΡΡΠΈΡ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ 1, Π΅ΡΠ»ΠΈ A
ΠΎΠΏΠΈΡΠ°Π½Π° ΠΊΠ°ΠΊ Integer.
 
 (4) A
ΠΏΠΎΠ»ΡΡΠΈΡ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ True
, Π΅ΡΠ»ΠΈ A
ΠΎΠΏΠΈΡΠ°Π½Π° ΠΊΠ°ΠΊ Boolean
 
ΠΠΎΠΌΠ΅Ρ 2
ΠΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°ΡVar
ΠΎΠΏΠΈΡΠ°Π½Π° ΠΊΠ°ΠΊVariant.ΠΈ
ΠΏΡΠΈ ΠΏΠΎΠΌΠΎΡΠΈ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΠ°Var="S"
ΠΏΠΎΠ»ΡΡΠΈΠ»Π° Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅S
. ΠΠ°ΠΊΠΎΠΉ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡ Π²ΡΠ·ΠΎΠ²Π΅Ρ ΠΎΡΠΈΠ±ΠΊΡ ΠΏΡΠΈ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΠΈ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ?
ΠΡΠ²Π΅Ρ:
 (1) Var=Var+"2"
 
 (2) Var=Var*"2"
 
 (3) Var=Var+"T"
 
 (4) Var=Var & "T"
 
 (5) Var=Var & "2"
 
ΠΠΎΠΌΠ΅Ρ 3
ΠΡΠΎΡΠ΅Π΄ΡΡΠ° ΠΏΡΠ΅Π΄ΠΏΠΎΠ»Π°Π³Π°Π΅Ρ ΡΠ°ΡΡΠ΅Ρ ΠΏΡΠΎΠΈΠ·Π²Π΅Π΄Π΅Π½ΠΈΡ ΡΠΈΡΠ΅Π», Π²Π²ΠΎΠ΄ΠΈΠΌΡΡ
ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Π΅ΠΌ. ΠΠ»Ρ ΠΏΠΎΠ»ΡΡΠ΅Π½ΠΈΡ ΠΏΡΠΎΠΈΠ·Π²Π΅Π΄Π΅Π½ΠΈΡ ΠΎΠΏΠΈΡΠ°Π½Π° ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ Prod as Single
. Π ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ΅ Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΠΉ ΠΏΡΠΎΠΈΠ·Π²Π΅Π΄Π΅Π½ΠΈΠ΅ ΡΠΈΡΠ΅Π» ΡΠ°Π²Π½ΠΎ Π½ΡΠ»Ρ. ΠΠ°ΠΊΠ°Ρ ΠΊΠΎΠΌΠ°Π½Π΄Π° ΠΈΠ½ΠΈΡΠΈΠ°Π»ΠΈΠ·Π°ΡΠΈΠΈ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ
ΠΏΡΠΈΠ²Π΅Π΄Π΅Ρ ΠΊ ΠΊΠΎΡΡΠ΅ΠΊΡΠ½ΠΎΠΌΡ ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΡ?
ΠΡΠ²Π΅Ρ:
 (1) Prod="1"
 
 (2) Prod=0
 
 (3) Prod=""
 
 (4) Prod="0"
 
ΠΠ»Π°Π²Π½Π°Ρ / ΠΡΠΈΡΠ½ΡΠ΅ ΡΠ΅Ρ
Π½ΠΎΠ»ΠΎΠ³ΠΈΠΈ /
ΠΡΠ½ΠΎΠ²Π½ΡΠ΅ ΠΏΡΠΈΠ½ΡΠΈΠΏΡ ΠΈ ΠΊΠΎΠ½ΡΠ΅ΠΏΡΠΈΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ Π½Π° ΡΠ·ΡΠΊΠ΅ VBA Π² Excel / Π’Π΅ΡΡ 4
excel — ΠΠ±ΡΡΠ²Π»Π΅Π½ΠΈΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ ΠΌΠ°ΡΡΠΈΠ²Π° Π² VBA
ΠΠ°Π΄Π°Π²Π°ΡΡ Π²ΠΎΠΏΡΠΎΡ
ΡΠΏΡΠΎΡΠΈΠ»
ΠΠ·ΠΌΠ΅Π½Π΅Π½ΠΎ
4 Π³ΠΎΠ΄Π°, 5 ΠΌΠ΅ΡΡΡΠ΅Π² Π½Π°Π·Π°Π΄
ΠΡΠΎΡΠΌΠΎΡΡΠ΅Π½ΠΎ
1ΠΊ ΡΠ°Π·
Π ΡΠ΅ΠΌ ΡΠ°Π·Π½ΠΈΡΠ° Π² ΠΎΠ±ΡΡΠ²Π»Π΅Π½ΠΈΠΈ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ ΠΌΠ°ΡΡΠΈΠ²Π° Π² ΡΡΠΈΡ ΡΡΠ΅Ρ ΡΡΠΈΠ»ΡΡ :
Dim MyArr1 ΠΊΠ°ΠΊ Π²Π°ΡΠΈΠ°Π½Ρ Dim MyArr2() ΠΊΠ°ΠΊ Π²Π°ΡΠΈΠ°Π½Ρ Dim MyArr3()
ΠΡΠΎ Π²ΡΠ΅ ΡΡΠΈ Π΄ΠΈΠ½Π°ΠΌΠΈΡΠ΅ΡΠΊΠΈΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΠ΅?
ΠΠ΅ ΠΌΠΎΠ³Ρ Π½Π°ΠΉΡΠΈ ΡΡΡΠ»ΠΊΡ Π½Π° Π΄ΠΎΠΊΡΠΌΠ΅Π½ΡΠ°ΡΠΈΡ, Π³Π΄Π΅ ΡΡΠ°Π²Π½ΠΈΠ²Π°ΡΡΡΡ ΡΡΠΈ ΡΡΠΈ.
ΠΠ±Π½ΠΎΠ²Π»Π΅Π½ΠΈΠ΅.
Π― Π΄Π΅ΠΉΡΡΠ²ΠΈΡΠ΅Π»ΡΠ½ΠΎ Π½Π΅ Π²ΠΈΠΆΡ ΡΠ°Π·Π½ΠΈΡΡ ΠΏΡΠΈ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΠΈ ΡΡΠΈΡ
Π΄Π²ΡΡ
ΠΊΠΎΠ΄ΠΎΠ²:
code 1
Dim MyArr MyArr = ΠΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ("a1: c10"). ΠΠ½Π°ΡΠ΅Π½ΠΈΠ΅
ΠΊΠΎΠ΄ 2
Dim MyArr() ΠΊΠ°ΠΊ Π²Π°ΡΠΈΠ°Π½Ρ MyArr = ΠΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ("a1: c10"). ΠΠ½Π°ΡΠ΅Π½ΠΈΠ΅
ΠΠ΅ΠΉΡΡΠ²ΠΈΡΠ΅Π»ΡΠ½ΠΎ Π»ΠΈ ΠΈΠΌΠ΅Π΅Ρ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅, Π΅ΡΠ»ΠΈ ΠΌΡ ΠΎΠ±ΡΡΠ²ΠΈΠΌ ΠΌΠ°ΡΡΠΈΠ² Π»ΡΠ±ΡΠΌ ΠΈΠ· ΡΡΠ΅Ρ ΠΏΠ΅ΡΠ΅ΡΠΈΡΠ»Π΅Π½Π½ΡΡ Π²ΡΡΠ΅ ΡΠΏΠΎΡΠΎΠ±ΠΎΠ², Π΅ΡΠ»ΠΈ ΠΌΡ Ρ ΠΎΡΠΈΠΌ ΠΏΡΠΈΡΠ²Π°ΠΈΠ²Π°ΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΠΌΠ°ΡΡΠΈΠ²Ρ, ΡΠΈΡΠ°Ρ ΠΈΡ ΠΈΠ· Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π°?
MyArr=ΠΠΈΠ°ΠΏΠ°Π·ΠΎΠ½("A1:C10").ΠΠ½Π°ΡΠ΅Π½ΠΈΠ΅
ΠΡΠΎ ΡΠ°ΠΊ, ΡΡΠΎ ΠΊΠΎΠ³Π΄Π° ΡΡΡΠΎΠΊΠ° Π²ΡΡΠ΅ Π²ΡΠΏΠΎΠ»Π½ΡΠ΅ΡΡΡ, ΠΎΠ±ΡΡΠ²Π»Π΅Π½ΠΈΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ ΠΏΡΠΎΠΈΡΡ ΠΎΠ΄ΠΈΡ Π½Π΅ΠΏΠΎΡΡΠ΅Π΄ΡΡΠ²Π΅Π½Π½ΠΎ ΠΏΠ΅ΡΠ΅Π΄ Π΅Π΅ Π·Π°ΠΏΠΎΠ»Π½Π΅Π½ΠΈΠ΅ΠΌ Π·Π½Π°ΡΠ΅Π½ΠΈΡΠΌΠΈ. ΠΠ°ΠΊ Π΅ΡΠ»ΠΈ Π±Ρ Ρ Π½Π°Ρ Π±ΡΠ»Π° ΡΠΊΡΡΡΠ°Ρ ΡΡΡΠΎΠΊΠ° ΠΊΠΎΠ΄Π°:
Dim MyArr(10,3) As Variant '10 ΡΡΡΠΎΠΊ ΠΈ 3 ΡΡΠΎΠ»Π±ΡΠ°
Π‘ΡΠ°Π½ΠΎΠ²ΠΈΡΡΡ Π»ΠΈ MyArr
ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ ΡΡΠ°ΡΠΈΡΠ΅ΡΠΊΠΎΠ³ΠΎ ΠΌΠ°ΡΡΠΈΠ²Π°, ΠΊΠΎΠ³Π΄Π° ΠΌΡ ΡΠΈΡΠ°Π΅ΠΌ Π² Π½Π΅Π΅ Π΄Π°Π½Π½ΡΠ΅ ΠΈΠ· Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π°?
- ΠΌΠ°ΡΡΠΈΠ²Ρ
- excel
- vba
7
Dim MyArr1 As Variant
β MyArr1 ΡΠ²Π»ΡΠ΅ΡΡΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ Ρ ΡΠΈΠΏΠΎΠΌ Π²Π°ΡΠΈΠ°Π½ΡΠ°
Π’ΠΈΠΏ Variant ΠΌΠΎΠΆΠ΅Ρ ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΡ Π»ΡΠ±ΠΎΠΉ ΡΠΈΠΏ Π΄Π°Π½Π½ΡΡ
ΠΈΠ»ΠΈ ΠΎΠ±ΡΠ΅ΠΊΡ
ΠΠΈΠΆΠ΅ Π΄Π²Π° β ΠΎΠ΄Π½ΠΎ ΠΈ ΡΠΎ ΠΆΠ΅. ΠΠ³ΠΎ Π΄ΠΈΠ½Π°ΠΌΠΈΡΠ΅ΡΠΊΠΈΠΉ ΠΌΠ°ΡΡΠΈΠ², ΡΠ°Π·ΠΌΠ΅Ρ ΠΊΠΎΡΠΎΡΠΎΠ³ΠΎ Π½Π΅ΠΈΠ·Π²Π΅ΡΡΠ΅Π½ Π²ΠΎ Π²ΡΠ΅ΠΌΡ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠΈ.
Dim MyArr2() ΠΊΠ°ΠΊ Π²Π°ΡΠΈΠ°Π½Ρ Dim MyArr3()
ΠΠΎΠ΄ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° ArayTest() Dim MyArr1 ΠΊΠ°ΠΊ Π²Π°ΡΠΈΠ°Π½Ρ Dim MyArr2() ΠΊΠ°ΠΊ Π²Π°ΡΠΈΠ°Π½Ρ Dim MyArr3() ΠΠΎΠΉΠΡΡ1 = 10 MyArr1 = #30.01.2019# '--> ΠΡ Π½Π΅ ΠΌΠΎΠΆΠ΅ΡΠ΅ Π½Π°ΠΏΡΡΠΌΡΡ ΠΏΡΠΈΡΠ²ΠΎΠΈΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΠΌΠ°ΡΡΠΈΠ²Ρ 'ΠΠΎΠΉΠΡΡ2 = 20 'ΠΠΎΠΉΠΡΡ3 = 30 '--> ΠΡΠΏΠΎΠ»ΡΠ·ΡΠΉΡΠ΅ Redim Π΄Π»Ρ ΡΡΡΠ°Π½ΠΎΠ²ΠΊΠΈ ΡΠ°Π·ΠΌΠ΅ΡΠ° ΠΌΠ°ΡΡΠΈΠ²Π° ReDim MyArr2(1) ΠΠΎΠΉΠΡΡ2(0) = "Π°Π±Π²" ΠΠΎΠΉΠΡΡ2(1) = 1324 '--> Π²Π°ΡΠΈΠ°Π½Ρ ΠΌΠΎΠΆΠ΅Ρ ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΡ ΠΎΠ±ΡΠ΅ΠΊΡ MyArr1 = ΠΠ°ΡΡΠΈΠ² (1, "s", β 30.01.2019#) ΠΠΎΠ½Π΅Ρ ΡΠ°Π±Π²ΡΡΠ΅ΡΠ°
5
Π Π°Π·Π½ΠΈΡΠ° ΠΌΠ΅ΠΆΠ΄Ρ β¦
-
Dim MyArr()
ΠΈΠ»ΠΈ
Dim MyArr() As Variant
(ΠΊΠΎΡΠΎΡΡΠ΅ ΡΠΎΠ²ΠΏΠ°Π΄Π°ΡΡ) ΠΈ -
Dim MyArr
ΠΈΠ»ΠΈ
Dim MyArr As Variant
(ΠΊΠΎΡΠΎΡΡΠ΅ ΡΠ°ΠΊΠΆΠ΅ ΡΠΎΠ²ΠΏΠ°Π΄Π°ΡΡ)
β¦ ΡΡΠΎ Dim MyArr()
ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Π½ΠΎ ΠΌΠ°ΡΡΠΈΠ², ΠΈ Π²Ρ Π½Π΅ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΏΡΠΈΡΠ²ΠΎΠΈΡΡ Π΅ΠΌΡ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅: MyArr = 5
Π½Π΅ ΠΏΠΎΠ»ΡΡΠΈΡΡΡ.
Π ΡΠΎ Π²ΡΠ΅ΠΌΡ ΠΊΠ°ΠΊ Dim MyArr
ΠΏΠΎΠ»Π½ΠΎΡΡΡΡ Π½Π΅ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½ΠΎ ΠΈ ΠΌΠΎΠΆΠ΅Ρ Π»ΠΈΠ±ΠΎ ΠΏΡΠΈΡΠ²Π°ΠΈΠ²Π°ΡΡΡΡ β¦
- Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅
MyArr = 5
(Π±ΡΠ΄Π΅Ρ ΡΠ°Π±ΠΎΡΠ°ΡΡ) - ΠΈΠ»ΠΈ ΠΌΠ°ΡΡΠΈΠ²
MyArr = Range("a1:c10").Value
- ΠΈΠ»ΠΈ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½
Set MyArr = Range("a1:c10")
Π’Π°ΠΊ ΡΡΠΎ Π±ΡΠ΄ΡΡΠ΅ ΠΊΠ°ΠΊ ΠΌΠΎΠΆΠ½ΠΎ Π±ΠΎΠ»Π΅Π΅ ΠΊΠΎΠ½ΠΊΡΠ΅ΡΠ½ΡΠΌΠΈ, Π΅ΡΠ»ΠΈ Π²Ρ ΠΎΠ±ΡΡΠ²Π»ΡΠ΅ΡΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ. ΠΡΠΎ ΠΎΠ·Π½Π°ΡΠ°Π΅Ρ, ΡΡΠΎ Π΅ΡΠ»ΠΈ Π²Ρ Ρ ΠΎΡΠΈΡΠ΅ ΡΠ΄Π΅Π»Π°ΡΡ
MyArr = Range("a1:c10").Value
, ΡΠΎΠ³Π΄Π° Π²ΡΠ΅Π³Π΄Π° ΡΠ±Π΅Π΄ΠΈΡΠ΅ΡΡ, ΡΡΠΎ ΠΎΠ½ ΠΎΠ±ΡΡΠ²Π»Π΅Π½ ΠΊΠ°ΠΊ ΠΌΠ°ΡΡΠΈΠ² Dim MyArr() ΠΠ°ΠΊ Π²Π°ΡΠΈΠ°Π½Ρ
, ΠΊΠΎΡΠΎΡΡΠΉ Π·Π΄Π΅ΡΡ ΡΠ²Π»ΡΠ΅ΡΡΡ Π½Π°ΠΈΠ±ΠΎΠ»Π΅Π΅ ΡΠΏΠ΅ΡΠΈΡΠΈΡΠ½ΡΠΌ Π²Π°ΡΠΈΠ°Π½ΡΠΎΠΌ. ΠΠΎΡΡΠΎΠΌΡ Π½ΠΈΠΊΡΠΎ Π½Π΅ ΠΌΠΎΠΆΠ΅Ρ ΠΏΠΎΠΌΠ΅ΡΡΠΈΡΡ Π² Π½Π΅Π³ΠΎ ΡΡΠΎ-ΡΠΎ Π΅ΡΠ΅, ΠΊΡΠΎΠΌΠ΅ ΠΌΠ°ΡΡΠΈΠ²Π°. Π§Π΅ΠΌ ΠΊΠΎΠ½ΠΊΡΠ΅ΡΠ½Π΅Π΅ Π²Ρ Π±ΡΠ΄Π΅ΡΠ΅, ΡΠ΅ΠΌ Π±Π΅Π·ΠΎΠΏΠ°ΡΠ½Π΅Π΅ Π±ΡΠ΄Π΅Ρ Π²Π°Ρ ΠΊΠΎΠ΄.
Π’Π°ΠΊΠΆΠ΅ ΠΊΠ°ΠΆΠ΄ΡΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΡ Π²ΠΈΠ΄ΠΈΡ, ΡΡΠΎ Π² ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ Dim MyVar()
Π΄ΠΎΠ»ΠΆΠ΅Π½ Π±ΡΡΡ ΠΌΠ°ΡΡΠΈΠ², Π° Π² Dim MyVar
ΠΎΠ½ΠΈ Π½Π΅ Π·Π½Π°ΡΡ, ΡΡΠΎ ΠΎΠΆΠΈΠ΄Π°Π΅ΡΡΡ.
0
ΠΠ°ΡΠΈΠ°Π½Ρ
ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ Π»ΡΠ±ΡΠΌ, ΠΊΠ°ΠΊ ΠΌΡ ΠΌΠΎΠΆΠ΅ΠΌ ΠΏΡΠΎΡΠΈΡΠ°ΡΡ Π² ΡΠΈΠΏΠ΅ Π΄Π°Π½Π½ΡΡ
Variant:
Π’ΠΈΠΏ Π΄Π°Π½Π½ΡΡ Variant β ΡΡΠΎ ΡΠΈΠΏ Π΄Π°Π½Π½ΡΡ Π΄Π»Ρ Π²ΡΠ΅Ρ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ , ΠΊΠΎΡΠΎΡΡΠ΅ ΡΠ²Π½ΠΎ Π½Π΅ ΠΎΠ±ΡΡΠ²Π»Π΅Π½Ρ ΠΊΠ°ΠΊ ΠΊΠ°ΠΊΠΎΠΉ-Π»ΠΈΠ±ΠΎ Π΄ΡΡΠ³ΠΎΠΉ ΡΠΈΠΏ (Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ΠΌ ΡΠ°ΠΊΠΈΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΠΎΠ², ΠΊΠ°ΠΊ Dim, Private, Public ΠΈΠ»ΠΈ Static).
Π’ΠΈΠΏ Π΄Π°Π½Π½ΡΡ Variant Π½Π΅ ΠΈΠΌΠ΅Π΅Ρ ΡΠΈΠΌΠ²ΠΎΠ»Π° ΠΎΠ±ΡΡΠ²Π»Π΅Π½ΠΈΡ ΡΠΈΠΏΠ°.
ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΡΠΈΠΏ Π΄Π°Π½Π½ΡΡ Variant Π²ΠΌΠ΅ΡΡΠΎ Π»ΡΠ±ΠΎΠ³ΠΎ ΡΠΈΠΏΠ° Π΄Π°Π½Π½ΡΡ
Π ΠΎΡΠ½ΠΎΠ²Π½ΠΎΠΌ ΡΡΠΎ ΠΎΠ·Π½Π°ΡΠ°Π΅Ρ, ΡΡΠΎ Dim MyArr1 As Variant
ΠΏΠΎΠ΄ΡΠ°Π·ΡΠΌΠ΅Π²Π°Π΅Ρ, ΡΡΠΎ MyArr1
ΡΠ°ΠΊΠΆΠ΅ ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ ΠΌΠ°ΡΡΠΈΠ²ΠΎΠΌ Π²Π°ΡΠΈΠ°Π½ΡΠΎΠ².
ΠΠΎ ΠΏΠΎΡΠ»Π΅Π΄Π½ΠΈΠ΅ Π΄Π²Π° ΠΎΠ·Π½Π°ΡΠ°ΡΡ, ΡΡΠΎ Π²Ρ ΠΎΠ±ΡΡΠ²Π»ΡΠ΅ΡΠ΅ ΠΠ°ΡΡΠΈΠ²
«Π²ΡΠ΅ ΡΡΠΎ ΡΠ³ΠΎΠ΄Π½ΠΎ», Π½ΠΎ ΡΠΎΠ»ΡΠΊΠΎ ΠΏΠ΅ΡΠ²ΠΎΠ΅ ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ ΡΠ΅ΠΌ ΡΠ³ΠΎΠ΄Π½ΠΎ π
2
ΠΠ°ΡΠ΅Π³ΠΈΡΡΡΠΈΡΡΠΉΡΠ΅ΡΡ ΠΈΠ»ΠΈ Π²ΠΎΠΉΠ΄ΠΈΡΠ΅ Π² ΡΠΈΡΡΠ΅ΠΌΡ
ΠΠ°ΡΠ΅Π³ΠΈΡΡΡΠΈΡΡΠΉΡΠ΅ΡΡ Ρ ΠΏΠΎΠΌΠΎΡΡΡ Google
ΠΠ°ΡΠ΅Π³ΠΈΡΡΡΠΈΡΠΎΠ²Π°ΡΡΡΡ ΡΠ΅ΡΠ΅Π· Facebook
ΠΠ°ΡΠ΅Π³ΠΈΡΡΡΠΈΡΡΠΉΡΠ΅ΡΡ, ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡ ΡΠ»Π΅ΠΊΡΡΠΎΠ½Π½ΡΡ ΠΏΠΎΡΡΡ ΠΈ ΠΏΠ°ΡΠΎΠ»Ρ
ΠΠΏΡΠ±Π»ΠΈΠΊΠΎΠ²Π°ΡΡ ΠΊΠ°ΠΊ Π³ΠΎΡΡΡ
ΠΠ»Π΅ΠΊΡΡΠΎΠ½Π½Π°Ρ ΠΏΠΎΡΡΠ°
Π’ΡΠ΅Π±ΡΠ΅ΡΡΡ, Π½ΠΎ Π½Π΅ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°Π΅ΡΡΡ
ΠΠΏΡΠ±Π»ΠΈΠΊΠΎΠ²Π°ΡΡ ΠΊΠ°ΠΊ Π³ΠΎΡΡΡ
ΠΠ»Π΅ΠΊΡΡΠΎΠ½Π½Π°Ρ ΠΏΠΎΡΡΠ°
Π’ΡΠ΅Π±ΡΠ΅ΡΡΡ, Π½ΠΎ Π½Π΅ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°Π΅ΡΡΡ
ΠΠ°ΠΆΠΈΠΌΠ°Ρ Β«ΠΠΏΡΠ±Π»ΠΈΠΊΠΎΠ²Π°ΡΡ ΡΠ²ΠΎΠΉ ΠΎΡΠ²Π΅ΡΒ», Π²Ρ ΡΠΎΠ³Π»Π°ΡΠ°Π΅ΡΠ΅ΡΡ Ρ Π½Π°ΡΠΈΠΌΠΈ ΡΡΠ»ΠΎΠ²ΠΈΡΠΌΠΈ ΠΎΠ±ΡΠ»ΡΠΆΠΈΠ²Π°Π½ΠΈΡ ΠΈ ΠΏΠΎΠ΄ΡΠ²Π΅ΡΠΆΠ΄Π°Π΅ΡΠ΅, ΡΡΠΎ ΠΏΡΠΎΡΠΈΡΠ°Π»ΠΈ ΠΈ ΠΏΠΎΠ½ΡΠ»ΠΈ Π½Π°ΡΡ ΠΏΠΎΠ»ΠΈΡΠΈΠΊΡ ΠΊΠΎΠ½ΡΠΈΠ΄Π΅Π½ΡΠΈΠ°Π»ΡΠ½ΠΎΡΡΠΈ ΠΈ ΠΊΠΎΠ΄Π΅ΠΊΡ ΠΏΠΎΠ²Π΅Π΄Π΅Π½ΠΈΡ.
ΠΠ°ΠΊ ΠΎΠ±ΡΡΠ²ΠΈΡΡ ΠΌΠ°ΡΡΠΈΠ² Π² Excel VBA (3 ΠΏΡΠΎΡΡΡΡ ΡΠΏΠΎΡΠΎΠ±Π°)
ΠΠΎΠ»ΡΡΠΈΡΠ΅ ΠΠΠ‘ΠΠΠΠ’ΠΠ«Π ΠΏΡΠΎΠ΄Π²ΠΈΠ½ΡΡΡΠ΅ ΡΠΏΡΠ°ΠΆΠ½Π΅Π½ΠΈΡ Excel Ρ ΡΠ΅ΡΠ΅Π½ΠΈΡΠΌΠΈ!
ΠΡΠ»ΠΈ Π²Ρ Ρ ΠΎΡΠΈΡΠ΅ Π·Π°ΠΏΡΡΡΠΈΡΡ ΠΊΠΎΠ΄ VBA Π² Excel, Π²Π°ΠΌ ΡΠ½Π°ΡΠ°Π»Π° Π½ΡΠΆΠ½ΠΎ ΠΎΠ±ΡΡΠ²ΠΈΡΡ ΠΌΠ°ΡΡΠΈΠ². ΠΠ΄Π½Π°ΠΊΠΎ, Π΅ΡΠ»ΠΈ Π²Ρ Ρ ΠΎΡΠΈΡΠ΅ ΠΎΠ±ΡΡΠ²ΠΈΡΡ ΡΡΡΠ΅Π»ΠΊΡ Π² VBA, ΡΠΎ Π²Ρ ΠΏΠΎΠΏΠ°Π»ΠΈ Π² Π½ΡΠΆΠ½ΠΎΠ΅ ΠΌΠ΅ΡΡΠΎ. ΠΡΠ½ΠΎΠ²Π½ΠΎΠ΅ ΡΠ°Π·Π»ΠΈΡΠΈΠ΅ ΠΌΠ΅ΠΆΠ΄Ρ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ ΠΈ ΠΌΠ°ΡΡΠΈΠ²ΠΎΠΌ Π·Π°ΠΊΠ»ΡΡΠ°Π΅ΡΡΡ Π² ΡΠΎΠΌ, ΡΡΠΎ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ ΠΌΠΎΠΆΠ΅Ρ Ρ ΡΠ°Π½ΠΈΡΡ ΠΎΠ΄Π½ΠΎ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅, Π° ΠΌΠ°ΡΡΠΈΠ² ΠΌΠΎΠΆΠ΅Ρ Ρ ΡΠ°Π½ΠΈΡΡ ΡΠΏΠΈΡΠΎΠΊ Π΄Π°Π½Π½ΡΡ Π² ΡΠ²ΠΎΠ΅ΠΉ ΠΏΠ°ΠΌΡΡΠΈ. Π ΡΡΠΎΠΉ ΡΡΠ°ΡΡΠ΅ Ρ ΠΏΠΎΠΊΠ°ΠΆΡ Π²Π°ΠΌ, ΠΊΠ°ΠΊ ΠΎΠ±ΡΡΠ²ΠΈΡΡ ΠΌΠ°ΡΡΠΈΠ² Π² VBA.
Π‘ΠΊΠ°ΡΠ°ΡΡ ΠΏΡΠ°ΠΊΡΠΈΡΠ΅ΡΠΊΡΡ ΡΠ°Π±ΠΎΡΡΡ ΡΠ΅ΡΡΠ°Π΄Ρ
ΠΡΠ½ΠΎΠ²Ρ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ ΠΌΠ°ΡΡΠΈΠ²Π° VBA
3 ΡΡΡΠ΅ΠΊΡΠΈΠ²Π½ΡΡ ΡΠΏΠΎΡΠΎΠ±Π° ΠΎΠ±ΡΡΠ²ΠΈΡΡ ΠΌΠ°ΡΡΠΈΠ² Π² Excel VBA
1. Π£ΠΏΠΎΠΌΠΈΠ½Π°Π½ΠΈΠ΅ ΡΠ°Π·ΠΌΠ΅ΡΠ° ΠΌΠ°ΡΡΠΈΠ²Π°
2. ΠΠ±ΡΡΠ²Π»Π΅Π½ΠΈΠ΅ ΠΌΠ°ΡΡΠΈΠ²Π° Π±Π΅Π· ΠΏΠΎΠ΄ΡΠ²Π΅ΡΠΆΠ΄Π΅Π½Π½ΠΎΠ³ΠΎ ΡΠ°Π·ΠΌΠ΅ΡΠ°
3. ΠΠ±ΡΡΠ²ΠΈΡΡ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΡΡΠ½ΠΊΡΠΈΠΈ VBA ARRAY
ΠΠ°ΠΊ Π²ΡΡΠ°Π²ΠΈΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΡ Π² ΠΌΠ°ΡΡΠΈΠ²
1. ΠΡΡΡΠ½ΡΡ Π²ΡΡΠ°Π²ΡΡΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ Π΄Π»Ρ ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ ΠΈΠ½Π΄Π΅ΠΊΡΠ°
2. Π‘ΠΎΠ·Π΄Π°ΡΡ ΡΠΈΠΊΠ»
ΠΠ°ΠΊΠ»ΡΡΠ΅Π½ΠΈΠ΅
Π‘ΡΠ°ΡΡΠΈ ΠΏΠΎ Π’Π΅ΠΌΠ΅
Π‘ΠΊΠ°ΡΠ°ΡΡ ΡΠ°Π±ΠΎΡΡΡ ΡΠ΅ΡΡΠ°Π΄Ρ
ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΡΠΊΠ°ΡΠ°ΡΡ ΡΡΠ΅Π±Π½ΠΈΠΊ ΠΏΠΎ ΡΡΡΠ»ΠΊΠ΅ Π½ΠΈΠΆΠ΅.
ΠΡΠ½ΠΎΠ²Ρ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ ΠΌΠ°ΡΡΠΈΠ²Π° VBA
ΠΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ β ΡΡΠΎ Π°Π½Π°Π»ΠΎΠ³ ΠΊΠΎΠ½ΡΠ΅ΠΉΠ½Π΅ΡΠ°, Π² ΠΊΠΎΡΠΎΡΠΎΠΌ Ρ ΡΠ°Π½ΠΈΡΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅. ΠΠ½ΠΎΠ³Π΄Π° Π²Π°ΠΌ ΠΌΠΎΠΆΠ΅Ρ ΠΏΠΎΡΡΠ΅Π±ΠΎΠ²Π°ΡΡΡΡ ΠΏΠΎΠΌΠ΅ΡΡΠΈΡΡ Π±ΠΎΠ»Π΅Π΅ ΠΎΠ΄Π½ΠΎΠ³ΠΎ Π·Π½Π°ΡΠ΅Π½ΠΈΡ Π² ΠΎΠ΄Π½Ρ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ. ΠΠΎΠ³Π΄Π° ΠΎΠ΄Π½Π° ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ ΡΠΎΠ΄Π΅ΡΠΆΠΈΡ ΡΡΠ΄ Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ, ΠΎΠ½Π° Π½Π°Π·ΡΠ²Π°Π΅ΡΡΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ ΠΌΠ°ΡΡΠΈΠ²Π° .
Π₯Π°ΡΠ°ΠΊΡΠ΅ΡΠΈΡΡΠΈΠΊΠΈ ΠΌΠ°ΡΡΠΈΠ²Π° VBA
- ΠΠ°Π½Π½ΡΠ΅ ΠΎΠ΄Π½ΠΈΡ ΠΈ ΡΠ΅Ρ ΠΆΠ΅ ΠΊΠ°ΡΠ΅Π³ΠΎΡΠΈΠΉ Π³ΡΡΠΏΠΏΠΈΡΡΡΡΡΡ Π² ΠΌΠ°ΡΡΠΈΠ². ΠΡΠΎ ΠΏΠΎΡΡΠΈ ΠΊΠ°ΠΊ ΡΠΎΠ·Π΄Π°Π½ΠΈΠ΅ ΠΎΡΠ΄Π΅Π»ΡΠ½ΠΎΠΉ Π΅Π΄ΠΈΠ½ΠΈΡΡ ΠΏΠ°ΠΌΡΡΠΈ.
- ΠΠ°ΡΡΠΈΠ², ΠΊΠΎΡΠΎΡΡΠΉ Π±ΡΠ΄Π΅Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡΡΡ, Π΄ΠΎΠ»ΠΆΠ΅Π½ Π±ΡΡΡ ΡΠ²ΡΠ·Π°Π½ Ρ Π΄Π°Π½Π½ΡΠΌΠΈ. ΠΠ°ΠΏΡΠΈΠΌΠ΅Ρ, ΠΎΠ΄Π½ΠΎΠΌΠ΅ΡΠ½ΡΠΉ ΠΌΠ°ΡΡΠΈΠ² ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ Π΄Π»Ρ Π½Π°Π±ΠΎΡΠ° Π΄Π°Π½Π½ΡΡ ΠΈΠ· ΠΎΠ΄Π½ΠΎΠΉ ΡΡΡΠΎΠΊΠΈ ΠΈΠ»ΠΈ ΠΎΠ΄Π½ΠΎΠ³ΠΎ ΡΡΠΎΠ»Π±ΡΠ°, Π° ΠΌΠ½ΠΎΠ³ΠΎΠΌΠ΅ΡΠ½ΡΠΉ ΠΌΠ°ΡΡΠΈΠ² β Π΄Π»Ρ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΈΡ ΡΡΡΠΎΠΊ ΠΈ ΡΡΠΎΠ»Π±ΡΠΎΠ².
Π’ΠΈΠΏΡ ΠΌΠ°ΡΡΠΈΠ²ΠΎΠ² Π² Excel VBA
ΠΠ°ΠΈΠ±ΠΎΠ»Π΅Π΅ ΡΠ°ΡΠΏΡΠΎΡΡΡΠ°Π½Π΅Π½Π½ΡΠ΅ ΡΠΈΠΏΡ ΠΌΠ°ΡΡΠΈΠ²ΠΎΠ²:
- Π‘ΡΠ°ΡΠΈΡΠ΅ΡΠΊΠΈΠΉ ΠΌΠ°ΡΡΠΈΠ²
- ΠΠΈΠ½Π°ΠΌΠΈΡΠ΅ΡΠΊΠΈΠΉ ΠΌΠ°ΡΡΠΈΠ²
- ΠΠ΄Π½ΠΎΠΌΠ΅ΡΠ½ΡΠΉ ΠΌΠ°ΡΡΠΈΠ²
- ΠΠ½ΠΎΠ³ΠΎΠΌΠ΅ΡΠ½ΡΠΉ ΠΌΠ°ΡΡΠΈΠ²
3 ΡΡΡΠ΅ΠΊΡΠΈΠ²Π½ΡΡ ΡΠΏΠΎΡΠΎΠ±Π° ΠΎΠ±ΡΡΠ²ΠΈΡΡ ΠΌΠ°ΡΡΠΈΠ² Π² Excel VBA
Π ΡΡΠΎΠΌ ΡΠ°Π·Π΄Π΅Π»Π΅ Π²Ρ Π½Π°ΠΉΠ΄Π΅ΡΠ΅ 3 ΡΡΡΠ΅ΠΊΡΠΈΠ²Π½ΡΡ ΠΈ ΠΏΠΎΠ΄Ρ ΠΎΠ΄ΡΡΠΈΡ ΡΠΏΠΎΡΠΎΠ±Π° ΠΎΠ±ΡΡΠ²ΠΈΡΡ ΠΠ°ΡΡΠΈΠ² Π² Excel VBA . Π― ΠΏΡΠΎΠ΄Π΅ΠΌΠΎΠ½ΡΡΡΠΈΡΡΡ ΠΈΡ ΠΎΠ΄ΠΈΠ½ Π·Π° Π΄ΡΡΠ³ΠΈΠΌ Π·Π΄Π΅ΡΡ. ΠΠ°Π²Π°ΠΉΡΠ΅ ΠΏΡΠΎΠ²Π΅ΡΠΈΠΌ ΠΈΡ ΡΠ΅ΠΉΡΠ°Ρ!
1. Π£ΠΏΠΎΠΌΠΈΠ½Π°Π½ΠΈΠ΅ ΡΠ°Π·ΠΌΠ΅ΡΠ° ΠΌΠ°ΡΡΠΈΠ²Π°
Π§ΡΠΎΠ±Ρ ΠΎΠ±ΡΡΠ²ΠΈΡΡ ΠΌΠ°ΡΡΠΈΠ² Π² Excel VBA, Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ Π²ΡΠΏΠΎΠ»Π½ΠΈΡΡ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΎ ΠΏΡΠΎΡΡΡΡ ΡΠ°Π³ΠΎΠ². ΠΠ΅ΡΠ΅ΠΉΠ΄Π΅ΠΌ ΠΊ ΡΠ»Π΅Π΄ΡΡΡΠΈΠΌ ΡΠ°Π³Π°ΠΌ.
Β π‘ Π¨Π°Π³ΠΈ:
- ΠΡΠ΅ΠΆΠ΄Π΅ Π²ΡΠ΅Π³ΠΎ, Π½Π°Π·Π½Π°ΡΡΡΠ΅ ΠΈΠΌΡ ΡΡΠ±ΡΠ΅ΠΊΡΠ°.
ΠΠΎΠ΄:
Sub WithSize() ΠΠΎΠ½Π΅Ρ ΡΡΠ±
- Π’Π΅ΠΏΠ΅ΡΡ, ΡΡΠΎΠ±Ρ ΠΎΠ±ΡΡΠ²ΠΈΡΡ ΠΌΠ°ΡΡΠΈΠ² Ρ ΡΠ°Π·ΠΌΠ΅ΡΠΎΠΌ, Π²Π°ΠΌ Π½ΡΠΆΠ½ΠΎ ΠΏΠΎΠΌΠ΅ΡΡΠΈΡΡ ΡΠ΅Π»ΠΎΡΠΈΡΠ»Π΅Π½Π½ΠΎΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ Π² ΠΊΡΡΠ³Π»ΡΡ ΡΠΊΠΎΠ±ΠΊΠ°Ρ ΠΏΠΎΡΠ»Π΅ Π΄Π΅ΠΉΡΡΠ²ΠΈΡΠ΅Π»ΡΠ½ΠΎΠ³ΠΎ ΠΈΠΌΠ΅Π½ΠΈ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ.
ΠΠΎΠ΄:
Sub WithSize() Π’ΡΡΠΊΠ»ΡΠΉ ΠΎΠ±Ρ(5) ΠΊΠ°ΠΊ Π²Π°ΡΠΈΠ°Π½Ρ ΠΠΎΠ½Π΅Ρ ΡΡΠ±
ΠΠ΄Π΅ΡΡ Ρ ΠΎΠ±ΡΡΠ²ΠΈΠ» ΠΌΠ°ΡΡΠΈΠ² Β« ΠΎΠ±ΡΒ» ΡΠ°Π·ΠΌΠ΅ΡΠΎΠΌ 5. Π ΠΎΠ½ Π±ΡΠ΄Π΅Ρ ΠΏΡΠΈΠ½ΠΈΠΌΠ°ΡΡ ΡΠ°Π·Π»ΠΈΡΠ½ΡΠ΅ ΡΠΈΠΏΡ Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ, ΠΊΠ°ΠΊ Ρ ΡΠΏΠΎΠΌΡΠ½ΡΠ» ΡΠΈΠΏ ΠΠ°ΡΠΈΠ°Π½Ρ . ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΏΡΠΎΠΏΡΡΡΠΈΡΡ ΡΠ°ΡΡΡ Ρ ΡΠΏΠΎΠΌΠΈΠ½Π°Π½ΠΈΠ΅ΠΌ ΡΠΈΠΏΠ°, Π΄ΠΎΡΡΠ°ΡΠΎΡΠ½ΠΎ Π±ΡΠ΄Π΅Ρ ΡΠΎΠ»ΡΠΊΠΎ ΠΎΠ±ΡΡΠ²Π»Π΅Π½ΠΈΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ
ΠΠΎΠ΄:
Sub WithSize() Π’ΡΡΠΊΠ»ΡΠΉ ΠΎΠ±Ρ(5) ΠΠΎΠ½Π΅Ρ ΡΡΠ±
ΠΠΎΠ΄ΡΠΎΠ±Π½Π΅Π΅: Excel VBA: ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½ΠΈΠ΅ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²Π° ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠ² Π² ΠΌΠ°ΡΡΠΈΠ²Π΅ (4 ΠΏΡΠΈΠΌΠ΅ΡΠ°)
2.
ΠΠ±ΡΡΠ²Π»Π΅Π½ΠΈΠ΅ ΠΌΠ°ΡΡΠΈΠ²Π° Π±Π΅Π· ΠΏΠΎΠ΄ΡΠ²Π΅ΡΠΆΠ΄Π΅Π½Π½ΠΎΠ³ΠΎ ΡΠ°Π·ΠΌΠ΅ΡΠ°
ΠΡ ΡΠ°ΠΊΠΆΠ΅ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΎΠ±ΡΡΠ²ΠΈΡΡ ΠΌΠ°ΡΡΠΈΠ² Π±Π΅Π· ΠΏΠΎΠ΄ΡΠ²Π΅ΡΠΆΠ΄Π΅Π½ΠΈΡ ΡΠ°Π·ΠΌΠ΅ΡΠ°. Π‘Π»Π΅Π΄ΡΠΉΡΠ΅ ΠΈΠ½ΡΡΡΡΠΊΡΠΈΡΠΌ Π΄Π»Ρ ΡΡΠΎΠ³ΠΎ.
Β π‘ Π¨Π°Π³ΠΎΠ²:
- ΠΡΠ΅ΠΆΠ΄Π΅ Π²ΡΠ΅Π³ΠΎ, Π½Π°Π·Π½Π°ΡΡΡΠ΅ ΠΈΠΌΡ ΡΡΠ±ΡΠ΅ΠΊΡΠ°.
ΠΠΎΠ΄:
ΠΠΎΠ΄ΠΌΠ°ΡΡΠΈΠ² Π±Π΅Π· ΡΠ°Π·ΠΌΠ΅ΡΠ°() ΠΠΎΠ½Π΅Ρ ΡΡΠ±
- Π’Π΅ΠΏΠ΅ΡΡ, ΡΡΠΎΠ±Ρ ΠΎΠ±ΡΡΠ²ΠΈΡΡ ΠΌΠ°ΡΡΠΈΠ² Π±Π΅Π· ΡΠ°Π·ΠΌΠ΅ΡΠ°, Π½ΡΠΆΠ½ΠΎ Π·Π°ΠΊΠ»ΡΡΠΈΡΡ Π΄ΠΎΠΏΡΡΡΠΈΠΌΠΎΠ΅ ΠΈΠΌΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ Π² ΠΊΡΡΠ³Π»ΡΠ΅ ΡΠΊΠΎΠ±ΠΊΠΈ.
ΠΠΎΠ΄:
ΠΠΎΠ΄ΠΌΠ°ΡΡΠΈΠ² Π±Π΅Π· ΡΠ°Π·ΠΌΠ΅ΡΠ°() Dim Customer () ΠΊΠ°ΠΊ ΡΡΡΠΎΠΊΠ° ΠΠΎΠ½Π΅Ρ ΡΡΠ±
ΠΠ½ΠΈ ΡΠ΄Π΅Π»Π°Π»ΠΈ Π²Π°ΡΠ΅ Π·Π°ΡΠ²Π»Π΅Π½ΠΈΠ΅, Π½ΠΎ Π² ΠΏΡΠ°ΠΊΡΠΈΡΠ΅ΡΠΊΠΎΠΌ ΡΡΠ΅Π½Π°ΡΠΈΠΈ Π²Π°ΠΌ Π½ΡΠΆΠ΅Π½ ΠΌΠ°ΡΡΠΈΠ² Ρ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Π½ΡΠΌ ΡΠ°Π·ΠΌΠ΅ΡΠΎΠΌ, ΡΡΠΎΠ±Ρ ΡΠΏΠΎΠΌΡΠ½ΡΡΡ ΡΠ°Π·ΠΌΠ΅Ρ, ΠΊΠΎΡΠΎΡΡΠΉ Π²Ρ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ReDim ΠΊΠ»ΡΡΠ΅Π²ΠΎΠ΅ ΡΠ»ΠΎΠ²ΠΎ ΠΈ ΡΠΊΠ°ΠΆΠΈΡΠ΅ ΡΠ°Π·ΠΌΠ΅Ρ.
ΠΠΎΠ΄:
ΠΠΎΠ΄ΠΌΠ°ΡΡΠΈΠ² Π±Π΅Π· ΡΠ°Π·ΠΌΠ΅ΡΠ°() Dim Customer () ΠΊΠ°ΠΊ ΡΡΡΠΎΠΊΠ° ΠΠ»ΠΈΠ΅Π½Ρ ReDim(5) ΠΠΎΠ½Π΅Ρ ΡΡΠ±
ΠΠΎΠ΄ΡΠΎΠ±Π½Π΅Π΅: ΠΠ°ΠΊ ΡΠΎΡ ΡΠ°Π½ΠΈΡΡ 2D-ΠΌΠ°ΡΡΠΈΠ² ReDim Π² Excel VBA (2 ΠΏΡΠΎΡΡΡΡ ΡΠΏΠΎΡΠΎΠ±Π°)
3.
ΠΠ±ΡΡΠ²ΠΈΡΡ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΡΡΠ½ΠΊΡΠΈΠΈ VBA ARRAY
ΠΡΠΎΠΌΠ΅ ΡΠΎΠ³ΠΎ, Π²Ρ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΎΠ±ΡΡΠ²ΠΈΡΡ ΠΌΠ°ΡΡΠΈΠ² Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΡΡΠ½ΠΊΡΠΈΠΈ VBA ARRAY .
ΠΡΠ΅, ΡΡΠΎ Π²Π°ΠΌ Π½ΡΠΆΠ½ΠΎ ΡΠ΄Π΅Π»Π°ΡΡ, ΡΡΠΎ ΠΎΠ±ΡΡΠ²ΠΈΡΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ (ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡ Dim ), Π·Π°ΡΠ΅ΠΌ ΠΏΡΠΈ ΠΏΡΠΈΡΠ²ΠΎΠ΅Π½ΠΈΠΈ Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠΉΡΠ΅ ΡΡΠ½ΠΊΡΠΈΡ ARRAY .
ΠΠΎΠ΄:
ΠΠΎΠ΄ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡ ΠΠΠ‘Π‘ΠΠΠ() Π’ΡΡΠΊΠ»ΡΠΉ ΠΊΠ»ΠΈΠ΅Π½Ρ Customer = Array("Π»ΡΠ±ΠΎΠ΅ ΠΈΠΌΡ", "Π»ΡΠ±ΠΎΠ΅ ΠΈΠΌΡ", "Π»ΡΠ±ΠΎΠ΅ ΠΈΠΌΡ", "Π»ΡΠ±ΠΎΠ΅ ΠΈΠΌΡ", "Π»ΡΠ±ΠΎΠ΅ ΠΈΠΌΡ") ΠΠΎΠ½Π΅Ρ ΡΡΠ±
ΠΠ°ΠΊ Π²ΠΈΠ΄ΠΈΡΠ΅, Ρ ΠΎΠ±ΡΡΠ²ΠΈΠ» ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ Customer, Π° Π·Π°ΡΠ΅ΠΌ ΠΏΡΠΈΡΠ²ΠΎΠΈΠ» Π΅ΠΉ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΡΡΠ½ΠΊΡΠΈΠΈ ARRAY .
ΠΠΎΠ΄ΡΠΎΠ±Π½Π΅Π΅: ΠΠ°ΠΊ ΡΠΎΠ·Π΄Π°ΡΡ ΠΌΠ°ΡΡΠΈΠ² Π² Excel VBA (4 ΠΈΠ΄Π΅Π°Π»ΡΠ½ΡΡ ΠΌΠ΅ΡΠΎΠ΄Π°)
ΠΠ½Π°Π»ΠΎΠ³ΠΈΡΠ½ΡΠ΅ ΠΏΠΎΠΊΠ°Π·Π°Π½ΠΈΡ
- ΠΠ°ΠΊ ΠΏΡΠΎΠ²Π΅ΡΠΈΡΡ, ΠΏΡΡΡ Π»ΠΈ ΠΌΠ°ΡΡΠΈΠ² Ρ ΠΏΠΎΠΌΠΎΡΡΡ VBA Π² Excel (3 Π²Π°ΡΠΈΠ°Π½ΡΠ°)
- Π§ΡΠ΅Π½ΠΈΠ΅ ΡΠ΅ΠΊΡΡΠΎΠ²ΠΎΠ³ΠΎ ΡΠ°ΠΉΠ»Π° VBA Π² ΠΌΠ°ΡΡΠΈΠ² (2 ΠΏΠΎΠ΄Ρ ΠΎΠ΄ΡΡΠΈΡ ΠΌΠ΅ΡΠΎΠ΄Π°)
- ΠΠ°ΠΊ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΠΌΠ°ΡΡΠΈΠ²Ρ Π²ΠΌΠ΅ΡΡΠΎ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ΠΎΠ² Π² Excel VBA
- Excel VBA Π΄Π»Ρ ΡΡΠ΅Π½ΠΈΡ ΡΠ°ΠΉΠ»Π° CSV Π² ΠΌΠ°ΡΡΠΈΠ² (4 ΠΈΠ΄Π΅Π°Π»ΡΠ½ΡΡ ΠΏΡΠΈΠΌΠ΅ΡΠ°)
- ΠΠ°ΠΊ ΠΏΡΠΈΡΠ²ΠΎΠΈΡΡ ΠΈΠΌΡ ΠΌΠ°ΡΡΠΈΠ²Ρ ΡΠ°Π±Π»ΠΈΡ Π² Excel (Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΠΏΡΠΎΡΡΡΡ ΡΠ°Π³ΠΎΠ²)
ΠΠ°ΠΊ Π²ΡΡΠ°Π²ΠΈΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΡ Π² ΠΌΠ°ΡΡΠΈΠ²
ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ Π²ΡΡΠ°Π²Π»ΡΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΡ Π² ΠΌΠ°ΡΡΠΈΠ² Π΄Π²ΡΠΌΡ ΡΠΏΠΎΡΠΎΠ±Π°ΠΌΠΈ:
- ΠΡΡΡΠ½ΡΡ
- Π‘ΠΎΠ·Π΄Π°Π½ΠΈΠ΅ ΡΠΈΠΊΠ»Π°
ΠΠ°Π²Π°ΠΉΡΠ΅ ΠΏΡΠΎΠ²Π΅ΡΠΈΠΌ ΠΈΡ .
1. ΠΡΡΡΠ½ΡΡ Π²ΡΡΠ°Π²ΡΡΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ Π΄Π»Ρ ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ ΠΈΠ½Π΄Π΅ΠΊΡΠ°
ΠΠ»Ρ ΡΡΡΠ½ΠΎΠΉ Π²ΡΡΠ°Π²ΠΊΠΈ Π·Π½Π°ΡΠ΅Π½ΠΈΡ Π² ΠΌΠ°ΡΡΠΈΠ² ΠΏΡΠΈΡΠ²ΠΎΠΉΡΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΠΊΠ°ΠΆΠ΄ΠΎΠΌΡ ΠΈΠ½Π΄Π΅ΠΊΡΡ.
ΠΠΎΠ΄:
Sub ArrayExample() Dim Customer (ΠΎΡ 1 Π΄ΠΎ 5) ΠΊΠ°ΠΊ ΡΡΡΠΎΠΊΠ° ΠΠ»ΠΈΠ΅Π½Ρ (1) = Β«ΠΠ°ΠΉΠΊΒ» ΠΠ»ΠΈΠ΅Π½Ρ (2) = Β«ΠΠ΄Π°ΠΌΒ» ΠΠ»ΠΈΠ΅Π½Ρ (3) = Β«ΠΠΎΠ±Β» ΠΠ»ΠΈΠ΅Π½Ρ (4) = Β«ΠΠΆΠΎΠ½Β» ΠΠ»ΠΈΠ΅Π½Ρ (5) = Β«ΠΡΠ²ΠΈΠ΄Β» ΠΠΎΠ½Π΅Ρ ΡΡΠ±
2. Π‘ΠΎΠ·Π΄Π°ΡΡ ΡΠΈΠΊΠ»
ΠΠΎΠΏΡΡΡΠΈΠΌ, Ρ Π½Π°Ρ Π΅ΡΡΡ Π½Π°Π±ΠΎΡ Π΄Π°Π½Π½ΡΡ Π² Π½Π°ΡΠ΅ΠΌ ΡΠ°ΠΉΠ»Π΅ Excel Π΄Π»Ρ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ ΡΠΈΠΊΠ»Π° Π΄Π»Ρ Π²ΡΡΠ°Π²ΠΊΠΈ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ.
ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ Π΅ΡΠ΅ Π½Π΅ΠΌΠ½ΠΎΠ³ΠΎ ΡΠΎΠΊΡΠ°ΡΠΈΡΡ ΡΠ²ΠΎΠΉ ΠΊΠΎΠ΄, ΠΏΡΠΈΠΌΠ΅Π½ΠΈΠ² Π΅ΡΠ΅ ΠΎΠ΄Π½Ρ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ Π΄Π»Ρ Π·Π°ΠΌΡΠΊΠ°Π½ΠΈΡ ΡΠΈΠΊΠ»Π°.
ΠΠΎΠ΄:
Sub ArrayExample() Dim Customer (ΠΎΡ 1 Π΄ΠΎ 5) ΠΊΠ°ΠΊ ΡΡΡΠΎΠΊΠ° Dim K ΠΊΠ°ΠΊ ΡΠ΅Π»ΠΎΠ΅ ΡΠΈΡΠ»ΠΎ ΠΠΎΠ½Π΅Ρ ΡΡΠ±
- ΠΠΎΡΠΊΠΎΠ»ΡΠΊΡ Ρ ΠΌΠ΅Π½Ρ Π΅ΡΡΡ ΡΡΠΈ 5 ΠΈΠΌΠ΅Π½ ΠΊΠ»ΠΈΠ΅Π½ΡΠΎΠ², Π²Π²Π΅Π΄ΠΈΡΠ΅ ΠΎΠ³ΡΠ°Π½ΠΈΡΠ΅Π½ΠΈΠ΅ ΠΎΡ 1 Π΄ΠΎ 5.
ΠΠΎΠ΄:
Sub ArrayExample() Dim Customer (ΠΎΡ 1 Π΄ΠΎ 5) ΠΊΠ°ΠΊ ΡΡΡΠΎΠΊΠ° Dim K ΠΊΠ°ΠΊ ΡΠ΅Π»ΠΎΠ΅ ΡΠΈΡΠ»ΠΎ ΠΠ»Ρ ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ j Π² Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π΅ (Β«B3: B7Β») Π‘Π»Π΅Π΄ΡΡΡΠΈΠΉ j ΠΠΎΠ½Π΅Ρ ΡΡΠ±
- ΠΠ΄Π΅ΡΡ Π²Ρ Π²ΡΡΠ°Π²ΠΈΡΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ Π² ΠΊΠ°ΠΆΠ΄ΡΠΉ ΠΈΠ½Π΄Π΅ΠΊΡ ΠΌΠ°ΡΡΠΈΠ²Π°, ΠΏΡΠΎΡΡΠΎ ΠΏΡΠΈΠΌΠ΅Π½ΠΈΠ² ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ ΡΠΈΠΊΠ»Π° (Ρ. Π΅. K )
ΠΠΎΠ΄:
Sub ArrayExample() Dim Customer (ΠΎΡ 1 Π΄ΠΎ 5) ΠΊΠ°ΠΊ ΡΡΡΠΎΠΊΠ° Dim K ΠΊΠ°ΠΊ ΡΠ΅Π»ΠΎΠ΅ ΡΠΈΡΠ»ΠΎ Π = 1 ΠΠ»Ρ ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ j Π² Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π΅ (Β«B3: B7Β») ΠΠ»ΠΈΠ΅Π½Ρ (Π) = j Π = Π + 1 Π‘Π»Π΅Π΄ΡΡΡΠΈΠΉ j ΠΠΎΠ½Π΅Ρ ΡΡΠ±
ΠΠ΄Π΅ΡΡ ΡΠΈΠΊΠ» ΠΏΡΠΎΡ ΠΎΠ΄ΠΈΡ ΡΠ΅ΡΠ΅Π· Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ B3:B7 ΠΈ ΠΏΡΠΈΡΠ²Π°ΠΈΠ²Π°Π΅Ρ Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΠΌΠ°ΡΡΠΈΠ²Ρ Customer , ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡ K Π² ΠΊΠ°ΡΠ΅ΡΡΠ²Π΅ ΠΏΠΎΡΡΠ΄ΠΊΠΎΠ²ΠΎΠ³ΠΎ Π½ΠΎΠΌΠ΅ΡΠ°, ΠΏΠΎΡΠ»Π΅ ΡΠ΅Π³ΠΎ ΡΠ²Π΅Π»ΠΈΡΠΈΠ²Π°Π΅Ρ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ K , Π° Π·Π°ΡΠ΅ΠΌ ΠΏΠΎΠ²ΡΠΎΡΡΠ΅Ρ ΠΏΡΠΎΡΠ΅ΡΡ.
ΠΠΎΠ΄ΡΠΎΠ±Π½Π΅Π΅: Excel VBA Π΄Π»Ρ Π·Π°ΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ ΠΌΠ°ΡΡΠΈΠ²Π° Π·Π½Π°ΡΠ΅Π½ΠΈΡΠΌΠΈ ΡΡΠ΅Π΅ΠΊ (4 ΠΏΠΎΠ΄Ρ ΠΎΠ΄ΡΡΠΈΡ ΠΏΡΠΈΠΌΠ΅ΡΠ°)
ΠΠ°ΠΊΠ»ΡΡΠ΅Π½ΠΈΠ΅
Π ΡΡΠΎΠΉ ΡΡΠ°ΡΡΠ΅ Ρ ΠΏΠΎΠΏΡΡΠ°Π»ΡΡ ΠΏΠΎΠΊΠ°Π·Π°ΡΡ Π²Π°ΠΌ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΎ ΡΠΏΠΎΡΠΎΠ±ΠΎΠ² ΠΎΠ±ΡΡΠ²Π»Π΅Π½ΠΈΡ ΠΌΠ°ΡΡΠΈΠ²Π° Π² Excel VBA. Π― Π½Π°Π΄Π΅ΡΡΡ, ΡΡΠΎ ΡΡΠ° ΡΡΠ°ΡΡΡ ΠΏΡΠΎΠ»ΠΈΠ»Π° ΡΠ²Π΅Ρ Π½Π° Π²Π°Ρ ΠΏΡΡΡ ΠΊ ΠΎΠ±ΡΡΠ²Π»Π΅Π½ΠΈΡ ΠΌΠ°ΡΡΠΈΠ²Π° Π² Excel VBA. Π§Π΅ΠΌ Π±ΠΎΠ»ΡΡΠ΅ Π²Ρ Π±ΡΠ΄Π΅ΡΠ΅ ΠΏΡΠ°ΠΊΡΠΈΠΊΠΎΠ²Π°ΡΡΡΡ, ΡΠ΅ΠΌ Π±ΠΎΠ»ΡΡΠ΅ Π²Ρ Π±ΡΠ΄Π΅ΡΠ΅ Ρ Π½Π΅ΠΉ Π·Π½Π°ΠΊΠΎΠΌΠΈΡΡΡΡ. ΠΡΠ»ΠΈ Ρ Π²Π°Ρ Π΅ΡΡΡ Π»ΡΡΡΠΈΠ΅ ΠΌΠ΅ΡΠΎΠ΄Ρ, Π²ΠΎΠΏΡΠΎΡΡ ΠΈΠ»ΠΈ ΠΎΡΠ·ΡΠ²Ρ ΠΎΠ± ΡΡΠΎΠΉ ΡΡΠ°ΡΡΠ΅, Π½Π΅ Π·Π°Π±ΡΠ΄ΡΡΠ΅ ΠΏΠΎΠ΄Π΅Π»ΠΈΡΡΡΡ ΠΈΠΌΠΈ Π² ΠΏΠΎΠ»Π΅ Π΄Π»Ρ ΠΊΠΎΠΌΠΌΠ΅Π½ΡΠ°ΡΠΈΠ΅Π².