[حل شده] رسم 100 نمودار همزمان در اکسل بدون دردسر

[Excel learner]

سلام و وقت بخیر
من دو تا سوال داشتم:
1. یه سری اعداد از 360- دارم تا 360
میخواستم ببینم چه جوری میشه 100 بار اینا رو پشت سر هم سریع کپی پیست کرد: یعنی از 360- شروع بشه برسه به 360 دوباره از 360- شروع بشه برسه به 360 و به همین ترتیب تا 100 بار
2. حالا میخواستم نمودار این 100 بار دیتا هایی که تولید شده رو نموداری به شکل نمودار پیوستی بکشم.

تشکرات فراوان

[امين اسماعيلي]

کپی کردنش مشکلی نیست اما مسئله اینه که وقتی همه داده هات یکی هست خوب اینا همشون تو نمودار رو هم میفتن

[امين اسماعيلي]

فرض کن شما اعدادت از A2 شروع میشه تا یه جایی تو همین ستون A حالا میخوای این سری اعدادت 100 بار تکرار بشه. کد زیر یه نمونه مثاله.

Application.ScreenUpdating = False
Dim n, s, i As Long
s = Application.WorksheetFunction.CountA(Sheet1.Range("A:A"))
For i = 1 To 99
n = Application.WorksheetFunction.CountA(Sheet1.Range("A:A"))
Sheet1.Range("A2:A" & s).Copy Destination:=Range("A" & n + 1)
Next i
Application.ScreenUpdating = True

کد رو واسه یه button کلید میتونی به کار ببری . اگر محدودت چند تا ستون بود و میخوای چند تا ستون رو باهاشون اینکارو بکنی
تو بخش زیر به جای A دومی اسم اخرین ستونتو بزار مثلا C

Sheet1.Range("A2:[COLOR=#ff0000]A[/COLOR]" & s).Copy

[Excel learner]

من button رو ساختم ولی حالا نمی دونم باید از این button استفاده کنم؟

[Excel learner]

من یه فایل اکسل ضمیمه کردم

با ستون b کاری نداشته باشید
ستون a رو با روش کپی بسازید
نمودار های کشیده شده رو با برنامه بکشید (بدون این که نیاز باشه یه دونه یه دونه انتخاب کنیم)

تشکر

[Excel learner]

میشه کسی مشکلموحل کنه لطفا
من هیچوقت دست خالی از این انجمن نرفتم

[امين اسماعيلي]

با درود
میگن هیچ بنایی دست تو کار بنای دیگه نمیبره من جواب دادم پس خودمم باید تمومش کنم.

با توجه به اینکه گفتی داده هات از A1 شروع شدن کد رو نوشتیم. دو تا کلید داره فایل زیر. اول داده ها رو کپی میکنه برات 100 بار بعدش شما ستون B تو با توجه به هر داده یا فرمولی که داری پر میکنی . چون بلاخره ما Y هم میخوایم. بعد کلید دوم رو میزنی. در ضمن مهم نیست که سری اولت که همون x هاست چند تا دئنست . فقط مهمه از A1 شروع بشه. موفق باشیو پیروز. در ضمن بعد کپی داده هات دیگه کلیک نکنیا چون دوباره همرو یه سری میگیره و اونارو 100 بار کپی برات میکنه

امیدوترم مشکلت حل بشه

[Excel learner]

بسیار ممنونم
از اول هم میدونستم سوالم بی جواب نمیمونه (من به این انجمن مطمئن بودم)


فقط اگه نمودار رو پاک کردم چه جوری اونو میتونم دوباره با این قابلیت بیارمش؟

[امين اسماعيلي]

نگاه کن . اسم نمودارت Chart1 هستش. پس وقتی نمودار جدید درست کردی باید ببینی اسمش چیه. در ضمن نوع نمودارتو من از نوع xy نوشتم. نیای بار چارت بزاری بگی نشد. کد مربوط به نمودارت کاری نداره. که اسمشو عوض کنی

[Excel learner]

من خودم یه نمودار کشیدم نمیدونم چرا کد باهاش کار نمیکنه؟

[امين اسماعيلي]

man ke goftam eseme chart ro bayad avaz koni, yekamam ye ja kodo ba ra rahatit avaz kardam.

Private Sub CommandButton1_Click()
On Error Resume Next
Application.ScreenUpdating = False
Application.EnableEvents = False

Dim n, s, i As Long
s = Application.WorksheetFunction.CountA(Sheet1.Range("A:A"))
Sheet1.Range("C1").Value = "The first series count:"
Sheet1.Range("D1").Value = s
For i = 1 To 99
n = Application.WorksheetFunction.CountA(Sheet1.Range("A:A"))
Sheet1.Range("A1:A" & s).Copy Destination:=Range("A" & n + 1)
Next i

Application.ScreenUpdating = True
End Sub



Private Sub CommandButton2_Click()
On Error Resume Next
Application.ScreenUpdating = False
Application.EnableEvents = False
ActiveSheet.ChartObjects("Chart 3").Activate
  For Each k In ActiveChart.SeriesCollection
      k.Delete
  Next k
  '
  Dim s
  s = Sheet1.Range("D1").Value
Dim xRng As Range
    Dim yRng As Range
    ActiveSheet.ChartObjects("Chart 3").Activate
For j = 1 To 100
 Set xRng = Sheet1.Range(Sheet1.Cells((j - 1) * s + 1, 1), Sheet1.Cells(s * j, 1))
 Set yRng = Sheet1.Range(Sheet1.Cells((j - 1) * s + 1, 2), Sheet1.Cells(s * j, 2))
 
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.FullSeriesCollection(j).XValues = xRng
    ActiveChart.FullSeriesCollection(j).Values = yRng
    Next j
    Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub

esme chart esmi ke vaghti entekhabesh mikoni, bala samte chap mibinish. hamonja ke cell ro entekhab mikoni, esme cell bala miad

[Excel learner]

میشه بیزحمت یه کاریش یکنید که رنگ همشون هم حین رسم سبز کم رنگ باشه؟

اگه بخوام این جوری تو اکسل حرفه ای بشم چه پیشنهادی دارید؟

[امين اسماعيلي]

tamrino momaresat.agaram dost dashtin ba ahsolate site khodemon shoro konin, va damaneye etelatetono gostaresh bedin, ino ham be onvane hadie az site vase shoma bod. bargharar bashido piroz

[Excel learner]

بسیار بسیار ممنون و متشکرم