VBA第二十一期 VBA动态显示柱状图表

在很多时候我们设计的表格显示不出我们所有的数据，下面就是柱状图的显示多列数据，他因为每张图表显示的数据量有限，这里通过两个翻页按钮来实现数据图表的分页动态显示，实例如下：

Dim chartdat As Range

Dim cht As Chart

Dim chartlist() As String, listmsg() As String

Dim i, ii, lastrw, endrw, lastcl

Load UserForm10

Sheets("表1").Select

If pbpagenm < 4 Then pbpagenm = 1

 lastrw = Sheets("表1").Range("a1").End(xlDown).Row