返回首页
当前位置: 主页 > Excel教程 > Excel VBA教程 >

Excel vba给所有的工作表自动批量加页码,会计的有福啦

时间:2013-09-11 22:59来源:Office教程学习网 www.office68.com编辑:麦田守望者

今天来分享一段有用而简单的excel编程代码。目的就是这个工作簿所有的工作表自动批量加页码。会计亲们有福啦。
我们按快捷键alt+F11,进入vba的编辑器里。点插入模块。然后在这输入以下代码
Sub 加页码() Dim i%
For i = 1 To Sheets.Count '表示工作表数量
Sheets(i).Range("d1") = i '固定在i1添加页码,i1代表你要的单元格位置。
Next
End Sub

效果就是

Excel vba给所有的工作表自动批量加页码,会计的有福啦
Excel vba给所有的工作表自动批量加页码,会计的有福啦
 

Excel vba给所有的工作表自动批量加页码,会计的有福啦
------分隔线----------------------------
标签(Tag):excel excel2007 excel2010 excel2013 excel2003 excel技巧 excel教程 excel实例教程
------分隔线----------------------------
推荐内容
猜你感兴趣