Makra na extrahovanie údajov z grafu programu Excel

Preklady článku Preklady článku
ID článku: 300643 - Zobraziť produkty, ktorých sa tento článok týka.
Program Microsoft Excel 2000 verziu tohto článku, pozri 213814.
Microsoft Excel 98 a staršej verzie tohto článok, pozri 137016.
Rozbaliť všetko | Zbaliť všetko

Na tejto stránke

SUHRN

V programe Microsoft Excel, môžete načítať údaje z grafu dokonca keď údaje, v externých hárka alebo zošita. Je to užitočné v situácií, kde graf bol vytvorený z alebo prepojený s iným súborom, ktorý je nie je k dispozícii, alebo bol zničený nejakým spôsobom. Keď je zdroj údajov do grafu stratené, údaje stále možno získať z grafu, sama, pomocou Microsoft Visual Basic for Applications a.

DALSIE INFORMACIE

Spoločnosť Microsoft poskytuje príklady programovacieho základňa, bez záruky buď vyjadrené alebo implicitné. To zahŕňa, ale neobmedzuje sa na implicitných záruk obchodovateľnosti alebo vhodnosti na konkrétny účel. Tento článok predpokladá, že ste oboznámení s plánovaním jazyk, ktorý predvádzaný a nástroje, ktoré sa používajú na vytvorenie a ladenie procedúr. Pracovníci technickej podpory spoločnosti Microsoft môžu pomôcť vysvetliť funkčnosť osobitného konania, ale bude nie úpravu týchto Príklady poskytovať pridanú funkčnosť alebo výstavbe postupy na splnenie vášho špecifické požiadavky.

Nasledovné makro vzorky miestach v grafe zdrojové údaje v pracovnom hárku s názvom "Údaje grafu" v aktívnom zošite, začiatku prvý stĺpec a prvý riadok.
  1. Do hárka modulu zadajte nasledujúci kód makra:
    Sub GetChartValues()
       Dim NumberOfRows As Integer
       Dim X As Object
       Counter = 2
    
       ' Calculate the number of rows of data.
       NumberOfRows = UBound(ActiveChart.SeriesCollection(1).Values)
    
       Worksheets("ChartData").Cells(1, 1) = "X Values"
    
       ' Write x-axis values to worksheet.
       With Worksheets("ChartData")
          .Range(.Cells(2, 1), _
          .Cells(NumberOfRows + 1, 1)) = _
          Application.Transpose(ActiveChart.SeriesCollection(1).XValues)
       End With
    
       ' Loop through all series in the chart and write their values to
       ' the worksheet.
       For Each X In ActiveChart.SeriesCollection
          Worksheets("ChartData").Cells(1, Counter) = X.Name
    
          With Worksheets("ChartData")
             .Range(.Cells(2, Counter), _
             .Cells(NumberOfRows + 1, Counter)) = _
             Application.Transpose(X.Values)
          End With
    
          Counter = Counter + 1
       Next
    
    End Sub
    					
  2. Vložte nový pracovný hárok do zošita a premenujte ho na "Údaje"grafu (bez úvodzoviek).
  3. Vyberte graf, z ktorého chcete extrahovať základných hodnôt údajov.

    POZNÁMKA: Graf môže byť vložený buď v pracovnom hárku alebo v samostatnej hárok s grafom.
  4. Spustiť GetChartValues makro.

    Údaje z grafu sa umiestnia do "Do" pracovného hárka.

Kroky prepojiť graf obnovené dáta

Mať graf je interaktívna obnovené údaje, môžete potrebujete prepojiť graf na nový hárok údajov namiesto zachovať prepojenia na chýba alebo je poškodený zošit.
  1. Vyberte graf a kliknite na rad nájsť názov hárka s ktorými je prepojený graf v zošite poškodený alebo chýba. Názov hárka zobrazí vzorec series vo vzorcovom paneli.

    POZNÁMKA: Názov hárka môžu nasledovať názov zošita, ktorý je uzavretý v hranatých zátvoriek, ako "[Zošit1]", a predchádzať výkričník "!" (alebo apostrof a výkričník „"!") ktorý označuje začiatok bunku odkaz. Názov hárka obsahuje len znaky medzi uzavretá hranatá zátvorka symbolom "]" a výkričník (alebo apostrof a výkričník). Vynechať všetky apostrof, ak je bezprostredne pred výkričník označiť, pretože apostrof nemôže byť posledný znak v názov hárka.
  2. Dvakrát kliknite na kartu nový hárok s názvom Údaje grafu.
  3. Prepíšte pôvodný názov hárka z kroku 1 zvýraznené "Údaje grafu" a stlačte kláves ENTER. Tento názov musí byť rovnaký ako názov hárka zo zošita poškodený alebo chýba.
  4. Ak nie ste uložili tento súbor s údajmi grafu a hárok, súbor uložte.
  5. V Excel 2003 alebo Excel 2002, kliknite na tlačidlo Odkazy na The Upraviť menu a potom kliknite na tlačidlo Zmeniť zdroj.

    V Excel 2007, kliknite na tlačidlo Údaje karte, kliknite na tlačidlo Upraviť prepojeniav Connenctions Zoskupiť a potom kliknite na tlačidloZmeniť zdroj.
  6. V Zdrojový súbor Začiarknite odkaz zmeniť, a potom kliknite na tlačidlo Zmeniť zdroj.
  7. V Zmena odkazov dialógové okno, vyberte nový súbor s údajmi, obnovené a graf a potom kliknite na tlačidlo ok.
  8. Ak sa zobrazí nasledujúce chybové hlásenie
    Vzorec obsahuje neplatný externý odkaz na Funkcia pracovného hárka.
    je pravdepodobné, že hárok meno, ktoré ste zadali v kroku 3 nie je to isté ako pôvodné. Prejdite späť na krok 1.
  9. V Zdrojový súbor políčko sa teraz byť prázdne. To naznačuje, že všetky prepojenia odkazujú na aktívny súbor skôr ako súbor chýba alebo je poškodený. Kliknite na položku Zatvorte.
Graf teraz odkazy a interaguje s obnovené dáta na premenovaný hárok aktívneho zošita.
Note This is a "FAST PUBLISH" article created directly from within the Microsoft support organization. The information contained herein is provided as-is in response to emerging issues. As a result of the speed in making it available, the materials may include typographical errors and may be revised at any time without notice. See Terms of Use for other considerations.

Vlastnosti

ID článku: 300643 - Posledná kontrola: 31. októbra 2011 - Revízia: 2.0
Informácie v tomto článku sa týkajú nasledujúcich produktov:
  • Microsoft Office Excel 2007
  • Microsoft Excel 2002 Standard Edition
Kľúčové slová: 
kbdtacode kbhowto kbprogramming kbmt KB300643 KbMtsk
Strojovo preložené
DÔLEŽITÉ: Tento článok bol preložený pomocou softvéru na strojový preklad od spoločnosti Microsoft, nie prekladateľom. Spoločnosť Microsoft ponúka články preložené prekladateľmi aj strojovo preložené články, vďaka čomu máte možnosť prístupu ku všetkým článkom databázy Knowledge Base vo svojom jazyku. Strojovo preložený článok však nie je vždy perfektný. Môže obsahovať chyby týkajúce sa slovnej zásoby, syntaxe alebo gramatiky, podobne ako cudzinec môže robiť chyby, keď rozpráva vašim jazykom. Spoločnosť Microsoft nenesie zodpovednosť za akékoľvek nepresnosti, chyby alebo škody spôsobené akýmkoľvek nepresným prekladom obsahu alebo jeho použitím zo strany zákazníkov. Spoločnosť Microsoft softvér na strojový preklad pravidelne aktualizuje.
Pokiaľ chcete vidieť anglickú verziu článku, kliknite sem:300643

Odošlite odozvu

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com