Ved hjælp af makroer til at gemme arbejdsbøger, når celler ændres - dummier

I Excel kan du arbejde på data, der er så følsomme, at du vil gemme hver gang en bestemt celle eller en række celler er ændret. Denne makro giver dig mulighed for at definere en række celler, der, når de ændres, tvinger arbejdsbogen til at gemme.

I det viste eksempel skal du gemme projektmappen, når der foretages en redigering til en af ​​cellerne i intervallet C5: C16.

Ændring af en celle i C5: C16 tvinger arbejdsbogen til at gemme.

Sådan virker makroen

Hemmeligheden til denne kode er Intersect-metoden. Fordi du ikke vil gemme regnearket, når en gammel celle ændres, bruger du Intersect-metoden til at bestemme, om målcellen (den celle, der ændrede) skærer med det interval, der er angivet som triggerinterval (C5: C16 i dette tilfælde).

Intersect-metoden returnerer en af ​​to ting: et områdeobjekt, der definerer skæringen mellem de to givne intervaller eller ingenting. Så i det væsentlige er du nødt til at kaste målcellen mod Intersect-metoden for at kontrollere for en værdi af Intet. På det tidspunkt kan du beslutte, om du skal gemme projektmappen.

Privat Sub Worksheet_Change (ByVal Target As Range) 'Trin 1: skærer det ændrede interval? Hvis Intersect (Target, Range ("C5: C16")), er der ikke noget. Trin 2: Hvis der ikke er kryds, skal exitprocedure Exit Sub 'Trin 3: Hvis der er et kryds, gem arbejdsbogen Else ActiveWorkbook. Gem 'Trin 4: Luk ud if-sætningen Slut hvis slutdel

I trin 1 kontrollerer du blot, om målcellen (den celle, der er ændret) ligger inden for det interval, der er angivet af Intersect-metoden. En værdi på Intet betyder målcellen ligger uden for det angivne interval.

Trin 2 tvinger makroen til at stoppe og afslutte proceduren, hvis der ikke er kryds mellem målcellen og det specificerede område.

Hvis der er et kryds, fyrer Trin 3 op med Gem-metoden i den aktive arbejdsbog, overskriver den forrige version.

I trin 4 lukker du blot If-sætningen. Hver gang du starter en If-Then-Else check, skal du lukke den ud med en tilsvarende ende hvis.

Sådan bruger du makroen

For at implementere denne makro skal du kopiere og indsætte den i vinduet Worksheet_Change-begivenhedskode. Placeringen af ​​makroen gør det muligt at køre hver gang du foretager en ændring af arket:

1. Aktiver Visual Basic Editor ved at trykke på Alt + F11.

2. I projektvinduet skal du finde dit projekt / projektmappe og klikke på plustegnet ved siden af ​​det for at se alle arkene.

3. Klik på det ark, som du vil udløse koden fra.

4. I rullemenuen Begivenhed skal du vælge Ændre begivenheden.

5. Indtast eller indsæt koden i det nyoprettede modul, og skift områdeadressen efter dine behov.

   

   Indtast din kode i regnearkskiftet.