省时省力 | Excel关联PPT，一招搞定图表数据自动更新
我的图书馆
省时省力 | Excel关联PPT，一招搞定图表数据自动更新
今天在微博看见人民日报的微博都在开始刊登Excel技巧了，倍感压力山大。好长时间也没有分享Excel技巧了，索性今天分享一篇实用小技巧大应用的东东。背景：做业务每个月最头痛的就是用PPT做销售月报，需要在PPT中手动更新一个月的数据，非常麻烦！有没有一种办法，我们只需要在Excel中更新好数据，PPT中就自动生成？特别是当我们的Excel文件本身就是分析模板的时候，我们就不需要重复劳动了。答案是这个可以有！首先在Excel中做好需要复制到PPT中去的图表。imgLoading选中该图表（只选图表，不选数据源的部分），然后选择复制。最后打开PPT文件的对应页面，按照下图中<font color="#个步骤操作即可。imgLoading这个时候PPT图表中的数字就会随Excel中的数据变化而变化。下个月只需要修改excel中的数据，PPT中的数据就能跟着自动变了，不需要再手动录入。imgLoading如果PPT中的图表数据没有变化，也可以选中PPT中的图表后单击鼠标右键，手动选择更新链接，进行强制更新，如图所示。imgLoading无论你Excel中有多少个图表，都可以依次复制粘贴到PPT中。另外每次打开这个PPT文件的时候它都会提醒你是否需要更新链接，如果你点了更新链接，那所有图表都将一次性全部更新。
TA的最新馆藏两个excel表格修改其中一个另一个如何自动更新（内容可能数字或文本_excel吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：145,669贴子：
两个excel表格修改其中一个另一个如何自动更新（内容可能数字或文本收藏
表一 姓名 性别 单位 地址张三 男 省医院 人民路李四 女 第一学校 人民北路王五 男 第二学校 人民南路表二 姓名 性别 单位 地址张三 男 省医院 人民路王五 男 第二学校 人民南路表一数据多，包含表二所有数据举例说明 ：如果表一 张三 单位变更，表二中张三的单位也要变更，如何操作。现实中数据有几千条，怎么操作方便快捷、准备？无比感谢~
登录百度帐号推荐应用查看: 569|回复: 2
如何将多个excel中的同一个sheet自动更新到另一个总表的一个sheet
阅读权限10
在线时间 小时
求助大神，如何将多个excel中的同一个sheet自动更新到另一个excel中的一个sheet，或者说另一个excel的sheet 可以自动抓取多个excel中一个excel的数据。
大概具体就是process control表中的Result Oriented表单可以自动抓取附件中所有recruiters表中的职位库这个表单。
10:43 上传
点击文件名下载附件
339.2 KB, 下载次数: 7
总表是process control
阅读权限10
在线时间 小时
都没有人顶贴==
阅读权限10
在线时间 小时
Sub 合并当前目录下所有工作簿的全部工作表()
Dim MyPath, MyName, AWbName
Dim Wb As Workbook, WbN As String
Dim G As Long
Dim Num As Long
Dim BOX As String
Application.ScreenUpdating = False
MyPath = ActiveWorkbook.Path
MyName = Dir(MyPath & &\& & &*.xls&)
AWbName = ActiveWorkbook.Name
Do While MyName && &&
If MyName && AWbName Then
Set Wb = Workbooks.Open(MyPath & &\& & MyName)
Num = Num + 1
With Workbooks(1).ActiveSheet
.Cells(.Range(&B65536&).End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)
For G = 1 To Sheets.Count
Wb.Sheets(G).UsedRange.Copy .Cells(.Range(&B65536&).End(xlUp).Row + 1, 1)
WbN = WbN & Chr(13) & Wb.Name
Wb.Close False
MyName = Dir
Range(&B1&).Select
Application.ScreenUpdating = True
MsgBox &共合并了& & Num & &个工作薄下的全部工作表。如下：& & Chr(13) & WbN, vbInformation, &提示&
这段代码是将路径下的所有的工作薄的所有的sheet都复制进去，但是没有说将要工作薄指定sheet复制进去。
求大神指导
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师}