Excel ??? ???? xy ?????? ????? ?? ?? ??? ????? ??? ???? ??????? ??? ???? ??????? ?? ??? ?????? ?? ????? ???? ????

???? ID: 213750 - ?? ???????? ?? ?????? ??? ?? ?? ???? ???? ???? ??.
??? ?? ??????? ???? | ??? ?? ??????? ????

??????

Microsoft Excel ??? ??? ?????????? ???? ???? ?? ?? xy (??????) ????? ?? ??? ????? ??? ???? ??????? ??? ??? ???? ????: ???? ???. ???????, ?? ?? Microsoft Visual Basic for Applications ?????? ??? ???? ??? ?? ?? ?? ???? ??. ?? ???? ??? ?? ????? ?????? ????? ?? ?? ?? ????? ?? XY ?????? ????? ??? ??? ??. ???????, ??? ??? ?? ????? ??? ????? ?? ??? ?? ???? ?? ???? ??.

???? ???????

Microsoft ???????????? ?????? ???? ???????? ?? ??? ??? ???? ??, ???? ??? ??? ?? ?????? ?? ?????????? ??? ??? ?????? ???? ?? ????. ?????? ???????? ?????? ?? ???? ????? ???????? ?? ??? ???????? ????? ??? ?? ???? ?? ????? ???? ???. ?? ??? ????? ?? ?? ?? ????? ?? ?? ??? ???????????? ???? ?? ?? ??????? ?? ?????? ??? ????? ????? ???????????? ?? ????? ?? ???? ???? ?? ??? ???? ?? ??? ??. Microsoft ?????? ???????? ?? ????? ????????? ?? ???????????? ?? ?????? ??? ?????? ?? ???? ???. ??, ?? ?? ???????? ?? ???? ??????? ?????????? ?? ?????? ???? ?? ??? ???????? ??????????????? ?? ?????? ?? ???????????? ????? ?? ??? ??????? ???? ??????. ?? ???? ??? ??? ?? ????? ??? ?? ??? ?? ???? ??? ?? ?? ???? ?? ???? ??????? ???? ?????????? ??? ????? ?????? ??? ????????? ???:
  • ???? ????? ??? ???? ???? ???.
  • ????? ????? ??? xy (??????) ????? ?? ??? x ??? ???.
  • ????? ?? ???? ??? ?? ??????? ??? xy (??????) ????? ?? ??? y ??? ???.
???: ??????? ??? ?? ?????? ??? y ????? ?? ??? ???? ?? ????? ???? ??? ??, ?? ?? ?? ?? ???? ???? ?????? ?? ????? ?? ???? ???.

?? ???? ??? ??? ?? ?????? ?? ????? ???? ?? ???, ?????????? ???? ?? ????? ?? ?? ????? ?????: 
   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
???: ???? ??? ????? ????? ???? ???? ?????, ?? ?? ????? ?????? ???? ???? ??? ?? ????? ?? ??? ???? ???? ????? ?????? x ??? ???. ???? ?? ??? ??? ??? ?????? ??? ??? ???? ????? ???? ?? ???? ??? ???? ?? ???. (?? ?????? ???? ?? ?? ????-????? ??? A1 ?? ??.)

xy (?????? ?????) ??? ???? ??????? ??? ??? ???? ??????? ?? ???, ????? ????? ?? ???? ????:
  1. ?? ?????????? ?? ?????? ????? ???? ??, ??? ?????? B1:C6 ?????.
  2. Microsoft Office Excel 2003 ?? Excel ?? ????? ????????? ?? ???, ????? ????? ?? ???? ????:
    1. ???????? ???? ???? ??, ????? ????? ????.
    2. ????? ??????? - 4 ??? ?? ???? ???- ????? ?????? ????? ????? ???, ???? ?????? ??? ?? ????? ????. ????? ?????? ???, XY (??????) ?? ????? ????, ?? ???? ??? ???? ????? ????.
    3. ????? ??????? - 4 ??? ?? ????? ???- ????? ????? ???? ????? ????? ???, ???? ?????? ??? ?? ????? ????. ????? ???????? ?? ???????, ????? ????? ????, ?? ???? ??? ???? ????? ????.
    4. ????? ??????? - 4 ??? ?? ????? ???- ????? ?????? ????? ????? ???, ???? ????? ????.
    5. ????? ??????? - 4 ??? ?? ???? ???- ????? ????? ????? ????? ???, ?? ????? ?? ??? ??? ????? ????, ?? ???? ??? ?????? ????? ????.
    Microsoft Office Excel 2007 ???, ????? ????? ?? ???? ????:
    1. ???????? ???? ??? ???, ????? ???? ??? ?????? ????? ????, ?? ???? ??? ?? ?????? ?????.
    2. ??????? ??? ??, ????? ???? ???, ????? ?? ???? ????? ????, ??? ????? ????? ????, ?? ???? ??? ??? ????? ????
  3. Visual Basic ?????? ??????? ???? ?? ??? ALT+F11 ?????.
  4. ???????? ???? ???? ??, ??????? ????? ????.
  5. ??????? ????? ??? ????? ????? ??? ???? ????:
    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. Excel ?? ???? ???? ?? ??? ALT+Q ?????.
  7. ????? ????? ?? ????
  8. Excel 2003 ?? Excel ?? ????? ????????? ???, ????? ???? ?? ?????? ?? ????? ????, ?? ???? ??? ?????? ????? ????. AttachLabelsToPoints ????? ????, ?? ???? ??? ?????? ????? ?? ??? ????? ????? ????.

    Excel 2007 ???, ?????? ??? ????? ????, ??? ???? ??? ?????? ????? ????, AttachLabelsToPoints ?????, ?? ???? ??? ????? ????? ????.
?????? ????? ?? ???? ??????? ??? ??? A2:A6 ??? ?????? ?? ???? ???? ??.

???

???? ID: 213750 - ????? ???????: 29 ??????? 2007 - ??????: 4.1
???? ???? ???? ??:
  • Microsoft Office Excel 2007
  • Microsoft Office Excel 2003
  • Microsoft Excel 2002 Standard Edition
  • Microsoft Excel 2000 Standard Edition
  • Microsoft Excel 97 Standard Edition
  • Microsoft Excel X for Mac
  • Microsoft Excel 2001 for Mac
  • Microsoft Excel 98 for Macintosh
??????: 
kbhowto kbinfo kbchart kbprogramming kbdtacode KB213750
????? ?? ???? ???? | ??????????? ???

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

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