Π‘Π£ΠΠΠΠ ΠΠΠΠ Π½Π° VBA
ΠΠΌΠ΅Π΅ΠΌ Π΄Π²Π° Π²ΡΠ΄Π΅Π»Π΅Π½Π½ΡΡ
Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π°. ΠΠ°ΠΊ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΠΠΠΠ VBA ΠΏΠΎΡΡΠΈΡΠ°ΡΡ Π‘ΡΠΌΠΌΡ ΠΡΠΎΠΈΠ·Π²Π΅Π΄Π΅Π½ΠΈΠΉ Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ ΡΡΠ΅Π΅ΠΊ 2Ρ
Π²ΡΠ΄Π΅Π»Π΅Π½Π½ΡΡ
Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ΠΎΠ². Π ΠΏΡΠΈΠΌΠ΅ΡΡ:
Π_________F
0,12_____0,13
0,17_____0,34
0,45_____0,47
Π‘ ΠΏΠΎΠΌΠΎΡΡΡ ΠΊΠΎΠ΄Π° VBA! Π‘ΠΏΠ°ΡΠΈΠ±ΠΎ!
ΠΠΎΠΌΠΎΡΡ Π² Π½Π°ΠΏΠΈΡΠ°Π½ΠΈΠΈ ΠΊΠΎΠ½ΡΡΠΎΠ»ΡΠ½ΡΡ
, ΠΊΡΡΡΠΎΠ²ΡΡ
ΠΈ Π΄ΠΈΠΏΠ»ΠΎΠΌΠ½ΡΡ
ΡΠ°Π±ΠΎΡ Π·Π΄Π΅ΡΡ.
Π‘Π£ΠΠΠΠ ΠΠΠΠ ΠΈ ΠΏΠΎΠΈΡΠΊ ΡΠ΅ΡΠ΅Π½ΠΈΠΉ Π VBA
Π½ΠΈΠΊΠ°ΠΊ Π½Π΅ ΠΌΠΎΠ³Ρ ΠΏΠΎΠ½ΡΡΡ ΠΊΠ°ΠΊ Π΄ΠΎΠΏΠΈΡΠ°ΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π² VBA, ΠΏΡΠΈ ΠΏΠΎΠΌΠΎΡΠΈ Π΄Π°Π½Π½ΡΡ
ΡΡΠ½ΠΊΡΠΈΠΉ.. Π½ΡΠΆΠ½ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ.
ΠΠΎΠ΄ ΡΠΎΡΠΌΡΠ»Ρ Π‘Π£ΠΠΠΠ ΠΠΠΠ().
ΠΡΠΎ-Π½ΠΈΡΡ ΠΏΠΎΠ΄ΡΠΊΠ°Π·ΠΈΡΠ΅ ΠΊΠΎΠ΄ ΡΠΎΡΠΌΡΠ»Ρ Π‘Π£ΠΠΠΠ ΠΠΠΠ().
Π‘Π²ΠΎΠ΄Π½Π°Ρ ΡΠ°Π±Π»ΠΈΡΠ° ΠΈ ΡΡΠ½ΠΊΡΠΈΡ Π‘Π£ΠΠΠΠ ΠΠΠΠ
ΠΠΎΠ±ΡΠΎΠ³ΠΎ Π²ΡΠ΅ΠΌΠ΅Π½ΠΈ ΡΡΡΠΎΠΊ! ΠΠΎΠ΄ΡΠΊΠ°ΠΆΠΈΡΠ΅ ΠΊΠ°ΠΊ Π² Π‘Π²ΠΎΠ΄Π½ΠΎΠΉ ΡΠ°Π±Π»ΠΈΡΠ΅ (Π²ΠΎ Π²Π»ΠΎΠΆΠ΅Π½ΠΈΠΈ) Π² ΠΈΡΠΎΠ³Π΅ ΠΏΠΎΠ»ΡΡΠΈΡΡ.
Vlanib, Π‘ΠΏΠ°ΡΠΈΠ±ΠΎ Π±ΠΎΠ»ΡΡΠΎΠ΅! Π ΠΌΠΎΠΆΠ½ΠΎ ΡΠ΄Π΅Π»Π°ΡΡ ΡΠ°ΠΊΠΎΠ΅ Ρ ΠΏΡΠΎΠΈΠ·Π²Π΅Π΄Π΅Π½ΠΈΠ΅ΠΌ Π΄Π²ΡΡ
Π²Π΅ΠΊΡΠΎΡΠΎΠ²? ΠΠΎ Π°Π½Π°Π»ΠΎΠ³ΠΈΠΈ Π΄Π²Π° Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π° ΠΏΠ΅ΡΠ΅ΠΌΠ½ΠΎΠΆΠ°ΡΡΡΡ ΠΊΠ°ΠΊ ΠΠ£ΠΠΠΠ (ΡΠΌΠ½ΠΎΠΆΠ΅Π½ΠΈΠ΅ Π²Π΅ΠΊΡΠΎΡΠΎΠ²). ΠΠ°ΠΊ ΡΠ΄Π΅Π»Π°ΡΡ, ΡΡΠΎΠ±Ρ Π²ΡΠ²ΠΎΠ΄ΠΈΠ»ΠΎΡΡ ΠΏΠ΅ΡΠ΅ΠΌΠ½ΠΎΠΆΠ΅Π½ΠΈΠ΅?
ΠΠΎΠ±Π°Π²Π»Π΅Π½ΠΎ ΡΠ΅ΡΠ΅Π· 49 ΠΌΠΈΠ½ΡΡ
ΠΠΎΠΏΡΠ°Π²ΠΎΡΠΊΠ°:
Π_________F
0,12_____0,13
0,17_____0,34
0,45_____0,47
0,12*0,13 = Π―ΡΠ΅ΠΉΠΊΠ°1
0,17*0,34 = Π―ΡΠ΅ΠΉΠΊΠ°2
0,45*0,47 = Π―ΡΠ΅ΠΉΠΊΠ°3
ΠΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ ΡΠ°Π±Π»ΠΈΡΠ½ΡΡ
ΡΡΠ½ΠΊΡΠΈΠΉ
ΠΠ°ΡΡΠ΄Ρ Ρ ΡΡΠ½ΠΊΡΠΈΡΠΌΠΈ VBA Π² ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ°Ρ
ΠΌΠΎΠΆΠ½ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ Π²ΡΡΡΠΎΠ΅Π½Π½ΡΠ΅ ΡΡΠ½ΠΊΡΠΈΠΈ ΡΠ°Π±ΠΎΡΠ΅Π³ΠΎ Π»ΠΈΡΡΠ° (ΡΠ°Π±Π»ΠΈΡΠ½ΡΠ΅ ΡΡΠ½ΠΊΡΠΈΠΈ). ΠΠ°Π·Π²Π°Π½ΠΈΡ ΡΡΠ½ΠΊΡΠΈΠΉ VBA ΠΈ ΡΡΠ½ΠΊΡΠΈΠΉ ΡΠ°Π±ΠΎΡΠ΅Π³ΠΎ Π»ΠΈΡΡΠ° ΡΠ°ΡΡΠΎ ΡΠΎΠ²ΠΏΠ°Π΄Π°ΡΡ, Π½ΠΎ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΡ ΡΡΠ½ΠΊΡΠΈΠΉ ΠΌΠΎΠ³ΡΡ ΡΠ°Π·Π»ΠΈΡΠ°ΡΡΡΡ. Π§Π°ΡΡΡ Π²ΡΡΡΠΎΠ΅Π½Π½ΡΡ
ΡΠ°Π±Π»ΠΈΡΠ½ΡΡ
ΡΡΠ½ΠΊΡΠΈΠΉ Π½Π΅ ΠΈΠΌΠ΅Π΅Ρ Π°Π½Π°Π»ΠΎΠ³ΠΎΠ² Π² VBA, Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ, ΡΡΠ½ΠΊΡΠΈΠΈ Max ΠΈΠ»ΠΈ Min.
ΠΡΠΈ Π½Π΅ΠΎΠ±Ρ
ΠΎΠ΄ΠΈΠΌΠΎΡΡΠΈ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΡ ΡΠ°Π±Π»ΠΈΡΠ½ΠΎΠΉ ΡΡΠ½ΠΊΡΠΈΠΈ Π½ΡΠΆΠ½ΠΎ ΡΠ΄Π΅Π»Π°ΡΡ ΡΡΠΎΡΠ½Π΅Π½ΠΈΠ΅ ΠΏΡΠΈ ΠΏΠΎΠΌΠΎΡΠΈ ΡΡΡΠ»ΠΊΠΈ Π½Π° ΠΎΠ±ΡΠ΅ΠΊΡ Application ΠΈΠ»ΠΈ ΠΎΠ±ΡΠ΅ΠΊΡ WorksheetFunction
ΠΠΠΠΠΠΠΠ
ΠΠ΅Π·Π°Π²ΠΈΡΠΈΠΌΠΎ ΠΎΡ ΡΡΡΡΠΊΠΎΡΠ·ΡΡΠ½ΠΎΠΉ ΠΈΠ»ΠΈ Π°Π½Π³Π»ΠΎΡΠ·ΡΡΠ½ΠΎΠΉ Π²Π΅ΡΡΠΈΠΉ MS Office Π½Π°Π·Π²Π°Π½ΠΈΡ ΡΡΠ½ΠΊΡΠΈΠΉ VBΠ ΠΈ ΡΡΠ½ΠΊΡΠΈΠΉ ΡΠ°Π±ΠΎΡΠ΅Π³ΠΎ Π»ΠΈΡΡΠ° Π² ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ°Ρ
Π·Π°ΠΏΠΈΡΡΠ²Π°ΡΡΡΡ Π½Π° Π°Π½Π³Π»ΠΈΠΉΡΠΊΠΎΠΌ ΡΠ·ΡΠΊΠ΅.
Visual Basic ΡΠ°ΡΠΏΠΎΠ»Π°Π³Π°Π΅Ρ Π±ΠΎΠ»ΡΡΠΈΠΌ Π½Π°Π±ΠΎΡΠΎΠΌ Π²ΡΡΡΠΎΠ΅Π½Π½ΡΡ
ΡΡΠ½ΠΊΡΠΈΠΉ Π΄Π»Ρ ΠΎΠ±ΡΠ°Π±ΠΎΡΠΊΠΈ Π°Π»ΡΠ°Π²ΠΈΡΠ½ΠΎ-ΡΠΈΡΡΠΎΠ²ΡΡ
(ΡΠΈΠΌΠ²ΠΎΠ»ΡΠ½ΡΡ
) Π΄Π°Π½Π½ΡΡ
. ΠΠ½ΠΎΠ³ΠΈΠ΅ ΠΈΠ· Π½ΠΈΡ
ΡΠΎΠ²ΠΏΠ°Π΄Π°ΡΡ Ρ ΡΠ°Π±Π»ΠΈΡΠ½ΡΠΌΠΈ. ΠΠΎ Π΅ΡΡΡ ΡΠ°Π±Π»ΠΈΡΠ½ΡΠ΅ ΡΡΡΠΎΠΊΠΎΠ²ΡΠ΅ ΡΡΠ½ΠΊΡΠΈΠΈ, ΠΎΡΡΡΡΡΡΠ²ΡΡΡΠΈΠ΅ Π² ΡΠ·ΡΠΊΠ΅ VBA, ΠΈ Π½Π°ΠΎΠ±ΠΎΡΠΎΡ.

ΠΠΎΠΌΠΎΡΡ Π² Π½Π°ΠΏΠΈΡΠ°Π½ΠΈΠΈ ΠΊΠΎΠ½ΡΡΠΎΠ»ΡΠ½ΡΡ
, ΠΊΡΡΡΠΎΠ²ΡΡ
ΠΈ Π΄ΠΈΠΏΠ»ΠΎΠΌΠ½ΡΡ
ΡΠ°Π±ΠΎΡ Π·Π΄Π΅ΡΡ.
Π£Π²Π΅Π»ΠΈΡΠ΅Π½ΠΈΠ΅ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π° ΡΡΠ½ΠΊΡΠΈΠΈ Π‘Π£ΠΠΠΠ ΠΠΠΠ
ΠΠΎΠ±ΡΠΎΠ³ΠΎ Π²ΡΠ΅ΠΌ Π΄Π½Ρ! Π£Π²Π°ΠΆΠ°Π΅ΠΌΡΠ΅ Π°Π΄ΠΌΠΈΠ½ΠΈΡΡΡΠ°ΡΠΎΡΡ, ΠΏΡΠΎΡΡ Π²Π°Ρ Π² ΠΎΡΠ΅ΡΠ΅Π΄Π½ΠΎΠΉ ΡΠ°Π· ΠΏΡΠΎΡΡΠ½ΡΡΡ ΡΠ°ΠΊ ΡΠΊΠ°Π·Π°ΡΡ ΡΡΠΊΡ.
Π€ΡΠ½ΠΊΡΠΈΡ Π‘Π£ΠΠΠΠ ΠΠΠΠ Π²ΠΌΠ΅ΡΡΠ΅ Ρ ΡΡΠ½ΠΊΡΠΈΠ΅ΠΉ ΠΠΠ‘Π―Π¦
Π½Π΅ΠΎΠ±Ρ
ΠΎΠ΄ΠΈΠΌΠΎ ΡΠ°ΡΡΡΠΈΡΠ°ΡΡ ΠΎΠ±ΡΡΡ ΡΡΠΎΠΈΠΌΠΎΡΡΡ ΡΠΎΠ²Π°ΡΠΎΠ² ΠΏΡΠΎΠ΄Π°Π½Π½ΡΡ
ΠΌΠ°Π³Π°Π·ΠΈΠ½ΠΎΠΌ Π² ΠΊΠ°ΠΆΠ΄ΠΎΠΌ ΠΌΠ΅ΡΡΡΠ΅ ΡΠΊΠ°Π·Π°Π½Π½ΠΎΠ³ΠΎ.
Π€ΡΠ½ΠΊΡΠΈΠΈ Π‘Π£ΠΠΠΠ ΠΠΠΠ; Π‘Π§ΠΠ’ΠΠ‘ΠΠ Π·Π° ΡΠ°Π·Π½ΡΠΌΠΈ ΠΊΡΠΈΡΠ΅ΡΠΈΡΠΌΠΈ
ΠΠΎΠ·Π΄Π°Ρ ΡΠ°ΠΉΠ» excel Ρ 50 Π»ΠΈΡΡΠ°ΠΌΠΈ, Π½Π° ΠΊΠ°ΠΆΠ΄ΠΎΠΌ Π»ΠΈΡΡΠ΅ Π΄Π°Π½Π½ΡΠ΅ ΠΏΠΎ ΡΠ°Π·Π½ΡΠΌ 50 ΡΠ΅Π»Π°ΠΌ. Π ΠΊΠΎΠ½ΡΠ΅ Π½Π° ΠΎΡΠ΄Π΅Π»ΡΠ½ΠΎΠΌ.
Π‘Π£ΠΠΠΠ ΠΠΠΠ Ρ Π²ΡΠ±ΠΎΡΠΎΠΌ ΡΡΠΎΠ»Π±ΡΠΎΠ² Π΄Π»Ρ ΡΠ°ΡΡΠ΅ΡΠ°
ΠΠΌΠ΅Π΅ΡΡΡ ΠΏΡΠ°ΠΉΡΠΈΠΊ, Π³Π΄Π΅ Π² ΠΈΡΠΎΠ³Π°Ρ
ΡΡΠΎΡΠ»Π° ΡΠΎΡΠΌΡΠ»Π° Ρ ΠΏΠΎΠ΄ΡΡΠ΅ΡΠΎΠΌ ΡΡΠΌΠΌΡ ΠΏΡΠΎΠΈΠ·Π²Π΅Π΄Π΅Π½ΠΈΠΉ Π΄Π²ΡΡ
ΡΡΠΎΠ»Π±ΡΠΎΠ² (ΡΠ΅Π½Π°.
ΠΡΡΠΎΡΠ½ΠΈΠΊ
VBA Excel. ΠΠ΅ΡΠΎΠ΄ WorksheetFunction.SumIf
Π‘ΡΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ ΡΠΈΡΠ»ΠΎΠ²ΡΡ
Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ ΡΡΠ΅Π΅ΠΊ Π² Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π΅ Ρ ΡΡΠ΅ΡΠΎΠΌ ΠΎΠ΄Π½ΠΎΠ³ΠΎ ΡΡΠ»ΠΎΠ²ΠΈΡ Π² ΠΊΠΎΠ΄Π΅ VBA Excel. ΠΠ΅ΡΠΎΠ΄ WorksheetFunction.SumIf β ΡΠΈΠ½ΡΠ°ΠΊΡΠΈΡ, ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΡ, ΠΏΡΠΈΠΌΠ΅ΡΡ.
Π‘ΠΈΠ½ΡΠ°ΠΊΡΠΈΡ ΠΌΠ΅ΡΠΎΠ΄Π° WorksheetFunction.SumIf
* ΠΡΠ»ΠΈ Β«ΠΠΈΠ°ΠΏΠ°Π·ΠΎΠ½_ΡΡΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡΒ» Π½Π΅ ΡΠΊΠ°Π·Π°Π½, Π΅Π³ΠΎ ΡΠΎΠ»Ρ Π²ΡΠΏΠΎΠ»Π½ΡΠ΅Ρ Β«ΠΠΈΠ°ΠΏΠ°Π·ΠΎΠ½_ΡΡΠ»ΠΎΠ²ΠΈΡΒ». ΠΡΡΠ³ΠΈΠΌΠΈ ΡΠ»ΠΎΠ²Π°ΠΌΠΈ, Π΅ΡΠ»ΠΈ ΡΡΠ»ΠΎΠ²ΠΈΠ΅ ΠΏΡΠΎΠ²Π΅ΡΡΠ΅ΡΡΡ Π² ΡΠ΅Ρ
ΠΆΠ΅ ΡΡΠ΅ΠΉΠΊΠ°Ρ
, Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΠΊΠΎΡΠΎΡΡΡ
ΡΡΠΌΠΌΠΈΡΡΡΡΡΡ ΠΏΡΠΈ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΠΈ ΡΡΠ»ΠΎΠ²ΠΈΡ, ΡΠΎ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡ Β«ΠΠΈΠ°ΠΏΠ°Π·ΠΎΠ½_ΡΡΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡΒ» ΠΌΠΎΠΆΠ½ΠΎ Π½Π΅ ΡΠΊΠ°Π·ΡΠ²Π°ΡΡ.
Π ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠ΅ Β«Π£ΡΠ»ΠΎΠ²ΠΈΠ΅Β» ΠΌΠ΅ΡΠΎΠ΄Π° WorksheetFunction.SumIf ΠΌΠΎΠΆΠ½ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ Π·Π½Π°ΠΊΠΈ ΠΏΠΎΠ΄ΡΡΠ°Π½ΠΎΠ²ΠΊΠΈ:
) β ΡΡΠ°Π²ΠΈΡΡΡ ΠΏΠ΅ΡΠ΅Π΄ Π²ΠΎΠΏΡΠΎΡΠΈΡΠ΅Π»ΡΠ½ΡΠΌ Π·Π½Π°ΠΊΠΎΠΌ ΠΈΠ»ΠΈ Π·Π²Π΅Π·Π΄ΠΎΡΠΊΠΎΠΉ, ΡΡΠΎΠ±Ρ ΠΎΠ½ΠΈ ΠΎΠ±ΠΎΠ·Π½Π°ΡΠ°Π»ΠΈ ΡΠ°ΠΌΠΈ ΡΠ΅Π±Ρ.
ΠΡΠΈΠΌΠ΅ΡΡ Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΡ ΡΡΠΌΠΌ Ρ ΠΎΠ΄Π½ΠΈΠΌ ΡΡΠ»ΠΎΠ²ΠΈΠ΅ΠΌ
Π’Π°Π±Π»ΠΈΡΠ°, ΠΊΠΎΡΠΎΡΠ°Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π»Π°ΡΡ Π΄Π»Ρ ΡΠ΅Π°Π»ΠΈΠ·Π°ΡΠΈΠΈ Π²ΡΠ΅Ρ
ΠΏΡΠΈΠΌΠ΅ΡΠΎΠ² Π² ΠΊΠΎΠ΄Π΅ VBA Excel:
Π‘ΠΊΠ»Π°Π΄ | Π’ΠΎΠ²Π°Ρ | ΠΠΎΠ»-Π²ΠΎ | Π¦Π΅Π½Π° | Π‘ΡΠΌΠΌΠ° |
---|
β1 | ΠΠΏΠ΅Π»ΡΡΠΈΠ½Ρ | 10 | 65,00 | 650,00 |
β1 | ΠΠ°Π½Π°Π½Ρ | 20 | 55,00 | 1100,00 |
β1 | ΠΠΈΠΌΠΎΠ½Ρ | 20 | 110,00 | 2200,00 |
β1 | ΠΠ°Π½Π΄Π°ΡΠΈΠ½Ρ | 30 | 70,00 | 2100,00 |
β1 | Π―Π±Π»ΠΎΠΊΠΈ | 25 | 50,00 | 1250,00 |
β2 | ΠΠΏΠ΅Π»ΡΡΠΈΠ½Ρ | 15 | 65,00 | 975,00 |
β2 | ΠΠ°Π½Π°Π½Ρ | 40 | 55,00 | 2200,00 |
β2 | ΠΠΈΠΌΠΎΠ½Ρ | 15 | 110,00 | 1650,00 |
β2 | ΠΠ°Π½Π΄Π°ΡΠΈΠ½Ρ | 5 | 70,00 | 350,00 |
β2 | Π―Π±Π»ΠΎΠΊΠΈ | 10 | 50,00 | 500,00 |
ΠΡΠ»ΠΈ Ρ
ΠΎΡΠΈΡΠ΅ ΠΏΠΎΠ²ΡΠΎΡΠΈΡΡ ΠΏΡΠΈΠΌΠ΅ΡΡ, ΡΠΊΠΎΠΏΠΈΡΡΠΉΡΠ΅ ΡΡΡ ΡΠ°Π±Π»ΠΈΡΡ ΠΈ Π²ΡΡΠ°Π²ΡΡΠ΅ Π½Π° ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ Excel Π² ΡΡΠ΅ΠΉΠΊΡ A1. Π’Π°Π±Π»ΠΈΡΠ° Π·Π°ΠΉΠΌΠ΅Ρ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ A1:E11.
ΠΡΠΈΠΌΠ΅Ρ 1
ΠΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠ° Β«ΠΠΈΠ°ΠΏΠ°Π·ΠΎΠ½_ΡΡΠ»ΠΎΠ²ΠΈΡΒ» Π² ΠΊΠ°ΡΠ΅ΡΡΠ²Π΅ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠ° Β«ΠΠΈΠ°ΠΏΠ°Π·ΠΎΠ½_ΡΡΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡΒ». ΠΠ½Π°ΡΠ΅Π½ΠΈΡ ΡΡΠ΅Π΅ΠΊ ΡΠΊΠ°Π·Π°Π½Π½ΠΎΠ³ΠΎ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π° ΡΡΠ°Π²Π½ΠΈΠ²Π°ΡΡΡΡ Ρ ΡΡΠ»ΠΎΠ²ΠΈΠ΅ΠΌ ΠΈ ΠΎΠ½ΠΈ ΠΆΠ΅ ΡΡΠΌΠΌΠΈΡΡΡΡΡΡ ΠΏΡΠΈ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΠΈ ΡΡΠ»ΠΎΠ²ΠΈΡ:
ΠΡΡΠΎΡΠ½ΠΈΠΊ
Excel vba ΡΡΠΌΠΌΠΏΡΠΎΠΈΠ·Π² Π² ΠΊΠΎΠ΄Π΅

Π‘Π£ΠΠΠΠ ΠΠΠΠ Π² ΠΊΠΎΠ΄Π΅ VBA
lebensvoll | ΠΠ°ΡΠ°: ΠΡΡΠ½ΠΈΡΠ°, 12.05.2017, 12:01 | Π‘ΠΎΠΎΠ±ΡΠ΅Π½ΠΈΠ΅ β 1 |  | Π ΡΠ°ΠΊΠΆΠ΅ Π΄Π»Ρ ΠΎΡΠ½ΠΎΠ²Π½ΠΎΠ³ΠΎ ΠΠ’Π§ΠΠ’Π Π² Π½Π΅ΠΊΠΎΡΠΎΡΡΡ
ΡΡΠ΅ΠΉΠΊΠ°Ρ
ΡΠ°ΠΊΠΆΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ ΡΡΠ½ΠΊΡΠΈΡ Π‘Π£ΠΠΠΠ ΠΠΠΠ Π Π²ΡΠ΅ ΡΠ°ΠΊΠΈ ΠΎΠ±ΡΠ΅ΠΌ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ ΠΎΡΠ΅Π½Ρ Π²Π΅Π»ΠΈΠΊ Π΄Π»Ρ Π΄Π°Π½Π½ΠΎΠΉ ΡΡΠ½ΠΊΡΠΈΠΈ ΠΈ Π½Π΅Ρ Π½Π΅Ρ ΠΏΡΠΈΡ
ΠΎΠ΄ΠΈΡΡΡ ΠΎΠ±Π½ΠΎΠ²Π»ΡΡΡ ΡΠ²ΡΠ·ΠΈ (((( ΠΈ ΠΏΠΎΡΠ»Π΅ ΡΡΠΎΠ³ΠΎ Π½Π΅Π±ΠΎΠ»ΡΡΠΎΠ΅ Π·Π°Π²ΠΈΡΠ°Π½ΠΈΠ΅ Π² ΠΎΠ±Π½ΠΎΠ²Π»Π΅Π½ΠΈΡΡ
ΠΠΠΠ ΠΠ‘!? ΠΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎ Π»ΠΈ ΠΏΡΠΈΠΌΠ΅Π½ΠΈΡΡ ΠΊΠΎΠ΄ VBA Π΄Π»Ρ Π΄Π°Π½Π½ΠΎΠΉ ΡΡΠ½ΠΊΡΠΈΠΈ ΡΠ΅ΠΌ ΡΠ°ΠΌΡΠΌ ΠΈ ΡΠ°ΠΉΠ» ΡΠ°ΠΌ Π²Π΅ΡΠΈΠ» Π±Ρ Π½Π΅ ΡΠ°ΠΊ Π²Π΅ΡΠΎΠΌΠΎ ΠΈ ΠΎΠ±ΡΠ°Π±ΠΎΡΠΊΠ° Π±Ρ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΠΈΠ»Π°ΡΡ Π½Π°ΠΌΠ½ΠΎΠ³ΠΎ Π±ΡΡΡΡΠ΅Π΅. ΠΠ»ΠΈ ΠΆΠ΅ ΠΊΠΎΠ΄ VBA Π½Π΅ ΡΠΌΠΎΠΆΠ΅Ρ ΡΠ°Π±ΠΎΡΠ°ΡΡ Ρ Π·Π°ΠΊΡΡΡΡΠΌΠΈ ΠΊΠ½ΠΈΠ³Π°ΠΌΠΈ!? Π ΡΠ°ΠΊΠΆΠ΅ Π΄Π»Ρ ΠΎΡΠ½ΠΎΠ²Π½ΠΎΠ³ΠΎ ΠΠ’Π§ΠΠ’Π Π² Π½Π΅ΠΊΠΎΡΠΎΡΡΡ
ΡΡΠ΅ΠΉΠΊΠ°Ρ
ΡΠ°ΠΊΠΆΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ ΡΡΠ½ΠΊΡΠΈΡ Π‘Π£ΠΠΠΠ ΠΠΠΠ Π Π²ΡΠ΅ ΡΠ°ΠΊΠΈ ΠΎΠ±ΡΠ΅ΠΌ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ ΠΎΡΠ΅Π½Ρ Π²Π΅Π»ΠΈΠΊ Π΄Π»Ρ Π΄Π°Π½Π½ΠΎΠΉ ΡΡΠ½ΠΊΡΠΈΠΈ ΠΈ Π½Π΅Ρ Π½Π΅Ρ ΠΏΡΠΈΡ
ΠΎΠ΄ΠΈΡΡΡ ΠΎΠ±Π½ΠΎΠ²Π»ΡΡΡ ΡΠ²ΡΠ·ΠΈ (((( ΠΈ ΠΏΠΎΡΠ»Π΅ ΡΡΠΎΠ³ΠΎ Π½Π΅Π±ΠΎΠ»ΡΡΠΎΠ΅ Π·Π°Π²ΠΈΡΠ°Π½ΠΈΠ΅ Π² ΠΎΠ±Π½ΠΎΠ²Π»Π΅Π½ΠΈΡΡ
ΠΠΠΠ ΠΠ‘!? ΠΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎ Π»ΠΈ ΠΏΡΠΈΠΌΠ΅Π½ΠΈΡΡ ΠΊΠΎΠ΄ VBA Π΄Π»Ρ Π΄Π°Π½Π½ΠΎΠΉ ΡΡΠ½ΠΊΡΠΈΠΈ ΡΠ΅ΠΌ ΡΠ°ΠΌΡΠΌ ΠΈ ΡΠ°ΠΉΠ» ΡΠ°ΠΌ Π²Π΅ΡΠΈΠ» Π±Ρ Π½Π΅ ΡΠ°ΠΊ Π²Π΅ΡΠΎΠΌΠΎ ΠΈ ΠΎΠ±ΡΠ°Π±ΠΎΡΠΊΠ° Π±Ρ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΠΈΠ»Π°ΡΡ Π½Π°ΠΌΠ½ΠΎΠ³ΠΎ Π±ΡΡΡΡΠ΅Π΅. ΠΠ»ΠΈ ΠΆΠ΅ ΠΊΠΎΠ΄ VBA Π½Π΅ ΡΠΌΠΎΠΆΠ΅Ρ ΡΠ°Π±ΠΎΡΠ°ΡΡ Ρ Π·Π°ΠΊΡΡΡΡΠΌΠΈ ΠΊΠ½ΠΈΠ³Π°ΠΌΠΈ!? lebensvoll ΠΡΠΎ Π±Ρ ΡΡ Π½ΠΈ Π±ΡΠ», ΠΌΠΈΡ Π² ΡΠ²ΠΎΠΈΡ
ΡΡΠΊΠ°Ρ
Π ΡΠ°ΠΊΠΆΠ΅ Π΄Π»Ρ ΠΎΡΠ½ΠΎΠ²Π½ΠΎΠ³ΠΎ ΠΠ’Π§ΠΠ’Π Π² Π½Π΅ΠΊΠΎΡΠΎΡΡΡ
ΡΡΠ΅ΠΉΠΊΠ°Ρ
ΡΠ°ΠΊΠΆΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ ΡΡΠ½ΠΊΡΠΈΡ Π‘Π£ΠΠΠΠ ΠΠΠΠ Π Π²ΡΠ΅ ΡΠ°ΠΊΠΈ ΠΎΠ±ΡΠ΅ΠΌ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ ΠΎΡΠ΅Π½Ρ Π²Π΅Π»ΠΈΠΊ Π΄Π»Ρ Π΄Π°Π½Π½ΠΎΠΉ ΡΡΠ½ΠΊΡΠΈΠΈ ΠΈ Π½Π΅Ρ Π½Π΅Ρ ΠΏΡΠΈΡ
ΠΎΠ΄ΠΈΡΡΡ ΠΎΠ±Π½ΠΎΠ²Π»ΡΡΡ ΡΠ²ΡΠ·ΠΈ (((( ΠΈ ΠΏΠΎΡΠ»Π΅ ΡΡΠΎΠ³ΠΎ Π½Π΅Π±ΠΎΠ»ΡΡΠΎΠ΅ Π·Π°Π²ΠΈΡΠ°Π½ΠΈΠ΅ Π² ΠΎΠ±Π½ΠΎΠ²Π»Π΅Π½ΠΈΡΡ
ΠΡΡΠΎΡΠ½ΠΈΠΊ Π‘Π£ΠΠΠΠ ΠΠΠΠ (ΡΡΠ½ΠΊΡΠΈΡ Π‘Π£ΠΠΠΠ ΠΠΠΠ)Π€ΡΠ½ΠΊΡΠΈΡ Π‘Π£ΠΠΠΠ ΠΠΠ ΠΠΠΠΠ ΠΠ©ΠΠΠ’ ΡΡΠΌΠΌΡ ΠΏΡΠΎΠ΄ΡΠΊΡΠΎΠ² ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠΈΡ
Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ΠΎΠ² ΠΈΠ»ΠΈ ΠΌΠ°ΡΡΠΈΠ²ΠΎΠ². ΠΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΡ ΡΠΌΠ½ΠΎΠΆΠ΅Π½ΠΈΡ, Π½ΠΎ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½Π° Ρ Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΠ΅ΠΌ, Π²ΡΡΠΈΡΠ°Π½ΠΈΠ΅ΠΌ ΠΈ Π΄Π΅Π»Π΅Π½ΠΈΠ΅ΠΌ. Π ΡΡΠΎΠΌ ΠΏΡΠΈΠΌΠ΅ΡΠ΅ ΠΌΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΠΌ Π‘Π£ΠΠΠΠ ΠΠΠ Π΄Π»Ρ Π²ΠΎΠ·Π²ΡΠ°ΡΠ° ΠΎΠ±ΡΠ΅Π³ΠΎ ΠΎΠ±ΡΠ΅ΠΌΠ° ΠΏΡΠΎΠ΄Π°ΠΆ Π΄Π»Ρ Π΄Π°Π½Π½ΠΎΠ³ΠΎ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠ° ΠΈ Π΅Π³ΠΎ ΡΠ°Π·ΠΌΠ΅ΡΠ°:  SumPRODUCT ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΠ΅Ρ Π²ΡΠ΅ΠΌ ΡΠΊΠ·Π΅ΠΌΠΏΠ»ΡΡΠ°ΠΌ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠ° Y/Size M ΠΈ ΡΡΠΌΠΌΠΈΡΡΠ΅Ρ ΠΈΡ
, ΠΏΠΎΡΡΠΎΠΌΡ Π² Π΄Π°Π½Π½ΠΎΠΌ ΠΏΡΠΈΠΌΠ΅ΡΠ΅ «21 ΠΏΠ»ΡΡ 41» ΡΠ°Π²Π΅Π½ 62. Π‘ΠΈΠ½ΡΠ°ΠΊΡΠΈΡΠ§ΡΠΎΠ±Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΡ ΠΏΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ (ΡΠΌΠ½ΠΎΠΆΠ΅Π½ΠΈΠ΅): ΠΡΠ³ΡΠΌΠ΅Π½ΡΡ ΡΡΠ½ΠΊΡΠΈΠΈ Π‘Π£ΠΠΠΠ ΠΠΠΠ ΠΎΠΏΠΈΡΠ°Π½Ρ Π½ΠΈΠΆΠ΅. ΠΠ΅ΡΠ²ΡΠΉ ΠΌΠ°ΡΡΠΈΠ², ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΡ ΠΊΠΎΡΠΎΡΠΎΠ³ΠΎ Π½ΡΠΆΠ½ΠΎ ΠΏΠ΅ΡΠ΅ΠΌΠ½ΠΎΠΆΠΈΡΡ, Π° Π·Π°ΡΠ΅ΠΌ ΡΠ»ΠΎΠΆΠΈΡΡ ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΡ. ΠΡ 2 Π΄ΠΎ 255 ΠΌΠ°ΡΡΠΈΠ²ΠΎΠ², ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΡ ΠΊΠΎΡΠΎΡΡΡ
Π½ΡΠΆΠ½ΠΎ ΠΏΠ΅ΡΠ΅ΠΌΠ½ΠΎΠΆΠΈΡΡ, Π° Π·Π°ΡΠ΅ΠΌ ΡΠ»ΠΎΠΆΠΈΡΡ ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΡ. ΠΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΠ΅ Π΄ΡΡΠ³ΠΈΡ
Π°ΡΠΈΡΠΌΠ΅ΡΠΈΡΠ΅ΡΠΊΠΈΡ
ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΉ ΠΡΠΈΠΌΠ΅ΡΠ°Π½ΠΈΠ΅: ΠΡΠ»ΠΈ Π²Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΠ΅ Π°ΡΠΈΡΠΌΠ΅ΡΠΈΡΠ΅ΡΠΊΠΈΠ΅ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΡ, Π·Π°ΠΊΠ»ΡΡΠΈΡΠ΅ Π°ΡΠ³ΡΠΌΠ΅Π½ΡΡ ΠΌΠ°ΡΡΠΈΠ²Π° Π² ΡΠΊΠΎΠ±ΠΊΠΈ ΠΈ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠΉΡΠ΅ ΡΠΊΠΎΠ±ΠΊΠΈ Π΄Π»Ρ Π³ΡΡΠΏΠΏΠΈΡΠΎΠ²ΠΊΠΈ Π°ΡΠ³ΡΠΌΠ΅Π½ΡΠΎΠ² ΠΌΠ°ΡΡΠΈΠ²Π° Π΄Π»Ρ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ ΠΏΠΎΡΡΠ΄ΠΊΠΎΠΌ Π°ΡΠΈΡΠΌΠ΅ΡΠΈΡΠ΅ΡΠΊΠΈΡ
ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΉ. ΠΡΠΈΠΌΠ΅ΡΠ°Π½ΠΈΡΠΡΠ³ΡΠΌΠ΅Π½ΡΡ, ΠΊΠΎΡΠΎΡΡΠ΅ ΡΠ²Π»ΡΡΡΡΡ ΠΌΠ°ΡΡΠΈΠ²Π°ΠΌΠΈ, Π΄ΠΎΠ»ΠΆΠ½Ρ ΠΈΠΌΠ΅ΡΡ ΠΎΠ΄ΠΈΠ½Π°ΠΊΠΎΠ²ΡΠ΅ ΡΠ°Π·ΠΌΠ΅ΡΠ½ΠΎΡΡΠΈ. Π ΠΏΡΠΎΡΠΈΠ²Π½ΠΎΠΌ ΡΠ»ΡΡΠ°Π΅ ΡΡΠ½ΠΊΡΠΈΡ Π‘Π£ΠΠΠΠ ΠΠΠΠ Π²ΠΎΠ·Π²ΡΠ°ΡΠ°Π΅Ρ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΠΎΡΠΈΠ±ΠΊΠΈ #ΠΠΠΠ§!. ΠΠ°ΠΏΡΠΈΠΌΠ΅Ρ, =Π‘Π£ΠΠΠΠ ΠΠΠ(C2:C10;D2:D5) Π²ΠΎΠ·Π²ΡΠ°ΡΠ°Π΅Ρ ΠΎΡΠΈΠ±ΠΊΡ, ΡΠ°ΠΊ ΠΊΠ°ΠΊ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Ρ Π½Π΅ ΠΎΠ΄Π½ΠΎΠ³ΠΎ ΡΠ°Π·ΠΌΠ΅ΡΠ°. Π ΡΡΠ½ΠΊΡΠΈΠΈ Π‘Π£ΠΠΠΠ ΠΠΠΠ’ Π½Π΅Π½ΡΠΌΠ΅ΡΠΈΡΠ΅ΡΠΊΠΈΠ΅ Π·Π°ΠΏΠΈΡΠΈ ΠΌΠ°ΡΡΠΈΠ²Π° ΠΎΠ±ΡΠ°Π±Π°ΡΡΠ²Π°ΡΡ ΠΈΡ
ΡΠ°ΠΊ, ΠΊΠ°ΠΊ Π΅ΡΠ»ΠΈ Π±Ρ ΠΎΠ½ΠΈ Π±ΡΠ»ΠΈ Π½ΡΠ»ΡΠΌΠΈ. ΠΠ»Ρ Π»ΡΡΡΠ΅ΠΉ ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΠΈΡΠ΅Π»ΡΠ½ΠΎΡΡΠΈ Π½Π΅ ΡΠ»Π΅Π΄ΡΠ΅Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΡΡΠΌΠΌΠΏΡΠΎΠΈΠ² Ρ ΠΏΠΎΠ»Π½ΡΠΌΠΈ ΡΡΡΠ»ΠΊΠ°ΠΌΠΈ Π½Π° ΡΡΠΎΠ»Π±ΡΡ. Π Π°ΡΡΠΌΠΎΡΡΠΈΠΌ ΡΡΠ½ΠΊΡΠΈΡ =Π‘Π£ΠΠΠΠ ΠΠΠ(A:A;B:B), ΡΡΠΎΠ±Ρ ΡΠΌΠ½ΠΎΠΆΠΈΡΡ 1 048 576 ΡΡΠ΅Π΅ΠΊ Π² ΡΡΠΎΠ»Π±ΡΠ΅ A Π½Π° 1 048 576 ΡΡΠ΅Π΅ΠΊ Π² ΡΡΠΎΠ»Π±ΡΠ΅ B ΠΏΠ΅ΡΠ΅Π΄ ΠΈΡ
Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΠ΅ΠΌ. ΠΡΠΈΠΌΠ΅Ρ 1  ΠΡΠΈΠΌΠ΅Ρ 2Π ΡΠ»Π΅Π΄ΡΡΡΠ΅ΠΌ ΠΏΡΠΈΠΌΠ΅ΡΠ΅ sumPRODUCT Π²ΠΎΠ·Π²ΡΠ°ΡΠ°Π΅Ρ ΡΡΠΌΠΌΠ°ΡΠ½ΡΠ΅ ΡΠΈΡΡΡΡ ΡΡΠΌΠΌΡ ΠΏΡΠΎΠ΄Π°ΠΆ ΠΏΠΎ Π°Π³Π΅Π½ΡΡ ΠΏΡΠΎΠ΄Π°ΠΆ, Ρ ΠΊΠΎΡΠΎΡΡΡ
Π΅ΡΡΡ ΠΊΠ°ΠΊ ΠΎΠ±ΡΠΈΠ΅ ΠΏΡΠΎΠ΄Π°ΠΆΠΈ, ΡΠ°ΠΊ ΠΈ ΡΠ°ΡΡ
ΠΎΠ΄Ρ ΠΏΠΎ Π°Π³Π΅Π½ΡΡ. Π ΡΡΠΎΠΌ ΡΠ»ΡΡΠ°Π΅ ΠΌΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΠΌ ΡΠ°Π±Π»ΠΈΡΡ Excel, Π² ΠΊΠΎΡΠΎΡΠΎΠΉ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡΡΡΡ ΡΡΡΡΠΊΡΡΡΠΈΡΠΎΠ²Π°Π½Π½ΡΠ΅ ΡΡΡΠ»ΠΊΠΈ Π²ΠΌΠ΅ΡΡΠΎ ΡΡΠ°Π½Π΄Π°ΡΡΠ½ΡΡ
Excel Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ΠΎΠ². ΠΠ΄Π΅ΡΡ Π²Ρ ΡΠ²ΠΈΠ΄ΠΈΡΠ΅, ΡΡΠΎ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Ρ «ΠΡΠΎΠ΄Π°ΠΆΠΈ», «Π Π°ΡΡ
ΠΎΠ΄Ρ» ΠΈ «ΠΠ³Π΅Π½Ρ» ΠΈΠΌΠ΅ΡΡ ΡΡΡΠ»ΠΊΡ ΠΏΠΎ ΠΈΠΌΠ΅Π½ΠΈ.  Π€ΠΎΡΠΌΡΠ»Π°: =Π‘Π£ΠΠΠΠ ΠΠΠ(((Π’Π°Π±Π»ΠΈΡΠ°1[ΠΡΠΎΠ΄Π°ΠΆΠΈ])+(Π’Π°Π±Π»ΠΈΡΠ°1[Π Π°ΡΡ
ΠΎΠ΄Ρ]))*(Π’Π°Π±Π»ΠΈΡΠ°1[ΠΠ³Π΅Π½Ρ]=B8)) ΠΈ Π²ΠΎΠ·Π²ΡΠ°ΡΠ°Π΅Ρ ΡΡΠΌΠΌΡ Π²ΡΠ΅Ρ
ΠΏΡΠΎΠ΄Π°ΠΆ ΠΈ ΡΠ°ΡΡ
ΠΎΠ΄ΠΎΠ² Π°Π³Π΅Π½ΡΠ°, ΡΠΊΠ°Π·Π°Π½Π½ΡΡ
Π² ΡΡΠ΅ΠΉΠΊΠ΅ B8. ΠΡΠΈΠΌΠ΅Ρ 3Π ΡΡΠΎΠΌ ΠΏΡΠΈΠΌΠ΅ΡΠ΅ ΠΌΡ Ρ
ΠΎΡΠΈΠΌ ΠΏΠΎΠ»ΡΡΠΈΡΡ ΠΎΠ±ΡΡΡ ΡΡΠΌΠΌΡ ΠΏΠΎ ΠΊΠΎΠ½ΠΊΡΠ΅ΡΠ½ΠΎΠΌΡ ΡΠΎΠ²Π°ΡΡ, ΠΏΡΠΎΠ΄Π°Π½Π½ΠΎΠ³ΠΎ Π² ΠΊΠΎΠ½ΠΊΡΠ΅ΡΠ½ΠΎΠΌ ΡΠ΅Π³ΠΈΠΎΠ½Π΅. Π Π΄Π°Π½Π½ΠΎΠΌ ΡΠ»ΡΡΠ°Π΅, ΡΠΊΠΎΠ»ΡΠΊΠΎ Π²ΠΈΡΠ½Π΅ΠΉ Π±ΡΠ»ΠΎ ΠΏΡΠΎΠ΄Π°Π΅ΡΡΡ Π² Π²ΠΎΡΡΠΎΡΠ½ΠΎΠΌ ΡΠ΅Π³ΠΈΠΎΠ½Π΅?  ΠΠΎΠΏΠΎΠ»Π½ΠΈΡΠ΅Π»ΡΠ½ΡΠ΅ ΡΠ²Π΅Π΄Π΅Π½ΠΈΡΠΡ Π²ΡΠ΅Π³Π΄Π° ΠΌΠΎΠΆΠ΅ΡΠ΅ Π·Π°Π΄Π°ΡΡ Π²ΠΎΠΏΡΠΎΡ ΡΠΏΠ΅ΡΠΈΠ°Π»ΠΈΡΡΡ Excel Tech Community ΠΈΠ»ΠΈ ΠΏΠΎΠΏΡΠΎΡΠΈΡΡ ΠΏΠΎΠΌΠΎΡΠΈ Π² ΡΠΎΠΎΠ±ΡΠ΅ΡΡΠ²Π΅ Answers community. ΠΡΡΠΎΡΠ½ΠΈΠΊ ΠΠ°ΠΊΡΠΎΡ vba Π²ΠΌΠ΅ΡΡΠΎ ΡΡΠ½ΠΊΡΠΈΠΈ Π‘Π£ΠΠΠΠ ΠΠΠΠΠΠΎΠΌΠΎΡΡ Π² Π½Π°ΠΏΠΈΡΠ°Π½ΠΈΠΈ ΠΊΠΎΠ½ΡΡΠΎΠ»ΡΠ½ΡΡ
, ΠΊΡΡΡΠΎΠ²ΡΡ
ΠΈ Π΄ΠΈΠΏΠ»ΠΎΠΌΠ½ΡΡ
ΡΠ°Π±ΠΎΡ Π·Π΄Π΅ΡΡ. ΠΠ»ΠΎΠΆΠ΅Π½ΠΈΡ  | ΠΡΠΈΠΌΠ΅Ρ ΠΌΠ°ΠΊΡΠΎΡ Π²ΠΌΠ΅ΡΡΠΎ ΡΡΠΌΠΌΠΏΡΠΎΠΈΠ·.xlsx (17.8 ΠΠ±, 5 ΠΏΡΠΎΡΠΌΠΎΡΡΠΎΠ²) |
Π‘Π£ΠΠΠΠ ΠΠΠΠ Π½Π° VBA ΠΠΌΠ΅Π΅ΠΌ Π΄Π²Π° Π²ΡΠ΄Π΅Π»Π΅Π½Π½ΡΡ
Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π°. ΠΠ°ΠΊ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΠΠΠΠ VBA ΠΏΠΎΡΡΠΈΡΠ°ΡΡ Π‘ΡΠΌΠΌΡ ΠΡΠΎΠΈΠ·Π²Π΅Π΄Π΅Π½ΠΈΠΉ Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ ΡΡΠ΅Π΅ΠΊ. Π‘Π£ΠΠΠΠ ΠΠΠΠ ΠΈ ΠΏΠΎΠΈΡΠΊ ΡΠ΅ΡΠ΅Π½ΠΈΠΉ Π VBA Π½ΠΈΠΊΠ°ΠΊ Π½Π΅ ΠΌΠΎΠ³Ρ ΠΏΠΎΠ½ΡΡΡ ΠΊΠ°ΠΊ Π΄ΠΎΠΏΠΈΡΠ°ΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π² VBA, ΠΏΡΠΈ ΠΏΠΎΠΌΠΎΡΠΈ Π΄Π°Π½Π½ΡΡ
ΡΡΠ½ΠΊΡΠΈΠΉ.. Π½ΡΠΆΠ½ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ. ΠΠ°ΠΊΡΠΎΡ Π°Π½Π°Π»ΠΎΠ³ ΡΠΎΡΠΌΡΠ»Ρ Π‘Π£ΠΠΠΠ ΠΠΠΠ Π΄Π»Ρ Π²ΡΠ΅ΠΉ ΠΊΠ½ΠΈΠ³ΠΈ ΠΡΠ΅ΠΌ Π΄ΠΎΠ±ΡΡΠΉ Π΄Π΅Π½Ρ! ΠΠΌΠ΅Π΅ΡΡΡ ΠΊΠ½ΠΈΠ³Π° Π² ΠΊΠΎΡΠΎΡΠΎΠΉ N Π»ΠΈΡΡΠΎΠ², Π²ΡΠ΅ Π»ΠΈΡΡΡ ΠΈΠΌΠ΅ΡΡ ΠΎΠ΄ΠΈΠ½Π°ΠΊΠΎΠ²ΠΎΠ΅ ΡΠΎΡΠΌΠ°ΡΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅, Π². ΠΠ°ΠΊΡΠΎΡ Π²ΠΌΠ΅ΡΡΠΎ ΡΡΠ½ΠΊΡΠΈΠΈ ΠΠ‘ΠΠ ΠΠ΄ΡΠ°Π²ΡΡΠ²ΡΠΉΡΠ΅! ΠΠΎΠΌΠΎΠ³ΠΈΡΠ΅ ΠΏΠΎΠΆΠ°Π»ΡΠΉΡΡΠ° Π½Π°ΠΏΠΈΡΠ°ΡΡ ΠΌΠ°ΠΊΡΠΎΡ Π²ΠΌΠ΅ΡΡΠΎ ΡΡΠ½ΠΊΡΠΈΠΈ ΠΠ‘ΠΠ. ΠΡΠΆΠ΅Π½ ΠΈΠΌΠ΅Π½Π½ΠΎ ΠΌΠ°ΠΊΡΠΎΡ, Π΄Π»Ρ. ΠΠ»ΠΎΠΆΠ΅Π½ΠΈΡ  | ΠΡΠΈΠΌΠ΅Ρ ΠΌΠ°ΠΊΡΠΎΡ Π²ΠΌΠ΅ΡΡΠΎ ΡΡΠΌΠΌΠΏΡΠΎΠΈΠ·_Π²2.xlsx (17.1 ΠΠ±, 3 ΠΏΡΠΎΡΠΌΠΎΡΡΠΎΠ²) |
Π Π΅ΡΠ΅Π½ΠΈΠ΅ΠΠΎΠΌΠΎΡΡ Π² Π½Π°ΠΏΠΈΡΠ°Π½ΠΈΠΈ ΠΊΠΎΠ½ΡΡΠΎΠ»ΡΠ½ΡΡ
, ΠΊΡΡΡΠΎΠ²ΡΡ
ΠΈ Π΄ΠΈΠΏΠ»ΠΎΠΌΠ½ΡΡ
ΡΠ°Π±ΠΎΡ Π·Π΄Π΅ΡΡ. Π£Π²Π΅Π»ΠΈΡΠ΅Π½ΠΈΠ΅ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π° ΡΡΠ½ΠΊΡΠΈΠΈ Π‘Π£ΠΠΠΠ ΠΠΠΠ ΠΠΎΠ±ΡΠΎΠ³ΠΎ Π²ΡΠ΅ΠΌ Π΄Π½Ρ! Π£Π²Π°ΠΆΠ°Π΅ΠΌΡΠ΅ Π°Π΄ΠΌΠΈΠ½ΠΈΡΡΡΠ°ΡΠΎΡΡ, ΠΏΡΠΎΡΡ Π²Π°Ρ Π² ΠΎΡΠ΅ΡΠ΅Π΄Π½ΠΎΠΉ ΡΠ°Π· ΠΏΡΠΎΡΡΠ½ΡΡΡ ΡΠ°ΠΊ ΡΠΊΠ°Π·Π°ΡΡ ΡΡΠΊΡ. Π€ΡΠ½ΠΊΡΠΈΠΈ Π‘Π£ΠΠΠΠ ΠΠΠΠ; Π‘Π§ΠΠ’ΠΠ‘ΠΠ Π·Π° ΡΠ°Π·Π½ΡΠΌΠΈ ΠΊΡΠΈΡΠ΅ΡΠΈΡΠΌΠΈ ΠΠΎΠ·Π΄Π°Ρ ΡΠ°ΠΉΠ» excel Ρ 50 Π»ΠΈΡΡΠ°ΠΌΠΈ, Π½Π° ΠΊΠ°ΠΆΠ΄ΠΎΠΌ Π»ΠΈΡΡΠ΅ Π΄Π°Π½Π½ΡΠ΅ ΠΏΠΎ ΡΠ°Π·Π½ΡΠΌ 50 ΡΠ΅Π»Π°ΠΌ. Π ΠΊΠΎΠ½ΡΠ΅ Π½Π° ΠΎΡΠ΄Π΅Π»ΡΠ½ΠΎΠΌ. ΠΠ΅ Π½Π°Ρ
ΠΎΠ΄ΡΡΡΡ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΠΈΡ Π² Π·Π°Π΄Π°Π½Π½ΠΎΠΌ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π΅ ΠΏΡΠΈ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠΈ ΡΡΠ½ΠΊΡΠΈΠΈ =Π‘Π£ΠΠΠΠ ΠΠΠΠ() Vlad999, ΠΏΠΎΠ΄ΡΠΊΠ°ΠΆΠΈΡΠ΅ Π² ΡΠ΅ΠΌ ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ ΠΏΡΠΈΡΠΈΠ½Π° Π½Π΅ Π½Π°Ρ
ΠΎΠΆΠ΄Π΅Π½ΠΈΡ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΠΈΠΉ Π² Π·Π°Π΄Π°Π½Π½ΠΎΠΌ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π΅ ΠΏΡΠΈ. ΠΠ°ΠΊΡΠΎΡ Π²ΠΌΠ΅ΡΡΠΎ ΠΠΠ ΠΠΎΠ±ΡΡΠΉ Π΄Π΅Π½Ρ, ΡΠ²Π°ΠΆΠ°Π΅ΠΌΡΠ΅ ΡΠΎΡΡΠΌΡΠ°Π½Π΅! ΠΠΎΠ΄ΡΠΊΠ°ΠΆΠΈΡΠ΅, ΠΏΠΎΠΆΠ°Π»ΡΠΉΡΡΠ°, ΠΌΠ°ΠΊΡΠΎΡ, ΠΊΠΎΡΠΎΡΡΠΉ ΠΌΠΎΠ³ Π±Ρ Π·Π°ΠΌΠ΅Π½ΠΈΡΡ ΡΠΎΡΠΌΡΠ»Ρ. ΠΠ°ΠΊΡΠΎΡ.VBA Π‘ΠΎΠ·Π΄Π°ΡΡ MΠ°ΠΊΡΠΎΡ Π² Word, ΡΠ°ΠΊ ΡΡΠΎΠ±Ρ ΠΎΠ½ Π½Π°Ρ
ΠΎΠ΄ΠΈΠ» Π² ΡΠ΅ΠΊΡΡΠ΅ Π±ΡΠΊΠ²ΠΎΡΠΎΡΠ΅ΡΠ°Π½ΠΈΠ΅ ΠΈ Π²ΡΠ΄Π΅Π»ΡΠ» Π΅Π³ΠΎ ΡΠ²Π΅ΡΠΎΠΌ, Π° ΠΏΠΎΡΠΎΠΌ. ΠΡΡΠΎΡΠ½ΠΈΠΊ ΠΠ°ΠΌ ΡΠ°ΠΊΠΆΠ΅ ΠΏΠΎΠ½ΡΠ°Π²ΠΈΡΡΡ |
|
|