求助：图表中这样的想法怎样实现？

控制面板 · 发表于 2004-7-9 18:50

十分感谢各位大侠！在基础应用版发过才看到这个新开的图表版……

K4jPNLWO.rar (99.34 KB, 下载次数: 64)

办公之星 · 发表于 2004-7-9 19:27

　　苦苦录了快一个小时的宏，也没有成功。汗……

含笑 · 发表于 2004-7-10 22:58

以下是引用控制面板在2004-7-9 18:50:00的发言：

十分感谢各位大侠！在基础应用版发过才看到这个新开的图表版……

呵呵。欢迎，欢迎，热烈欢迎。

已经做好了，我多插入了一个表，叫TEMP；然后把图的数据源改到TEMP。之后做了五个宏，作用是分别拷贝1、2、3、4、5的数据到TEMP来。我不会复杂的宏，只能‘曲线救国’啦，哈哈。快捷键分别是 Ctrl + Q/W/E/R/T。我也不会把宏链接到按钮上，否则就做他五个按钮。不过此法实在不雅观。。假如你有100个表，按照我的方法是肯定不行的，因为好像快捷键只有52吧？

最好是做成数据透视表，把所有的数据都弄到里面去，还不用使用宏(其实是我对宏不在行，嘿嘿[em02])

zqlfLXEd.rar (104.51 KB, 下载次数: 26)

含笑 · 发表于 2004-7-10 23:36

最好的办法就是做成数据库的形式，然后生成数据透视表。

文件已上传，相信原来五个表里面的数据，是具有不同的意义的，因此多了一个叫“表”的字段，楼主可以根据实际需要填写不同内容：比如说原来表1是销售额，则可把“表”字段下1全部替换成“销售额”。

Wbb8cFzY.rar (206.82 KB, 下载次数: 21)

剩下3个表，还请楼主自己把这3个表的数据贴到“数据源”这个表里面，按照那个格式。将来假如跨年的话，可以再建立一个字段，叫“年份”；如果超过65536行，可以弄到ACCESS的MDB文件里面。

含笑 · 发表于 2004-7-10 23:50

确实是高级货！我就是不知道怎么改数据区。。

直接改数据区的办法，还有一个明显的好处：就是在改变了图表的形状以后，

不需要再去改图表的格式，虽然图表格式也可以用宏改，但是也要录啊，麻烦。

陈斑竹，你是做什么工作的？

fghgao · 发表于 2004-7-11 19:52

以下是引用chenjun在2004-7-10 23:45:00的发言： 直接用宏改变图表的数据源区域即可，

见附件看了好久也没有弄明白，宏1是通过什么来触发的？？

fghgao · 发表于 2004-7-12 19:09

呵呵，眼睛看花了，一下子没有注意到！

办公之星 · 发表于 2004-7-14 20:18

Option Explicit

Sub 宏1() ' ' 宏1 Macro ' user 记录的宏 2004-7-10 ' Dim rng As Range, sht As Worksheet Set sht = Worksheets(Range("D1")) Set rng = sht.Range("A1").Resize(Application.WorksheetFunction.CountA(sht.Columns(1)), Application.WorksheetFunction.CountA(sht.Rows(1))) ActiveSheet.ChartObjects("图表 6").Activate ActiveChart.SetSourceData Source:=rng, PlotBy:=xlColumns ActiveSheet.Range("D1").Select End Sub 　　　这么复杂的问题，宏录得这么小，真是不可思议，哪位高手抽空把关键语句给注释一下，谢谢。

办公之星 · 发表于 2004-7-15 08:52

　　感谢chenjun。像你们这种程度，编程时需不需要先录宏再行调试、简化？

控制面板 · 发表于 2004-7-15 11:59

十分非常感谢各位高手帮助，我没vb编程基础，看宏看得似懂非懂，能不能用定义或函数搞定呢？再次十分非常感谢！

		自动登录	找回密码
密码			免费注册

求助：图表中这样的想法怎样实现？

另求他解