excel - 动态范围的图表
问题描述
我正在使用 VBA 从动态图表中制作图表。图表按预期出现,但是我希望 X 轴仅显示包含数据的列中的 X 值。这里显示了所有列,包括那些没有任何数据的列。
下面是我的代码:
Dim rng As Range
Dim cht As Object
Dim LstRw2 As Long
Dim N As Long
N = Cells(1, 1).End(xlDown).Row
Set rng = Range("E2:O" & N)
Set cht = ActiveSheet.Shapes.AddChart
cht.chart.SetSourceData Source:=rng
cht.chart.ChartType = xlColumnClustered
ActiveSheet.ChartObjects("Chart 1").chart.SeriesCollection(1).XValues = _
"='Sheet1'!$F$11:$O$11"
End Sub
截至目前,它从另一张表中获取 xvalues 但是我想将当前工作表用于值
在添加的图片 2021,2022,2023 中不应显示 x 轴,因为它们没有任何数据。
解决方案
请尝试此代码:
Sub MakeChart()
Dim rng As Range, cht As ChartObject, LstRow As Long, i As Long
Dim sh As Worksheet, lastCol As Long, lastC As Long, ColAddr As String
Set sh = ActiveSheet 'use here your sheet
LstRow = sh.Cells(Cells.Rows.count, 1).End(xlUp).row 'last row in A:A
'Last column on the third row
For i = 2 To LstRow
lastC = sh.Cells(i, Cells.Columns.count).End(xlToLeft).column
If lastC > lastCol Then lastCol = lastC
Next i
ColAddr = sh.Cells(1, lastCol).Address 'last column address (on first row)
Set rng = sh.Range(sh.Range("E2"), sh.Cells(LstRow, lastCol))
Set cht = ActiveSheet.ChartObjects.Add(left:=100, top:=80, width:=350, _
height:=250)
cht.Chart.SetSourceData source:=rng
cht.Chart.ChartType = xlColumnClustered
sh.ChartObjects(sh.ChartObjects.count).Chart.SeriesCollection(1).XValues = _
"='" & sh.Name & "'!$F$1:" & ColAddr
End Sub
我更新了代码以使用范围的较长行,以便设置要使用的值Chart.SeriesCollection(1).XValues
...
推荐阅读
- shopify - Shopify的主题编辑器中为什么不显示范围单位
- php - 如何使用 laravel 的集合访问对象?
- python - 我如何用一堆 if 语句来读取这个函数?
- python - Odoo - 根据项目中的角色过滤下拉列表
- id-generation - Google Meet ID 是如何生成的?
- php - 如何在laravel查询构建器中返回数组而不是对象
- node.js - MongoDB,“不能对包含项目中删除的字段进行排除”
- python - 移动对数图
- rdfs - rdfs:subPropertyOf 的 Shacl 处理
- c# - Rosyln/NetAnayzers/Stylecop Analyzers:生成检查报告