VBA képernyőfrissítés - A képernyőfrissítő alkalmazás használata az Excel VBA-ban

Tartalomjegyzék:

Anonim

Excel VBA képernyőfrissítés

Ha bármilyen VBA makrót hatalmas kódkészlettel futtatunk, akkor a kód befejeződik, de a háttérben az adatok feldolgozása futás vagy mutató várakozás formájában történik. És ha elkészült, csak a kimenetet láthatjuk. A szokásos módszer nem megfelelő módszer annak ellenőrzésére, hogyan frissülnek az értékek kód futtatásával. Tegyük fel például, hogy írtuk a kódot, hogy néhány számot létrehozjunk 100 cellában. Most, hogy a kód egyszerűen előállíthatja a kimenetet anélkül, hogy megmutatná a számok kinyomtatásának módját. Ennek megoldására a VBA ScreenUpdating programmal rendelkezik . A VBA képernyőfrissítése elősegíti, hogy a kód generálja a kimenetet. Lehet számok, szöveg, ábécé vagy kombináció. Miután elindítottuk a kód hurkot, a VBA ScreenUpdating segítségével láthattuk a generálódó számokat.

Hogyan kell használni a képernyőfrissítő alkalmazást az Excel VBA alkalmazásban?

Megtanuljuk, hogyan kell a képernyőfelújítási alkalmazást Excelben használni a VBA kód használatával.

Itt töltheti le a VBA képernyőfrissítő Excel sablonját - a VBA képernyőfrissítési Excel sablonját

A VBA képernyőfrissítése észrevehető a kód vagy a makró futtatása közben. Amíg a kód fut, láthatjuk, hogy a képernyőn hogyan frissül a VBA írásbeli kódja által generált értékek. Ahelyett, hogy a régebbi várakozási jelet látnánk, a VBA ScreenUpdating segítségével láthatjuk, hogy a képernyő hogyan frissíti a kimeneti értékeket a VBA ScreenUpdating segítségével. Most már láthatjuk, hogy a cikk neve maga is meghatározza, hogy működik-e, a VBA ScreenUpdating .

VBA képernyőfrissítés - 1. példa

Ebben a példában egy egyszerű kódot fogunk látni a képernyő frissítéséhez. Ehhez szükség van néhány cellával, számokkal, amint az alább látható. Ehhez kövesse az alábbi lépéseket:

1. lépés: Nyissa meg a modult a Beszúrás menü lapon, az alább látható módon.

2. lépés: Írja be az alfolyamatot a VBA ScreenUpdating névre, az alább látható módon.

Kód:

 Sub Screen_Update1 () Sub

3. lépés: Most másoljuk a számokat az A1: A3 cellából a többi cellába. Tegyük fel, hogy a cella C1: C3 az alábbi kód segítségével.

Kód:

 Al képernyő_Update1 () tartomány ("A1"). Másolási tartomány ("C1") tartomány ("A2"). Másolási tartomány ("C2") tartomány ("A3"). Másolási tartomány ("C3") vége sub

4. lépés: Ha ezt a kódot futtatjuk, akkor csak azt az outputot kaphatjuk, amely az A oszlopból a C értékbe másolódik. Most az alább látható módon használjuk a ScreenUpdating alkalmazást.

Kód:

 Al képernyő_Update1 () Alkalmazás.Képernyő frissítési tartomány ("A1") Másolási tartomány ("C1") Tartomány ("A2") Másolási tartomány ("C2") Tartomány ("A3"). Másolási tartomány ("C3") Vége Alatti

5. lépés: Egyenlőjelet helyezünk a Boole-értékek kiválasztására, amelyek IGAZ vagy FALSE. A FALSE lehetőséget választjuk a képernyőfrissítés leállításához.

Kód:

 Al képernyő_Update1 () alkalmazás.ScreenUpdating = Hamis tartomány ("A1"). Másolási tartomány ("C1") Tartomány ("A2"). Másolási tartomány ("C2") Tartomány ("A3"). Másolási tartomány ("C3") ) Befejezés Sub

6. lépés: Futtassa a kódot az F5 billentyű megnyomásával vagy a menüszalag alatti Play gombra kattintással. Látni fogjuk, hogy az értékeket az A oszlopból a C oszlopba másolja.

Ez egyértelműbben látható, ha hatalmas számkészlettel rendelkezik.

VBA képernyőfrissítés - 2. példa

Lássunk egy másik példát a képernyőfrissítésre. Ezúttal vegyük figyelembe az 1-től 20-ig terjedő számot az A1-től A20-ig, az alább látható módon.

A képernyőfrissítő alkalmazás használatához kövesse az alábbi lépéseket:

1. lépés: Írja be a VBA képernyőfrissítés alfolyamatát az alábbiak szerint.

Kód:

 Sub Screen_Update2 () Sub

2. lépés: Írja be a kódot az A1-től A20-ig terjedő tartomány kiválasztásához, és másolja át őket B1-ről F20-ra az alábbiak szerint. Az 1. példában látható módon.

Kód:

 Sub Screen_Update2 () Range ("A1: A20"). Másolási tartomány ("B1: F20") Sub Sub vége

3. lépés: A képernyőfrissítő alkalmazás alkalmazásához ismét hasonló kódot használunk, amelyet az 1. példában láthattunk.

Kód:

 Sub Screen_Update2 () Application.ScreenUpdating = Hamis tartomány ("A1: A20"). Másolási tartomány ("B1: F20") End Sub

A fentiek szerint a HALSE képernyőfrissítés alkalmazás segítségével láthatjuk, hogy a VBA kód hogyan frissíti a képernyőt. Mivel több számmal rendelkezik, így van esély arra, hogy látjuk a képernyőfrissítést.

4. lépés: Futtassa a kódot az F5 billentyű megnyomásával vagy a Play gombra kattintással. Láthattuk, hogy az érték frissül.

VBA képernyőfrissítés - 3. példa

A képernyő frissítésének másik módja van. Ezt meg lehet tenni a For-Next Loop segítségével. Ebben a példában a számokat egy Sor és Oszlop kombinált mátrixba nyomtatjuk ki. Ehhez kövesse az alábbi lépéseket:

1. lépés: Írja be a VBA képernyőfrissítés alfolyamatát.

Kód:

 Sub Screen_Updating3 () Vége Sub

2. lépés: Most nyilatkozzon külön a sor és az oszlop két változóját hosszú adattípusként.

Kód:

 Sub Screen_Updating3 () Halk RowCount As Long Dim ColumnCount As Long End Sub

3. lépés: Jelentsen be egy másik változót, amelyet referenciaként fogunk használni a számok elindításához.

Kód:

 Sub Screen_Updating3 () Halk RowCount As Long Dim ColumnCount As Long Dim MyNumber as Long End Sub

4. lépés: Most adja meg a hivatkozási számot, ahonnan kezdjük a számolást. Itt adjuk meg 0-nak.

Kód:

 Sub Screen_Updating3 () Halk RowCount As Long Dim ColumnCount As Long Dim MyNumber As Long MyNumber = 0 Vége Sub

5. lépés: Most nyissa meg a For hurkot, és adja meg azon oszlopok és sorok számát, amelyek frissítést szeretnének látni. Mondjuk 1 és 50 között.

Kód:

 Sub Screen_Updating3 () Halk RowCount Mert Hosszú Halk ColumnCount Minim Hosszú Halk MyNumber Am Long MyNumber = 0 RowCount = 1 - 50 vége Sub

6. lépés: A hurok folytatásához adja meg a MyNumber +1 változót.

Kód:

 Alsó képernyő_Update3 () Halk RowCount Hosszú Halvány ColumnCount Hosszú Halk MyNumber Am Long MyNumber = 0 RowCount = 1-től 50-ig ColumnCount = 1-től 50-ig MyNumber = MyNumber + 1 vége Sub

7. lépés: Most válassza ki a Sor és az Oszlop változókat a Cella funkcióban. Ezután válassza ki a bennük tárolt értékeket, és rendelje hozzá a MyNumber változóhoz.

Kód:

 Sub Screen_Updating3 () Halvány RowCount Hosszú Halvány ColumnCount Hosszú Halvány MyNumber Hosszú MyNumber = 0 RowCount = 1-től 50-ig ColumnCount = 1-től 50-ig MyNumber = MyNumber + 1 cella (RowCount, ColumnCount) .Selek kiválasztása (RowCount, ColumnCount) .Value = MyNumber End Sub

8. lépés: Most zárja be a Loop by Next elemet. Vegye fel a sor és az oszlop változóit, amelyeket meghatároztunk és használtunk a Következő hurokban.

Kód:

 Sub Screen_Updating3 () Halvány RowCount Hosszú Halvány ColumnCount Hosszú Halvány MyNumber Hosszú MyNumber = 0 RowCount = 1-től 50-ig ColumnCount = 1-től 50-ig MyNumber = MyNumber + 1 cella (RowCount, ColumnCount) .Selek kiválasztása (RowCount, ColumnCount) .Value = MyNumber Next ColumnCount Next RowCount End Sub

9. lépés: Most még nem helyeztük be a képernyőfrissítő alkalmazást. Helyezze be a Screenupdating alkalmazást hamisként a hurok kezdete előtt, és mint az igaz, a hurok végén, az alább látható módon.

Kód:

 Sub Screen_Updating3 () Halk RowCount, Amíg Világos ColumnCount, Amíg dim dim MyNumber, Amíg hosszú. (RowCount, ColumnCount) .Value = MyNumber Next ColumnCount Next RowCount Application.ScreenUpdating = True End Sub

Most állítsa le a teljes kódot lépésről lépésre az F8 funkciógomb megnyomásával, majd futtassa, ha nem található hiba. Látni fogjuk, hogy a kiválasztott sorok és oszlopok minden cellája hogyan frissül a benne tárolt értékekkel.

Az Excel VBA képernyőfrissítés előnyei

  • Nagyon hasznos látni, hogy a képernyő hogyan frissül a hurokban tárolt értékkel.
  • A képernyőfrissítést akkor használhatjuk, ha váltani akarunk a munkalapok és a munkafüzetek között.
  • Bármely számtartományt használhatunk.

Dolgok, amikre emlékezni kell

  • Használjuk a For-Next hurok beszúrását keretként, vagy először meg tudjuk felelni a For loop feltételnek, majd a Next segítségével bezárhatjuk.
  • A VBA képernyőfrissítése nagyon hasznos és látható, ha hatalmas számot használunk.
  • Ha kész, mentse el az Excel fájlt, mivel a Macro lehetővé teszi az Excel formátumot.
  • A VBA ScreenUpdating felhasználható egy makró létrehozására, amelyen keresztül e-maileket küldhetünk.

Ajánlott cikkek

Ez egy útmutató a VBA képernyőfrissítéséhez. Itt tárgyaljuk, hogyan lehet használni a ScreenUpdating alkalmazást az Excel VBA-ben, a gyakorlati példákkal és a letölthető Excel sablonnal együtt. Megnézheti más javasolt cikkeinket -

  1. VBA gyűjtemény (példák)
  2. VBA IF nyilatkozatok | Excel sablonok
  3. Hogyan kell használni az Excel VBA rendezési funkciót?
  4. VBA Míg a hurok (példák Excel sablonnal)
  5. VBA Environ