????? ???????? ?????? ?? ????? ?? Excel

?????? ????????? ?????? ?????????
???? ???????: 300643 - ??? ???????? ???? ????? ????? ??? ???????.
?????? ??? ????? Microsoft Excel 2000 ?? ??? ???????? ???? 213814.
?????? ??? Microsoft Excel 98 ? ??????? ?????? ?? ??? ???????? ???? 137016.
????? ???? | ?? ????

?? ??? ??????

??????

?? Microsoft Excel? ????? ??????? ???????? ?? ???? ??? ????? ???? ???????? ?? ?????? ?? ???? ??? ?????. ???? ???? ?? ??????? ??? ??????? ?? ??????? ?? ?? ?????? ??? ??? ??? ??? ????? ?? ?? ???? ????? ?????? ??. ??? ????? ???????? ?????? ??? ???? ???????? ?? ???? ??????? ?? ?????? ????? ???????? Microsoft Visual Basic ????????? ???????.

??????? ????

???? Microsoft ??????? ???????? ??? ??? ?? ???? ??????? ?? ?? ?????. ??? ????? ???? ?? ????? ??? ???????? ??????? ?????? ???????? ?? ???????? ???? ????. ????? ??? ??????? ???? ?????? ?? ??? ??????? ???? ??? ????? ?? ??????? ???? ??? ????????? ?????? ?????? ?????????. ???? ??????? ????? ??? Microsoft ??? ????? ????? ???? ???? ?? ?????? ?????? ??? ??????? ?????? ????? ?????? ?? ????? ??????? ?????? ??????? ?????.

????? ??????? ?????? ??? ???????? ?????? ??????? ?? ???? ??? ???? "ChartData" ?? ?????? ????? ????? ?? ???? ????? ??????? ?????.
  1. ????? ????????? ???????? ??????? ?????? ?? ???? ???? ?????:
    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. ????? ???? ??? ????? ?? ?????? ????? ?? ?? ?? ?????? ?????? ??? "ChartData" (???? ?????? ????????).
  3. ??? ?????? ???? ???? ??????? ??? ???????? ????????.

    ??????: ??? ???? ??????? ?? ?????? ??? ???? ??? ?? ??? ???? ????? ??????.
  4. ?? ?????? ??????? GetChartValues.

    ??? ??? ???????? ?? ?????? ?? ???? ????? "ChartData".

????? ?????? ?? ??????? ??? ?????? ????????

???? ?????? ???? ???????? ?? ???????? ???????? ????? ??? ??? ??????? ??? ???? ?????? ????? ????? ?? ???????? ?????????? ??? ?????? ????? ?? ?????.
  1. ??? ?????? ?? ???? ??? ????? ????? ?? ??? ?????? ???? ?? ??? ??????? ?? ?????? ??????? ?? ???????. ???? ??? ?????? ?? ?????? ??????? ?? ???? ??????.

    ??????: ??? ???? ?? ??? ?????? ????? ?????? ????? ??? "[Book1] ?" ??????? ?????? "!" (?? ????? ?????? ?????? ? ???? "'!") ???? ???? ??? ????? ???? ????. ????? ??? ???? ?????? ??? ??? ??? ???? ???? "]" ????? ???? (?? ????? ?????? ?????? ?????? ????? ????). ???? ???? ?? ????? ?????? ?????? ??? ??? ?????? ??? ????? ???? ???? ?? ???? ?????? ?????? ?????? ????? ?????? ?? ??? ????.
  2. ???? ????? ??????? ??? ????? ??????? ???? ????? ???? ChartData.
  3. ???? ??? ?????? ??????? ?? ?????? 1 ??? ??????? "ChartData" ????? ENTER. ??? ?? ???? ??? ????? ?? ??? ??? ?????? ?? ?????? ??????? ?? ???????.
  4. ??? ?? ??? ???? ??? ????? ???????? ???? ??????? ????????? ??? ?????.
  5. ?? Excel 2003 ?? Excel 2002 ???? ??? ?????????? ?? ??????? ????? ?? ???? ??? ????? ??????.

    ?? Excel 2007? ???? ??? ????? ??????? ?????? ? ???? ??? "????? ??????????" ?? ???????? Connenctions ?? ???? ??? ????? ??????.
  6. ?? ?????? ????? ?????? ? ??? ???????? ?????? ?? ???? ??? ????? ??????.
  7. ?? ???? ?????? ????? ???????? ? ???? ????? ?????? ?? ??????? ????????? ??????? ?? ???? ??? ?????.
  8. ??? ????? ????? ????? ???????
    ????? ?????? ??? ???? ????? ??? ???? ??? ???? ???.
    ??? ??????? ?? ??? ?????? ???? ?????? ?? ?????? 3 ??? ?? ???? ??? ??????? ??????. ????? ??? ?????? 1.
  9. ?? ???? ?????? ???? ????? ???? ?????. ???? ??? ??? ?? ???? ?????????? ???? ??? ??? ???? ????? ?? ????? ????? ?? ?????. ???? ??? ?????.
??????? ???? ????? ?? ?????? ?? ???????? ???????? ?? ????? ????? ???? ?? ?????? ?????.

???????

???? ???????: 300643 - ????? ??? ??????: 12/????/1428 - ??????: 4.1
????? ???
  • Microsoft Office Excel 2007
  • Microsoft Office Excel 2003
  • Microsoft Excel 2002 Standard Edition
????? ??????: 
kbmt kbdtacode kbhowto kbprogramming KB300643 KbMtar
????? ????
???: ??? ????? ??? ?????? ???????? ?????? ????? ???? ????? ?????????? ????? ?? ????????? ?????? ????. ???? ???? ?????????? ???? ?? ???????? ???????? ?????? ????????? ????? ????????? ???????? ????? ???????? ?????? ?? ?????? ??? ?? ???????? ???????? ?? ????? ??????? ?????? ??? ??????? ?????? ??. ?????? ?? ???? ??? ??????? ???????? ????? ?? ???? ????? ?????? ??? ????? ??? ????? ??????? ?? ????? ?? ?????? ??? ??? ??????? ??????? ?? ????? ????? ????? ????? ?????. ?? ????? ???? ?????????? ??????? ??? ????? ?? ??????? ?? ????? ?????? ?? ??? ????? ?? ????? ??????? ?? ???????? ?? ??? ???????. ???? ???? ?????????? ???????? ??? ????? ?????? ??????? ??????
???? ??? ????? ??????? ?????? ??????????300643

????? ???????

 

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