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

maoyi05

一般打开一个excel表格里面会有三个图表,但一般是不够用的.有时候要用到十几个甚至几十个,一直用插入图表很麻烦,重复操作也浪费时间.
所以想问一下,有没有批处理的命令,能一次插入多个图表的.

liuwenxi

我也想知道

chylhr

'使用以下宏过程可满足你的要求,
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

yi.gao

菜单工具〉选项〉常规〉新工作簿中的工作表数，把这个设置改了，以后每次新建新文件都会包含你需要的工作表数。

maoyi05

谢谢楼上各位了,很有用.