excel中的自定义图形,x值始终为100%,y小于或大于,显示百分比

时间:2013-04-10 14:18:11

标签: excel excel-vba graph vba

我制作了一个大宏来为动态数据生成图表。但是,我的一张图表将显示实际小时数与估计数。我正在使用堆叠的100%,但是只有当est是<时才能实现这个问题。实际。我想将实际设置为100%,然后估计第二个数据系列低于或低于100%显示80%或120%等。

非常感谢:)!

ActiveSheet.ChartObjects( “每月”)。删除

For Each ws In Worksheets
 If ws.Name <> "Summary" And ws.Name <> "Calenders" And ws.Name <> "Front Page" And ws.Name <> "Arc" Then
        ws.Range("F129").Copy
        ActiveSheet.Range("BH65536").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
    End If
Next ws


 For Each ws In Worksheets
 If ws.Name <> "Summary" And ws.Name <> "Calenders" And ws.Name <> "Front Page" And ws.Name <> "Arc" Then
        ws.Range("G128").Copy
        ActiveSheet.Range("BI65536").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
    End If
Next ws


  Range("BJ2").Select
ActiveCell.FormulaR1C1 = "=RC[-1]-RC[-2]"
Range("BJ2").Select
Selection.AutoFill Destination:=Range("BJ2:BJ75"), Type:=xlFillDefault
Range("BJ2:BJ75").Select

ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlColumnStacked100




ActiveChart.Parent.Name = "Monthly"



ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).Values = "=Summary!$BH$2:$BH$53"
ActiveChart.SeriesCollection(1).Name = "=""Estimated"""

1 个答案:

答案 0 :(得分:0)

对于此问题,堆叠条可能不是最好的图表类型。

为什么不使用绘制偏差(+/-)的简单柱形图,如下所示:

column chart to display deviation from budget

我的研究书呆子建议仅使用堆积条/列用于序数数据类型:)例如,类别如“&lt; 1周”,“1-2周”,“3周以上”等。

或者使用了一个简单的堆叠条/列(即,不是堆叠的100%),这应该允许您显示120%的值。