כיצד להשתמש במאקרו כדי להוסיף תוויות נקודות נתונים בתרשים פיזור xy או בתרשים בועות ב- Excel

תרגומי מאמרים תרגומי מאמרים
Article ID: 213750 - View products that this article applies to.
הרחב הכל | כווץ הכל

תקציר

ב- Microsoft Excel, אין פקודה מוכללת אשר מצרף באופן אוטומטי תוויות טקסט נקודות הנתונים של תרשים xy (פיזור) או בועה תרשים. עם זאת, באפשרותך ליצור Microsoft Visual Basic עבור יישומים מאקרו אשר עושה זאת. מאמר זה מכיל מאקרו לדוגמה מבצע משימה זו תרשים פיזור XY. עם זאת, ניתן להשתמש בקוד זהה עבור בועה תרשים.

מידע נוסף

מיקרוסופט מציעה דוגמאות תכנות לצורך ההדגמה בלבד, ללא אחריות, בין מפורשת ובין משתמעת. הדבר כולל, אך לא רק, אחריות מכללא לגבי סחירות או התאמה למטרה מסוימת. מאמר זה מבוסס על ההנחה שאתה מכיר את שפת התכנות המודגמת ובקי ועם כלים המשמשים ליצירת פרוצדורות ולניפוי שגיאות. מהנדסי התמיכה של Microsoft יכולים לסייע בהסברת הפונקציונליות של פרוצדורה מסוימת. עם זאת, הם לא ישנו את הדוגמאות כדי לספק פונקציונליות נוספת או כדי לבנות פרוצדורות שיענו על צרכיך הספציפיים. הקוד לדוגמה במאמר זה מניח תוויות המשויכות ונתונים מסודרים בגליון עבודה בהתאם לשם בתבנית הבאה:
  • עמודה ראשונה מכילה תוויות נתונים.
  • עמודה שניה מכילה את ערכי x עבור תרשים xy (פיזור).
  • עמודות השלישי והבאות להכיל ערכי y עבור תרשים xy (פיזור).
הערה: למרות הדוגמה שסופק כוללת עמודה אחת בלבד של נתונים עבור ערכי 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. ב- אשף התרשימים - שלב 1 מתוך 4 - תרשים סוג הדו-שיח, לחץ על הכרטיסיה סוגים רגילים תחת סוג תרשים, לחץ על XY (פיזור)ולאחר מכן לחץ על הבא.
    3. ב- אשף התרשימים - שלב 2 מתוך 4 - תרשים מקור נתונים הדו-שיח, לחץ על הכרטיסיה טווח נתונים תחת סידרה ב, לחץ על עמודותולאחר מכן לחץ על הבא.
    4. ב- אשף התרשימים - שלב 3 מתוך 4 - תרשים אפשרויות הדו-שיח, לחץ על הבא.
    5. ב- אשף התרשימים - שלב 4 מתוך 4 - תרשים מיקום בתיבת הדו-שיח, לחץ כגיליון חדש אפשרות, ולאחר מכן לחץ על סיום.
    ב- Microsoft Office Excel 2007, בצע את הפעולות הבאות:
    1. לחץ הוספה לחץ פיזור ב- תרשימים קבוצה ולאחר מכן בחר סוג.
    2. ב- עיצוב לחץ מעבר תרשים ב- מיקום קיבוץ, לחץ גיליון חדש , ולאחר מכן לחץ על אישור.
  3. הקש ALT + F11 כדי להפעיל את עורך Visual Basic.
  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. הקש ALT + Q כדי לחזור ל- Excel.
  7. מעבר אל גליון התרשים.
  8. ב- ב- excel 2003 ובגירסאות קודמות של Excel, הצבע על מאקרו בתפריט בתפריט כלים , ולאחר מכן לחץ על פקודות מאקרו. לחץ על AttachLabelsToPointsולאחר מכן לחץ על הפעל כדי להפעיל את המאקרו.

    ב- ב- excel 2007, לחץ מפתחים לחץמאקרו ב- קוד קבוצת בחירהAttachLabelsToPoints, ולאחר מכן לחץ על הפעלה.
המאקרו מצרף את התוויות ב- a2: a6 תאים לנקודות הנתונים על תרשים.

מאפיינים

Article ID: 213750 - Last Review: יום רביעי 19 יוני 2013 - Revision: 1.0
המידע במאמר זה חל על:
  • Microsoft Office Excel 2007
  • 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
  • Microsoft Office Excel 2003
  • Microsoft Excel 2010
מילות מפתח 
kbchart kbdtacode kbhowto kbinfo kbprogramming kbmt KB213750 KbMthe
תרגום מכונה
חשוב: מאמר זה תורגם באמצעות תוכנת תרגום מכונה של Microsoft וייתכן שנערך לאחר מכן על-ידי קהילת Microsoftבאמצעות טכנולוגייתCommunity Translation Framework (CTF) או באמצעות תרגום אנושי. Microsoft מציעה לך גם מאמרים בתרגום אנושי, מאמרים בתרגום מכונה ומאמרים שנערכו על ידי הקהילה כדי לאפשר גישה למאמרים הקיימים במאגר הידע (Knowledge Base) שלMicrosoft בשפות שונות. מאמרים מתורגמים יכולים להכיל שגיאות באוצר המילים, בתחביר או בדקדוק. Microsoft אינה אחראית לחוסר דיוק, שגיאות או נזקים שייגרמו כתוצאה מטעויות בתכנים או משימוש בתכנים על ידי לקוחותיה.
כותרת מאמר זה באנגלית: 213750

ספק משוב

 

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