Excel VBA利用事件对图表自动更新

Private Sub Workbook_SheetActivate(ByVal sh As Object)
Dim shrt As Worksheet
Dim rg As Range
Dim rgChartData As Range
Dim chrt As Chart
On Error GoTo NO
'Application.ScreenUpdating = False
Set shrt = sh
'Application.StatusBar = shrt.Name & "图表自动校正..."
'MsgBox (sh.Name)
Set rg = shrt.Range("a2")
Do Until IsEmpty(rg)
Set rg = rg.Offset(0, 1)
Loop
Set rg = rg.Offset(0, -1)
Set rgChartData = shrt.Range("a1: " & rg.Address & ",a4:" & rg.Offset(2, 0).Address)
If shrt.Name = ThisWorkbook.Sheets(2).Name Then
Set chrt = shrt.ChartObjects(1).Chart
Else
Set chrt = shrt.ChartObjects(2).Chart
End If
With chrt
.SetSourceData rgChartData
.ChartTitle.Text = Left(rgChartData.Cells(1, 1).Value, Len(rgChartData.Cells(1, 1).Value) - 1) & "故障"
End With
If shrt.Name <> ThisWorkbook.Sheets(2).Name Then
Set chrt = shrt.ChartObjects(1).Chart
With chrt
.Axes(xlCategory).MaximumScale = rg.Column
End With
End If
'Application.ScreenUpdating = True
Exit Sub
NO: 'Application.StatusBar = shrt.Name & "无图表或者有错！CodeName=" & shrt.CodeName
End Sub

Excel VBA利用事件对图表自动更新相关推荐

Excel VBA 利用FileSystemObject处理文件
Excel VBA 利用FileSystemObject类处理文件 FileSystemObject介绍 FileSystemObject是Windows Script Host Object Mod ...
excel设置图片自动更新_智能Excel排班表，日期自动更新，三班排班一键统计，极简轻松...
Hello大家好,我是帮帮.今天跟大家分享一张智能Excel排班表,日期自动更新,班次一键统计,极简轻松. 为了让大家能更稳定的下载模板,我们又开通了全新下载方式(见文章末尾),以便大家可以轻松获得免 ...
利用python和Tushare自动更新A股每日数据
利用python和Tushare自动更新A股每日数据 tushare ID :423004 所需接口整体思路为: 1.利用stock_basic获取ts_code,获得沪深全部上市公司股票代码 2. ...
python tkinter 表格_python学习笔记（Tkinter编程利用Treeview实现表格自动更新）
博主今天总结这段时间抽空写的一个GUI编程项目功能是查看本地打印机队列,可选择指定队列重新打印直接上图 UI设计包括3个区域左上方,右上方和下方列表区域使用网格grid方法来分配位置下面是界面 ...
陈表达VBA笔记-Excel VBA 编程-在表格做自动筛选的功能
Excel VBA 编程,在表格做自动筛选的功能下面的例子是自动筛选85列的内容,筛选内容为处方 Private Sub CommandButton11_Click() '筛选处方 ...
vba 用adodb连接mysql_【VBA研究】Excel VBA利用ADODB访问数据库使用小结
[转自] http://blog.csdn.net/iamlaosong/article/details/18043433 作者:iamlaosong ▲连接Oracle数据库 Set cnn = C ...
Excel VBA高级编程 - 根据关键字自动搜索，自动生成下拉菜单
关注微信公众号:万能的Excel,回复关键词[下拉菜单]获取Excel源文件功能说明: 因为工作需要,每一次都要从SAP查找物料信息,手动生成物料清单(Boom表),繁琐且容易出错. 使用VBA实现 ...
利用Github Actions部署自动更新PaddleOCR指定代码到指定仓库
目录引言需求描述解决方法采用Github Actions功能具体代码总结参考资料引言首先说呢,我也不想重复造轮子, 但是无奈,网上博客看了一大圈,却始终没有找到自己需要的东西需求描 ...
易语言 ftp控制html,【原创】利用FTP实现软件自动更新
该楼层疑似违规已被系统折叠隐藏此楼查看此楼 .版本 2 .支持库 internet .支持库 EThread .支持库 downlib .支持库 iext .子程序版本比较 .局部变量现行版本, ...

Excel VBA利用事件对图表自动更新

Excel VBA利用事件对图表自动更新相关推荐

最新文章

热门文章