VBA实现自动增加工作表

VBA实现自动增加工作表

宏代码实现增加所需工作表数量!

代码如下:

 
  1. Sub 自动增加工作表()   
  2. Dim i&, userinto   
  3. i = 0  
  4. userinto = InputBox("输入插入工作表数量:")   
  5. If IsNumeric(userinto) = True Then   
  6. Do Until i = userinto   
  7. Worksheets.Add   
  8. i = i + 1  
  9. Loop   
  10. End If   
  11. End Sub   

此宏代码只是为了方便大家批量插入新的工作表数量,不需要一个个添加!

不妨试验下!

分享到:

6 条评论

点击这里取消回复。
注意: 评论者允许使用'@user空格'的方式将自己的评论通知另外评论者。例如, ABC是本文的评论者之一,则使用'@ABC '(不包括单引号)将会自动将您的评论发送给ABC。使用'@all ',将会将评论发送给之前所有其它评论者。请务必注意user必须和评论者名相匹配(大小写一致)。

昵称
  1. IT技术交流网

    呵呵 很不错的

    1. Kael.Z

      谢谢支持!

  2. 自贡SEO

    感谢分享。VB还是很好学的

    1. Kael.Z

      关键还是在于灵活运用,举一反三呢!

  3. 沈奇超

    不错的东西,收下了。。

    1. Kael.Z

      希望对你有起到帮助~