使用VBA将柱形图添加到Excel

时间:2016-06-27 16:25:24

标签: excel vba excel-vba

我正在尝试使用下面的数据制作柱形图。这是用户友好界面的一部分,因此第一列代表当前案例,并且在电子表格中我有一个按钮,可以将数据复制到下一列,当用户更改输入值时,它会保存它们正在工作的情况上。注意,电子表格中的这两行不相邻。标题(案例)位于电子表格的顶部,百分比是几行。

"Current Case"      "Case 1"      "Case 2"  "Case 3"      "Case 4"  
85%                  85%           80%       90%           70%  
  1. 由于这是一个活动的工作表,我不是只选择5列,而是用户可以输入几个案例。我希望功能正常工作,以便它能准确显示5个案例(如上所述),但是如果它们出现在工作表上,它们也会显示更多案例。

  2. 我一直在尝试使用下面的代码。我希望“案例”在x轴上,我希望百分比轴在y轴上。我有一个问题是如何表示我想要的数据。我还希望图表上的每个栏都能呈现个案。

  3. CODE:

    Sub Chart1()
    
    Dim wsData As Worksheet
    
    Dim cht As Chart
    
    
    Set wsData = ThisWorkbook.Worksheets("Sheet1")
    
    Set cht = Charts.Add
    
    With cht
    
    .SetSourceData wsData.Range("C4:XFD4", "C17:XFD17")
    
    .PlotBy = xlColumns
    
    .ChartType = xlColumnStacked
    
    .HasTitle = True
    
    .ChartTitle.Text = "% Conversion"
    
    End With
    
    End Sub
    

    提前感谢您的帮助!!

0 个答案:

没有答案