[MS EXCEL]Макросы
Собсно задание сделать макрос, который из данных в выделенных ячейках рисует круговую диаграмму.
т.е. в ячейках даны напимер кол-ва продаж товаров и мне надо нарисовать таблицу сколько процентов от продаж какой товар составляет.
собсно это было не очень трудно, но в добавок к тому что макрос выполняет мне задание он ещё и выдает ошибку-хз что делать, помогите
Собсно задание сделать макрос, который из данных в выделенных ячейках рисует круговую диаграмму.
т.е. в ячейках даны напимер кол-ва продаж товаров и мне надо нарисовать таблицу сколько процентов от продаж какой товар составляет.
собсно это было не очень трудно, но в добавок к тому что макрос выполняет мне задание он ещё и выдает ошибку-хз что делать, помогите
Code:
Sub mac()
Dim cur_range As Range
With ActiveSheet
Set cur_range = Selection
cur_range.Activate
For x = 1 To cur_range.Rows.Count
For y = 1 To cur_range.Columns.Count
S = S + cur_range(x, y).Value
Next y
Next x
End With
MsgBox ("Ñóììà: " & S)
Dim cur_range2 As Range
With ActiveSheet
Set cur_range2 = Selection
cur_range2.Activate
For x = 1 To cur_range.Rows.Count
For y = 1 To cur_range.Columns.Count
cur_range2(x, y) = cur_range(x, y) / (S / 100)
S2 = S2 + cur_range2(x, y)
Next y
Next x
End With
MsgBox ("Ñóììà2: " & S2)
Charts.Add
ActiveChart.ChartType = xlPie
ActiveChart.SetSourceData Source:=Sheets("Ìàêðîñ").Range(cur_range2), PlotBy:= _
xlRows
ActiveChart.Location Where:=xlLocationAsObject, Name:="Ìàêðîñ"
ActiveChart.HasTitle = False
End Sub