رسم 100 جفت دیتای x و y صورت یکجا

Collapse
X
 
  • زمان
  • نمایش
حذف همه
new posts
  • Excel learner

    • 2014/08/19
    • 51

    پرسش رسم 100 جفت دیتای x و y صورت یکجا

    سلام
    100 جفت دیتای x و y دارم میخوام به صورت دو به دو رسمشون کنم (مثل فایل ضمیمه که سه نمونه اش رو رسم کردم)

    آیا راهی وجود داره که همه رو یک جا رسم کنم و یه دونه یه دونه add نکنم؟
    ممنون
  • iranweld

    • 2015/03/29
    • 3341

    #2
    با سلام

    ماکرو ذیل دیتای موجود رو به چارت شما اضافه میکنه

    کد PHP:
    Sub Macro1()

    z1 Cells(Rows.Count"A").End(xlUp).Row

    For 1 To z1


        ActiveChart
    .PlotArea.Select
        ActiveChart
    .SeriesCollection.NewSeries
        ActiveChart
    .SeriesCollection(i).XValues "=Sheet1!$A$" ":$B$" i
        ActiveChart
    .SeriesCollection(i).Values "=Sheet1!$C$" ":$D$" i
        
        Next
        
    End Sub 
    فایل های پیوست شده

    کامنت

    • Excel learner

      • 2014/08/19
      • 51

      #3
      نوشته اصلی توسط iranweld
      با سلام

      ماکرو ذیل دیتای موجود رو به چارت شما اضافه میکنه

      کد PHP:
      Sub Macro1()

      z1 Cells(Rows.Count"A").End(xlUp).Row

      For 1 To z1


          ActiveChart
      .PlotArea.Select
          ActiveChart
      .SeriesCollection.NewSeries
          ActiveChart
      .SeriesCollection(i).XValues "=Sheet1!$A$" ":$B$" i
          ActiveChart
      .SeriesCollection(i).Values "=Sheet1!$C$" ":$D$" i
          
          Next
          
      End Sub 
      بسیار متشکرم
      اگر بخوام همگی مشکی باشن باید چیکار کنم؟

      کامنت

      چند لحظه..