رسم 100 نمودار همزمان در اکسل بدون دردسر

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

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]

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