Вновь бью челом, обращаясь к сильным мира сего.
В наличии очередной код из методички, по условиям: взять данные (фамилии) из столбца A, начиная с ячейки A2, припаяв к оным данные (вклад в денежном формате) из столбца I2 и ниже.
Если в первоначальной версии, с более коротким диапазоном (до G), все работало хорошо и выплевывало нужную диаграмму, то сейчас идет сильная ругань на строку .SeriesCollection(i - 1).Name = ("=База!R" + Trim(Str(i)) + "C1")
Как исправлять сие безобразие не вижу в упор. В связи с чем уповаю на помощь более умных и сообразительных. Заранее благодарю
В наличии очередной код из методички, по условиям: взять данные (фамилии) из столбца A, начиная с ячейки A2, припаяв к оным данные (вклад в денежном формате) из столбца I2 и ниже.
Если в первоначальной версии, с более коротким диапазоном (до G), все работало хорошо и выплевывало нужную диаграмму, то сейчас идет сильная ругань на строку .SeriesCollection(i - 1).Name = ("=База!R" + Trim(Str(i)) + "C1")
Как исправлять сие безобразие не вижу в упор. В связи с чем уповаю на помощь более умных и сообразительных. Заранее благодарю
| Код |
|---|
Sub Diagram()
Sheets("Диаграмма").Activate
For Each i In ActiveSheet.Shapes
i.Delete
Next i
ActiveSheet.ChartObjects.Add(25, 25, 500, 300).Select
With ActiveChart
.ChartType = xl3DBarClustered
M = 2
Do
If Sheets("База").Cells(M, 1).Value = "" Then Exit Do
M = M + 1
Loop
M = M - 1
.SetSourceData _
Source:=Sheets("База").Range("I2:I" + Trim(Str(M))), _
PlotBy:=xlRows
For i = 2 To M
.SeriesCollection(i - 1).Name = ("=База!R" + Trim(Str(i)) + "C1")
Next
.Location where:=xlLocationAsObject, Name:="Диаграмма"
.HasTitle = True
.ChartTitle.Characters.Text = "Вклады клиентов банка"
.HasLegend = True
.Legend.Select
Selection.Position = xlLeft
.HasDataTable = False
.Axes(xlCategory).MajorTickMark = xlNone
.Axes(xlCategory).MinorTickMark = xlNone
.Axes(xlCategory).TickLabelPosition = xlNone
End With
End Sub
|
Изменено: - 01.02.2018 21:28:25
