Sérült munkafüzet helyreállítása

Adatok helyreállítása, ha a munkafüzet meg van nyitva az Excelben

• A munkafüzet utolsó mentett verziójának visszaállítása    Ha egy munkafüzet munka közben megsérül, de a módosítások mentése előtt visszaállíthatja a munkafüzetet az utolsó mentett verzióra:

  1. Kattintson a Fájl > Megnyitás parancsra.

  2. Kattintson duplán annak a munkafüzetnek a nevére, amelyet meg szeretne nyitni az Excelben.

  3. Kattintson az Igen gombra a munkafüzet újbóli megnyitásához.

     A munkafüzet nem jelenik meg olyan módosítások nélkül, amelyek a munkafüzet sérülését okozhatták.

Adatok helyreállítása, ha nem tudja megnyitni a munkafüzetet az Excelben

• Kézi újraszámítás beállítása az Excelben    Próbálja meg automatikusról manuálisra módosítani a számítási beállítást. A program ekkor nem számítja újra a munkafüzetet, így előfordulhat, hogy sikerül megnyitnia.

  1. Kattintson a Fájl menü Új parancsára.

  2. Az Új területen kattintson az Üres munkafüzet elemre.

  3. Kattintson a Fájl > Beállítások elemre.

  4. A Képletek kategória Számítási beállítások csoportjában válassza a Manuális lehetőséget, majd kattintson az OK gombra.

  5. Kattintson a Fájl > Megnyitás parancsra.

  6. Keresse meg a sérült munkafüzetet, majd kattintson rá duplán a megnyitásához.

• A sérült munkafüzet csatolása külső hivatkozásokkal    Ha csak adatokat szeretne lekérni a munkafüzetből, képleteket vagy számított értékeket nem, próbáljon külső hivatkozásokkal hivatkozni a sérült munkafüzetre.

  1. Kattintson a Fájl > Megnyitás parancsra.

  2. Nyissa meg a sérült munkafüzetet tartalmazó mappát.

  3. Kattintson a jobb gombbal a sérült munkafüzet fájlnevére, kattintson a Másolás, majd a Mégse gombra.

  4. Kattintson a Fájl menü Új parancsára.

  5. Az Új területen kattintson az Üres munkafüzet elemre.

  6. Az új munkafüzet A1 cellájába írja be az =Fájlnév! A1, ahol a Fájlnév a 3. lépésben másolt sérült munkafüzet neve, majd nyomja le az Enter billentyűt.

     Megjegyzés:  Csak a munkafüzet nevét kell megadnia – nem kell beírnia a fájlnévkiterjesztést.

  7. Ha megjelenik az Értékek frissítése párbeszédpanel, jelölje ki a sérült munkafüzetet, majd kattintson az OK gombra.

  8. Ha megjelenik a Lap kiválasztása párbeszédpanel, akkor válassza ki a megfelelő munkalapot, és kattintson az OK gombra.

  9. Jelölje ki az A1 cellát.

  10. Kattintson a Kezdőlap > Másolás parancsra, vagy nyomja le a Ctrl+C billentyűkombinációt.

  11. Jelöljön ki egy területet az A1 cellától kezdve, amely körülbelül akkora, mint a sérült munkafüzet adatait tartalmazó cellatartomány.

  12. Kattintson a Kezdőlap > Beillesztés parancsra, vagy nyomja le a Ctrl+V billentyűkombinációt.

  13. Ha a cellatartomány továbbra is ki van jelölve, kattintson ismét a Kezdőlap > Másolás gombra, vagy nyomja le a Ctrl+C billentyűkombinációt.

  14. Kattintson a Kezdőlap > a Beillesztés gomb alatti nyílra, majd az Értékek beillesztése területen kattintson az Értékek elemre.

      Az értékek beillesztésével eltávolítja a sérült munkafüzetre mutató hivatkozásokat, és csak az adatokat hagyja meg.

• Az adatok kinyerése a sérült munkafüzetből makróval    Ha egy diagram a sérült munkafüzethez van csatolva, próbáljon meg makróval kinyerni a diagram forrásadatait.

  1. Másolja ki a következő makrókódot, és illessze be egy modullapra:

     Sub GetChartValues()

     Dim NumberOfRows Egész számként

     Dim X objektumként

     Számláló = 2

     ' Az adatsorok számának kiszámítása.

     NumberOfRows = UBound(ActiveChart.SeriesCollection(1). Értékek)

     Munkalapok("Diagramadatok"). Cellák(1; 1) = "X értékek"

     ' X tengely értékeinek írása a munkalapra.

     Munkalapokkal("Diagramadatok")

     . Tartomány(. Cellák(2; 1), _

     . Cellák(NumberOfRows + 1, 1)) = _

     Application.Transpose(ActiveChart.SeriesCollection(1). XValues)

     Befejezés ezzel:

     ' Végiglépkedhet a diagram összes adatsorán, és a következőbe írhatja az értékeit:

     ' a munkalapra.

     Az ActiveChart.SeriesCollection minden egyes X eleméhez

     Munkalapok("Diagramadatok"). Cellák(1; számláló) = X.Name

     Munkalapokkal("Diagramadatok")

     . Tartomány(. Cellák(2; számláló), _

     . Cells(NumberOfRows + 1, Counter)) = _

     Application.Transpose(X.Values)

     Befejezés ezzel:

     Számláló = Számláló + 1

     Tovább

     End Sub

  2. Munkalap beszúrása vagy törlése a munkafüzetbe a jobb gombbal kattintson a munkalap fülére, majd nevezze át ChartData névre.

  3. Jelölje ki a diagramot, amelyből ki szeretné nyerni a háttéradatokat.

     Megjegyzés: A diagram munkalapra beillesztve vagy külön diagramon lehet.

  4. Futtassa a makrót.

  5. A diagram adatai a DiagramAdat munkalapra kerülnek.

Vissza a lap tetejére