Π§ΡΠΎΠ±Ρ ΡΡΠΊΠΎΡΠΈΡΡ ΡΠ°Π±ΠΎΡΡ ΠΊΠΎΠ΄Π° ΠΌΠ°ΠΊΡΠΎΡΠΎΠ² Π½Π° VBA Π² Excel ΠΌΠΎΠΆΠ½ΠΎ Π²ΠΎΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡΡΡ ΠΏΡΠΎΡΡΡΠΌΠΈ ΠΊΠΎΠΌΠ°Π½Π΄Π°ΠΌΠΈ, ΠΊΠΎΡΠΎΡΡΠ΅ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΠΏΠ΅ΡΠ΅Π΄ ΡΠ°Π±ΠΎΡΠΎΠΉ ΠΊΠΎΠ΄Π°/ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ ΠΎΡΠΊΠ»ΡΡΠΈΡΡ, Π° Π·Π°ΡΠ΅ΠΌ ΡΠ½ΠΎΠ²Π° Π²ΠΊΠ»ΡΡΠΈΡΡ:
1. Application.ScreenUpdating = False
ΠΡΠΊΠ»ΡΡΠ°Π΅Ρ ΠΏΡΠΎΡΠΈΡΠΎΠ²ΠΊΡ ΡΠΊΡΠ°Π½Π°
2. Application.Calculation = xlCalculationManual
ΠΡΠΊΠ»ΡΡΠ°Π΅Ρ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΈΠΉ ΠΏΠ΅ΡΠ΅ΡΡΠ΅Ρ Π²ΡΠ΅Ρ ΡΠΎΡΠΌΡΠ». ΠΠ°ΡΠ΅ΠΌ ΡΡΠΎΡ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ Π²Π΅ΡΠ½ΡΡΡ Π² Application.Calculation =xlCalculationAutomatic
3. Application.EnableEvents = False
ΠΡΠΊΠ»ΡΡΠ°Π΅Ρ ΠΎΡΡΠ»Π΅ΠΆΠΈΠ²Π°Π½ΠΈΠ΅ ΡΠΎΠ±ΡΡΠΈΠΉ
4. Application.DisplayAlerts = False
ΠΡΠΊΠ»ΡΡΠ°Π΅Ρ Π²ΡΠ²ΠΎΠ΄ ΡΠΈΡΡΠ΅ΠΌΠ½ΡΡ ΡΠΎΠΎΠ±ΡΠ΅Π½ΠΈΠΉ
5. Application.StatusBar = False
ΠΡΠΊΠ»ΡΡΠ°Π΅Ρ ΡΡΡΠΎΠΊΡ ΡΡΠ°ΡΡΡΠ°
==================