Šiuo metu esate neprisijungę, laukiama, kol iš naujo prisijungsite prie interneto

Kaip naudoti makrokomandos pridėti žymas į duomenų taškus į dviejų reikšmių diagramą arba rutulinėje diagramoje programoje "Excel"

Nutrauktas „Office 2003“ palaikymas

Nuo 2014 m. balandžio 8 d. „Microsoft“ nutraukė „Office 2003“ palaikymą. Tai paveikė programinės įrangos naujinimus ir saugą. Sužinokite, ką tai reiškia jums ir kaip užtikrinti kompiuterio saugą.

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
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 CounterEnd 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.
dviejų reikšmių XL2000 XL98 XL97 XL2001 XL2002 XLX XL2003 XL2007 XL2010

Įspėjimas: šis straipsnis išverstas automatiškai

Savybės

Straipsnio ID: 213750 – Paskutinė peržiūra: 06/20/2013 04:22:00 – Peržiūra: 1.0

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

  • kbchart kbdtacode kbhowto kbinfo kbprogramming kbmt KB213750 KbMtlt
Atsiliepimai
did=1&t=">"76500"; var Ctrl = ""; document.write("