找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 985|回复: 4

[求助]:有没有可以在一个表格中一次增加多个图表的命令?

[复制链接]
发表于 2006-8-24 20:39:55 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?立即注册

×
一般打开一个excel表格里面会有三个图表,但一般是不够用的.有时候要用到十几个甚至几十个,一直用插入图表很麻烦,重复操作也浪费时间.
所以想问一下,有没有批处理的命令,能一次插入多个图表的.
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
发表于 2006-8-31 08:02:48 | 显示全部楼层
我也想知道
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2006-8-31 17:03:05 | 显示全部楼层
'使用以下宏过程可满足你的要求,
Sub AddTable()
    Dim TableCount As Integer
    Dim TableMax As Integer
    TableMax = 256 - Sheets.Count
    TableCount = CInt(Val(InputBox("请输入需要插入的工作表数量,注意你所输入的数值不可超过" & TableMax & ":", "插入工作表")))
    If TableCount > TableMax Then
      MsgBox "无法插入工作表,工作表总数不可超过256."
    ElseIf TableCount < 1 Then
      MsgBox "无法插入工作表,因为你没有输入有效数值."
    Else
        Sheets.Add , , TableCount
    End If
End Sub
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2006-8-31 21:08:52 | 显示全部楼层
菜单工具〉选项〉常规〉新工作簿中的工作表数,把这个设置改了,以后每次新建新文件都会包含你需要的工作表数。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2006-9-19 21:15:22 | 显示全部楼层
谢谢楼上各位了,很有用.
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-11-22 06:42 , Processed in 0.320027 second(s), 45 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表