Kaip naudoti makrokomandos prid?ti ?ymas ? duomen? ta?kus ? dviej? reik?mi? diagram? arba rutulin?je diagramoje programoje "Excel"

Straipsni? vertimai Straipsni? vertimai
Straipsnio ID: 213750 - Per?i?r?ti ?iame straipsnyje minimus produktus.
I?pl?sti visus | Sutraukti visus

Santrauka

Programoje Microsoft Excel, n?ra joki? ?taisytoji komanda, automati?kai prideda teksto etiketes duomen? ta?k?, xy (dviej? reik?mi?) ar burbulas diagramos. Ta?iau galite sukurti Microsoft Visual Basic for Applications makrokomand? kad tai daro. ?is straipsnis yra imties makrokomandos, kuri atlieka ?i? u?duot? XY Ta?kin? diagrama diagramos. Ta?iau tas pats kodas gali b?ti naudojamas burbulas Diagramos.

Daugiau informacijos

Microsoft teikia programavimo pavyzd?iai tik, be ai?ki? ar numanom? garantij?. Tai apima, bet neapsiribojant, numanomas garantijas, PERKAMUMO ar tinkamumo konkre?iam tikslui. ?iame straipsnyje rei?kia, kad esate susipa?in?s su programavimo kalba, kuri yra ?rodoma ir su priemon?mis, kurios yra naudojamos kurti ir derinti proced?ras. "Microsoft" palaikymo in?inieriai gali pad?ti paai?kindami tam tikros proced?ros funkcin? galimyb?. Ta?iau jie nekeis ?i? pavyzd?i?, kad numatyt? papildom? funkcin? galimyb? arba sukurt? konkre?ius j?s? reikalavimus atitinkan?ias proced?ras. Pavyzd?io kodas ?iame straipsnyje daroma prielaida, kad duomen? ir susijusios ?ra?? kompanijos yra i?d?styti pagal darbalapio ? ?iuo formatu:
  • Pirmame stulpelyje yra duomen? etiket?s.
  • Antrame stulpelyje yra x reik?m?s, xy (XY) diagramos.
  • Tre?i? ir v?lesnius stulpeliuose yra y reik?mes dviej? reik?mi? (XY) diagramos.
Pastaba: nors pateiktame pavyzdyje yra tik vienas stulpelis duomen? y reik?mes, galite naudoti daugiau nei vien? duomen? sek?.

Naudoti, makrokomandos ?iame straipsnyje, sukurti diagram? naudodami ?iuos duomenis:
   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
Pastaba: lentel?s neturi b?ti tu??ias stulpelis ir stulpelio, yra duomen? etiket?s n?ra atskiriami nuo stulpelis x reik?mes. Etiket?s ir vertybes turi b?ti i?d?styti tiksliai apra?yta ?iame straipsnyje. (Vir?utin?-kair?j? langel? ar neturi b?ti langelio A1.)

Prid?ti teksto etiketes duomen? ta?k?, dviej? reik?mi? (XY) diagramos, atlikite ?iuos veiksmus:
  1. Darbalapyje, kuriame yra duomen? pavyzd?i?, pasirinkite ? langeli? diapazonas B1:C6.
  2. ? Microsoft Office Excel 2003 ir ankstesn?mis Excel versijomis, atlikite ?iuos veiksmus:
    1. Meniu ?terpimas spustel?kite diagrama .
    2. ? ? Diagramos vedlys - Step 1 of 4 - Chart Tipo dialogo lange spustel?kite skirtuk? Standartiniai tipai pagal Diagramos tipas, spustel?kite dviej? reik?mi? (XY), o tada spustel?kite parinkt? Pirmyn.
    3. ? ? Diagramos vedlys - 4 - diagram? 2 ?ingsnis ?altinio duomen? dialogo lange spustel?kite skirtuk? Duomen? diapazono pagal Serija, spustel?kite stulpeliai, ir tada spustel?kite Pirmyn.
    4. ? ? Diagramos vedlys - Step 3 of 4 - Chart Parinktys dialogo langas, spustel?kite Pirmyn.
    5. ? ? Diagramos vedlys - 4-e 4 - diagrama Vieta dialogo langas, spustel?kite ir Kaip nauj? lap? variantas, ir tada spustel?kite baigti.
    Microsoft Office Excel 2007, atlikite ?iuos veiksmus:
    1. Spustel?kite, ?terpti skirtuk?, spustel?kite Dviej? reik?mi? diagrama ? ? Diagramos grup?, o tada pasirinkite tipas.
    2. D?l to Dizainas skirtuk?, spustel?kite Perkelti Diagramos ? ? Vieta spustel?kite komand? Naujas lapas , tada spustel?kite gerai.
  3. Paspauskite ALT + F11 Visual Basic dorokl?.
  4. Meniu ?terpti spustel?kite modulis.
  5. ?veskite ?? m?ginio kod? modulio lape:
    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. Paspauskite ALT + Q kad gr??tum?te ? Excel.
  7. Persijunkite ? diagramos lap?.
  8. ? Excel 2003 ir ankstesn?se Excel versijose pasirinkite makrokomanda ant meniu ?rankiai , o tada spustel?kite makrokomandos. Spustel?kite AttachLabelsToPointsir spustel?kite paleisti makrokomand? paleisti.

    ? Excel 2007, spustel?kite ir K?r?jas skirtuk?, spustel?kiteMakrokomandos ? ? Kodas grup?s, pasirinkiteAttachLabelsToPoints, tada spustel?kite Paleisti.
Makrokomandos prideda l?steli? A2:A6 etike?i? pagal duomen? ta?kus ant to diagramos.

Savyb?s

Straipsnio ID: 213750 - Paskutin? per?i?ra: 2013 m. bir?elio 20 d. - Per?i?ra: 1.0
Taikoma:
  • Microsoft Office Excel 2007
  • Microsoft Excel 2002 Standard Edition
  • Microsoft Excel 2000 Standard Edition
  • Microsoft Excel 97 Standard Edition
  • Microsoft Excel X , skirta Mac
  • Microsoft Excel 2001, skirta Mac
  • Microsoft Excel 98, skirta Macintosh
  • Microsoft Office Excel 2003
  • Microsoft Excel 2010
Rakta?od?iai: 
kbchart kbdtacode kbhowto kbinfo kbprogramming kbmt KB213750 KbMtlt
Atliktas automatinis vertimas
SVARBU: ?is straipsnis i?verstas naudojant ?Microsoft? ma?ininio vertimo programin? ?rang? ir gali b?ti pataisytas naudojant ?Community Translation Framework? (CTF) technologij?. ?Microsoft? si?lo ma?inos i?verstus ir po to bendruomen?s suredaguotus straipsnius, taip pat ?mogaus i?verstus straipsnius siekdama suteikti prieig? prie vis? savo ?ini? baz?s straipsni? daugeliu kalb?. Ma?inos i?verstuose ir v?liau paredaguotuose straipsniuose gali b?ti ?odyno, sintaks?s ir / arba gramatikos klaid?. ?Microsoft? neatsako u? jokius netikslumus, klaidas arba ?al?, patirt? d?l neteisingo turinio vertimo arba m?s? klient? naudojimosi juo. Daugiau apie CTF ?r. http://support.microsoft.com/gp/machine-translation-corrections.
Spustel?kite ?ia, nor?dami pamatyti ?io straipsnio versij? angl? kalba: 213750

Pateikti atsiliepim?

 

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