Tiedon palautus graafeista

18+15

On Excel-tidosto, jossa on graafeja (Scatter), jotka on piirretty toisessa tiedostossa olleilla arvoilla. Nyt tätä toista ei enää ole.Onko keinoa palauttaa näiden graafien x-arvoja?

Y-arvot saan luettua, mutta x-arvojen paikalla onkin vain järjestysluku:

Sheets("Chart1").Select
Dim d As Variant
Dim x As Variant
ActiveChart.SeriesCollection(1).Select
d = Selection.Values
x = Selection.XValues

3

233

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • 18+15

      Jossain niiden x-arvojenkin täytyy olla piilotettuna, sillä Excel näyttää ne hiirellä käyrän pisteitä osoitettaessa. Niitä pisteitä vain on niin paljon...

    • Mennyttäkö?

      Vähän samanlainen ongelma. Wordissa on Excelillä tehty kuvaaja. Tuo Excel-pohja on muuttunut, mutta haluaisin nuo vanhat arvot talteen. Jos yritän kopioida kuvaajan Exceliin (tai mihin tahansa), kaikki arvot katoavat.

    • kunde

      Sub HaeTaulukonArvot()
      Dim X As Object
      Dim laskuri As Integer

      'muuta taulukon nimi sopivaksi
      Worksheets("Sheet2").Cells = ""
      Worksheets("Sheet2").Range("A1") = "X"

      'muuta taulukon nimi sopivaksi
      With Worksheets("Sheet2")
      .Range(.Cells(2, 1), .Cells(UBound(ActiveChart.SeriesCollection(1).Values) 1, 1)) = Application.Transpose(ActiveChart.SeriesCollection(1).XValues)
      End With

      laskuri = 2
      For Each X In ActiveChart.SeriesCollection
      'muuta taulukon nimi sopivaksi
      Worksheets("Sheet2").Cells(1, laskuri) = X.Name
      'muuta taulukon nimi sopivaksi
      With Worksheets("Sheet2")
      .Range(.Cells(2, laskuri), .Cells(UBound(ActiveChart.SeriesCollection(1).Values) 1, laskuri)) = Application.Transpose(X.Values)
      End With
      laskuri = laskuri 1
      Next
      End Sub

      Keep EXCELing
      @Kunde

    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. Räppäri kuoli vankilassa

      Ei kuulemma ole tapahtunut rikosta. Sama vahinkohan kävi Epsteinille. https://www.hs.fi/suomi/art-2000011840869.html "
      Maailman menoa
      116
      4990

    2. Välillä kyllä tuntuu, että jaat vihjeitä

      Mutta miten niistä voi olla ollenkaan varma? Ja minä saan niistä kimmokkeen luulemaan yhtä sun toista. Eli mitä ajatella
      Ikävä
      29
      3613

    3. No kyllä te luuserit voitte tehdä mitä vaan keskenänne, sitä en ymmärrä miksi pelaat,nainen

      Pisteesi silmissäni, edes ystävätasolla tippui jo tuhannella, kun sain selville pelailusi, olet toisen kanssa, vaikka ol
      Ikävä
      45
      2440

    4. Missä näitte viimeksi?

      Missä näit kaivattua viimeksi ja oliko sähköä ilmassa?
      Ikävä
      50
      1568

    5. Harmittaako sinua yhtään?

      Tuntuuko pahalta ollenkaan?
      Ikävä
      41
      1520

    6. Jätä minut rauhaan

      En pidä sinusta. Lopeta seuraaminen. Älä tulkitse keskustelutaitoa tai ystävällisyyttä miksikään sellaiseksi mitä ne eiv
      Ikävä
      24
      1434

    7. Puukotus yöllä

      Oli kaveri hermostunut ja antanut puukosta.
      Sotkamo
      14
      1262

    8. On varmaan turn off

      Mutta olen tosi kokematon.
      Ikävä
      27
      1168

    9. Minulla ei ole ketään muita

      Enkä halua ketään muita kuin sinut.
      Ikävä
      16
      1132

    10. Olen oikeasti aika mukava

      Vaikka itse sanonkin. Tunnemyrsky sekoitti mieltä silloin ja annoin aika kahjon kuvan itsestäni.
      Ikävä
      22
      1097
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt