如何实现自动隐藏柱形图中无数据的水平轴标签？

作者：绿色风分类：时间：2022-08-18 浏览：199

楼主
omnw

Q：如何实现自动隐藏柱形图中无数据的水平轴标签？
A：利用柱形图不显示数据源中已经隐藏数据的特点，利用VBA实现柱形图自动隐藏无数据的水平轴标签。
点击存放数据源的工作表，会自动将数据全部显示出来；点击图表工作表时，会自动隐藏数据为空的区域。

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim i As Integer
Dim j As Integer
Application.ScreenUpdating = False
With Sheet1
j = .[A65536].End(xlUp).Row
If Sh.Name = "Sheet1" Then '如果激活图表数据源工作表，则取消全部数据的隐藏
For i = 2 To 10
.Columns(i).Hidden = False
Next i
End If
If Sh.Name = "Chart1" Then '如果激活图表工作表，则取消空值的列，以实现图表隐藏空值的效果
For i = 2 To 10
If Application.WorksheetFunction.Count(.Range(.Cells(3, i), .Cells(j, i))) = 0 Then .Columns(i).Hidden = True
Next i
End If
End With
Application.ScreenUpdating = True
End Sub

隐藏空值.gif

隐藏空值.rar

2楼
rabbitllu

V白直接下载使用了，谢谢分享

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表