excel - VBA 宏将柱形图中的垂直轴更改为选择中的最小值和最大值

Question

我想根据我的选择以编程方式生成柱形图。但是，我希望垂直轴值是选择中的最小值和最大值。我认为这可以通过 WorksheetFunction.Max(DataRange) 获得虽然这似乎确实调整了水平轴，但我不确定垂直轴值来自哪里。

例如，如果这是我选择的数据下面的宏生成的图表如下所示:

但是，我希望纵轴为 1-5，横轴为频率值(即该数字出现的次数)。我该怎么做？

此外，我是 Excel 新手，因此如果您在其他地方看到改进，我将不胜感激。

Sub GenerateGraph()

    Dim MyChart As Chart
    Dim DataRange As Range
    Set DataRange = Selection

    Set MyChart = Charts.Add
    MyChart.SetSourceData Source:=DataRange
    ActiveChart.ChartType = xlBarClustered

    With ActiveChart.Axes(xlValue, xlPrimary)
        .MaximumScale = WorksheetFunction.Max(DataRange)
        .MinimumScale = WorksheetFunction.Min(DataRange)
        .MajorUnit = 1

    End With

Answer 1

如果您在 Excel 中加载了分析工具库，则可以在创建图表之前将数据转换为直方图。

在功能区的“数据”选项卡上，“分析”面板中将有“数据分析”。单击此按钮，然后从列表中选择直方图。

将启动一个向导，询问数据范围、bin 范围和输出范围。您可以预先设置 bin 范围，在您的情况下，这只是数字 1 到 5。当您的数据变得更复杂时，您可以使用 MIN 和 MAX工作表功能可帮助确定您的垃圾箱。

您会在上图中注意到，bin 范围是用实际数据上方的 1 个空白单元格定义的。 Excel 需要这个额外的行，但我不知道为什么。 编辑空白行以便您可以使用列标题标记垃圾箱。

获得输出(绿色单元格)后，您可以轻松地将其绘制为条形图。

如果你愿意，你可以用 vba 代码完成所有这些(我过去曾经这样做过)，但它涉及一些严肃的 vba 编码。我建议坚持使用 Excel 的内置功能，除非您确实需要自动化整个过程。

编辑

有一篇代码项目文章/提示/技巧位于 here这应该可以让您几乎完全实现解决方案的自动化。