Tas ir svarīgs jautājums mums visiem, strādājot ar VBA Šajā rakstā es parādīšu, kā izslēgt ekrāna atjaunināšanu, izmantojot Excel. VBA programmā Excel.

Excel VBA: izslēgt ekrāna atjaunināšanu (ātrais skats)

 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 + 1 Next j Next i Application.ScreenUpdating = True End Sub 

Lejupielādēt Practice Workbook

Lejupielādējiet šo prakses darba burtnīcu, lai vingrinātos, kamēr lasāt šo rakstu.

Pārskats par ekrāna atjaunināšanas izslēgšanu, izmantojot Excel VBA

Ekrāna atjaunināšanas izslēgšana, izmantojot VBA Patiesību sakot, lai to paveiktu, pietiek tikai ar vienu rindu.

 Application.ScreenUpdating = False 

Šī viena koda rindiņa izslēgs ekrāna atjaunināšanu, taču ar šo vienu rindiņu jūs nevarēsiet sajust tās efektu. Lai to sajustu, ievietojiet dažas koda rindiņas, kas pēc ekrāna atjaunināšanas veiks dažus uzdevumus. Labāk, ja tas būs garš uzdevums, kas ļaus jums saprast ekrāna atjaunināšanas efektu.

 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 Next i 

Šajās rindās aktīvajā lapā tiek ievietota virkne no 1 līdz 100 000, sākot no šūnas A1 . Ja to darīsiet bez ekrāna atjaunināšanas, tas prasīs ilgu laiku. Jo katru reizi, kad tā ievieto skaitli nākamajā šūnā, līdz ar to tiek atjaunināta arī iepriekšējā šūna.

Bet, ja ekrāna atjaunināšana būs izslēgta, iepriekšējās šūnas katru reizi netiks atjauninātas, un operācijas izpilde aizņems mazāk laika.

Pēc tam, ja vēlaties, varat atkal ieslēgt ekrāna atjaunināšanu.

 Application.ScreenUpdating = True 

Tātad pilnīga VBA kods būs:

⧭ VBA kods:

 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 + 1 Next j Next i Application.ScreenUpdating = True End Sub 

Lasīt vairāk: [Labots!] Excel šūnas neatjaunina, ja vien nav divreiz noklikšķināts (5 risinājumi)

Līdzīgi lasījumi

• Kā automātiski atsvaidzināt Excel lapu (3 piemērotas metodes)
• Kā automātiski atjaunināt šarnīra tabulu, kad mainās avota dati
• Pivot tabulas neatjaunošana (5 problēmas & amp; risinājumi)
• Kā automātiski atsvaidzināt Pivot tabulu bez VBA programmā Excel (3 gudras metodes)

Makro, lai izslēgtu ekrāna atjaunināšanu, izmantojot Excel VBA, izstrāde

Mēs esam redzējuši pakāpenisku koda analīzi, lai izslēgtu ekrāna atjaunināšanu, izmantojot VBA Tagad mēs redzēsim, kā mēs varam izstrādāt Makro lai to izpildītu.

⧪ 1. solis: VBA loga atvēršana

Spiediet ALT + F11 uz tastatūras, lai atvērtu Visual Basic logs.

⧪ 2. solis: jauna moduļa ievietošana

Iet uz Ievietot> Modulis instrumentu joslā. Noklikšķiniet uz Modulis . Tiek izveidots jauns modulis ar nosaukumu Modulis1 (vai jebkas cits atkarībā no jūsu iepriekšējās vēstures).

⧪ 3. solis: VBA koda ievietošana

Šis ir vissvarīgākais solis. Ievietojiet doto VBA kods modulī.

⧪ 4. solis: Koda palaišana

Noklikšķiniet uz Run Sub \ UserForm rīks no augšējās rīkjoslas.

Kods tiks palaists. Un darblapā ātri tiks ģenerēta skaitļu virkne no 1 līdz 1 00 000, kuras izpilde citādi prasītu ilgu laiku.

Lasīt vairāk: [Atrisināts]: Excel formulas neatjauninās līdz saglabāšanai (6 iespējamie risinājumi)

Lietas, kas jāatceras

Pēc ekrāna atjauninājumu izslēgšanas jums nav jāveic tas pats uzdevums kopā ar mani. Jūs varat veikt jebkuru savu parasto uzdevumu. Bet lieta ir tāda, ka jūs nesapratīsiet ekrāna atjauninājumu izslēgšanas ietekmi, ja vien neveicat garu uzdevumu sēriju. Tāpēc es izveidoju secību no 1 līdz 1 00 000.

Secinājums

Tāpēc šis ir process, lai izstrādātu Makro izslēgt ekrāna atjaunināšanu, izmantojot Excel VBA . Vai jums ir kādi jautājumi? Uzdodiet tos mums. Un neaizmirstiet apmeklēt mūsu vietni. ExcelWIKI vairāk ziņu un atjauninājumu.