Tai svarbus klausimas mums visiems, dirbantiems su VBA "Excel", kad išjungtumėte ekrano atnaujinimą. Šiame straipsnyje parodysiu, kaip galite išjungti ekrano atnaujinimą naudodami VBA "Excel" programoje.

"Excel VBA": išjunkite ekrano atnaujinimą (greitas vaizdas)

 Sub Turn_Off_Screen_Update() Application.ScreenUpdating = False Count = 1 For i = 1 To 100 For j = 1 To 100 ActiveSheet.Cells(i, j) = Count Count Count = Count + 1 Next j Next i Application.ScreenUpdating = True End Sub 

Atsisiųsti praktikos sąsiuvinį

Atsisiųskite šį pratybų sąsiuvinį, kad galėtumėte atlikti pratimus skaitydami šį straipsnį.

Ekrano atnaujinimo išjungimo naudojant "Excel VBA" apžvalga

Ekrano atnaujinimo išjungimas naudojant VBA Tiesą sakant, tam pakanka tik vienos eilutės.

 Application.ScreenUpdating = False 

Ši viena kodo eilutė išjungs ekrano atnaujinimą už jus, tačiau su šia viena eilute negalėsite pajusti efekto. Norėdami jį pajusti, įterpkite keletą kodo eilučių, kurios atliks tam tikras užduotis už jus po ekrano atnaujinimo. Geriau, jei tai bus ilga užduotis, kad suprastumėte ekrano atnaujinimo efektą.

 Count = 1 For i = 1 To 100 For j = 1 To 100 ActiveSheet.Cells(i, j) = Count Count Count = Count + 1 Next j Next i 

Šiose eilutėse į aktyvųjį lapą įterpiamos serijos nuo 1 iki 100 000, pradedant nuo ląstelės A1 . Jei tai darysite be ekrano atnaujinimo, tai užtruks ilgai. Nes kiekvieną kartą įterpiant skaičių į kitą ląstelę, kartu atnaujinama ir ankstesnė ląstelė.

Tačiau jei ekrano atnaujinimas bus išjungtas, ankstesnės ląstelės kiekvieną kartą nebus atnaujinamos, o operacija bus atliekama trumpiau.

Tada, jei norite, galite vėl įjungti ekrano atnaujinimą.

 Application.ScreenUpdating = True 

Taigi visas VBA kodas bus:

⧭ VBA kodas:

 Sub Turn_Off_Screen_Update() Application.ScreenUpdating = False Count = 1 For i = 1 To 100 For j = 1 To 100 ActiveSheet.Cells(i, j) = Count Count Count = Count + 1 Next j Next i Application.ScreenUpdating = True End Sub 

Skaityti daugiau: [Pataisyta!] "Excel" ląstelės neatnaujinamos, nebent dukart spustelėkite (5 sprendimai)

Panašūs skaitiniai

• Kaip automatiškai atnaujinti "Excel" lapą (3 tinkami metodai)
• Kaip automatiškai atnaujinti suvestinę lentelę, kai keičiasi šaltinio duomenys
• Neatsinaujinanti suvestinė lentelė (5 problemos & amp; sprendimai)
• Kaip "Excel" programoje automatiškai atnaujinti suvestinę lentelę be VBA (3 išmanieji metodai)

Makrokomandos, skirtos ekrano atnaujinimui išjungti naudojant "Excel VBA", kūrimas

Matėme, kaip žingsnis po žingsnio analizuojamas kodas, skirtas ekrano atnaujinimui išjungti naudojant VBA Dabar pamatysime, kaip galime sukurti Makro tai atlikti.

⧪ 1 žingsnis: VBA lango atidarymas

Paspauskite ALT + F11 klaviatūroje, kad atidarytumėte "Visual Basic langas.

⧪ 2 žingsnis: naujo modulio įterpimas

Eikite į Insert> Modulis įrankių juostoje. Spustelėkite Modulis . Įdiegtas naujas modulis, vadinamas Modulis1 (arba bet kas kitas, priklausomai nuo jūsų ankstesnės istorijos).

⧪ 3 veiksmas: VBA kodo įvedimas

Tai svarbiausias žingsnis. Įterpkite duotą VBA kodas modulyje.

⧪ 4 veiksmas: kodo paleidimas

Spustelėkite Paleisti Sub \ UserForm įrankį iš pirmiau esančios įrankių juostos.

Kodas bus paleistas. Ir darbalapyje pamatysite greitai sugeneruotą skaičių seriją nuo 1 iki 1 00 000, kuri kitu atveju būtų vykdoma ilgai.

Skaityti daugiau: [Išspręsta]: "Excel" formulės neatnaujinamos iki išsaugojimo (6 galimi sprendimai)

Dalykai, kuriuos reikia prisiminti

Išjungus ekrano atnaujinimą jums nebūtina atlikti tą pačią užduotį kartu su manimi. Galite atlikti bet kokią įprastą užduotį. Tačiau esmė ta, kad nesuprasite ekrano atnaujinimų išjungimo poveikio, jei neatliksite ilgos užduočių serijos. Štai kodėl sugeneravau seką nuo 1 iki 1 00 000.

Išvada

Todėl tai yra procesas, skirtas sukurti Makro išjungti ekrano atnaujinimą naudojant "Excel VBA . Ar turite klausimų? Drąsiai kreipkitės į mus. Ir nepamirškite apsilankyti mūsų svetainėje ExcelWIKI daugiau pranešimų ir atnaujinimų.