如何用vba设置excel页眉页脚

Sub test()

    Application.PrintCommunication = False

    With ActiveSheet.PageSetup

        .LeftHeader = ""            '页眉左设置为：空

        .CenterHeader = "&F"        '页眉中设置为：文件名

        .RightHeader = ""           '页眉右设置为：空

        .LeftFooter = "&B 机密 &B"  '页脚左设置为：加粗的 机密两个字

        .CenterFooter = "&D"        '页脚中设置为：当前日期

        .RightFooter = " 第 &P 页"  '页脚右设置为：页码

    End With

    Application.PrintCommunication = True

End Sub

以下都是随便设的值,可根据自己的需要修改:

Sub MyPageSetup()

   With ActiveSheet.PageSetup

        '页眉左设置为,空

        .LeftHeader = ""

        '页眉中设置为,文件名

        .CenterHeader = "&F"

        '页眉右设置为,空

        .RightHeader = ""

        '左页脚内容为abc=abcabc,字体为10号(代码中&10）

        .LeftFooter = "&10 abc=abcabc "

        '设置右页脚,第多少页of总页数

        .RightFooter = "Page &P of &N"

        '页脚中设置为,当前日期

        .CenterFooter = "&D"

        '设置左右上下边线距

        .LeftMargin = Application.InchesToPoints(0.19)

        .RightMargin = Application.InchesToPoints(0.31)

        .TopMargin = Application.InchesToPoints(0.35)

        .BottomMargin = Application.InchesToPoints(0.83)

        .HeaderMargin = Application.InchesToPoints(0.31)

        .FooterMargin = Application.InchesToPoints(0.19)

        '设置(排版方向,横或竖))

        .Orientation = xlLandscape

        '设置打印标题行(以下是设第3行和第4行)

        .PrintTitleRows = "$3:$4"

        '选择打印纸张'

        .PaperSize = xlPaperA4

   End With

End Sub

问题一：在电子表格中怎样插入页码？ 文件----页面设置-----页脚（点一下右面的下拉箭头）可根据需要选择！

问题二：EXCEL中，打印电子表格文档时如何添加页码？ 页眉页脚，设置页码

问题三：如何在电子表格中插入页码 页面设置，页眉页脚，然后在页脚那选择页码类型，或者设置自定义页脚时插入页码，就可以了。

问题四：excel表格中能否插入页码？？怎样 *** 作？？ 单击“文件”-打印预览，然后点设置，会d出一个对话框，单击页眉/页脚，再点自定义页眉或者自定义页脚，看你想把页码加在什么地方，然后选择你需要的页码（第？页/第？页，共？页）

问题五：在Excel的单元格里面如何插入页码 大家都知道，在Excel的插入菜单中，没有插入页码的功能。一般情况下，我们都是通过“视图”→“页眉/页脚”和“文件”→“页面设置”两种方式进行页码的设置。 通过如上的两种方法设置页码，页码显示的位置要么是页脚要么是页眉； 那么，我们如何才能设置页码，让其具有个性化呢，如何将让页码显示在表格里面的某个任意的一个单元格呢？ 如果您需要这样的页码，请您遵循如下的几种方法，就可以实现！ 第一种方法：用VBA Function page() page = (ActiveSheet.HPageBreaks.Count + 1) * (ActiveSheet.VPageBreaks.Count + 1) Application.Volatile End Function 第二种方法：用宏表函数与公式 ①首先：点CTRL+F3打开定义名称，再在上面输入“纵当页”，在下面引用位置处输入： =IF(ISNA(MATCH(ROW(),GET.DOCUMENT(64))),1,MATCH(ROW(),GET.DOCUMENT(64))+1) ②然后再继续添加第二个名称：“横当页”，在下面引用位置处输入： =IF(ISNA(MATCH(column(),GET.DOCUMENT(65))),1,MATCH(column(),GET.DOCUMENT(65))+1) ③再输入“总页”；引用位置处输入： =GET.DOCUMENT(50)+RAND()*0 ④最后再定义“页眉”，引用位置： =第&IF(横当页=1,纵当页,横当页+纵当页)&页/共&总页&页 ⑤在函数栏使用应用即可得到需要的页码。

问题六：怎样在excel2007中添加页码

问题七：07版Excel怎么插入页码? excel2007如何插入页码方法

第一种：用2007版,插入页码功能位于: 页面布局胆打印标题-页眉与页脚，搞定

第二种：只要在插入页面下选页眉和页脚，转到编辑页眉页脚的菜单下，选择页眉或页脚的下拉菜单，里面就有插入页码的格式选项。

问题八：请问怎么在Excel里怎么添加页码？ 文件／页面设置／页眉／页脚选项卡／自定义页脚（或页眉罚／选中页脚左边（或中间、右边都可以，根据需要）按一下上面的＃字符号，下边出现&〔页码〕文字，确定，确定即可。

问题九：excel2010工作表怎么插入页码 页面设置----- 页眉/页脚 -------自定义页脚 从左向右 第二个按钮是当前页码 第三个按钮是总页码

---