Kuidas kasutada makro siltide lisamiseks andmepunktide xy punktdiagrammi või mulldiagrammi Excelis

Artiklite tõlked Artiklite tõlked
Artikli ID: 213750 - Vaadake tooteid, millega see artikkel seostub.
Laienda kõik | Ahenda kõik

Kokkuvõte

Microsoft Excelis ei ole sisseehitatud käsk et automaatselt tekstisildid omistab andmepunktid on XY-diagrammi (punktdiagrammi) või mulldiagrammi diagrammi. Siiski saate luua Microsoft Visual Basic for Applications makro mis teeb seda. See artikkel sisaldab proovi makro, mis täidab selle ülesande kohta XY Scatter diagrammi. Aga sama koodi kasutada mull Diagrammi.

Lisateave

Microsoft pakub näitlikud, ilma garantiita otseseid ega kaudseid. See hõlmab, kuid ei ole nendega piiratud kaudsete garantiidega seoses kaubandusliku või sobivusega teatud otstarbeks. Artikkel eeldab, et olete tuttav programmeerimiskeel, mis on tõestatud ja tööriistad, mida kasutatakse loomiseks ja silumiseks kord. Microsofti tugitehnikud võivad aidata mõne konkreetse protseduuri talitlust selgitada. Siiski ei muuda nad neid näiteid pakkumiseks ega ehitada menetlusi oma konkreetsete vajaduste rahuldamiseks. Proovi kood see artikkel eeldab, et selle andmete ja nendega seotud sildid on paigutatud vastavalt töölehel on järgmises vormingus:
  • Esimene veerg sisaldab andmesilte.
  • Teine veerg sisaldab x-telje väärtuste jaoks on xy diagrammi (punktdiagrammi).
  • Kolmanda ja järgmise veerud sisaldavad y väärtused XY-diagrammi (punktdiagrammi) diagrammi.
Märkus: Kuigi antud näites sisaldab ainult üht andmeveergu y-telje väärtused, saate kasutada rohkem kui ühte andmesarja.

Kasutada ka Käesolevas artiklis makrode luua diagrammi, kasutades järgmisi andmeid:
   A1: Labels       B1: X Values   C1: Y Values
   A2: DataPoint1   B2: 12          C2: 5
   A3: DataPoint2   B3:  9          C3: 7
   A4: DataPoint3   B4:  5          C4: 3
   A5: DataPoint4   B5:  4          C5: 8
   A6: DataPoint5   B6:  1          C6: 4
Märkus: tabelis ei tohiks sisaldada tühja veergu, ja veeru mis etiketid ei tohi lahutada veerg, mis sisaldab andmeid x-telje väärtusi. Siltide ja väärtuste peab olema sätestatud täpselt selles artiklis kirjeldatud formaadis. (Ülemine vasakpoolne lahter ei ei pea olema lahter A1.)

Lisada tekstisildid andmepunktide on XY-diagrammi (punktdiagrammi) organisatsiooniskeemi, järgige neid samme:
  1. Valige töölehel, mis sisaldab näidisandmeid, et lahtrivahemiku B1:C6.
  2. Aastal Microsoft Office Excel 2003 ja Exceli varasemad versioonid, järgige neid samme:
    1. Klõpsake menüü Lisa käsku Diagramm .
    2. Aastal ning Diagrammi viisard - samm 1 / 4 - skeem Tüüp dialoogiboksis vahekaarti Standardtüübid all Diagrammi tüüp, klõpsake XY-Diagrammi (punktdiagrammi)ja seejärel klõpsake nuppu edasi.
    3. Aastal ning Diagrammi viisard - samm 2 4 - skeem Lähteandmed dialoogiboksis vahekaarti Andmevahemik all Seeria, klõpsake nuppu veergeja seejärel klõpsake nuppu edasi.
    4. Aastal ning Diagrammi viisard - samm 3 4 - skeem Valikud dialoogiboks, klõpsake nuppu edasi.
    5. Aastal ning Diagrammi viisard - samm 4 4 - skeem Asukoht dialoogiboksis klõpsake selle Uue lehena valik, ja seejärel klõpsake nuppu valmis.
    Programmis Microsoft Office Excel 2007, toimige järgmiselt.
    1. Klõpsake selle Lisa vahekaardil, klõpsake Hajumine aastal ning Diagrammid rühm ja valige tüüp.
    2. Kohta ning Disain vahekaardil, klõpsake Liikuda Diagrammi aastal ning Asukoht nuppu Uuele lehele , ja seejärel klõpsake nuppu Ok.
  3. Vajutage klahvikombinatsiooni ALT + F11 Visual Basic Editor käivitamiseks.
  4. Klõpsake menüü Lisa käsku moodul.
  5. Tippige järgmine näidiskood moodul leht:
    Sub AttachLabelsToPoints()
    
       'Dimension variables.
       Dim Counter As Integer, ChartName As String, xVals As String
    
       ' Disable screen updating while the subroutine is run.
       Application.ScreenUpdating = False
    
       'Store the formula for the first series in "xVals".
       xVals = ActiveChart.SeriesCollection(1).Formula
    
       'Extract the range for the data from xVals.
       xVals = Mid(xVals, InStr(InStr(xVals, ","), xVals, _
          Mid(Left(xVals, InStr(xVals, "!") - 1), 9)))
       xVals = Left(xVals, InStr(InStr(xVals, "!"), xVals, ",") - 1)
       Do While Left(xVals, 1) = ","
          xVals = Mid(xVals, 2)
       Loop
    
       'Attach a label to each data point in the chart.
       For Counter = 1 To Range(xVals).Cells.Count
         ActiveChart.SeriesCollection(1).Points(Counter).HasDataLabel = _
             True
          ActiveChart.SeriesCollection(1).Points(Counter).DataLabel.Text = _
             Range(xVals).Cells(Counter, 1).Offset(0, -1).Value
       Next Counter
    
    End Sub
  6. Vajutage klahvikombinatsiooni ALT + Q Excelisse naasmiseks.
  7. Aktiveerige diagrammileht.
  8. Aastal Excel 2003 ja Exceli varasemates versioonides, käsk makro menüü Tööriistad ja seejärel klõpsake käsku makrod. Klõpsake AttachLabelsToPointsja seejärel klõpsake käsku Käivita makro käivitamiseks.

    Aastal Excel 2007, klõpsake selle Arendaja vahekaardil, klõpsakeMakro aastal ning Kood rühma, valigeAttachLabelsToPoints, ja seejärel klõpsake nuppu Käivita.
Makro omistab rakkude ristumiskohaga märgiste andmepunktide kohta ning diagrammi.

Atribuudid

Artikli ID: 213750 - Viimati läbi vaadatud: 20. juuni 2013 - Redaktsioon: 1.0
Kehtib järgmise lõigu kohta:
  • Microsoft Office Excel 2007
  • Microsoft Excel 2002 Standard Edition
  • Microsoft Excel 2000 Standard Edition
  • Microsoft Excel 97 Standard Edition
  • Microsoft Excel X Maci jaoks
  • Microsoft Excel 2001 Maci jaoks
  • Microsoft Excel 98 Macintoshi jaoks
  • Microsoft Office Excel 2003
  • Microsoft Excel 2010
Märksõnad: 
kbchart kbdtacode kbhowto kbinfo kbprogramming kbmt KB213750 KbMtet
Masintõlgitud
NB! Artikkel on tõlgitud Microsofti masintõlketarkvaraga ja seda saab parandada Kogukonnapõhise tõlkeraamistiku (CTF) tehnoloogiaga. Microsoft pakub masintõlgitud, kogukonna järeltöödeldud ja inimtõlgitud artikleid, et anda mitmekeelne juurdepääs kõigile meie teabebaasi artiklitele. Masintõlgitud ja järeltöödeldud artiklites võib olla sõnavara-, süntaksi- ja/või grammatikavigu. Microsoft ei vastuta mingite ebatäpsuste, tõrgete ega kahjude eest, mis on tulenenud sisu valest tõlkest või selle kasutamisest meie klientide poolt. Lisateavet CTF-i kohta leiate aadressilt http://support.microsoft.com/gp/machine-translation-corrections/et.
Artikli ingliskeelse versiooni kuvamiseks klõpsake siin: 213750

Andke tagasisidet

 

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