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
علاقه مندی ها (Bookmarks)