Π§ΡΠΎΠ±Ρ ΡΡΠΊΠΎΡΠΈΡΡ ΡΠ°Π±ΠΎΡΡ ΠΊΠΎΠ΄Π° ΠΌΠ°ΠΊΡΠΎΡΠΎΠ² Π½Π° 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 ΠΡΠΊΠ»ΡΡΠ°Π΅Ρ ΡΡΡΠΎΠΊΡ ΡΡΠ°ΡΡΡΠ° ================== ΠΡΡΡ ΠΏΠΎ VBA ΠΎΡ Π Π΄ΠΎ Π―
π₯ 5 ΡΠΏΠΎΡΠΎΠ±ΠΎΠ² ΡΡΠΊΠΎΡΠΈΡΡ ΡΠ°Π±ΠΎΡΡ ΠΌΠ°ΠΊΡΠΎΡΠΎΠ² Π² Excel
21Β ΠΈΡΠ»ΡΒ 202221Β ΠΈΡΠ»Β 2022
591
~1 ΠΌΠΈΠ½