ΠΠ΄ΡΠ΅ΡΠ°ΡΠΈΡ ΡΡΠ΅Π΅ΠΊ Π² Excel
ΠΠ΅ΠΈΠ·Π²Π΅ΡΡΠ½ΡΠΉ Excel
Excel — ΡΡΠΎ Π½Π΅ Π΄Π΅ΡΠ΅Π²ΡΠ½Π½ΡΠ΅ ΡΡΡΡΡ ΠΈ Π½Π΅ Π²Π΅ΡΠ΅Π²ΠΎΡΠΊΠ° Ρ ΡΠ·Π΅Π»ΠΊΠ°ΠΌΠΈ, ΠΊΠΎΡΠΎΡΡΡ ΠΈΠ½ΠΊΠΈ ΠΏΡΠΈΠΌΠ΅Π½ΡΠ»ΠΈ Π΄Π»Ρ ΡΠ²ΠΎΠΈΡ Π½Π΅Ρ ΠΈΡΡΡΡ ΡΠ°ΡΡΠ΅ΡΠΎΠ². ΠΡΠΎ ΠΈΠ½ΡΡΡΡΠΌΠ΅Π½Ρ, ΠΊΠΎΡΠΎΡΡΠΉ ΠΏΠΎ ΠΏΠΎΠ»Π½ΠΎΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅Ρ Π²ΡΡΠΈΡΠ»ΠΈΡΠ΅Π»ΡΠ½ΡΡ ΠΌΠΎΡΡ ΡΠΎΠ²ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠΎΠ² Π΄Π»Ρ ΡΠ΅ΡΠ΅Π½ΠΈΡ ΠΎΠ³ΡΠΎΠΌΠ½ΠΎΠ³ΠΎ ΡΠΈΡΠ»Π° Π·Π°Π΄Π°Ρ: ΠΎΡ Π±ΡΡΠΎΠ²ΡΡ Π΄ΠΎ ΠΏΡΠΎΡΠ΅ΡΡΠΈΠΎΠ½Π°Π»ΡΠ½ΡΡ . ΠΠΎΠ΄ΡΠΎΠ±Π½Π΅Π΅… |
Π ΡΡΠΎΠΉ ΡΡΠ°ΡΡΠ΅ Π±ΠΎΠ»Π΅Π΅ ΠΏΠΎΠ΄ΡΠΎΠ±Π½ΠΎ ΡΠ°Π·Π±Π΅ΡΡΠΌ Π²ΠΈΠ΄Ρ Π°Π΄ΡΠ΅ΡΠ°ΡΠΈΠΈ ΡΡΠ΅Π΅ΠΊ Π² Excel. Π ΠΎΠ±Π·ΠΎΡΠ½ΠΎΠΌ Π²ΠΈΠ΄Π΅ΠΎ Ρ ΡΠΆΠ΅ ΠΎΠ± ΡΡΠΎΠΌ ΠΊΡΠ°ΡΠΊΠΎ ΡΠ°ΡΡΠΊΠ°Π·ΡΠ²Π°Π», Π½Ρ Π° ΡΠ΅ΠΉΡΠ°Ρ ΠΏΡΠΈΡΠ»Π° ΠΏΠΎΡΠ° ΡΠ°Π·ΡΡΡΠ½ΠΈΡΡ ΡΡΡ ΡΠ΅ΠΌΡ Π±ΠΎΠ»Π΅Π΅ ΠΏΠΎΠ΄ΡΠΎΠ±Π½ΠΎ.
ΠΠ»Ρ Π½Π°ΡΠ°Π»Π° Π½Π°ΠΏΠΎΠΌΠ½Ρ, ΡΡΠΎ Ρ ΠΊΠ°ΠΆΠ΄ΠΎΠΉ ΡΡΠ΅ΠΉΠΊΠΈ Π² Excel Π΅ΡΡΡ ΡΠ²ΠΎΠΉ ΡΠ½ΠΈΠΊΠ°Π»ΡΠ½ΡΠΉ Π°Π΄ΡΠ΅Ρ. ΠΠ΄ΡΠ΅Ρ ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ ΠΎΡΠ½ΠΎΡΠΈΡΠ΅Π»ΡΠ½ΡΠΌ ΠΈ Π°Π±ΡΠΎΠ»ΡΡΠ½ΡΠΌ. Π§ΡΠΎ ΡΠ°ΠΊΠΎΠ΅ Π°Π±ΡΠΎΠ»ΡΡΠ½ΡΠΉ ΠΈ ΠΎΡΠ½ΠΎΡΠΈΡΠ΅Π»ΡΠ½ΡΠΉ Π°Π΄ΡΠ΅ΡΠ° — ΠΎΠ± ΡΡΠΎΠΌ ΠΊΠ°ΠΊ-Π½ΠΈΠ±ΡΠ΄Ρ Π² Π΄ΡΡΠ³ΠΎΠΉ ΡΠ°Π·.
ΠΡΠ½ΠΎΡΠΈΡΠ΅Π»ΡΠ½ΡΠΉ Π°Π΄ΡΠ΅Ρ ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ, Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ, ΡΠ°ΠΊΠΈΠΌ:
B3 — ΡΡΠ΅ΡΡΡ ΡΡΠ΅ΠΉΠΊΠ° Π² ΡΡΠΎΠ»Π±ΡΠ΅ Π.
ΠΠ΄Π½Π°ΠΊΠΎ Π½Π° Π΄ΡΡΠ³ΠΎΠΌ Π»ΠΈΡΡΠ΅ ΡΠΎΠΆΠ΅ ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ ΡΡΠ΅ΠΉΠΊΠ° B3. Π§ΡΠΎΠ±Ρ ΠΎΠ΄Π½ΠΎΠ·Π½Π°ΡΠ½ΠΎ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΠΈΡΡ ΡΡΠ΅ΠΉΠΊΡ Π² ΠΏΡΠ΅Π΄Π΅Π»Π°Ρ ΠΊΠ½ΠΈΠ³ΠΈ Excel, ΠΌΠΎΠΆΠ½ΠΎ ΠΏΠ΅ΡΠ΅Π΄ Π΅Ρ Π°Π΄ΡΠ΅ΡΠΎΠΌ Π½Π°ΠΏΠΈΡΠ°ΡΡ ΠΈΠΌΡ Π»ΠΈΡΡΠ°.
Π’Π°ΠΊΠΎΠΉ Π°Π΄ΡΠ΅Ρ Π² ΠΊΠ½ΠΈΠ³Π΅ ΠΌΠΎΠΆΠ΅Ρ Π²ΡΠ³Π»ΡΠ΄Π΅ΡΡ ΡΠ°ΠΊ:
ΠΠΈΡΡ2!Π3
Π’ΠΎ Π΅ΡΡΡ Π·Π΄Π΅ΡΡ ΡΠΆΠ΅ ΠΈΠ΄ΡΡ ΡΠ΅ΡΡ Π½Π΅ ΠΎ ΠΊΠ°ΠΊΠΎΠΉ-ΡΠΎ Π°Π±ΡΡΡΠ°ΠΊΡΠ½ΠΎΠΉ ΡΡΠ΅ΠΉΠΊΠ΅ Π3, Π° ΠΎ ΡΡΠ΅ΠΉΠΊΠ΅ Π3, ΡΠ°ΡΠΏΠΎΠ»ΠΎΠΆΠ΅Π½Π½ΠΎΠΉ Π½Π° Π»ΠΈΡΡΠ΅ Ρ ΠΈΠΌΠ΅Π½Π΅ΠΌ βΠΠΈΡΡ2β.
ΠΡΠΎ ΡΠΎΠ»ΡΠΊΠΎ ΡΠ°ΠΌΡΠ΅ ΠΎΠ±ΡΠΈΠ΅ ΡΠ²Π΅Π΄Π΅Π½ΠΈΡ ΠΎΠ± Π°Π΄ΡΠ΅ΡΠ°ΡΠΈΠΈ ΡΡΠ΅Π΅ΠΊ Π² Excel, Π½ΠΎ Π΄Π»Ρ Π½Π°ΡΠ°Π»Π° ΡΡΠΎΠ³ΠΎ Π΄ΠΎΡΡΠ°ΡΠΎΡΠ½ΠΎ. ΠΠ΄Π½Π°ΠΊΠΎ Π½Π°Π΄ΠΎ Π΅ΡΡ ΡΠ°ΡΡΠΊΠ°Π·Π°ΡΡ ΠΎ Π²ΠΈΠ΄Π°Ρ Π°Π΄ΡΠ΅ΡΠ°ΡΠΈΠΈ.
Π‘ ΠΎΠ΄Π½ΠΈΠΌ ΡΠΎΡΠΌΠ°ΡΠΎΠΌ Π°Π΄ΡΠ΅ΡΠ° Π²Ρ ΡΠΆΠ΅ Π·Π½Π°ΠΊΠΎΠΌΡ. ΠΡΠΎ ΡΠΎΡΠΌΠ°Ρ Π²ΠΈΠ΄Π° βΠ±ΡΠΊΠ²Π°-ΡΠΈΡΡΠ°β:
ΠΠ¦
ΠΠ΄Π΅ Π — ΡΡΠΎ Π±ΡΠΊΠ²Π΅Π½Π½ΠΎΠ΅ ΠΎΠ±ΠΎΠ·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΡΡΠΎΠ»Π±ΡΠ°, Π° Π¦ — ΡΡΠΎ Π½ΠΎΠΌΠ΅Ρ ΡΡΡΠΎΠΊΠΈ. Π’Π°ΠΊΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ, ΠΊΠ°ΠΆΠ΄Π°Ρ ΡΡΠ΅ΠΉΠΊΠ° ΠΎΡΠ½ΠΎΡΠΈΡΠ΅Π»ΡΠ½ΠΎ ΡΠ΅ΠΊΡΡΠ΅Π³ΠΎ Π»ΠΈΡΡΠ° ΠΈΠΌΠ΅Π΅Ρ ΡΠ½ΠΈΠΊΠ°Π»ΡΠ½ΡΠΉ Π°Π΄ΡΠ΅Ρ. ΠΠ°ΠΏΡΠΈΠΌΠ΅Ρ,
Π10 — ΡΡΠΎ Π΄Π΅ΡΡΡΠ°Ρ ΡΡΡΠΎΠΊΠ° Π² ΡΡΠΎΠ»Π±ΡΠ΅ Π.
ΠΠ΄Π½Π°ΠΊΠΎ Π² Excel Π΅ΡΡΡ ΠΈ Π΄ΡΡΠ³ΠΎΠΉ ΡΠΎΡΠΌΠ°Ρ Π°Π΄ΡΠ΅ΡΠ°ΡΠΈΠΈ ΡΡΠ΅ΠΉΠΊΠΈ:
RxCy
Π³Π΄Π΅ R — ΡΡΠΎ ΡΡΠ΄ (ΡΡΡΠΎΠΊΠ°), Π° Π‘ — ΡΡΠΎ ΡΡΠΎΠ»Π±Π΅Ρ. ΠΠΎΡΠ»Π΅ Π±ΡΠΊΠ²Ρ ΡΠ»Π΅Π΄ΡΠ΅Ρ, ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²Π΅Π½Π½ΠΎ, Π½ΠΎΠΌΠ΅Ρ ΡΡΡΠΎΠΊΠΈ Ρ ΠΈ Π½ΠΎΠΌΠ΅Ρ ΡΡΠΎΠ»Π±ΡΠ° Ρ. ΠΠ°ΠΏΡΠΈΠΌΠ΅Ρ:
R3C7 — ΡΡΠΎ ΡΡΠ΅ΡΡΡ ΡΡΡΠΎΠΊΠ° ΠΈ ΡΠ΅Π΄ΡΠΌΠΎΠΉ ΡΡΠΎΠ»Π±Π΅Ρ, ΡΡΠΎ Π² ΡΠΎΡΠΌΠ°ΡΠ΅ βΠ±ΡΠΊΠ²Π°-ΡΠΈΡΡΠ°β Π±ΡΠ΄Π΅Ρ ΡΠ΅ΠΌ ΠΆΠ΅ Π°Π΄ΡΠ΅ΡΠΎΠΌ, ΡΡΠΎ ΠΈ G3.
ΠΠΈΡΠ½ΠΎ ΠΌΠ½Π΅ Π±ΠΎΠ»ΡΡΠ΅ Π½ΡΠ°Π²ΠΈΡΡΡ ΡΠΎΡΠΌΠ°Ρ βΠ±ΡΠΊΠ²Π°-ΡΠΈΡΡΠ°β. Π ΠΏΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ ΠΎΠ±ΡΡΠ½ΠΎ ΡΠ°ΠΊΠΎΠΉ ΡΠΎΡΠΌΠ°Ρ ΠΈ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ (Π²ΠΈΠ΄ΠΈΠΌΠΎ, ΠΎΠ½ Π±ΠΎΠ»ΡΡΠ΅ Π½ΡΠ°Π²ΠΈΡΡΡ Π½Π΅ ΡΠΎΠ»ΡΠΊΠΎ ΠΌΠ½Π΅, Π½ΠΎ ΠΈ ΡΠ°Π·ΡΠ°Π±ΠΎΡΡΠΈΠΊΠ°ΠΌ Excel).
ΠΠ΄Π½Π°ΠΊΠΎ ΠΈΠ½ΠΎΠ³Π΄Π° (Π²ΠΎ Π²ΡΡΠΊΠΎΠΌ ΡΠ»ΡΡΠ°Π΅ Π² Excel 2003 ΡΡΠΎ ΡΠ»ΡΡΠ°Π΅ΡΡΡ) ΡΠΎΡΠΌΠ°Ρ Π°Π΄ΡΠ΅ΡΠ° ΡΡΠ΅ΠΉΠΊΠΈ ΠΏΠΎΡΠ΅ΠΌΡ-ΡΠΎ ΡΠ°ΠΌ ΡΠΎΠ±ΠΎΠΉ ΠΌΠ΅Π½ΡΠ΅ΡΡΡ Π½Π° RxCy. Π ΡΠΎΠ³Π΄Π° ΠΏΡΠΈΡ ΠΎΠ΄ΠΈΡΡΡ ΠΌΠ΅Π½ΡΡΡ Π΅Π³ΠΎ Π² Π½Π°ΡΡΡΠΎΠΉΠΊΠ°Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π²ΡΡΡΠ½ΡΡ.
ΠΠ°ΡΠΈΠ½Π°ΡΡΠΈΡ ΡΡΠΎ ΠΌΠΎΠΆΠ΅Ρ Π²Π²Π΅ΡΡΠΈ Π² ΡΠΎΡΡΠΎΡΠ½ΠΈΠ΅ ΠΏΠ°Π½ΠΈΠΊΠΈ, ΠΏΠΎΡΠΎΠΌΡ ΡΡΠΎ Ρ ΠΏΠ΅ΡΠ²ΠΎΠ³ΠΎ ΡΠ°Π·Π° Π½Π°ΠΉΡΠΈ ΡΡΠΈ Π½Π°ΡΡΡΠΎΠΉΠΊΠΈ ΠΏΡΠ°ΠΊΡΠΈΡΠ΅ΡΠΊΠΈ Π½ΠΈ Ρ ΠΊΠΎΠ³ΠΎ Π½Π΅ ΠΏΠΎΠ»ΡΡΠ°Π΅ΡΡΡ.
ΠΠΎΡΡΠΎΠΌΡ ΠΏΠΎΠ΄ΡΠΊΠ°Π·ΡΠ²Π°Ρ. Π Excel 2007 ΠΈΠ·ΠΌΠ΅Π½ΠΈΡΡ ΡΡΠΈΠ»Ρ Π°Π΄ΡΠ΅ΡΠ° ΡΡΠ΅Π΅ΠΊ ΠΌΠΎΠΆΠ½ΠΎ ΡΠ°ΠΊ:
- ΠΠ°ΠΆΠ°ΡΡ ΠΊΠ½ΠΎΠΏΠΊΡ ΠΠ€ΠΠ‘ (Π² Π»Π΅Π²ΠΎΠΌ Π²Π΅ΡΡ Π½Π΅ΠΌ ΡΠ³Π»Ρ)
- ΠΠ°ΠΆΠ°ΡΡ ΠΊΠ½ΠΎΠΏΠΊΡ ΠΠΠ ΠΠΠΠ’Π Π« EXCEL
- ΠΡΠ±ΡΠ°ΡΡ Π²ΠΊΠ»Π°Π΄ΠΊΡ Π€ΠΠ ΠΠ£ΠΠ«
- ΠΠ°ΠΉΡΠΈ ΡΠ°ΠΌ ΡΡΡΠΎΠΊΡ βΠ‘ΡΠΈΠ»Ρ ΡΡΡΠ»ΠΎΠΊ R1C1β
ΠΡΠ»ΠΈ Π²Ρ ΠΏΠΎΡΡΠ°Π²ΠΈΡΠ΅ Π³Π°Π»ΠΎΡΠΊΡ Π½Π°ΠΏΡΠΎΡΠΈΠ² Π½Π°Π΄ΠΏΠΈΡΠΈ βΠ‘ΡΠΈΠ»Ρ ΡΡΡΠ»ΠΎΠΊ R1C1β, ΡΠΎ Π°Π΄ΡΠ΅ΡΠ° ΡΡΠ΅Π΅ΠΊ Π±ΡΠ΄ΡΡ ΠΈΠΌΠ΅ΡΡ ΡΠΎΡΠΌΠ°Ρ RxCy. ΠΡΠ»ΠΈ ΡΠ½ΠΈΠΌΠΈΡΠ΅ Π³Π°Π»ΠΎΡΠΊΡ, ΡΠΎ Π±ΡΠ΄Π΅Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡΡΡ ΡΠΎΡΠΌΠ°Ρ βΠ±ΡΠΊΠ²Π°-ΡΠΈΡΡΠ°β.
ΠΠΎΠΌΠΏΡΡΡΠ΅Ρ Π΄Π»Ρ ΡΠ°ΠΉΠ½ΠΈΠΊΠ°
Π ΠΎΡΠ½ΠΎΠ²Π΅ ΡΡΠΎΠΉ ΠΊΠ½ΠΈΠ³ΠΈ Π»Π΅ΠΆΠΈΡ ΠΊΡΡΡ Π»Π΅ΠΊΡΠΈΠΉ, ΡΠΏΠ΅ΡΠΈΠ°Π»ΡΠ½ΠΎ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠ°Π½Π½ΡΠΉ Π΄Π»Ρ ΠΎΠ±ΡΡΠ΅Π½ΠΈΡ Π±Π°Π·ΠΎΠ²ΡΠΌ Π½Π°Π²ΡΠΊΠ°ΠΌ ΡΠ°Π±ΠΎΡΡ Π½Π° ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠ΅ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Π΅ΠΉ ΠΎΠ΄Π½ΠΎΠ³ΠΎ ΠΈΠ· ΠΏΡΠΎΠΌΡΡΠ»Π΅Π½Π½ΡΡ ΠΏΡΠ΅Π΄ΠΏΡΠΈΡΡΠΈΠΉ. ΠΡΠ°ΠΊΡΠΈΡΠ΅ΡΠΊΠΈ Π²ΡΠ΅ ΡΡΠΈ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»ΠΈ ΡΠ°Π±ΠΎΡΠ°Π»ΠΈ Ρ ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠΎΠΌ Π½Π΅ ΠΎΠ΄ΠΈΠ½ Π³ΠΎΠ΄ Π½ΠΎ, ΠΊΠ°ΠΊ ΠΏΠΎΠΊΠ°Π·Π°Π»Π° ΠΏΡΠ°ΠΊΡΠΈΠΊΠ°, Π±ΠΎΠ»ΡΡΠΈΠ½ΡΡΠ²ΠΎ ΠΈΠ· Π½ΠΈΡ Π½Π΅ Π·Π½Π°Π»ΠΈ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠ°ΡΠ½ΡΡ Π²Π΅ΡΠ΅ΠΉ… ΠΠΎΠ΄ΡΠΎΠ±Π½Π΅Π΅… |
Π Π°Π±ΠΎΡΠ° Ρ ΡΡΠ΅ΠΉΠΊΠ°ΠΌΠΈ Π² Excel-VBA
ΠΡΡ ΠΎ ΡΠ°Π±ΠΎΡΠ΅ Ρ ΡΡΠ΅ΠΉΠΊΠ°ΠΌΠΈ Π² Excel-VBA: ΠΎΠ±ΡΠ°ΡΠ΅Π½ΠΈΠ΅, ΠΏΠ΅ΡΠ΅Π±ΠΎΡ, ΡΠ΄Π°Π»Π΅Π½ΠΈΠ΅, Π²ΡΡΠ°Π²ΠΊΠ°, ΡΠΊΡΡΡΠΈΠ΅, ΡΠΌΠ΅Π½Π° ΠΈΠΌΠ΅Π½ΠΈ.
Π‘ΠΎΠ΄Π΅ΡΠΆΠ°Π½ΠΈΠ΅:
Table of Contents:
- Π§ΡΠΎ ΡΠ°ΠΊΠΎΠ΅ ΡΡΠ΅ΠΉΠΊΠ° Excel?
- Π‘ΠΏΠΎΡΠΎΠ±Ρ ΠΎΠ±ΡΠ°ΡΠ΅Π½ΠΈΡ ΠΊ ΡΡΠ΅ΠΉΠΊΠ°ΠΌ
- ΠΡΠ±ΠΎΡ ΠΈ Π°ΠΊΡΠΈΠ²Π°ΡΠΈΡ
- ΠΠΎΠ»ΡΡΠ΅Π½ΠΈΠ΅ ΠΈ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ ΡΡΠ΅Π΅ΠΊ
- Π―ΡΠ΅ΠΉΠΊΠΈ ΠΎΡΠΊΡΡΡΠΎΠΉ ΠΊΠ½ΠΈΠ³ΠΈ
- Π―ΡΠ΅ΠΉΠΊΠΈ Π·Π°ΠΊΡΡΡΠΎΠΉ ΠΊΠ½ΠΈΠ³ΠΈΒ
- ΠΠ΅ΡΠ΅Π±ΠΎΡ ΡΡΠ΅Π΅ΠΊ
- ΠΠ΅ΡΠ΅Π±ΠΎΡ Π² ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ»ΡΠ½ΠΎΠΌ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π΅
- Π‘Π²ΠΎΠΉΡΡΠ²Π° ΠΈ ΠΌΠ΅ΡΠΎΠ΄Ρ ΡΡΠ΅Π΅ΠΊ
- ΠΠΌΡ ΡΡΠ΅ΠΉΠΊΠΈ
- ΠΠ΄ΡΠ΅Ρ ΡΡΠ΅ΠΉΠΊΠΈ
- Π Π°Π·ΠΌΠ΅ΡΡ ΡΡΠ΅ΠΉΠΊΠΈ
- ΠΠ°ΠΏΡΡΠΊ ΠΌΠ°ΠΊΡΠΎΡΠ° Π°ΠΊΡΠΈΠ²Π°ΡΠΈΠ΅ΠΉ ΡΡΠ΅ΠΉΠΊΠΈ
2 Π½ΡΠ°Π½ΡΠ°:
- Π― ΠΏΠΎΡΡΠΈ Π²Π΅Π·Π΄Π΅ ΡΡΠ°ΡΠ°ΡΡΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ThisWorkbook (Π° Π½Π΅, Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ, ActiveWorkbook) Π΄Π»Ρ ΠΎΠ±ΡΠ°ΡΠ΅Π½ΠΈΡ ΠΊ ΡΠ΅ΠΊΡΡΠ΅ΠΉ ΠΊΠ½ΠΈΠ³Π΅, Π² ΠΊΠΎΡΠΎΡΠΎΠΉ Π½Π°ΠΏΠΈΡΠ°Π½ ΡΡΠΎΡ ΠΊΠΎΠ΄ (ΡΡΠΈΡΠ°Ρ ΡΡΠΎ Π½Π°ΠΈΠ±ΠΎΠ»Π΅Π΅ Π±Π΅Π·ΠΎΠΏΠ°ΡΠ½ΡΠΌ Π΄Π»Ρ Π½ΠΎΠ²ΠΈΡΠΊΠΎΠ² ΡΠΏΠΎΡΠΎΠ±ΠΎΠΌ ΠΎΠ±ΡΠ°ΡΠ΅Π½ΠΈΡ ΠΊ ΠΊΠ½ΠΈΠ³Π°ΠΌ, ΡΡΠΎΠ±Ρ ΡΠ»ΡΡΠ°ΠΉΠ½ΠΎ Π½Π΅ Π²Π½Π΅ΡΡΠΈ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΡ Π² Π΄ΡΡΠ³ΠΈΠ΅ ΠΊΠ½ΠΈΠ³ΠΈ).
- Π― ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡ Π°Π½Π³Π»ΠΈΠΉΡΠΊΠΈΠΉ ΡΠΊΡΠ΅Π»Ρ ΠΈ Ρ ΠΌΠ΅Π½Ρ ΠΏΠΎ ΡΡΠ°Π½Π΄Π°ΡΡΡ Π»ΠΈΡΡΡ Π½Π°Π·ΡΠ²Π°ΡΡΡΡ Sheet1, Sheet2 ΠΈ Ρ.Π΄. ΠΡΠ»ΠΈ Π²Ρ ΡΠ°Π±ΠΎΡΠ°Π΅ΡΠ΅ Π² ΡΡΡΡΠΊΠΎΠΌ ΡΠΊΡΠ΅Π»Π΅, ΡΠΎ Π·Π°ΠΌΠ΅Π½ΠΈΡΠ΅ Thisworkbook.Sheets(«Sheet1») Π½Π° Thisworkbook.Sheets(«ΠΠΈΡΡ1»). ΠΡΠ»ΠΈ ΡΡΠΎΠ³ΠΎ Π½Π΅ ΡΠ΄Π΅Π»Π°ΡΡ, ΡΠΎ Π²Ρ ΠΏΠΎΠ»ΡΡΠΈΡΠ΅ ΠΎΡΠΈΠ±ΠΊΡ Π² ΡΠ²ΡΠ·ΠΈ Ρ ΡΠ΅ΠΌ, ΡΡΠΎ ΠΏΡΡΠ°Π΅ΡΠ΅ΡΡ ΠΎΠ±ΡΠ°ΡΠΈΡΡΡΡ ΠΊ Π½Π΅ΡΡΡΠ΅ΡΡΠ²ΡΡΡΠ΅ΠΌΡ ΠΎΠ±ΡΠ΅ΠΊΡΡ. ΠΠΎΠΆΠ½ΠΎ ΡΠ°ΠΊΠΆΠ΅ Π·Π°ΠΌΠ΅Π½ΠΈΡΡ Π½Π°Β Thisworkbook.Sheets(1), Π½ΠΎ ΡΡΠΎ ΠΌΠ΅Π½Π΅Π΅ Π±Π΅Π·ΠΎΠΏΠ°ΡΠ½ΠΎ.
Π§ΡΠΎ ΡΠ°ΠΊΠΎΠ΅ ΡΡΠ΅ΠΉΠΊΠ° Excel?
Π Π±ΠΎΠ»ΡΡΠΈΠ½ΡΡΠ²Π΅ ΠΌΠ΅ΡΡ ΠΏΠΈΡΡΡ: «ΡΠ»Π΅ΠΌΠ΅Π½Ρ, ΠΎΠ±ΡΠ°Π·ΠΎΠ²Π°Π½Π½ΡΠΉ ΠΏΠ΅ΡΠ΅ΡΠ΅ΡΠ΅Π½ΠΈΠ΅ΠΌ ΡΡΠΎΠ»Π±ΡΠ° ΠΈ ΡΡΡΠΎΠΊΠΈ». ΠΡΠΎ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½ΠΈΠ΅ ΠΏΠΎΠ»Π΅Π·Π½ΠΎ Π΄Π»Ρ Π»ΡΠ΄Π΅ΠΉ, ΠΊΠΎΡΠΎΡΡΠ΅ Π½Π΅ Π·Π½Π°ΠΊΠΎΠΌΡ Ρ ΠΏΠΎΠ½ΡΡΠΈΠ΅ΠΌ «ΡΠ°Π±Π»ΠΈΡΠ°». ΠΠ»Ρ ΡΠΎΠ³ΠΎ, ΡΡΠΎΠ±Ρ ΠΏΠΎΠ½ΡΡΡ ΡΠ΅ΠΌ Π½Π° ΡΠ°ΠΌΠΎΠΌ Π΄Π΅Π»Π΅ ΡΠ²Π»ΡΠ΅ΡΡΡ ΡΡΠ΅ΠΉΠΊΠ° Excel, Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ Π·Π°Π³Π»ΡΠ½ΡΡΡ Π² ΠΎΠ±ΡΠ΅ΠΊΡΠ½ΡΡ ΠΌΠΎΠ΄Π΅Π»Ρ Excel. ΠΡΠΈ ΡΡΠΎΠΌ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½ΠΈΡ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ² «ΡΡΠ΄», «ΡΡΠΎΠ»Π±Π΅Ρ» ΠΈ «ΡΡΠ΅ΠΉΠΊΠ°» Π±ΡΠ΄ΡΡ ΠΎΡΠ»ΠΈΡΠ°ΡΡΡΡ Π² Π·Π°Π²ΠΈΡΠΈΠΌΠΎΡΡΠΈ ΠΎΡ ΡΠΎΠ³ΠΎ, ΠΊΠ°ΠΊ ΠΌΡ ΡΠ°Π±ΠΎΡΠ°Π΅ΠΌ Ρ ΡΠ°ΠΉΠ»ΠΎΠΌ.
ΠΠ±ΡΠ΅ΠΊΡΡ Π² Excel-VBA. ΠΠΎΠΊΠ° ΠΌΡ ΡΠ°Π±ΠΎΡΠ°Π΅ΠΌ Π² Excel Π±Π΅Π· ΡΠ³Π»ΡΠ±Π»Π΅Π½ΠΈΡ Π² VBA ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½ΠΈΠ΅ ΡΡΠ΅ΠΉΠΊΠΈ ΠΊΠ°ΠΊ «ΠΏΠ΅ΡΠ΅ΡΠ΅ΡΠ΅Π½ΠΈΡ» ΡΡΡΠΎΠΊ ΠΈ ΡΡΠΎΠ»Π±ΡΠΎΠ² Π½Π°ΠΌ Π²ΠΏΠΎΠ»Π½Π΅ Ρ Π²Π°ΡΠ°Π΅Ρ, Π½ΠΎ Π΅ΡΠ»ΠΈ ΠΌΡ ΡΠ΅ΡΠ°Π΅ΠΌ ΠΊΠ°ΠΊ-ΡΠΎ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΠ·ΠΈΡΠΎΠ²Π°ΡΡ ΠΏΡΠΎΡΠ΅ΡΡ Π² VBA, ΡΠΎ ΠΎ Π½ΡΠΌ Π»ΡΡΡΠ΅ Π·Π°Π±ΡΡΡ ΠΈ ΠΏΡΠΎΡΡΠΎ Π²ΠΎΡΠΏΡΠΈΠ½ΠΈΠΌΠ°ΡΡ Π»ΠΈΡΡ ΠΊΠ°ΠΊ «ΠΌΠ΅ΡΠΎΠΊ» ΡΡΠ΅Π΅ΠΊ, Ρ ΠΊΠ°ΠΆΠ΄ΠΎΠΉ ΠΈΠ· ΠΊΠΎΡΠΎΡΡΡ VBA ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ ΡΠ°Π±ΠΎΡΠ°ΡΡ ΠΊΠ°ΠΊ ΠΌΠΈΠ½ΠΈΠΌΡΠΌ ΡΡΠ΅ΠΌΡ ΡΠΏΠΎΡΠΎΠ±Π°ΠΌΠΈ:
- ΠΏΠΎ ΡΠΈΡΡΠΎΠ²ΡΠΌ ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°ΡΠ°ΠΌ (ΡΡΠ΄, ΡΡΠΎΠ»Π±Π΅Ρ),
- ΠΏΠΎ Π°Π΄ΡΠ΅ΡΠ°ΠΌ ΡΠΎΡΠΌΠ°ΡΠ° Π1, B2 ΠΈ Ρ.Π΄. (ΡΡΠ΅Π½Π°ΡΠΈΠΉ ΡΠ΅Π»Π΅ΡΠΎΠΎΠ±ΡΠ°Π·Π½ΠΎΡΡΠΈ Π΄Π°Π½Π½ΠΎΠ³ΠΎ ΡΠΏΠΎΡΠΎΠ±Π° ΠΎΠ±ΡΠ°ΡΠ΅Π½ΠΈΡ Π² VBA ΠΌΠ½Π΅ ΡΠ»ΠΎΠΆΠ½ΠΎ ΠΏΡΠ΅Π΄ΡΡΠ°Π²ΠΈΡΡ)
- ΠΏΠΎ ΡΠ½ΠΈΠΊΠ°Π»ΡΠ½ΠΎΠΌΡ ΠΈΠΌΠ΅Π½ΠΈ (Π²ΠΎ Π²ΡΠΎΡΠΎΠΌ ΠΈ ΡΡΠ΅ΡΡΠ΅ΠΌ Π²Π°ΡΠΈΠ°Π½ΡΠ°Ρ ΠΌΡ Π±ΡΠ΄Π΅ΠΌ ΠΈΠΌΠ΅ΡΡ Π΄Π΅Π»ΠΎ Π½Π΅ ΡΠΎΠ²ΡΠ΅ΠΌ Ρ ΡΡΠ΅ΠΉΠΊΠΎΠΉ, Π° Ρ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠΌ VBA range, ΠΊΠΎΡΠΎΡΡΠΉ ΠΌΠΎΠΆΠ΅Ρ ΡΠΎΡΡΠΎΡΡΡ ΠΈΠ· ΠΎΠ΄Π½ΠΎΠΉ ΠΈΠ»ΠΈ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΈΡ ΡΡΠ΅Π΅ΠΊ). Π€ΡΠ½ΠΊΡΠΈΠΈ ΠΈ ΠΌΠ΅ΡΠΎΠ΄Ρ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ² Cells ΠΈ Range ΠΎΡΠ»ΠΈΡΠ°ΡΡΡΡ. ΠΠΎΠ²ΠΈΡΠΊΠ°ΠΌ Ρ Π±Ρ ΠΏΠΎΡΠ΅ΠΊΠΎΠΌΠ΅Π½Π΄ΠΎΠ²Π°Π» ΡΠ°Π±ΠΎΡΠ°ΡΡ Ρ ΡΡΠ΅ΠΉΠΊΠ°ΠΌΠΈ VBA ΡΠΎΠ»ΡΠΊΠΎ Ρ ΠΏΠΎΠΌΠΎΡΡΡ Cells ΠΈ ΠΏΠΎ ΠΈΡ ΡΠΈΡΡΠΎΠ²ΡΠΌ ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°ΡΠ°ΠΌ ΠΈ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ Range ΡΠΎΠ»ΡΠΊΠΎ ΠΏΠΎ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎΡΡΠΈ.
ΠΡΠ΅ ΡΡΠΈ ΡΠΏΠΎΡΠΎΠ±Π° ΠΎΠ±ΡΠ°ΡΠ΅Π½ΠΈΡ ΠΎΠΏΠΈΡΠ°Π½Ρ Π΄Π°Π»Π΅Π΅
ΠΠ°ΠΊ ΡΡΠΎ Ρ ΡΠ°Π½ΠΈΡΡΡ Π½Π° Π΄ΠΈΡΠΊΠ΅ ΠΈ ΠΊΠ°ΠΊ Ρ ΡΡΠΈΠΌ ΡΠ°Π±ΠΎΡΠ°ΡΡ Π²Π½Π΅ Excel? Π‘ ΡΠΎΡΠΊΠΈ Π·ΡΠ΅Π½ΠΈΡ Ρ ΡΠ°Π½Π΅Π½ΠΈΡ ΠΈ ΠΎΠ±ΡΠ°Π±ΠΎΡΠΊΠΈ Π²Π½Π΅ Excel ΠΈ VBA. Π‘Π΄Π΅Π»Π°ΡΡ ΡΡΠΎ ΠΌΠΎΠΆΠ½ΠΎ, Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ, ΡΠΌΠ΅Π½ΠΈΠ² ΡΠ°ΡΡΠΈΡΠ΅Π½ΠΈΠ΅ ΡΠ°ΠΉΠ»Π° Ρ .xls(x) Π½Π° .zip ΠΈ ΠΎΡΠΊΡΡΠ² ΡΡΠΎΡ Π°ΡΡ ΠΈΠ².
ΠΡΠΈΠΌΠ΅Ρ ΡΠΎΠ΄Π΅ΡΠΆΠΈΠΌΠΎΠ³ΠΎ ΡΠ°ΠΉΠ»Π° Excel:
ΠΠ°Π»Π΅Π΅ xl -> worksheets ΠΈ ΠΌΡ Π²ΠΈΠ΄ΠΈΠΌ ΡΠ°ΠΉΠ» Π»ΠΈΡΡΠ°
Π‘ΠΎΠ΄Π΅ΡΠΆΠΈΠΌΠΎΠ΅ ΡΠ°ΠΉΠ»Π°:
Β Π’ΠΎ ΠΆΠ΅, Π½ΠΎ Π±ΠΎΠ»Π΅Π΅ Π½Π°Π³Π»ΡΠ΄Π½ΠΎ:
<?xml version="1.0" encoding="UTF-8" standalone="yes"?> <worksheet xmlns="http://schemas.openxmlformats.org/spreadsheetml/2006/main" xmlns:r="http://schemas.openxmlformats.org/officeDocument/2006/relationships" xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" mc:Ignorable="x14ac xr xr2 xr3" xmlns:x14ac="http://schemas.microsoft.com/office/spreadsheetml/2009/9/ac" xmlns:xr="http://schemas.microsoft.com/office/spreadsheetml/2014/revision" xmlns:xr2="http://schemas.microsoft.com/office/spreadsheetml/2015/revision2" xmlns:xr3="http://schemas.microsoft.com/office/spreadsheetml/2016/revision3" xr:uid="{00000000-0001-0000-0000-000000000000}"> <dimension ref="B2:F6"/> <sheetViews> <sheetView tabSelected="1" workbookViewId="0"> <selection activeCell="D12" sqref="D12"/> </sheetView> </sheetViews> <sheetFormatPr defaultRowHeight="14.4" x14ac:dyDescent="0.3"/> <sheetData> <row r="2" spans="2:6" x14ac:dyDescent="0.3"> <c r="B2" t="s"> <v>0</v> </c> </row> <row r="3" spans="2:6" x14ac:dyDescent="0.3"> <c r="C3" t="s"> <v>1</v> </c> </row> <row r="4" spans="2:6" x14ac:dyDescent="0.3"> <c r="D4" t="s"> <v>2</v> </c> </row> <row r="5" spans="2:6" x14ac:dyDescent="0.3"> <c r="E5" t="s"> <v>0</v></c> </row> <row r="6" spans="2:6" x14ac:dyDescent="0.3"> <c r="F6" t="s"><v>3</v> </c></row> </sheetData> <pageMargins left="0.7" right="0.7" top="0.75" bottom="0.75" header="0.3" footer="0.3"/> </worksheet>
ΠΠ°ΠΊ ΠΌΡ Π²ΠΈΠ΄ΠΈΠΌ, Π² ΡΡΡΡΠΊΡΡΡΠ΅ ΠΎΠ±ΡΠ΅ΠΊΡΠ½ΠΎΠΉ ΠΌΠΎΠ΄Π΅Π»ΠΈ Π½Π΅Ρ Π½ΠΈΠΊΠ°ΠΊΠΈΡ «ΠΏΠ΅ΡΠ΅ΡΠ΅ΡΠ΅Π½ΠΈΠΉ».
Π‘ΡΡΠΎΠ³ΠΎ Π³ΠΎΠ²ΠΎΡΡ ΡΠ°Π±ΠΎΡΠ°Ρ ΠΊΠ½ΠΈΠ³Π° — ΡΡΠΎ Π°ΡΡ ΠΈΠ² ΡΡΡΡΠΊΡΡΡΠΈΡΠΎΠ²Π°Π½Π½ΡΡ Π΄Π°Π½Π½ΡΡ Π² ΡΠΎΡΠΌΠ°ΡΠ΅ XML. ΠΡΠΈ ΡΡΠΎΠΌ Π² ΠΊΠ°ΠΆΠ΄ΡΡ «ΡΡΡΠΎΠΊΡ» Π²Ρ ΠΎΠ΄ΠΈΡ «ΡΡΠΎΠ»Π±Π΅Ρ», ΠΈ Π² Π½ΡΠΌ Π² ΡΠ²ΠΎΡ ΠΎΡΠ΅ΡΠ΅Π΄Ρ ΠΏΡΠΎΠΏΠΈΡΠ°Π½ Π½ΠΎΠΌΠ΅Ρ Π·Π½Π°ΡΠ΅Π½ΠΈΡ Π΄Π°Π½Π½ΠΎΠ³ΠΎ ΡΡΠΎΠ»Π±ΡΠ°, ΠΏΠΎ ΠΊΠΎΡΠΎΡΠΎΠΌΡ ΠΎΠ½ΠΎ ΠΏΠΎΠ΄ΡΡΠ³ΠΈΠ²Π°Π΅ΡΡΡ ΠΈΠ· Π΄ΡΡΠ³ΠΎΠ³ΠΎ XML ΡΠ°ΠΉΠ»Π° ΠΏΡΠΈ ΠΎΡΠΊΡΡΡΠΈΠΈ ΠΊΠ½ΠΈΠ³ΠΈ Π΄Π»Ρ ΡΠΊΠΎΠ½ΠΎΠΌΠΈΠΈ ΠΌΠ΅ΡΡΠ° Π·Π° ΡΡΡΡ ΠΎΡΡΡΡΡΡΠ²ΠΈΡ ΠΏΠΎΠ²ΡΠΎΡΡΡΡΠΈΡ ΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ.Β ΠΠΎΡΠ΅ΠΌΡ ΡΡΠΎ Π²Π°ΠΆΠ½ΠΎ. ΠΡΠ»ΠΈ ΠΌΡ Π·Π°Ρ ΠΎΡΠΈΠΌ Π½Π°ΠΏΠΈΡΠ°ΡΡ ΠΊΠ°ΠΊΠΎΠΉ-ΡΠΎ ΠΎΠ±ΡΠ°Π±ΠΎΡΡΠΈΠΊ ΡΠ°ΠΊΠΈΡ ΡΠ°ΠΉΠ»ΠΎΠ², ΠΊΠΎΡΠΎΡΡΠΉ Π±ΡΠ΄Π΅Ρ Π½Π°ΠΏΡΡΠΌΡΡ ΡΠ΅Π΄Π°ΠΊΡΠΈΡΠΎΠ²Π°ΡΡ Π΄Π°Π½Π½ΡΠ΅ Π² ΡΡΠΈΡ XML, ΡΠΎ ΠΎΡΠΈΠ΅Π½ΡΠΈΡΠΎΠ²Π°ΡΡΡΡ Π½Π°Π΄ΠΎ Π½Π° ΡΠ°ΠΊΡΡ ΠΌΠΎΠ΄Π΅Π»Ρ ΠΈ ΡΡΡΡΠΊΡΡΡΡ Π΄Π°Π½Π½ΡΡ . Π ΠΏΡΠ°Π²ΠΈΠ»ΡΠ½ΠΎΠ΅ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½ΠΈΠ΅ Π±ΡΠ΄Π΅Ρ ΠΏΡΠΈΠΌΠ΅ΡΠ½ΠΎ ΡΠ°ΠΊΠΈΠΌ: ΡΡΠ΅ΠΉΠΊΠ° — ΡΡΠΎ ΠΎΠ±ΡΠ΅ΠΊΡ Π²Π½ΡΡΡΠΈ ΡΡΠΎΠ»Π±ΡΠ°, ΠΊΠΎΡΠΎΡΡΠΉ Π² ΡΠ²ΠΎΡ ΠΎΡΠ΅ΡΠ΅Π΄Ρ Π½Π°Ρ ΠΎΠ΄ΠΈΡΡΡ Π²Π½ΡΡΡΠΈ ΡΡΡΠΎΠΊΠΈ Π² ΡΠ°ΠΉΠ»Π΅ xml, Π² ΠΊΠΎΡΠΎΡΠΎΠΌ Ρ ΡΠ°Π½ΡΡΡΡ Π΄Π°Π½Π½ΡΠ΅ ΠΎ ΡΠΎΠ΄Π΅ΡΠΆΠΈΠΌΠΎΠΌ Π»ΠΈΡΡΠ°.Π‘ΠΏΠΎΡΠΎΠ±Ρ ΠΎΠ±ΡΠ°ΡΠ΅Π½ΠΈΡ ΠΊ ΡΡΠ΅ΠΉΠΊΠ°ΠΌ
ΠΡΠ±ΠΎΡ ΠΈ Π°ΠΊΡΠΈΠ²Π°ΡΠΈΡ
ΠΠΎΡΡΠΈ Π²ΠΎ Π²ΡΠ΅Ρ ΡΠ»ΡΡΠ°ΡΡ ΠΌΠΎΠΆΠ½ΠΎ ΠΈ ΡΡΠΎΠΈΡ ΠΈΠ·Π±Π΅Π³Π°ΡΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΡ ΠΌΠ΅ΡΠΎΠ΄ΠΎΠ²Β Select ΠΈ Activate. ΠΠ° ΡΡΠΎ Π΅ΡΡΡ Π΄Π²Π΅ ΠΏΡΠΈΡΠΈΠ½Ρ:
- ΠΡΠΎ Π»ΠΈΡΡ ΠΈΠΌΠΈΡΠ°ΡΠΈΡ Π΄Π΅ΠΉΡΡΠ²ΠΈΠΉ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ, ΠΊΠΎΡΠΎΡΠ°Ρ Π·Π°ΠΌΠ΅Π΄Π»ΡΠ΅Ρ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ. Π Π°Π±ΠΎΡΠ°ΡΡ Ρ ΠΎΠ±ΡΠ΅ΠΊΡΠ°ΠΌΠΈ ΠΊΠ½ΠΈΠ³ΠΈ ΠΌΠΎΠΆΠ½ΠΎ Π½Π°ΠΏΡΡΠΌΡΡ Π±Π΅Π· ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΡ ΠΌΠ΅ΡΠΎΠ΄ΠΎΠ² Select ΠΈ Activate.
- ΠΡΠΎ ΡΡΠ»ΠΎΠΆΠ½ΡΠ΅Ρ ΠΊΠΎΠ΄ ΠΈ ΠΌΠΎΠΆΠ΅Ρ ΠΏΡΠΈΠ²ΠΎΠ΄ΠΈΡΡ ΠΊ Π½Π΅ΠΎΠΆΠΈΠ΄Π°Π½Π½ΡΠΌ ΠΏΠΎΡΠ»Π΅Π΄ΡΡΠ²ΠΈΡΠΌ. ΠΠ°ΠΆΠ΄ΡΠΉ ΡΠ°Π· ΠΏΠ΅ΡΠ΅Π΄ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ΠΌ Select Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΠΏΠΎΠΌΠ½ΠΈΡΡ, ΠΊΠ°ΠΊΠΈΠ΅ Π΅ΡΡ ΠΎΠ±ΡΠ΅ΠΊΡΡ Π±ΡΠ»ΠΈ Π²ΡΠ±ΡΠ°Π½Ρ Π΄ΠΎ ΡΡΠΎΠ³ΠΎ ΠΈ Π½Π΅ Π·Π°Π±ΡΠ²Π°ΡΡ ΠΏΡΠΈ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎΡΡΠΈ ΡΠ½ΠΈΠΌΠ°ΡΡ Π²ΡΠ±ΠΎΡ. ΠΠΈΠ±ΠΎ, Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ, Π² ΡΠ»ΡΡΠ°Π΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΡ ΠΌΠ΅ΡΠΎΠ΄Π° Select Π² ΡΠ°ΠΌΠΎΠΌ Π½Π°ΡΠ°Π»Π΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ Π²ΡΠ±ΡΠ°Π½ΠΎ Π΄Π²Π° Π»ΠΈΡΡΠ° Π²ΠΌΠ΅ΡΡΠΎ ΠΎΠ΄Π½ΠΎΠ³ΠΎ ΠΏΠΎΡΠΎΠΌΡ ΡΡΠΎ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ Π·Π°ΠΏΡΡΡΠΈΠ» ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ, Π²ΡΠ±ΡΠ°Π² Π΄ΡΡΠ³ΠΎΠΉ Π»ΠΈΡΡ.
ΠΠΎΠΆΠ½ΠΎ Π²ΡΠ±ΠΈΡΠ°ΡΡ ΠΈ Π°ΠΊΡΠΈΠ²ΠΈΡΠΎΠ²Π°ΡΡ ΠΊΠ½ΠΈΠ³ΠΈ, Π»ΠΈΡΡΡ, ΡΡΠ΅ΠΉΠΊΠΈ, ΡΠΈΠ³ΡΡΡ, Π΄ΠΈΠ°Π³ΡΠ°ΠΌΠΌΡ, ΡΡΠ΅Π·Ρ, ΡΠ°Π±Π»ΠΈΡΡ ΠΈ Ρ.Π΄.
ΠΡΠΌΠ΅Π½ΠΈΡΡ Π²ΡΠ±ΠΎΡΒ ΡΡΠ΅Π΅ΠΊ ΠΌΠΎΠΆΠ½ΠΎ ΠΌΠ΅ΡΠΎΠ΄ΠΎΠΌ Unselect:
Selection.Unselect
ΠΡΠ»ΠΈΡΠΈΠ΅ Π²ΡΠ±ΠΎΡΠ° ΠΎΡ Π°ΠΊΡΠΈΠ²Π°ΡΠΈΠΈ —Β Π°ΠΊΡΠΈΠ²ΠΈΡΠΎΠ²Π°ΡΡ ΠΌΠΎΠΆΠ½ΠΎ ΡΠΎΠ»ΡΠΊΠΎ ΠΎΠ΄ΠΈΠ½ ΠΎΠ±ΡΠ΅ΠΊΡ ΠΈΠ· ΡΠ°Π½Π½Π΅Π΅ Π²ΡΠ±ΡΠ°Π½Π½ΡΡ . ΠΡΠ±ΡΠ°ΡΡ ΠΌΠΎΠΆΠ½ΠΎ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΎ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ².
ΠΡΠ»ΠΈ Π²Ρ Π·Π°ΠΏΠΈΡΠ°Π»ΠΈ ΠΈ ΡΠ΅Π΄Π°ΠΊΡΠΈΡΡΠ΅ΡΠ΅ ΠΊΠΎΠ΄ ΠΌΠ°ΠΊΡΠΎΡΠ°, ΡΠΎ Π»ΡΡΡΠ΅ Π²ΡΠ΅Π³ΠΎ Π·Π°ΠΌΠ΅Π½ΠΈΡΡ Select ΠΈ Activate Π½Π° ΠΊΠΎΠ½ΡΡΡΡΠΊΡΠΈΡ With … End With. ΠΠ°ΠΏΡΠΈΠΌΠ΅Ρ, ΠΏΡΠ΅Π΄ΠΏΠΎΠ»ΠΎΠΆΠΈΠΌ, ΡΡΠΎ ΠΌΡ Π·Π°ΠΏΠΈΡΠ°Π»ΠΈ Π²ΠΎΡ ΡΠ°ΠΊΠΎΠΉ ΠΌΠ°ΠΊΡΠΎΡ:
Sub Macro1() ' Macro1 Macro Range("F4:F10,H6:h20"). Select 'Π²ΡΠ±ΡΠ°Π»ΠΈ Π΄Π²Π° Π½Π΅ΡΠΌΠ΅ΠΆΠ½ΡΡ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π° Π·Π°ΠΆΠ°Π² ctrl Range("H6").Activate 'ΠΏΠΎΠΊΠ°Π·ΡΠ²Π°Π΅Ρ ΡΠΎΠ»ΡΠΊΠΎ ΡΠΎ, ΡΡΠΎ Ρ Π½Π°ΡΠ°Π» Π²ΡΠ±ΠΈΡΠ°ΡΡ Π²ΡΠΎΡΠΎΠΉ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ Ρ ΡΡΠΎΠΉ ΡΡΠ΅ΠΉΠΊΠΈ (ΠΎΠ½Π° ΠΎΡΡΠ°Π»Π°ΡΡ Π±Π΅Π»ΠΎΠΉ). ΠΡΠΎ Π΄Π΅ΠΉΡΡΠ²ΠΈΠ΅ Π½ΠΈ Π½Π° ΡΡΠΎ Π½Π΅ Π²Π»ΠΈΡΠ΅Ρ With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .Color = 65535 'Π·Π°Π»ΠΈΠ»ΠΈ ΠΆΠ΅Π»ΡΡΠΌ ΡΠ²Π΅ΡΠΎΠΌ, Π½Π°ΠΆΠ°Π² Π½Π° ΠΊΠ½ΠΎΠΏΠΊΡ Π·Π°Π»ΠΈΠ²ΠΊΠΈ Π½Π° Π²Π΅ΡΡ Π½Π΅ΠΉ ΠΏΠ°Π½Π΅Π»ΠΈ .TintAndShade = 0 .PatternTintAndShade = 0 End With End Sub
ΠΠΎΡΠ΅ΠΌΡ ΠΌΠ°ΠΊΡΠΎΡ Π·Π°ΠΏΠΈΡΠ°Π»ΡΡ ΡΠ°ΠΊΠΈΠΌ Π½Π΅ΡΡΡΠ΅ΠΊΡΠΈΠ²Π½ΡΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ? ΠΠΎΡΠΎΠΌΡ ΡΡΠΎ Π² ΠΊΠ°ΠΆΠ΄ΡΠΉ ΠΌΠΎΠΌΠ΅Π½Ρ Π²ΡΠ΅ΠΌΠ΅Π½ΠΈ (Π² ΠΊΠ°ΠΆΠ΄ΠΎΠΉ ΡΡΡΠΎΠΊΠ΅) ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° Π½Π΅ Π·Π½Π°Π΅Ρ, ΡΡΠΎ Π²Ρ Π±ΡΠ΄Π΅ΡΠ΅ Π΄Π΅Π»Π°ΡΡ Π΄Π°Π»ΡΡΠ΅. ΠΠΎΡΡΠΎΠΌΡ Π² Π·Π°ΠΏΠΈΡΠΈ Π²ΡΠ±ΠΎΡ ΡΡΠ΅Π΅ΠΊ ΠΈ Π΄Π΅ΠΉΡΡΠ²ΠΈΡ Ρ Π½ΠΈΠΌΠΈ — ΡΡΠΎ Π΄Π²Π° ΠΎΡΠ΄Π΅Π»ΡΠ½ΡΡ Π΄Π΅ΠΉΡΡΠ²ΠΈΡ. ΠΡΠΎΡ ΠΊΠΎΠ΄ Π»ΡΡΡΠ΅ Π²ΡΠ΅Π³ΠΎ ΠΎΠΏΡΠΈΠΌΠΈΠ·ΠΈΡΠΎΠ²Π°ΡΡ (ΠΎΡΠΎΠ±Π΅Π½Π½ΠΎ Π΅ΡΠ»ΠΈ Π²Ρ Ρ ΠΎΡΠΈΡΠ΅ ΡΠΊΠΎΠΏΠΈΡΠΎΠ²Π°ΡΡ Π΅Π³ΠΎ Π²Π½ΡΡΡΡ ΠΊΠ°ΠΊΠΎΠ³ΠΎ-Π½ΠΈΠ±ΡΠ΄Ρ ΡΠΈΠΊΠ»Π°, ΠΊΠΎΡΠΎΡΡΠΉ Π΄ΠΎΠ»ΠΆΠ΅Π½ Π±ΡΠ΄Π΅Ρ ΠΈΡΠΏΠΎΠ»Π½ΡΡΡΡΡ ΠΌΠ½ΠΎΠ³ΠΎ ΡΠ°Π· ΠΈ ΠΏΠ΅ΡΠ΅Π±ΠΈΡΠ°ΡΡ ΠΌΠ½ΠΎΠ³ΠΎ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ²). ΠΠ°ΠΏΡΠΈΠΌΠ΅Ρ, ΡΠ°ΠΊ:
Sub Macro11() ' ' Macro1 Macro Range("F4:F10,H6:h20"). Select '1. ΡΠΌΠΎΡΡΠΈΠΌ, ΡΡΠΎ Π·Π° ΠΎΠ±ΡΠ΅ΠΊΡ Π²ΡΠ±ΡΠ°Π½ (ΡΡΠΎ ΠΈΠ΄ΡΡ Π΄ΠΎ .Select) Range("H6").Activate With Selection.Interior '2. ΠΏΠΎΠ½ΠΈΠΌΠ°Π΅ΠΌ, ΡΡΠΎ Ρ Π²ΡΠ±ΡΠ°Π½Π½ΠΎΠ³ΠΎ ΠΎΠ±ΡΠ΅ΠΊΡΠ° Π΅ΡΡΡ ΡΠ²ΠΎΠΉΡΡΠ²ΠΎ interior, Ρ ΠΊΠΎΡΠΎΡΡΠΌ Π΄Π°Π»Π΅Π΅ ΠΈΠ΄ΡΡ ΡΠ°Π±ΠΎΡΠ° .Pattern = xlSolid .PatternColorIndex = xlAutomatic .Color = 65535 .TintAndShade = 0 .PatternTintAndShade = 0 End With End Sub Sub Optimized_Macro() With Range("F4:F10,H6:h20").Interior '3. ΠΏΠ΅ΡΠ΅Π½ΠΎΡΠΈΠΌ ΠΎΠ±ΡΠ΅ΠΊΡ Π½Π°ΠΏΡΡΠΌΡΡ Π² ΠΊΠΎΠ½ΡΡΡΡΠΊΡΠΈΡ With Π²ΠΌΠ΅ΡΡΠΎ Selection ' ////// ΠΠ΄Π΅ΡΡ Ρ Π΄Π»Ρ Π½Π°Π΄ΡΠΆΠ½ΠΎΡΡΠΈ ΠΏΡΠΎΠΏΠΈΡΠ°Π» Π±Ρ Π΅ΡΡ Thisworkbook.Sheet("ΠΠΌΡΠΠΈΡΡΠ°") ΠΏΠ΅ΡΠ΅Π΄ Range, ' ////// ΡΡΠΎΠ±Ρ ΠΌΠΈΠ½ΠΈΠΌΠΈΠ·ΠΈΡΠΎΠ²Π°ΡΡ ΡΠΈΡΠΊ Π»ΡΠ±ΡΡ ΡΠ»ΡΡΠ°ΠΉΠ½ΡΡ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΠΉ Π΄ΡΡΠ³ΠΈΡ Π»ΠΈΡΡΠΎΠ² ΠΈ ΠΊΠ½ΠΈΠ³ ' ////// With Thisworkbook.Sheet("ΠΠΌΡΠΠΈΡΡΠ°").Range("F4:F10,H6:h20").Interior .Pattern = xlSolid '4. ΠΏΠΎΠ»Π½ΠΎΡΡΡΡ ΠΊΠΎΠΏΠΈΡΡΠ΅ΠΌ Π²ΡΡ, ΡΡΠΎ Π±ΡΠ»ΠΎ Π·Π°ΠΏΠΈΡΠ°Π½ΠΎ ΡΠ΅ΠΊΠΎΡΠ΄Π΅ΡΠΎΠΌ Π²Π½ΡΡΡΡ Π±Π»ΠΎΠΊΠ° with .PatternColorIndex = xlAutomatic . Color = 55555 '5. Π·Π΄Π΅ΡΡ Ρ ΠΏΠΎΠΌΠ΅Π½ΡΠ» ΡΠ²Π΅Ρ Π½Π° Π·Π΅Π»Π΅Π½ΡΠΉ, ΡΡΠΎΠ±Ρ Π±ΡΠ»ΠΎ Π²ΠΈΠ΄Π½ΠΎ, ΡΠ°Π±ΠΎΡΠ°Π΅Ρ Π»ΠΈ ΠΊΠΎΠ΄ ΠΏΡΠΈ ΠΏΠΎΠΎΡΠ΅ΡΡΠ΄Π½ΠΎΠΌ Π·Π°ΠΏΡΡΠΊΠ΅ Π΄Π²ΡΡ ΠΌΠ°ΠΊΡΠΎΡΠΎΠ² .TintAndShade = 0 .PatternTintAndShade = 0 End With End Sub
ΠΡΠΈΠΌΠ΅Ρ ΡΡΠ΅Π½Π°ΡΠΈΡ, ΠΊΠΎΠ³Π΄Π° ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ Select ΠΈ Activate ΠΎΠΏΡΠ°Π²Π΄Π°Π½ΠΎ:
ΠΠΎΠΏΡΡΡΠΈΠΌ, ΠΌΡ Ρ ΠΎΡΠΈΠΌ, ΡΡΠΎΠ±Ρ Π²ΠΎ Π²ΡΠ΅ΠΌΡ ΠΈΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΌΡ ΠΎΠ΄Π½ΠΎΠ²ΡΠ΅ΠΌΠ΅Π½Π½ΠΎ ΠΈΠ·ΠΌΠ΅Π½ΡΠ»ΠΈ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΎ Π»ΠΈΡΡΠΎΠ² ΠΎΠ΄Π½ΠΈΠΌ Π΄Π΅ΠΉΡΡΠ²ΠΈΠ΅ΠΌ ΠΈ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ Π²ΠΈΠ΄Π΅Π» ΠΊΠ°ΠΊΠΎΠΉ-ΡΠΎ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΠ½Π½ΡΠΉ Π»ΠΈΡΡ. ΠΡΠΎ ΠΌΠΎΠΆΠ½ΠΎ ΡΠ΄Π΅Π»Π°ΡΡ ΠΏΡΠΈΠΌΠ΅ΡΠ½ΠΎ ΡΠ°ΠΊ:
Sub Select_Activate_is_OK() Thisworkbook.Worksheets(Array("Sheet1", "Sheet3")).Select 'ΠΡΠ±ΠΈΡΠ°Π΅ΠΌ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΎ Π»ΠΈΡΡΠΎΠ² ΠΏΠΎ ΠΈΠΌΠ΅Π½Π°ΠΌ Thisworkbook.Worksheets("Sheet3").Activate 'ΠΠΎΠΊΠ°Π·ΡΠ²Π°Π΅ΠΌ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ ΡΡΠ΅ΡΠΈΠΉ Π»ΠΈΡΡ 'ΠΠ°Π»Π΅Π΅ Π²ΡΠ΅ Π΄Π΅ΠΉΡΡΠ²ΠΈΡ Ρ Π²ΡΠ±ΡΠ°Π½Π½ΡΠΌΠΈ ΡΡΠ΅ΠΉΠΊΠ°ΠΌΠΈ ΡΠ΅ΡΠ΅Π· Select Π±ΡΠ΄ΡΡ ΠΎΠ΄Π½ΠΎΠ²ΡΠ΅ΠΌΠ΅Π½Π½ΠΎ Π²Π½ΠΎΡΠΈΡΡ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΡ Π² ΠΎΠ±Π° Π²ΡΠ±ΡΠ°Π½Π½ΡΡ Π»ΠΈΡΡΠ° 'ΠΠΎΠΏΡΡΡΠΈΠΌ, ΡΡΠΎ ΡΡΡ ΠΌΡ ΡΠ΅ΡΠΈΠ»ΠΈ ΠΏΠΎΠΊΡΠ°ΡΠΈΡΡ ΡΠ΅ ΠΆΠ΅ Π΄Π²Π° Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π°: Range("F4:F10,H6:h20").Select Range("H6").Activate With Selection. Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .Color = 65535 .TintAndShade = 0 .PatternTintAndShade = 0 End With End Sub
ΠΠ΄ΠΈΠ½ΡΡΠ²Π΅Π½Π½ΠΎΠΉ ΠΏΡΠΈΡΠΈΠ½ΠΎΠΉ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΡΡΠΎΡ ΠΊΠΎΠ΄ ΠΏΠΎ ΠΌΠΎΠ΅ΠΌΡ ΠΌΠ½Π΅Π½ΠΈΡ ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ ΠΆΠ΅Π»Π°Π½ΠΈΠ΅ Π·Π°ΡΠ΅ΠΌ-ΡΠΎ ΠΏΠΎΠΊΠ°Π·Π°ΡΡ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΠ½Π½ΡΡ ΡΡΡΠ°Π½ΠΈΡΡ ΠΊΠ½ΠΈΠ³ΠΈ Π² ΠΊΠ°ΠΊΠΎΠΉ-ΡΠΎ ΠΌΠΎΠΌΠ΅Π½Ρ ΠΈΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ. Π‘ ΡΠΎΡΠΊΠΈ Π·ΡΠ΅Π½ΠΈΡ ΠΎΠ±ΡΠ°Π±ΠΎΡΠΊΠΈ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ², ΠΎΠΏΡΡΡ ΠΆΠ΅, ΡΡΠΈ Π΄Π΅ΠΉΡΡΠ²ΠΈΡ Π»ΠΈΡΠ½ΠΈΠ΅.
ΠΠΎΠ»ΡΡΠ΅Π½ΠΈΠ΅ ΠΈ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ ΡΡΠ΅Π΅ΠΊ
ΠΠ½Π°ΡΠ΅Π½ΠΈΠ΅ ΡΡΠ΅Π΅ΠΊ ΠΌΠΎΠΆΠ½ΠΎ ΠΏΠΎΠ»ΡΡΠ°ΡΡ/ΠΈΠ·ΠΌΠ΅Π½ΡΡΡ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΡΠ²ΠΎΠΉΡΡΠ²Π° value.Β
'ΠΡΠ»ΠΈ Π½ΡΠΆΠ½ΠΎ ΠΏΡΠΎΡΠΈΡΠ°ΡΡ / Π·Π°ΠΏΠΈΡΠ°ΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΡΡΠ΅ΠΉΠΊΠΈ, ΡΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ ΡΠ²ΠΎΠΉΡΡΠ²ΠΎ Value a = ThisWorkbook.Sheets("Sheet1").Cells (1,1).Value 'Π·Π°ΠΏΠΈΡΠ°ΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΡΡΠ΅ΠΉΠΊΠΈ Π1 Π»ΠΈΡΡΠ° "Sheet1" Π² ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ "a" ThisWorkbook.Sheets("Sheet1").Cells (1,1).Value = 1 'Π·Π°Π΄Π°ΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΡΡΠ΅ΠΉΠΊΠΈ Π1 (ΠΏΠ΅ΡΠ²ΡΠΉ ΡΡΠ΄, ΠΏΠ΅ΡΠ²ΡΠΉ ΡΡΠΎΠ»Π±Π΅Ρ) Π»ΠΈΡΡΠ° "Sheet1" 'ΠΡΠ»ΠΈ Π½ΡΠΆΠ½ΠΎ ΠΏΡΠΎΡΠΈΡΠ°ΡΡ ΡΠ΅ΠΊΡΡ ΠΊΠ°ΠΊ Π΅ΡΡΡ (Ρ ΡΠΎΡΠΌΠ°ΡΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ΠΌ), ΡΠΎ ΠΌΠΎΠΆΠ½ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΡΠ²ΠΎΠΉΡΡΠ²ΠΎ . text: ThisWorkbook.Sheets("Sheet1").Cells (1,1).Text = "1" a = ThisWorkbook.Sheets("Sheet1").Cells (1,1).Text 'ΠΠΎΠ³Π΄Π° ΠΏΡΠΎΡΠ²ΠΈΡΡΡ ΡΠ°Π·Π½ΠΈΡΠ°: 'ΠΠ°ΠΏΡΠΈΠΌΠ΅Ρ, Π΅ΡΠ»ΠΈ ΠΌΡ ΡΡΠΈΡΡΠ²Π°Π΅ΠΌ Π΄Π°ΡΡ Π² ΡΠΎΡΠΌΠ°ΡΠ΅ "31 Π΄Π΅ΠΊΠ°Π±ΡΡ 2021 Π³.", Ρ ΡΠ°Π½ΡΡΡΡΡΡ ΠΊΠ°ΠΊ Π΄Π°ΡΠ° a = ThisWorkbook.Sheets("Sheet1").Cells (1,1).Value 'ΡΠ°ΠΏΠΈΡΠ΅Ρ ΠΊΠ°ΠΊ "31.12.2021" a = ThisWorkbook.Sheets("Sheet1").Cells (1,1).Text 'Π·Π°ΠΏΠΈΡΠ΅Ρ ΠΊΠ°ΠΊ "31 Π΄Π΅ΠΊΠ°Π±ΡΡ 2021 Π³."
Π―ΡΠ΅ΠΉΠΊΠΈ ΠΎΡΠΊΡΡΡΠΎΠΉ ΠΊΠ½ΠΈΠ³ΠΈ
Π ΡΡΠ΅ΠΉΠΊΠ°ΠΌ ΠΌΠΎΠΆΠ½ΠΎ ΠΎΠ±ΡΠ°ΡΠ°ΡΡΡΡ:
'Π ΠΊΠ½ΠΈΠ³Π΅, Π² ΠΊΠΎΡΠΎΡΠΎΠΉ Ρ ΡΠ°Π½ΠΈΡΡΡ ΠΌΠ°ΠΊΡΠΎΡ (Π½Π° ΠΊΠ°ΠΊΠΎΠΌ-ΡΠΎ ΠΈΠ· Π»ΠΈΡΡΠΎΠ², Π»ΠΈΠ±ΠΎ Π² ΠΎΡΠ΄Π΅Π»ΡΠ½ΠΎΠΌ ΠΌΠΎΠ΄ΡΠ»Π΅ ΠΈΠ»ΠΈ ΡΠΎΡΠΌΠ΅) ThisWorkbook.Sheets("Sheet1").Cells(1,1).Value 'ΠΠΎ Π½ΠΎΠΌΠ΅ΡΠ°ΠΌ ΡΡΡΠΎΠΊΠΈ ΠΈ ΡΡΠΎΠ»Π±ΡΠ° ThisWorkbook.Sheets("Sheet1").Cells(1,"A").Value 'ΠΠΎ Π½ΠΎΠΌΠ΅ΡΠ°ΠΌ ΡΡΡΠΎΠΊΠΈ ΠΈ Π±ΡΠΊΠ²Π΅ ΡΡΠΎΠ»Π±ΡΠ° ThisWorkbook.Sheets("Sheet1").Range("A1").Value 'ΠΠΎ Π°Π΄ΡΠ΅ΡΡ - Π²Π°ΡΠΈΠ°Π½Ρ 1 ThisWorkbook.Sheets("Sheet1").[A1].Value 'ΠΠΎ Π°Π΄ΡΠ΅ΡΡ - Π²Π°ΡΠΈΠ°Π½Ρ 2 ThisWorkbook.Sheets("Sheet1").Range("CellName").Value 'ΠΠΎ ΠΈΠΌΠ΅Π½ΠΈ ΡΡΠ΅ΠΉΠΊΠΈ (Π΄Π»Ρ ΡΡΠΎΠ³ΠΎ Π΅ΠΉ ΠΏΡΠ΅Π΄Π²Π°ΡΠΈΡΠ΅Π»ΡΠ½ΠΎ Π½ΡΠΆΠ½ΠΎ Π΅Π³ΠΎ ΠΏΡΠΈΡΠ²ΠΎΠΈΡΡ) 'Π’Π΅ ΠΆΠ΅ Π΄Π΅ΠΉΡΡΠ²ΠΈΡ, Π½ΠΎ Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ΠΌ ΠΏΠΎΠ»Π½ΠΎΠ³ΠΎ Π½Π°Π·Π²Π°Π½ΠΈΡ ΡΠ°Π±ΠΎΡΠ΅ΠΉ ΠΊΠ½ΠΈΠ³ΠΈ (ΠΊΠ½ΠΈΠ³Π° Π΄ΠΎΠ»ΠΆΠ½Π° Π±ΡΡΡ ΠΎΡΠΊΡΡΡΠ°) Workbooks("workbook. xlsm").Sheets("Sheet1").Cells(1,1).Value 'ΠΠΎ Π½ΠΎΠΌΠ΅ΡΠ°ΠΌ ΡΡΡΠΎΠΊΠΈ ΠΈ ΡΡΠΎΠ»Π±ΡΠ° Workbooks("workbook.xlsm").Sheets("Sheet1").Cells(1,"A").Value 'ΠΠΎ Π½ΠΎΠΌΠ΅ΡΠ°ΠΌ ΡΡΡΠΎΠΊΠΈ ΠΈ Π±ΡΠΊΠ²Π΅ ΡΡΠΎΠ»Π±ΡΠ° Workbooks("workbook.xlsm").Sheets("Sheet1").Range("A1").Value 'ΠΠΎ Π°Π΄ΡΠ΅ΡΡ - Π²Π°ΡΠΈΠ°Π½Ρ 1 Workbooks("workbook.xlsm").Sheets("Sheet1").[A1].Value 'ΠΠΎ Π°Π΄ΡΠ΅ΡΡ - Π²Π°ΡΠΈΠ°Π½Ρ 2 Workbooks("workbook.xlsm").Sheets("Sheet1").Range("CellName").Value 'ΠΠΎ ΠΈΠΌΠ΅Π½ΠΈ ΡΡΠ΅ΠΉΠΊΠΈ (Π΄Π»Ρ ΡΡΠΎΠ³ΠΎ Π΅ΠΉ ΠΏΡΠ΅Π΄Π²Π°ΡΠΈΡΠ΅Π»ΡΠ½ΠΎ Π½ΡΠΆΠ½ΠΎ Π΅Π³ΠΎ ΠΏΡΠΈΡΠ²ΠΎΠΈΡΡ)
Π―ΡΠ΅ΠΉΠΊΠΈ Π·Π°ΠΊΡΡΡΠΎΠΉ ΠΊΠ½ΠΈΠ³ΠΈ
ΠΡΠ»ΠΈ Π½ΡΠΆΠ½ΠΎ Π΄ΠΎΡΡΠ°ΡΡ ΠΈΠ»ΠΈ ΠΈΠ·ΠΌΠ΅Π½ΠΈΡΡ Π΄Π°Π½Π½ΡΠ΅ Π² Π΄ΡΡΠ³ΠΎΠΉ Π·Π°ΠΊΡΡΡΠΎΠΉ ΠΊΠ½ΠΈΠ³Π΅, ΡΠΎ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΠΏΡΠΎΠΏΠΈΡΠ°ΡΡ ΠΎΡΠΊΡΡΡΠΈΠ΅ ΠΈ Π·Π°ΠΊΡΡΡΠΈΠ΅ ΠΊΠ½ΠΈΠ³ΠΈ. ΠΠ΅ΠΏΠΎΡΡΠ΅Π΄ΡΡΠ²Π΅Π½Π½ΠΎ ΡΠ°Π±ΠΎΡΠ°ΡΡ Ρ Π·Π°ΠΊΡΡΡΠΎΠΉ ΠΊΠ½ΠΈΠ³ΠΎΠΉ Π½Π΅ ΠΏΠΎΠ»ΡΡΠΈΡΡΡ, ΠΏΠΎΡΠΎΠΌΡ ΡΡΠΎ Π΄Π°Π½Π½ΡΠ΅ Π² Π½Π΅ΠΉ Ρ ΡΠ°Π½ΡΡΡΡ ΠΎΡΠ΄Π΅Π»ΡΠ½ΠΎ ΠΎΡ ΡΡΡΡΠΊΡΡΡΡ ΠΈ ΠΏΡΠΈ ΠΎΡΠΊΡΡΡΠΈΠΈ Excel ΠΊΠ°ΠΆΠ΄ΡΠΉ ΡΠ°Π· ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΠΈΡ ΡΠ°ΡΡΡΠ°Π½ΠΎΠ²ΠΊΡ Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ ΠΏΠΎ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠΈΠΌ «ΡΠ»ΠΎΡΠ°ΠΌ» Π² ΡΡΡΡΠΊΡΡΡΠ΅. ΠΠΎΠ΄ΡΠΎΠ±Π½Π΅Π΅ ΠΎ ΡΠΎΠΌ, ΠΊΠ°ΠΊ Ρ ΡΠ°Π½ΡΡΡΡ Π΄Π°Π½Π½ΡΠ΅ Π² xlsx ΡΠΌ Π²ΡΡΠ΅.
Workbooks.Open Filename:="Π‘:\closed_workbook. xlsx" 'ΠΎΡΠΊΡΡΡΡ ΠΊΠ½ΠΈΠ³Ρ (ΠΎΠ½Π° ΡΡΠ°Π½ΠΎΠ²ΠΈΡΡΡ Π°ΠΊΡΠΈΠ²Π½ΠΎΠΉ) a = ActiveWorkbook.Sheets("Sheet1").Cells(1,1).Value 'Π΄ΠΎΡΡΠ°ΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΡΡΠ΅ΠΉΠΊΠΈ 1,1 ActiveWorkbook.Close False 'Π·Π°ΠΊΡΡΡΡ ΠΊΠ½ΠΈΠ³Ρ (False => Π±Π΅Π· ΡΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΡ)
Π‘ΠΊΠ°ΡΠ°ΡΡ ΠΏΡΠΈΠΌΠ΅Ρ, Π² ΠΊΠΎΡΠΎΡΠΎΠΌ ΠΌΠΎΠΆΠ½ΠΎ ΠΏΠΎΡΠΌΠΎΡΡΠ΅ΡΡ, ΠΊΠ°ΠΊ Π΄ΠΎΡΡΠ°Π²Π°ΡΡ ΠΈ ΠΊΠ°ΠΊ Π·Π°ΠΏΠΈΡΡΠ²Π°ΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΡ Π² Π·Π°ΠΊΡΡΡΡΡ ΠΊΠ½ΠΈΠ³Ρ.Β
ΠΠΎΠ΄ ΠΈΠ· ΡΠ°ΠΉΠ»Π°:
Option Explicit Sub get_value_from_closed_wb() 'Π΄ΠΎΡΡΠ°ΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΠΈΠ· Π·Π°ΠΊΡΡΡΠΎΠΉ ΠΊΠ½ΠΈΠ³ΠΈ Dim a, wb_path, wsh As String wb_path = ThisWorkbook.Sheets("Sheet1").Cells(2, 3).Value 'get path to workbook from sheet1 wsh = ThisWorkbook.Sheets("Sheet1").Cells(3, 3).Value Workbooks.Open Filename:=wb_path a = ActiveWorkbook.Sheets(wsh).Cells(3, 3).Value ActiveWorkbook.Close False ThisWorkbook.Sheets("Sheet1").Cells(4, 3).Value = a End Sub Sub record_value_to_closed_wb() 'Π·Π°ΠΏΠΈΡΠ°ΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ Π² Π·Π°ΠΊΡΡΡΡΡ ΠΊΠ½ΠΈΠ³Ρ Dim wb_path, b, wsh As String wsh = ThisWorkbook.Sheets("Sheet1"). Cells(3, 3).Value wb_path = ThisWorkbook.Sheets("Sheet1").Cells(2, 3).Value 'get path to workbook from sheet1 b = ThisWorkbook.Sheets("Sheet1").Cells(5, 3).Value 'get value to record in the target workbook Workbooks.Open Filename:=wb_path ActiveWorkbook.Sheets(wsh).Cells(4, 4).Value = b 'add new value to cell D4 of the target workbook ActiveWorkbook.Close True End Sub
Β
ΠΠ΅ΡΠ΅Π±ΠΎΡ ΡΡΠ΅Π΅ΠΊ
ΠΠ΅ΡΠ΅Π±ΠΎΡ Π² ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ»ΡΠ½ΠΎΠΌ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π΅
Π‘ΠΊΠ°ΡΠ°ΡΡ ΡΠ°ΠΉΠ» ΡΠΎ Π²ΡΠ΅ΠΌΠΈ ΠΏΡΠΈΠΌΠ΅ΡΠ°ΠΌΠΈ
ΠΡΠΎΠΉΡΠΈΡΡ ΠΏΠΎ Π²ΡΠ΅ΠΌ ΡΡΠ΅ΠΉΠΊΠ°ΠΌ Π² Π½ΡΠΆΠ½ΠΎΠΌ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π΅ ΠΌΠΎΠΆΠ½ΠΎ ΡΠ°Π·Π½ΡΠΌΠΈ ΡΠΏΠΎΡΠΎΠ±Π°ΠΌΠΈ. ΠΡΠ½ΠΎΠ²Π½ΡΠ΅:
- Π¦ΠΈΠΊΠ» For Each. ΠΡΠΈΠΌΠ΅Ρ:
Sub iterate_over_cells() For Each c In ThisWorkbook.Sheets("Sheet1").Range("B2:D4").Cells MsgBox (c) Next c End Subβ
ΠΡΠΎΡ ΡΠΈΠΊΠ» Π²ΡΠ²Π΅Π΄Π΅Ρ Π² Π²ΠΈΠ΄Π΅ ΡΠΎΠΎΠ±ΡΠ΅Π½ΠΈΠΉ Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΡΡΠ΅Π΅ΠΊ Π² Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π΅ B2:D4 ΠΏΠΎ ΠΏΠΎΡΡΠ΄ΠΊΡ ΠΏΠΎ ΡΡΡΠΎΠΊΠ°ΠΌ ΡΠ»Π΅Π²Π° Π½Π°ΠΏΡΠ°Π²ΠΎ ΠΈ ΠΏΠΎ ΡΡΠΎΠ»Π±ΡΠ°ΠΌ — ΡΠ²Π΅ΡΡ Ρ Π²Π½ΠΈΠ·. ΠΠ°Π½Π½ΡΠΉ ΡΠΏΠΎΡΠΎΠ± ΠΌΠΎΠΆΠ½ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ Π΄Π»Ρ Π΄Π΅ΠΉΡΡΠ²ΠΈΠΉ, Π² ΠΊΠΎΡΠΎΡΡΠΉ Π²Π°ΠΌ Π½Π΅ Π²Π°ΠΆΠ½Ρ Π½ΠΎΠΌΠ΅ΡΠ° ΡΡΠ΅Π΅ΠΊ (Π·Π°ΠΊΡΠ°ΡΠΈΠ²Π°Π½ΠΈΠ΅, ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΠ΅ ΡΠΎΡΠΌΠ°ΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ, ΠΏΠ΅ΡΠ΅ΡΡΡΡ ΡΠ΅Π³ΠΎ-ΡΠΎ ΠΈ Ρ. Π΄.).
- Π’Ρ ΠΆΠ΅ Π·Π°Π΄Π°ΡΡ ΠΌΠΎΠΆΠ½ΠΎ ΡΠ΅ΡΠΈΡΡ Ρ ΠΏΠΎΠΌΠΎΡΡΡ Π΄Π²ΡΡ
Π²Π»ΠΎΠΆΠ΅Π½Π½ΡΡ
ΡΠΈΠΊΠ»ΠΎΠ² — Π²Π½Π΅ΡΠ½ΠΈΠΉ Π±ΡΠ΄Π΅Ρ ΠΏΠ΅ΡΠ΅Π±ΠΈΡΠ°ΡΡ ΡΡΠ΄Ρ, Π° Π²Π»ΠΎΠΆΠ΅Π½Π½ΡΠΉ — ΡΡΠ΅ΠΉΠΊΠΈ Π² ΡΡΠ΄Π°Ρ
. ΠΡΠΎΡ ΡΠΏΠΎΡΠΎΠ± Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡ ΡΠ°ΡΠ΅ Π²ΡΠ΅Π³ΠΎ, ΠΏΠΎΡΠΎΠΌΡ ΡΡΠΎ ΠΎΠ½ ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ ΠΏΠΎΠ»ΡΡΠΈΡΡ Π±ΠΎΠ»ΡΡΠ΅ ΠΊΠΎΠ½ΡΡΠΎΠ»Ρ Π½Π°Π΄ ΠΈΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΠ΅ΠΌ: Π½Π° ΠΊΠ°ΠΆΠ΄ΠΎΠΉ ΠΈΡΠ΅ΡΠ°ΡΠΈΠΈ ΡΠΈΠΊΠ»Π° Π½Π°ΠΌ Π΄ΠΎΡΡΡΠΏΠ½Ρ ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°ΡΡ ΡΡΠ΅Π΅ΠΊ. ΠΠ»Ρ ΠΏΠ΅ΡΠ΅Π±ΠΎΡΠ° Π²ΡΠ΅Ρ
ΡΡΠ΅Π΅ΠΊ Π½Π° Π»ΠΈΡΡΠ΅ ΡΡΠΈΠΌ ΠΌΠ΅ΡΠΎΠ΄ΠΎΠΌ ΠΏΠΎΡΡΠ΅Π±ΡΠ΅ΡΡΡ Π½Π°ΠΉΡΠΈ ΠΏΠΎΡΠ»Π΅Π΄Π½ΡΡ Π·Π°ΠΏΠΎΠ»Π½Π΅Π½Π½ΡΡ ΡΡΠ΅ΠΉΠΊΡ. ΠΡΠΈΠΌΠ΅Ρ ΠΊΠΎΠ΄Π°:
Sub iterate_over_cells() Dim cl, rw As Integer Dim x As Variant 'ΠΏΠ΅ΡΠ΅Π±ΠΎΡ ΠΎΠ±Π»Π°ΡΡΠΈ 3x3 For rw = 1 To 3 ' ΡΠΈΠΊΠ» Π΄Π»Ρ ΠΏΠ΅ΡΠ΅Π±ΠΎΡΠ° ΡΡΠ΄ΠΎΠ² 1-3 For cl = 1 To 3 'ΡΠΈΠΊΠ» Π΄Π»Ρ ΠΏΠ΅ΡΠ΅Π±ΠΎΡΠ° ΡΡΠΎΠ»Π±ΡΠΎΠ² 1-3 x = ThisWorkbook.Sheets("Sheet1").Cells(rw + 1, cl + 1).Value MsgBox (x) Next cl Next rw 'ΠΏΠ΅ΡΠ΅Π±ΠΎΡ Π²ΡΠ΅Ρ ΡΡΠ΅Π΅ΠΊ Π½Π° Π»ΠΈΡΡΠ΅. ΠΠΎΡΠ»Π΅Π΄Π½ΡΡ ΡΡΠ΅ΠΉΠΊΠ° ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Π° Ρ ΠΏΠΎΠΌΠΎΡΡΡ UsedRange 'LastRow = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 1 'LastCol = ActiveSheet.UsedRange.Column + ActiveSheet. UsedRange.Columns.Count - 1 'For rw = 1 To LastRow 'ΡΠΈΠΊΠ» ΠΏΠ΅ΡΠ΅Π±ΠΎΡΠ° Π²ΡΠ΅Ρ ΡΡΠ΄ΠΎΠ² ' For cl = 1 To LastCol 'ΡΠΈΠΊΠ» Π΄Π»Ρ ΠΏΠ΅ΡΠ΅Π±ΠΎΡΠ° Π²ΡΠ΅Ρ ΡΡΠΎΠ»Π±ΡΠΎΠ² ' ΠΠ΅ΠΉΡΡΠ²ΠΈΡ ' Next cl 'Next rw End Subβ
- ΠΡΠ»ΠΈ Π½ΡΠΆΠ½ΠΎ ΠΏΠ΅ΡΠ΅Π±ΡΠ°ΡΡ Π²ΡΠ΅ ΡΡΠ΅ΠΉΠΊΠΈ Π² Π²ΡΠ΄Π΅Π»Π΅Π½Π½ΠΎΠΌ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π΅ Π½Π° Π°ΠΊΡΠΈΠ²Π½ΠΎΠΌ Π»ΠΈΡΡΠ΅, ΡΠΎ ΠΊΠΎΠ΄ Π±ΡΠ΄Π΅Ρ Π²ΡΠ³Π»ΡΠ΄Π΅ΡΡ ΡΠ°ΠΊ:
Sub iterate_cell_by_cell_over_selection() Dim ActSheet As Worksheet Dim SelRange As Range Dim cell As Range Set ActSheet = ActiveSheet Set SelRange = Selection 'if we want to do it in every cell of the selected range For Each cell In Selection MsgBox (cell.Value) Next cell End Subβ
ΠΠ°Π½Π½ΡΠΉ ΠΌΠ΅ΡΠΎΠ΄ ΠΏΠΎΠ΄Ρ ΠΎΠ΄ΠΈΡ Π΄Π»Ρ ΠΈΠ½ΡΠ΅ΡΠ°ΠΊΡΠΈΠ²Π½ΡΡ ΠΌΠ°ΠΊΡΠΎΡΠΎΠ², ΠΊΠΎΡΠΎΡΡΠ΅ Π²ΡΠΏΠΎΠ»Π½ΡΡΡ Π΄Π΅ΠΉΡΡΠ²ΠΈΡ Π½Π°Π΄ Π²ΡΠ±ΡΠ°Π½Π½ΡΠΌΠΈ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Π΅ΠΌ ΠΎΠ±Π»Π°ΡΡΡΠΌΠΈ. - ΠΠ΅ΡΠ΅Π±ΠΎΡ ΡΡΠ΅Π΅ΠΊ Π² ΡΡΠ΄Ρ
Sub iterate_cells_in_row() Dim i, RowNum, StartCell As Long RowNum = 3 'ΠΊΠ°ΠΊΠΎΠΉ ΡΡΠ΄ StartCell = 0 ' Π½ΠΎΠΌΠ΅Ρ Π½Π°ΡΠ°Π»ΡΠ½ΠΎΠΉ ΡΡΠ΅ΠΉΠΊΠΈ (ΠΌΠΈΠ½ΡΡ 1, Ρ. ΠΊ. Π² ΡΠΈΠΊΠ»Π΅ ΠΌΡ ΠΏΡΠΈΠ±Π°Π²Π»ΡΠ΅ΠΌ i) For i = 1 To 10 ' 10 ΡΡΠ΅Π΅ΠΊ Π² Π²ΡΠ±ΡΠ°Π½Π½ΠΎΠΌ ΡΡΠ΄Ρ ThisWorkbook.Sheets("Sheet1").Cells(RowNum, i + StartCell).Value = i '(i + StartCell) Π΄ΠΎΠ±Π°Π²Π»ΡΠ΅Ρ 1 ΠΊ Π½ΠΎΠΌΠ΅ΡΡ ΡΡΠΎΠ»Π±ΡΠ° ΠΏΡΠΈ ΠΊΠ°ΠΆΠ΄ΠΎΠΌ ΠΏΠΎΠ²ΡΠΎΡΠ΅Π½ΠΈΠΈ Next i End Sub
- ΠΠ΅ΡΠ΅Π±ΠΎΡ ΡΡΠ΅Π΅ΠΊ Π² ΡΡΠΎΠ»Π±ΡΠ΅
Sub iterate_cells_in_column() Dim i, ColNum, StartCell As Long ColNum = 3 'ΠΊΠ°ΠΊΠΎΠΉ ΡΡΠΎΠ»Π±Π΅Ρ StartCell = 0 ' Π½ΠΎΠΌΠ΅Ρ Π½Π°ΡΠ°Π»ΡΠ½ΠΎΠΉ ΡΡΠ΅ΠΉΠΊΠΈ (ΠΌΠΈΠ½ΡΡ 1, Ρ.ΠΊ. Π² ΡΠΈΠΊΠ»Π΅ ΠΌΡ ΠΏΡΠΈΠ±Π°Π²Π»ΡΠ΅ΠΌ i) For i = 1 To 10 ' 10 ΡΡΠ΅Π΅ΠΊ ThisWorkbook.Sheets("Sheet1").Cells(i + StartCell, ColNum).Value = i ' (i + StartCell) Π΄ΠΎΠ±Π°Π²Π»ΡΠ΅Ρ 1 ΠΊ Π½ΠΎΠΌΠ΅ΡΡ ΡΡΠ΄Π° ΠΏΡΠΈ ΠΊΠ°ΠΆΠ΄ΠΎΠΌ ΠΏΠΎΠ²ΡΠΎΡΠ΅Π½ΠΈΠΈ Next i End Subβ
Π‘Π²ΠΎΠΉΡΡΠ²Π° ΠΈ ΠΌΠ΅ΡΠΎΠ΄Ρ ΡΡΠ΅Π΅ΠΊ
ΠΠΌΡ ΡΡΠ΅ΠΉΠΊΠΈ
ΠΡΠΈΡΠ²ΠΎΠΈΡΡ Π½ΠΎΠ²ΠΎΠ΅ ΠΈΠΌΡ ΠΌΠΎΠΆΠ½ΠΎ ΡΠ°ΠΊ:
Thisworkbook.Sheets(1).Cells(1,1).name = "ΠΠΎΠ²ΠΎΠ΅_ΠΠΌΡ"
ΠΠ»Ρ ΡΠΎΠ³ΠΎ, ΡΡΠΎΠ±Ρ ΡΠΌΠ΅Π½ΠΈΡΡ ΠΈΠΌΡ ΡΡΠ΅ΠΉΠΊΠΈ Π½ΡΠΆΠ½ΠΎ ΡΠ½Π°ΡΠ°Π»Π° ΡΠ΄Π°Π»ΠΈΡΡ ΡΡΡΠ΅ΡΡΠ²ΡΡΡΠ΅Π΅ ΠΈΠΌΡ, Π° Π·Π°ΡΠ΅ΠΌ ΠΏΡΠΈΡΠ²ΠΎΠΈΡΡ Π½ΠΎΠ²ΠΎΠ΅. Π£Π΄Π°Π»ΠΈΡΡ ΠΈΠΌΡ ΠΌΠΎΠΆΠ½ΠΎ ΡΠ°ΠΊ:
ActiveWorkbook.Names("Π‘ΡΠ°ΡΠΎΠ΅_ΠΠΌΡ").Delete
ΠΡΠΈΠΌΠ΅Ρ ΠΊΠΎΠ΄Π° Π΄Π»Ρ ΠΏΠ΅ΡΠ΅ΠΈΠΌΠ΅Π½ΠΎΠ²Π°Π½ΠΈΡ ΡΡΠ΅Π΅ΠΊ:
Sub rename_cell() old_name = "Cell_Old_Name" new_name = "Cell_New_Name" ActiveWorkbook.Names(old_name).Delete ThisWorkbook.Sheets(1).Cells(2, 1).Name = new_name End Sub Sub rename_cell_reverse() old_name = "Cell_New_Name" new_name = "Cell_Old_Name" ActiveWorkbook.Names(old_name).Delete ThisWorkbook.Sheets(1).Cells(2, 1).Name = new_name End Sub
ΠΠ΄ΡΠ΅Ρ ΡΡΠ΅ΠΉΠΊΠΈ
Sub get_cell_address() ' Π²ΡΠ²Π΅ΡΡΠΈ Π°Π΄ΡΠ΅Ρ ΡΡΠ΅ΠΉΠΊΠΈ Π² ΡΠΎΡΠΌΠ°ΡΠ΅ Π±ΡΠΊΠ²Π° ΡΡΠΎΠ»Π±ΡΠ°, Π½ΠΎΠΌΠ΅Ρ ΡΡΠ΄Π° '$A$1 style txt_address = ThisWorkbook.Sheets(1).Cells(3, 2).Address MsgBox (txt_address) End Sub Sub get_cell_address_R1C1()' ΠΏΠΎΠ»ΡΡΠΈΡΡ Π°Π΄ΡΠ΅Ρ ΡΡΠΎΠ»Π±ΡΠ° Π² ΡΠΎΡΠΌΠ°ΡΠ΅ Π½ΠΎΠΌΠ΅Ρ ΡΡΠ΄Π°, Π½ΠΎΠΌΠ΅Ρ ΡΡΠΎΠ»Π±ΡΠ° 'R1C1 style txt_address = ThisWorkbook.Sheets(1).Cells(3, 2).Address(ReferenceStyle:=xlR1C1) MsgBox (txt_address) End Sub 'ΠΏΡΠΈΠΌΠ΅Ρ ΡΡΠ½ΠΊΡΠΈΠΈ, ΠΊΠΎΡΠΎΡΠ°Ρ ΠΏΡΠΈΠ½ΠΈΠΌΠ°Π΅Ρ 2 Π°ΡΠ³ΡΠΌΠ΅Π½ΡΠ°: Π½Π°Π·Π²Π°Π½ΠΈΠ΅ ΠΈΠΌΠ΅Π½ΠΎΠ²Π°Π½Π½ΠΎΠ³ΠΎ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π° ΠΈ ΡΠΈΠΏ ΠΆΠ΅Π»Π°Π΅ΠΌΠΎΠ³ΠΎ Π°Π΄ΡΠ΅ΡΠ° '(1- ΡΠΈΠΏ $A$1 2- R1C1 - Π½ΠΎΠΌΠ΅Ρ ΡΡΠ΄Π°, ΡΡΠΎΠ»Π±ΡΠ°) Function get_cell_address_by_name(str As String, address_type As Integer) '$A$1 style Select Case address_type Case 1 txt_address = Range(str). Address Case 2 txt_address = Range(str).Address(ReferenceStyle:=xlR1C1) Case Else txt_address = "Wrong address type selected. 1,2 available" End Select get_cell_address_by_name = txt_address End Function 'ΠΏΠ΅ΡΠ΅Π΄ Π·Π°ΠΏΡΡΠΊΠΎΠΌ Π½ΡΠΆΠ½ΠΎ ΡΠ±Π΅Π΄ΠΈΡΡΡΡ, ΡΡΠΎ Π² ΠΊΠ½ΠΈΠ³Π΅ Π΅ΡΡΡ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ Ρ Π½Π°Π·Π²Π°Π½ΠΈΠ΅ΠΌ, 'Π°Π΄ΡΠ΅Ρ ΠΊΠΎΡΠΎΡΠΎΠ³ΠΎ ΠΌΡ Ρ ΠΎΡΠΈΠΌ ΠΏΠΎΠ»ΡΡΠΈΡΡ, ΠΈΠ½Π°ΡΠ΅ Π±ΡΠ΄Π΅Ρ ΠΎΡΠΈΠ±ΠΊΠ° Sub test_function() 'Π·Π°ΠΏΡΡΡΠΈΡΠ΅ ΡΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ, ΡΡΠΎΠ±Ρ ΡΠ²ΠΈΠ΄Π΅ΡΡ, ΠΊΠ°ΠΊ ΡΠ°Π±ΠΎΡΠ°Π΅Ρ ΡΡΠ½ΠΊΡΠΈΡ x = get_cell_address_by_name("MyValue", 2) MsgBox (x) End Sub
Π Π°Π·ΠΌΠ΅ΡΡ ΡΡΠ΅ΠΉΠΊΠΈ
Π¨ΠΈΡΠΈΠ½Π° ΠΈ Π΄Π»ΠΈΠ½Π° ΡΡΠ΅ΠΉΠΊΠΈ Π² VBA ΠΌΠ΅Π½ΡΠ΅ΡΡΡ, Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ, ΡΠ°ΠΊ:
Sub change_size() Dim x, y As Integer Dim w, h As Double 'ΠΏΠΎΠ»ΡΡΠΈΡΡ ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°ΡΡ ΡΠ΅Π»Π΅Π²ΠΎΠΉ ΡΡΠ΅ΠΉΠΊΠΈ x = ThisWorkbook.Sheets("Sheet1").Cells(2, 2).Value y = ThisWorkbook.Sheets("Sheet1").Cells(3, 2).Value 'ΠΏΠΎΠ»ΡΡΠΈΡΡ ΠΆΠ΅Π»Π°Π΅ΠΌΡΡ ΡΠΈΡΠΈΠ½Ρ ΠΈ Π²ΡΡΠΎΡΡ ΡΡΠ΅ΠΉΠΊΠΈ w = ThisWorkbook.Sheets("Sheet1").Cells(6, 2).Value h = ThisWorkbook. Sheets("Sheet1").Cells(7, 2).Value 'ΡΠΌΠ΅Π½ΠΈΡΡ Π²ΡΡΠΎΡΡ ΠΈ ΡΠΈΡΠΈΠ½Ρ ΡΡΠ΅ΠΉΠΊΠΈ Ρ ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°ΡΠ°ΠΌΠΈ x,y ThisWorkbook.Sheets("Sheet1").Cells(x, y).RowHeight = h ThisWorkbook.Sheets("Sheet1").Cells(x, y).ColumnWidth = w End Sub
ΠΡΠΎΡΠΈΡΠ°ΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΡΠΈΡΠΈΠ½Ρ ΠΈ Π²ΡΡΠΎΡΡ ΡΡΠ΅Π΅ΠΊ ΠΌΠΎΠΆΠ½ΠΎ Π΄Π²ΡΠΌΡ ΡΠΏΠΎΡΠΎΠ±Π°ΠΌΠΈ (ΠΎΠ΄Π½Π°ΠΊΠΎ ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΡ Π±ΡΠ΄ΡΡ Π² ΡΠ°Π·Π½ΡΡ Π΅Π΄ΠΈΠ½ΠΈΡΠ°Ρ ΠΈΠ·ΠΌΠ΅ΡΠ΅Π½ΠΈΡ). ΠΡΠ»ΠΈ Π½Π°ΠΏΠΈΡΠ°ΡΡ ΠΏΡΠΎΡΡΠΎ Cells(x,y).Width ΠΈΠ»ΠΈ Cells(x,y).Height, ΡΠΎ Π±ΡΠ΄Π΅Ρ ΠΏΠΎΠ»ΡΡΠ΅Π½ ΡΠ΅Π·ΡΠ»ΡΡΠ°Ρ Π² pt (ΠΏΡΠΈΠ²ΡΠ·ΠΊΠ° ΠΊ ΡΠ°Π·ΠΌΠ΅ΡΡ ΡΡΠΈΡΡΠ°).Β
Sub get_size() Dim x, y As Integer 'ΠΏΠΎΠ»ΡΡΠΈΡΡ ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°ΡΡ ΡΡΠ΅ΠΉΠΊΠΈ, Ρ ΠΊΠΎΡΠΎΡΠΎΠΉ ΠΌΡ Π±ΡΠ΄Π΅ΠΌ ΡΠ°Π±ΠΎΡΠ°ΡΡ x = ThisWorkbook.Sheets("Sheet1").Cells(2, 2).Value y = ThisWorkbook.Sheets("Sheet1").Cells(3, 2).Value 'ΠΏΠΎΠ»ΡΡΠΈΡΡ Π΄Π»ΠΈΠ½Ρ ΠΈ ΡΠΈΡΠΈΠ½Ρ Π²ΡΠ±ΡΠ°Π½Π½ΠΎΠΉ ΡΡΠ΅ΠΉΠΊΠΈ Π² ΡΠ΅Ρ ΠΆΠ΅ Π΅Π΄ΠΈΠ½ΠΈΡΠ°Ρ ΠΈΠ·ΠΌΠ΅ΡΠ΅Π½ΠΈΡ, Π² ΠΊΠΎΡΠΎΡΡΡ ΠΌΡ ΠΈΡ Π·Π°Π΄Π°Π²Π°Π»ΠΈ ThisWorkbook.Sheets("Sheet1").Cells(2, 6).Value = ThisWorkbook.Sheets("Sheet1").Cells(x, y).ColumnWidth ThisWorkbook.Sheets("Sheet1").Cells(3, 6).Value = ThisWorkbook. Sheets("Sheet1").Cells(x, y).RowHeight 'ΠΏΠΎΠ»ΡΡΠΈΡΡ Π΄Π»ΠΈΠ½Ρ ΠΈ ΡΠΈΡΠΈΠ½Ρ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΡΠ²ΠΎΠΉΡΡΠ² ΡΡΠ΅ΠΉΠΊΠΈ (ΡΠΎΠ»ΡΠΊΠΎ Π΄Π»Ρ ΡΡΠ΅Π½ΠΈΡ) Π² ΠΏΠΎΠΈΠ½ΡΠ°Ρ (pt) ThisWorkbook.Sheets("Sheet1").Cells(7, 9).Value = ThisWorkbook.Sheets("Sheet1").Cells(x, y).Width ThisWorkbook.Sheets("Sheet1").Cells(8, 9).Value = ThisWorkbook.Sheets("Sheet1").Cells(x, y).Height End Sub
Π‘ΠΊΠ°ΡΠ°ΡΡ ΡΠ°ΠΉΠ» Ρ ΠΏΡΠΈΠΌΠ΅ΡΠ°ΠΌΠΈ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΡ ΠΈ ΡΡΠ΅Π½ΠΈΡ ΡΠ°Π·ΠΌΠ΅ΡΠ° ΡΡΠ΅Π΅ΠΊ
ΠΠ°ΠΏΡΡΠΊ ΠΌΠ°ΠΊΡΠΎΡΠ° Π°ΠΊΡΠΈΠ²Π°ΡΠΈΠ΅ΠΉ ΡΡΠ΅ΠΉΠΊΠΈ
ΠΠ»Ρ Π·Π°ΠΏΡΡΠΊΠ° ΠΊΠΎΠ΄Π° VBA ΠΏΡΠΈ Π°ΠΊΡΠΈΠ²Π°ΡΠΈΠΈ ΡΡΠ΅ΠΉΠΊΠΈ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ Π²ΡΡΠ°Π²ΠΈΡΡ Π² ΠΊΠΎΠ΄ Π»ΠΈΡΡΠ°Β Π½Π΅ΡΡΠΎ ΠΏΠΎΠ΄ΠΎΠ±Π½ΠΎΠ΅:
3 Π²Π°ΠΆΠ½ΡΡ ΠΌΠΎΠΌΠ΅Π½ΡΠ°, ΡΡΠΎΠ±Ρ ΡΡΠΎ ΡΠ°Π±ΠΎΡΠ°Π»ΠΎ:
1. ΠΡΠΎΡ ΠΊΠΎΠ΄ Π΄ΠΎΠ»ΠΆΠ΅Π½ Π±ΡΡΡ Π²ΡΡΠ°Π²Π»Π΅Π½ Π² ΠΊΠΎΠ΄ Π»ΠΈΡΡΠ° (Π·Π΄Π΅ΡΡ ΠΊΠΎΠ½ΡΡΠΎΠ»ΠΈΡΡΠ΅ΡΡΡ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ D4)
2-3. ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠ°, ΠΎΡΠ²Π΅ΡΡΡΠ²Π΅Π½Π½Π°Ρ Π·Π° Π·Π°ΠΏΡΡΠΊ ΠΊΠΎΠ΄Π° ΠΏΡΠΈ Π²ΡΠ±ΠΎΡΠ΅ ΡΡΠ΅ΠΉΠΊΠΈ, Π΄ΠΎΠ»ΠΆΠ½Π° Π½Π°Π·ΡΠ²Π°ΡΡΡΡ Worksheet_SelectionChangeΒ ΠΈ Π΄ΠΎΠ»ΠΆΠ½Π° ΠΏΡΠΈΠ½ΠΈΠΌΠ°ΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ Target, ΠΎΡΠ½ΠΎΡΡΡΠ΅ΠΉΡΡ ΠΊ ΡΡΠΈΠ³Π³Π΅ΡΡ SelectionChange. ΠΡΡΠ³ΠΈΠ΅ Π΄ΠΎΡΡΡΠΏΠ½ΡΠ΅ ΡΡΠΈΠ³Π³Π΅ΡΡ ΠΌΠΎΠΆΠ½ΠΎ ΠΏΠΎΡΠΌΠΎΡΡΠ΅ΡΡ Π² ΠΏΡΠ°Π²ΠΎΠΌ Π²Π΅ΡΡ Π½Π΅ΠΌ ΡΠ³Π»Ρ (2).
Π‘ΠΊΠ°ΡΠ°ΡΡ ΡΠ°ΠΉΠ» Ρ Π±Π°Π·ΠΎΠ²ΡΠΌ ΠΏΡΠΈΠΌΠ΅ΡΠΎΠΌΒ (ΠΊΠ°ΠΊ Π½Π° ΠΊΠ°ΡΡΠΈΠ½ΠΊΠ΅)
Π‘ΠΊΠ°ΡΠ°ΡΡ ΡΠ°ΠΉΠ» Ρ ΡΠ°ΡΡΠΈΡΠ΅Π½Π½ΡΠΌ ΠΏΡΠΈΠΌΠ΅ΡΠΎΠΌ (ΠΊΠΎΠ΄ Π½ΠΈΠΆΠ΅)
Option Explicit Private Sub Worksheet_SelectionChange(ByVal Target As Range) ' ΠΈΠΌΠ΅Π΅ΠΌ Π² Π²ΠΈΠ΄Ρ, ΡΡΠΎ ΡΡΠΈΠ³Π³Π΅Ρ SelectionChange Π±ΡΠ΄Π΅Ρ Π·Π°ΠΏΡΡΠΊΠ°ΡΡ ΡΡΡ Sub ΠΏΠΎΡΠ»Π΅ ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ ΠΊΠ»ΠΈΠΊΠ° ΠΌΡΡΡΡ (ΠΏΠΎΡΠ»Π΅ ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ ΠΊΠ»ΠΈΠΊΠ° Π±ΡΠ΄Π΅Ρ ΠΏΡΠΎΠ²Π΅ΡΡΡΡΡΡ: '1. ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ Π²ΡΠ΄Π΅Π»Π΅Π½Π½ΡΡ ΡΡΠ΅Π΅ΠΊ ΠΈ '2. Π½Π΅ ΠΏΠ΅ΡΠ΅ΡΠ΅ΠΊΠ°Π΅ΡΡΡ Π»ΠΈ Π²ΡΠ±ΡΠ°Π½Π½ΡΠΉ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ Ρ Π·Π°Π΄Π°Π½Π½ΡΠΌ Π² ΡΡΠΎΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ΠΎΠΌ. ' ΠΏΠΎΡΡΠΎΠΌΡ Π² ΡΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π½Π΅ ΡΡΠΎΠΈΡ Π±Π΅Π· Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎΡΡΠΈ ΠΏΠΈΡΠ°ΡΡ Π½ΠΈΠΊΠ°ΠΊΠΈΡ Π΄ΡΡΠ³ΠΈΡ ΡΡΠΆΠ΅Π»ΡΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΉ If Selection.Count = 1 Then 'Π·Π°ΠΏΡΡΠΊΠ°Π΅ΠΌ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΡΠΎΠ»ΡΠΊΠΎ Π΅ΡΠ»ΠΈ Π²ΡΠ±ΡΠ°Π½ΠΎ Π½Π΅ Π±ΠΎΠ»Π΅Π΅ 1 ΡΡΠ΅ΠΉΠΊΠΈ 'Π²Π°ΡΠΈΠ°Π½Ρ ΠΌΠΎΠ΄ΠΈΡΠΈΠΊΠ°ΡΠΈΠΈ - Π±ΡΠ°ΡΡ Π°Π΄ΡΠ΅Ρ ΡΡΠ΅ΠΉΠΊΠΈ ΠΈΠ· Π΄ΡΡΠ³ΠΎΠΉ ΡΡΠ΅ΠΉΠΊΠΈ: 'Dim CellName as String 'CellName = Activesheet.Cells(1,1).value 'Π±ΡΠ°ΡΡ ΡΠ΅ΠΊΡΡΠΎΠ²ΠΎΠ΅ ΠΈΠΌΡ ΠΊΠΎΠ½ΡΡΠΎΠ»ΠΈΡΡΠ΅ΠΌΠΎΠΉ ΡΡΠ΅ΠΉΠΊΠΈ ΠΈΠ· A1 (Π΄ΠΎΠ»ΠΆΠ½ΠΎ Π±ΡΡΡ Π² ΡΠΎΡΠΌΠ°ΡΠ΅ ΠΡΠΊΠ²Π° ΡΡΠΎΠ»Π±ΡΠ° + Π½ΠΎΠΌΠ΅Ρ ΡΡΡΠΎΠΊΠΈ) 'If Not Intersect(Range(CellName), Target) Is Nothing Then 'Π΄Π»Ρ ΡΠ°Π±ΠΎΡΡ ΡΡΠΎΠΉ ΠΌΠΎΠ΄ΠΈΡΠΈΠΊΠ°ΡΠΈΠΈ ΡΠ»Π΅Π΄ΡΡΡΡΡ ΡΡΡΠΎΠΊΡ Π½Π°Π΄ΠΎ Π·Π°ΠΊΠΎΠΌΠΌΠ΅Π½ΡΠΈΡΠΎΠ²Π°ΡΡ/ΡΠ΄Π°Π»ΠΈΡΡ If Not Intersect(Range("D4"), Target) Is Nothing Then 'Π΅ΡΠ»ΠΈ Π·Π°Π΄Π°Π½Π½ΡΠΉ (D4) ΠΈ Π²ΡΠ±ΡΠ°Π½Π½ΡΠΉ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ΠΏΠ΅ΡΠ΅ΡΠ΅ΠΊΠ°ΡΡΡΡ '(ΠΏΠ΅ΡΠ΅ΡΠ΅ΡΠ΅Π½ΠΈΠ΅ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ΠΎΠ² ΠΠ ΡΠ°Π²Π½ΠΎ Nothing) 'ΠΌΠΎΠΆΠ½ΠΎ ΠΏΡΠΎΠΏΠΈΡΠ°ΡΡ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ΠΈΠ· Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΈΡ ΡΡΠ΅Π΅ΠΊ: 'If Not Intersect(Range("D4:E10"), Target) Is Nothing Then 'ΠΌΠΎΠΆΠ½ΠΎ ΠΏΡΠΎΠΏΠΈΡΠ°ΡΡ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΎ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ΠΎΠ²: 'If Not Intersect(Range("D4:E10"), Target) Is Nothing or Not Intersect(Range("A4:A10"), Target) Is Nothing Then Call program 'Π²ΡΠΏΠΎΠ»Π½ΡΠ΅ΠΌ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ End If End If End Sub Sub program() MsgBox ("Program Is running") 'Π·Π΄Π΅ΡΡ ΠΏΠΈΡΠ΅ΠΌ ΠΊΠΎΠ΄ ΡΠΎΠ³ΠΎ, ΡΡΠΎ ΠΏΡΠΎΠΈΠ·ΠΎΠΉΠ΄ΡΡ ΠΏΡΠΈ Π²ΡΠ±ΠΎΡΠ΅ Π½ΡΠΆΠ½ΠΎΠΉ ΡΡΠ΅ΠΉΠΊΠΈ End Sub
Β
ΠΠ°ΠΊ ΠΏΠΎΠ»ΡΡΠΈΡΡ Π°Π΄ΡΠ΅Ρ ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ° ΠΏΠΎΠΈΡΠΊΠ°
ΠΠ°ΠΊ ΠΏΡΠ°Π²ΠΈΠ»ΠΎ, ΠΌΡ ΠΈΡΠ΅ΠΌ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΡΡ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ Π² Π±ΠΎΠ»ΡΡΠΎΠΌ Π½Π°Π±ΠΎΡΠ΅ Π΄Π°Π½Π½ΡΡ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΡΡΠ½ΠΊΡΠΈΠΉ ΠΠΠΠΠΠ‘, ΠΠΠΠ‘ΠΠΠΠ ΠΈ Π²ΠΎΠ·Π²ΡΠ°ΡΠ°Π΅ΠΌ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠ΅Π΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ Π½Π° ΠΎΡΠ½ΠΎΠ²Π΅ Π·Π°Π΄Π°Π½Π½ΡΡ ΠΊΡΠΈΡΠ΅ΡΠΈΠ΅Π². ΠΠΎ Π΅ΡΠ»ΠΈ ΠΌΡ Ρ ΠΎΡΠΈΠΌ Π½Π°ΠΉΡΠΈ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΠΈ Π²Π΅ΡΠ½ΡΡΡ ΡΡΡΠ»ΠΊΡ Π½Π° ΡΡΠ΅ΠΉΠΊΡ ΠΈΠ»ΠΈ Π°Π΄ΡΠ΅Ρ ΡΡΠ΅ΠΉΠΊΠΈ ΡΠ΅Π·ΡΠ»ΡΡΠΈΡΡΡΡΠ΅Π³ΠΎ Π·Π½Π°ΡΠ΅Π½ΠΈΡ, Π½Π°ΠΌ Π½ΡΠΆΠ½ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΡΡΠ½ΠΊΡΠΈΡ CELL. Π ΡΡΠΎΠΉ ΡΡΠ°ΡΡΠ΅ ΠΌΡ ΡΠ·Π½Π°Π΅ΠΌ, ΠΊΠ°ΠΊ ΠΈΡΠΊΠ°ΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΠΈ ΠΏΠΎΠ»ΡΡΠ°ΡΡ Π°Π΄ΡΠ΅Ρ ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ° ΠΏΠΎΠΈΡΠΊΠ° Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΡΡΠ½ΠΊΡΠΈΠΈ CELL.
Π ΠΈΡΡΠ½ΠΎΠΊ 1. ΠΠΊΠΎΠ½ΡΠ°ΡΠ΅Π»ΡΠ½ΡΠΉ ΡΠ΅Π·ΡΠ»ΡΡΠ°Ρ
Π―Π§ΠΠΠΠ Π€ΡΠ½ΠΊΡΠΈΡΠ€ΡΠ½ΠΊΡΠΈΡ Π―Π§ΠΠΠΠ ΠΏΡΠ΅Π΄ΠΎΡΡΠ°Π²Π»ΡΠ΅Ρ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ ΠΎΠ± ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Π½ΠΎΠΉ ΡΡΠ΅ΠΉΠΊΠ΅ ΡΠ°Π±ΠΎΡΠ΅Π³ΠΎ Π»ΠΈΡΡΠ°. ΠΡΠ° ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ ΠΊΠ°ΠΊ Π°Π΄ΡΠ΅ΡΠΎΠΌ ΠΈ ΠΈΠΌΠ΅Π½Π΅ΠΌ ΡΠ°ΠΉΠ»Π°, ΡΠ°ΠΊ ΠΈ Π±ΠΎΠ»Π΅Π΅ ΠΏΠΎΠ΄ΡΠΎΠ±Π½ΠΎΠΉ, Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ, ΡΠΎΡΠΌΠ°ΡΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ΠΌ ΡΡΠ΅Π΅ΠΊ ΠΈ Ρ. Π΄.
Π―Π§ΠΠΠΠ Π‘ΠΈΠ½ΡΠ°ΠΊΡΠΈΡ:
=Π―Π§ΠΠΠΠ("Π°Π΄ΡΠ΅Ρ",[ΡΡΡΠ»ΠΊΠ°])
ΠΡΠΎΡ ΡΠΈΠ½ΡΠ°ΠΊΡΠΈΡ ΡΠΎΡΠΌΡΠ»Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅Ρ ΡΠ»Π΅Π΄ΡΡΡΠΈΠ΅ Π°ΡΠ³ΡΠΌΠ΅Π½ΡΡ Π΄Π»Ρ ΠΏΠΎΠ»ΡΡΠ΅Π½ΠΈΡ Π°Π΄ΡΠ΅ΡΠ° ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ° ΠΏΠΎΠΈΡΠΊΠ°:
- Π°Π΄ΡΠ΅Ρ (ΠΎΠ±ΡΠ·Π°ΡΠ΅Π»ΡΠ½ΠΎ): ΠΡΠΎ ΡΠΈΠΏ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ, ΠΊΠΎΡΠΎΡΡΡ Π²Ρ Π²ΠΎΠ·Π²ΡΠ°ΡΠ°Π΅ΡΠ΅ ΠΎ ΡΡΡΠ»ΠΊΠ΅.
- ΡΡΡΠ»ΠΊΠ° (Π½Π΅ΠΎΠ±ΡΠ·Π°ΡΠ΅Π»ΡΠ½ΠΎ): ΡΡΠΎ ΡΡΡΠ»ΠΊΠ° ΠΈΠ»ΠΈ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ΡΡΠ΅Π΅ΠΊ Π΄Π»Ρ Π²ΠΎΠ·Π²ΡΠ°ΡΠ° ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ° ΠΏΠΎΠΈΡΠΊΠ°
Π ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΠΈΠΈ Ρ ΡΠΈΠ½ΡΠ°ΠΊΡΠΈΡΠΎΠΌ ΡΠΎΡΠΌΡΠ»Ρ Π΄Π»Ρ ΡΡΠ½ΠΊΡΠΈΠΈ Π―Π§ΠΠΠΠ ΡΡΠ΅Π±ΡΠ΅ΡΡΡ ΡΡΡΠ»ΠΊΠ° Π½Π° ΡΡΠ΅ΠΉΠΊΡ ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ° ΠΏΠΎΠΈΡΠΊΠ°, ΠΈ ΠΎΠ±ΡΡΠ½ΠΎ ΡΡΠ½ΠΊΡΠΈΡ ΠΠΠΠΠΠ‘ Π²ΠΎΠ·Π²ΡΠ°ΡΠ°Π΅Ρ Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΡΡΠ΅Π΅ΠΊ ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ° ΠΏΠΎΠΈΡΠΊΠ°. ΠΠ΄Π½Π°ΠΊΠΎ ΡΡΠ½ΠΊΡΠΈΡ ΠΠΠΠΠΠ‘ Π²ΠΎΠ·Π²ΡΠ°ΡΠ°Π΅Ρ ΡΡΡΠ»ΠΊΡ Π½Π° ΡΡΠ΅ΠΉΠΊΡ ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ° ΠΏΠΎΠΈΡΠΊΠ°. ΠΠΎΡΡΠΎΠΌΡ Π½Π°ΠΌ Π½ΡΠΆΠ½ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΡΡΠ½ΠΊΡΠΈΠΈ ΠΠΠΠΠΠ‘ ΠΈ ΠΠΠΠ‘ΠΠΠΠ Π΄Π»Ρ ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠΎΠ² ΠΏΠΎΠΈΡΠΊΠ°, Π° Π·Π°ΡΠ΅ΠΌ ΠΎΠ±Π΅ΡΠ½ΡΡΡ ΠΈΡ Π²Π½ΡΡΡΠΈ ΡΡΠ½ΠΊΡΠΈΠΈ Π―Π§ΠΠΠΠ ΠΊΠ°ΠΊ Π°ΡΠ³ΡΠΌΠ΅Π½Ρ ΡΡΡΠ»ΠΊΠΈ Π΄Π»Ρ ΠΏΠΎΠ»ΡΡΠ΅Π½ΠΈΡ Π°Π΄ΡΠ΅ΡΠ° ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ° ΠΏΠΎΠΈΡΠΊΠ°. ΠΠ°ΠΏΡΠΈΠΌΠ΅Ρ, Ρ Π½Π°Ρ Π΅ΡΡΡ Π½Π°Π±ΠΎΡ Π΄Π°Π½Π½ΡΡ ΠΎ ΡΠ°Π·Π»ΠΈΡΠ½ΡΡ ΠΏΡΠΎΠ΄ΡΠΊΡΠ°Ρ Π² Π·Π°ΠΏΠ°ΡΠ°Ρ , ΠΈ Π½Π°ΠΌ Π½ΡΠΆΠ΅Π½ ΡΠ΅Π·ΡΠ»ΡΡΠ°Ρ ΠΏΠΎΠΈΡΠΊΠ° ΡΠ΅Π½Ρ Π΄Π»Ρ ΠΈΠ΄Π΅Π½ΡΠΈΡΠΈΠΊΠ°ΡΠΎΡΠ° ΠΏΠΎΠΈΡΠΊΠ° 120 Π² ΡΡΠ΅ΠΉΠΊΠ΅ h4 Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ΠΌ ΡΠ»Π΅Π΄ΡΡΡΠ΅ΠΉ ΡΠΎΡΠΌΡΠ»Ρ ΠΠΠΠΠΠ‘, ΠΠΠΠ‘ΠΠΠΠ:
=ΠΠΠΠΠΠ‘($A$2:$E$10,MATCH(h3,$A$2:$A$10,0),5)
Π ΠΈΡΡΠ½ΠΎΠΊ 2. Π Π΅Π·ΡΠ»ΡΡΠ°Ρ ΠΏΠΎΠΈΡΠΊΠ° ΡΠ΅Π½Ρ ΡΠΎΠ²Π°ΡΠ°
ΠΠΎΠ»ΡΡΠΈΡΡ Π°Π΄ΡΠ΅Ρ ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ° ΠΏΠΎΠΈΡΠΊΠ°Π’Π΅ΠΏΠ΅ΡΡ ΠΌΡ Ρ ΠΎΡΠΈΠΌ ΠΏΠΎΠ»ΡΡΠΈΡΡ Π°Π΄ΡΠ΅Ρ ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ° ΠΏΠΎΠΈΡΠΊΠ° ΡΠ΅Π½Ρ, ΠΊΠ°ΠΊ ΡΠΊΠ°Π·Π°Π½ΠΎ Π² ΡΡΠ΅ΠΉΠΊΠ΅ 9.0017 Ρ4 . ΠΠ»Ρ ΡΡΠΎΠ³ΠΎ ΠΌΡ ΠΎΠ±Π΅ΡΠ½Π΅ΠΌ ΡΠΎΡΠΌΡΠ»Ρ ΠΠΠΠΠΠ‘, ΠΠΠΠ‘ΠΠΠΠ Π² ΡΡΠ½ΠΊΡΠΈΡ Π―Π§ΠΠΠΠ, ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡ ΠΎΠΏΡΠΈΡ Β« Π°Π΄ΡΠ΅Ρ Β» Π² ΡΡΠ΅ΠΉΠΊΠ΅ h5 Π² ΡΠ»Π΅Π΄ΡΡΡΠ΅ΠΉ ΡΠΎΡΠΌΡΠ»Π΅.
=Π―Π§ΠΠΠΠ("Π°Π΄ΡΠ΅Ρ",ΠΠΠΠΠΠ‘($A$2:$E$10,ΠΠΠΠ‘ΠΠΠΠ(h3,$A$2:$A$10,0),5))
Π€ΡΠ½ΠΊΡΠΈΡ ΠΠΠΠΠΠ‘ Π²ΠΎΠ·Π²ΡΠ°ΡΠ°Π΅Ρ ΡΡΡΠ»ΠΊΡ ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ° ΠΏΠΎΠΈΡΠΊΠ° ΡΠ΅Π½Ρ Π² Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π΅ A2: E10 Π½Π° ΠΎΡΠ½ΠΎΠ²Π΅ Π½ΠΎΠΌΠ΅ΡΠ° ΡΡΡΠΎΠΊΠΈ ΠΈ ΡΡΠΎΠ»Π±ΡΠ°. Π€ΡΠ½ΠΊΡΠΈΡ ΠΠΠΠ‘ΠΠΠΠ Π²ΠΎΠ·Π²ΡΠ°ΡΠ°Π΅Ρ ΠΎΡΠ½ΠΎΡΠΈΡΠ΅Π»ΡΠ½ΡΡ ΠΏΠΎΠ·ΠΈΡΠΈΡ (Π½ΠΎΠΌΠ΅Ρ ΡΡΡΠΎΠΊΠΈ) Π΄Π»Ρ ΠΈΠ΄Π΅Π½ΡΠΈΡΠΈΠΊΠ°ΡΠΎΡΠ° ΠΏΠΎΠΈΡΠΊΠ° 120 Π² Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π΅ 9.0017 Π2: Π10. ΠΠΎΡΠΊΠΎΠ»ΡΠΊΡ ΡΠ΅Π½Π° ΡΠΊΠ°Π·Π°Π½Π° Π² ΡΡΠΎΠ»Π±ΡΠ΅ 5-ΠΉ ΡΡΠΎΠ»Π±Π΅Ρ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π° A2: E10, , ΠΌΡ Π΄ΠΎΠ»ΠΆΠ½Ρ ΡΠΊΠ°Π·Π°ΡΡ Π°ΡΠ³ΡΠΌΠ΅Π½Ρ column_num ΠΊΠ°ΠΊ 5 . ΠΠΎΠ³Π΄Π° ΠΌΡ Π·Π°ΠΊΠ»ΡΡΠ°Π΅ΠΌ ΡΡΠ½ΠΊΡΠΈΠΈ ΠΠΠΠΠΠ‘, ΠΠΠΠ‘ΠΠΠΠ Π² ΡΡΠ½ΠΊΡΠΈΡ Π―Π§ΠΠΠΠ Ρ ΠΎΠΏΡΠΈΠ΅ΠΉ Β« Π°Π΄ΡΠ΅Ρ Β», ΠΎΠ½Π° Π²ΠΎΠ·Π²ΡΠ°ΡΠ°Π΅Ρ Π°Π΄ΡΠ΅Ρ ΡΡΠ΅ΠΉΠΊΠΈ ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ° ΠΏΠΎΠΈΡΠΊΠ° ΡΠ΅Π½Ρ Π² ΡΡΠ΅ΠΉΠΊΠ΅ h5. ΠΡΠΎ ΠΎΠ·Π½Π°ΡΠ°Π΅Ρ, ΡΡΠΎ ΡΠ΅Π·ΡΠ»ΡΡΠ°Ρ ΠΏΠΎΠΈΡΠΊΠ° ΠΏΡΠΈΡΡΡΡΡΠ²ΡΠ΅Ρ Π² $E$5 , ΠΊΠ°ΠΊ Π² ΡΡΠΎΠΌ ΠΏΡΠΈΠΌΠ΅ΡΠ΅.
Π ΠΈΡΡΠ½ΠΎΠΊ 3. ΠΠ΄ΡΠ΅Ρ ΡΡΠ΅ΠΉΠΊΠΈ ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ° ΠΏΠΎΠΈΡΠΊΠ° Price
ΠΠ³Π½ΠΎΠ²Π΅Π½Π½Π°Ρ ΡΠ²ΡΠ·Ρ Ρ ΡΠΊΡΠΏΠ΅ΡΡΠΎΠΌ ΡΠ΅ΡΠ΅Π· Π½Π°ΡΡ ΡΠ»ΡΠΆΠ±Ρ Excelchat:Π Π±ΠΎΠ»ΡΡΠΈΠ½ΡΡΠ²Π΅ ΡΠ»ΡΡΠ°Π΅Π² ΠΏΡΠΎΠ±Π»Π΅ΠΌΠ°, ΠΊΠΎΡΠΎΡΡΡ Π²Π°ΠΌ Π½ΡΠΆΠ½ΠΎ Π±ΡΠ΄Π΅Ρ ΡΠ΅ΡΠΈΡΡ, Π±ΡΠ΄Π΅Ρ Π±ΠΎΠ»Π΅Π΅ ΡΠ»ΠΎΠΆΠ½ΠΎΠΉ, ΡΠ΅ΠΌ ΠΏΡΠΎΡΡΠΎΠ΅ ΠΏΡΠΈΠΌΠ΅Π½Π΅Π½ΠΈΠ΅ ΡΠΎΡΠΌΡΠ»Ρ ΠΈΠ»ΠΈ ΡΡΠ½ΠΊΡΠΈΠΈ. ΠΡΠ»ΠΈ Π²Ρ Ρ ΠΎΡΠΈΡΠ΅ ΡΡΠΊΠΎΠ½ΠΎΠΌΠΈΡΡ ΡΠ°ΡΡ ΠΈΡΡΠ»Π΅Π΄ΠΎΠ²Π°Π½ΠΈΠΉ ΠΈ ΡΠ°Π·ΠΎΡΠ°ΡΠΎΠ²Π°Π½ΠΈΠΉ, ΠΏΠΎΠΏΡΠΎΠ±ΡΠΉΡΠ΅ Π½Π°Ρ ΠΎΠ½Π»Π°ΠΉΠ½-ΡΠ΅ΡΠ²ΠΈΡ Excelchat! ΠΠ°ΡΠΈ ΡΠΊΡΠΏΠ΅ΡΡΡ ΠΏΠΎ Excel Π΄ΠΎΡΡΡΠΏΠ½Ρ ΠΊΡΡΠ³Π»ΠΎΡΡΡΠΎΡΠ½ΠΎ ΠΈ Π±Π΅Π· Π²ΡΡ ΠΎΠ΄Π½ΡΡ , ΡΡΠΎΠ±Ρ ΠΎΡΠ²Π΅ΡΠΈΡΡ Π½Π° Π»ΡΠ±ΠΎΠΉ Π²ΠΎΠΏΡΠΎΡ, ΠΊΠΎΡΠΎΡΡΠΉ Ρ Π²Π°Ρ ΠΌΠΎΠΆΠ΅Ρ Π²ΠΎΠ·Π½ΠΈΠΊΠ½ΡΡΡ. ΠΡ Π³Π°ΡΠ°Π½ΡΠΈΡΡΠ΅ΠΌ ΠΏΠΎΠ΄ΠΊΠ»ΡΡΠ΅Π½ΠΈΠ΅ Π² ΡΠ΅ΡΠ΅Π½ΠΈΠ΅ 30 ΡΠ΅ΠΊΡΠ½Π΄ ΠΈ ΠΈΠ½Π΄ΠΈΠ²ΠΈΠ΄ΡΠ°Π»ΡΠ½ΠΎΠ΅ ΡΠ΅ΡΠ΅Π½ΠΈΠ΅ Π² ΡΠ΅ΡΠ΅Π½ΠΈΠ΅ 20 ΠΌΠΈΠ½ΡΡ.
Π€ΠΎΡΠΌΡΠ»Ρ Excel β Π½ΠΎΡΠ°ΡΠΈΡ A1 ΠΈΠ»ΠΈ R1C1
ΠΠΎΡΠ°ΡΠΈΡ A1
ΠΡΠΎ ΠΌΠ΅ΡΠΎΠ΄ ΠΏΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ, ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΠΌΡΠΉ Π΄Π»Ρ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ (ΠΈ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΡ) ΡΡΡΠ»ΠΎΠΊ Π½Π° Π΄ΡΡΠ³ΠΈΠ΅ ΡΡΠ΅ΠΉΠΊΠΈ.
Π§ΡΠΎΠ±Ρ ΡΠΎΡΠ»Π°ΡΡΡΡ Π½Π° ΡΡΠ΅ΠΉΠΊΡ, Π²Π²Π΅Π΄ΠΈΡΠ΅ Π±ΡΠΊΠ²Ρ ΡΡΠΎΠ»Π±ΡΠ°, Π° Π·Π°ΡΠ΅ΠΌ Π½ΠΎΠΌΠ΅Ρ ΡΡΡΠΎΠΊΠΈ, Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ «=B2».
Π‘ΡΡΠ»ΠΊΠ° Π½Π° ΡΡΠ΅ΠΉΠΊΡ «=B2» ΠΎΡΠ½ΠΎΡΠΈΡΡΡ ΠΊ ΠΏΠ΅ΡΠ΅ΡΠ΅ΡΠ΅Π½ΠΈΡ ΡΡΠΎΠ»Π±ΡΠ° «B» ΡΠΎ ΡΡΡΠΎΠΊΠΎΠΉ «2».
ΠΡΠ΅ Π°Π΄ΡΠ΅ΡΠ° ΡΡΠ΅Π΅ΠΊ Π² Π½ΠΎΡΠ°ΡΠΈΠΈ A1 ΡΠΎΡΡΠΎΡΡ ΠΈΠ· Π±ΡΠΊΠ²Ρ ΡΡΠΎΠ»Π±ΡΠ° ΠΈ Π½ΠΎΠΌΠ΅ΡΠ° ΡΡΡΠΎΠΊΠΈ .
ΠΠ±ΠΎΠ·Π½Π°ΡΠ΅Π½ΠΈΠ΅ R1C1
ΠΡΠΎ ΠΎΠ±ΠΎΠ·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΡΠ°ΠΊΠΆΠ΅ ΠΈΠ·Π²Π΅ΡΡΠ½ΠΎ ΠΊΠ°ΠΊ ΠΡΠ½ΠΎΡΠΈΡΠ΅Π»ΡΠ½ΠΎΠ΅ ΠΎΠ±ΠΎΠ·Π½Π°ΡΠ΅Π½ΠΈΠ΅ , Π½Π΅ ΠΏΡΡΠ°ΡΡ Ρ ΠΡΠ½ΠΎΡΠΈΡΠ΅Π»ΡΠ½ΡΠ΅ ΡΡΡΠ»ΠΊΠΈ .
ΠΡΠΎ Π°Π»ΡΡΠ΅ΡΠ½Π°ΡΠΈΠ²Π½ΡΠΉ ΡΠΏΠΎΡΠΎΠ± ΡΠΎΠ·Π΄Π°Π½ΠΈΡ (ΠΈ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΡ) ΡΡΡΠ»ΠΎΠΊ Π½Π° Π΄ΡΡΠ³ΠΈΠ΅ ΡΡΠ΅ΠΉΠΊΠΈ.
Π‘ΡΡΠ»ΠΊΠΈ Π½Π° ΡΡΠ΅ΠΉΠΊΠΈ R1C1 ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°ΡΡΡΡ Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ΠΌ Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ ΡΠΌΠ΅ΡΠ΅Π½ΠΈΡ ΡΡΡΠΎΠΊΠΈ ΠΈ ΡΡΠΎΠ»Π±ΡΠ°.
ΠΡΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΠ΅ ΡΠΎΡΠΌΡΠ» ΡΠ°ΠΊΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ ΡΠ°ΡΡΠΎ ΠΎΠ±Π»Π΅Π³ΡΠ°Π΅Ρ ΠΏΠΎΠ½ΠΈΠΌΠ°Π½ΠΈΠ΅ Π²Π·Π°ΠΈΠΌΠΎΡΠ²ΡΠ·Π΅ΠΉ ΠΌΠ΅ΠΆΠ΄Ρ ΡΡΠ΅ΠΉΠΊΠ°ΠΌΠΈ.
ΠΠ΄Π΅ΡΡ ΠΏΠΎΠΊΠ°Π·Π°Π½Ρ ΡΠ΅ ΠΆΠ΅ ΡΠΎΡΠΌΡΠ»Ρ, Π½ΠΎ Π½Π° ΡΡΠΎΡ ΡΠ°Π· Π² Π½ΠΎΡΠ°ΡΠΈΠΈ R1C1.
Π§ΠΈΡΠ»Π° Π² ΠΊΠ²Π°Π΄ΡΠ°ΡΠ½ΡΡ
ΡΠΊΠΎΠ±ΠΊΠ°Ρ
ΠΏΠΎΠΊΠ°Π·ΡΠ²Π°ΡΡ, Π½Π° ΡΠΊΠΎΠ»ΡΠΊΠΎ ΡΡΡΠΎΠΊ ΠΈΠ»ΠΈ ΡΡΠΎΠ»Π±ΡΠΎΠ² ΡΡΠ΅ΠΉΠΊΠ° ΠΎΡΠ½ΠΎΡΠΈΡΡΡ ΡΠ°ΠΌΠ° ΠΊ ΡΠ΅Π±Π΅.
ΠΡΡΠΈΡΠ°ΡΠ΅Π»ΡΠ½ΡΠ΅ Π½ΠΎΠΌΠ΅ΡΠ° ΡΡΡΠΎΠΊ ΠΎΠ·Π½Π°ΡΠ°ΡΡ, ΡΡΠΎ ΡΠΊΠ°Π·Π°Π½Π½Π°Ρ ΡΡΠ΅ΠΉΠΊΠ° Π½Π°Ρ
ΠΎΠ΄ΠΈΡΡΡ Π½Π°Π΄ ΡΡΠ΅ΠΉΠΊΠΎΠΉ, ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΠ΅ΠΉ ΡΠΎΡΠΌΡΠ»Ρ.
ΠΡΡΠΈΡΠ°ΡΠ΅Π»ΡΠ½ΡΠ΅ Π½ΠΎΠΌΠ΅ΡΠ° ΡΡΠΎΠ»Π±ΡΠΎΠ² ΠΎΠ·Π½Π°ΡΠ°ΡΡ, ΡΡΠΎ ΡΡΠ΅ΠΉΠΊΠ°, Π½Π° ΠΊΠΎΡΠΎΡΡΡ Π΄Π΅Π»Π°Π΅ΡΡΡ ΡΡΡΠ»ΠΊΠ°, Π½Π°Ρ
ΠΎΠ΄ΠΈΡΡΡ ΡΠ»Π΅Π²Π° ΠΎΡ ΡΡΠ΅ΠΉΠΊΠΈ, ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΠ΅ΠΉ ΡΠΎΡΠΌΡΠ»Ρ.
ΠΠ΅ΡΠ΅ΠΊΠ»ΡΡΠ΅Π½ΠΈΠ΅ Π½Π° Π½ΠΎΡΠ°ΡΠΈΡ R1C1
ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΏΠ΅ΡΠ΅ΠΊΠ»ΡΡΠΈΡΡ ΡΡΡΠ»ΠΊΠΈ Π½Π° ΡΡΠ΅ΠΉΠΊΠΈ Π½Π° Π½ΠΎΡΠ°ΡΠΈΡ R1C1 Π² Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠΌ ΠΎΠΊΠ½Π΅ Β«ΠΠ°ΡΠ°ΠΌΠ΅ΡΡΡ ExcelΒ».
ΠΡΠ±Π΅ΡΠΈΡΠ΅ Π²ΠΊΠ»Π°Π΄ΠΊΡ «Π€ΠΎΡΠΌΡΠ»Ρ» ΠΈ ΠΏΡΠΎΠΊΡΡΡΠΈΡΠ΅ Π²Π½ΠΈΠ· Π΄ΠΎ Π·Π°Π³ΠΎΠ»ΠΎΠ²ΠΊΠ° «Π Π°Π±ΠΎΡΠ° Ρ ΡΠΎΡΠΌΡΠ»Π°ΠΌΠΈ».
Π£ΡΡΠ°Π½ΠΎΠ²ΠΈΡΠ΅ ΡΠ»Π°ΠΆΠΎΠΊ Β«Π‘ΡΠΈΠ»Ρ ΡΡΡΠ»ΠΊΠΈ R1C1Β».
ΠΠ΅ΡΠ΅Ρ
ΠΎΠ΄ Π½Π° Π½ΠΎΡΠ°ΡΠΈΡ R1C1 Π½Π΅ ΠΈΠ·ΠΌΠ΅Π½ΠΈΡ ΡΠΎΡΠΌΡΠ»Ρ . ΠΡΠΎ ΡΠΎΠ»ΡΠΊΠΎ ΠΈΠ·ΠΌΠ΅Π½ΠΈΡ Π²ΠΈΠ΄.
ΠΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΠ΅ ΡΡΠΎΠ³ΠΎ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠ° ΠΈΠ·ΠΌΠ΅Π½ΠΈΡ ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»Π΅Π½ΠΈΠ΅ Π²ΡΠ΅Ρ
ΡΠΎΡΠΌΡΠ» Π² Π°ΠΊΡΠΈΠ²Π½ΠΎΠΉ ΠΊΠ½ΠΈΠ³Π΅.
ΠΠΎΡΠ°ΡΠΈΡ R1C1 β ΠΎΡΠ½ΠΎΡΠΈΡΠ΅Π»ΡΠ½ΡΠ΅ ΡΡΡΠ»ΠΊΠΈ
Π‘ΡΡΠ΅ΡΡΠ²ΡΠ΅Ρ Π΄Π²Π° ΡΠ°Π·Π½ΡΡ
ΡΠΈΠΏΠ° Π½ΠΎΡΠ°ΡΠΈΠΈ R1C1.
Π£ Π²Π°Ρ ΠΌΠΎΠ³ΡΡ Π±ΡΡΡ ΠΎΡΠ½ΠΎΡΠΈΡΠ΅Π»ΡΠ½ΡΠ΅ ΠΈΠ»ΠΈ Π°Π±ΡΠΎΠ»ΡΡΠ½ΡΠ΅ ΡΡΡΠ»ΠΊΠΈ.
ΠΡΠ½ΠΎΡΠΈΡΠ΅Π»ΡΠ½ΡΠ΅ ΡΡΡΠ»ΠΊΠΈ ( R[-1]C[-1] ) Π²ΠΊΠ»ΡΡΠ°ΡΡ ΠΊΠ²Π°Π΄ΡΠ°ΡΠ½ΡΠ΅ ΡΠΊΠΎΠ±ΠΊΠΈ Π²ΠΎΠΊΡΡΠ³ ΡΠΈΡΠ΅Π».
ΠΡΠΎΡ ΡΠΈΠΏ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ ΠΏΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ, ΠΈ ΠΎΠ½ΠΈ Π²ΠΊΠ»ΡΡΠ°ΡΡ ΠΊΠ²Π°Π΄ΡΠ°ΡΠ½ΡΠ΅ ΡΠΊΠΎΠ±ΠΊΠΈ Π²ΠΎΠΊΡΡΠ³ ΡΠΈΡΠ΅Π».
ΠΠ²Π΅ ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½Π½ΡΠ΅ Π½ΠΈΠΆΠ΅ ΡΠΎΡΠΌΡΠ»Ρ ΠΎΡΠ½ΠΎΡΡΡΡΡ ΠΊ ΡΠ°Π·Π½ΡΠΌ ΡΡΠ΅ΠΉΠΊΠ°ΠΌ, Π½ΠΎ ΠΈΠΌΠ΅ΡΡ ΠΎΠ΄ΠΈΠ½Π°ΠΊΠΎΠ²ΠΎΠ΅ ΠΎΡΠ½ΠΎΡΠΈΡΠ΅Π»ΡΠ½ΠΎΠ΅ ΠΎΠ±ΠΎΠ·Π½Π°ΡΠ΅Π½ΠΈΠ΅ R1C1.
ΠΠ±ΠΎΠ·Π½Π°ΡΠ΅Π½ΠΈΠ΅ R1C1 β ΠΠ±ΡΠΎΠ»ΡΡΠ½ΡΠ΅ ΡΡΡΠ»ΠΊΠΈ
ΠΠ±ΡΠΎΠ»ΡΡΠ½ΡΠ΅ ΡΡΡΠ»ΠΊΠΈ ( R2C2 ) Π½Π΅ Π·Π°ΠΊΠ»ΡΡΠ°ΠΉΡΠ΅ ΡΠΈΡΠ»Π° Π² ΠΊΠ²Π°Π΄ΡΠ°ΡΠ½ΡΠ΅ ΡΠΊΠΎΠ±ΠΊΠΈ.
ΠΠ²Π΅ ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½Π½ΡΠ΅ Π½ΠΈΠΆΠ΅ ΡΠΎΡΠΌΡΠ»Ρ ΠΎΡΠ½ΠΎΡΡΡΡΡ ΠΊ ΠΎΠ΄Π½ΠΎΠΉ ΠΈ ΡΠΎΠΉ ΠΆΠ΅ ΡΡΠ΅ΠΉΠΊΠ΅ ΠΈ ΠΈΠΌΠ΅ΡΡ ΠΎΠ΄ΠΈΠ½Π°ΠΊΠΎΠ²ΠΎΠ΅ Π°Π±ΡΠΎΠ»ΡΡΠ½ΠΎΠ΅ ΠΎΠ±ΠΎΠ·Π½Π°ΡΠ΅Π½ΠΈΠ΅ R1C1.
Π‘ΡΠ°Π²Π½Π΅Π½ΠΈΠ΅ ΠΎΠ±ΠΎΠ·Π½Π°ΡΠ΅Π½ΠΈΠΉ
Π ΡΡΠ΅ΠΉΠΊΠ΅ | A1 Π€ΠΎΡΠΌΡΠ»Π° | R1C1 Π€ΠΎΡΠΌΡΠ»Π° |
A1 | =B2 | =R[1]C [1] |
Π2 | =Π2+1 | =RC[1]+1 |
A3 | =A2+1 | =R[-1]C+1 |
B4 | =$ A$3+1 | =R3C1+1 |
C5 | =B$4+1 | =R4C[-1]+1 |
D6 | =$C5+1 | =R[-1]C3+1 |
A6 | =Π‘Π£ΠΠ(A1:A5) | =Π‘Π£ΠΠ(R[-5]C:R[-1]C) |
ΠΡΠ΅ΠΈΠΌΡΡΠ΅ΡΡΠ²Π° Π½ΠΎΡΠ°ΡΠΈΠΈ R1C1
Π₯ΠΎΡΡ ΡΡΠΎ ΡΡΠ°ΡΡΠΉ ΡΡΠΈΠ»Ρ ΡΡΡΠ»ΠΎΠΊ Π½Π° ΡΡΠ΅ΠΉΠΊΠΈ, ΠΎΠ½ ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ ΠΎΡΠ΅Π½Ρ ΠΏΠΎΠ»Π΅Π·Π½ΡΠΌ Π΄Π»Ρ ΠΏΡΠΎΠ²Π΅ΡΠΊΠΈ ΠΈ ΠΏΠΎΠΈΡΠΊΠ° Π»ΡΠ±ΡΡ ΠΎΡΠΈΠ±ΠΎΡΠ½ΡΡ ΡΠΎΡΠΌΡΠ».