Question

excel 根据表格内容自动运行VBA设置的页眉

我用VBA规定了Sheet1中右上页眉的内容是“工作表名称+D4单元格内容+当前页码/总页数”并规定了字体及大小，但是这个代码必须要手动运行，而且不能随工作表及单元格的内容自动改变页眉内容。

请问以下代码如何修改可以使代码自动运行，并随工作表名称及单元格内容自动更改页眉内容？
Sub MyPageSetup()
With ActiveSheet.PageSetup
.RightHeader = "&""Arial""&10&A " & Cells(4, 4) & " Page &P/&N"
End With
End Sub

在线等.....

Answer 1

你可以用Workbook_SheetSelectionChange时间，即选择区域改变是执行，也就是其他单元格点下就行了~
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
With ActiveSheet.PageSetup
.RightHeader = "&""Arial""&10&A " & Cells(4, 4) & " Page &P/&N"
End With
End Sub

追问

试了，没用

追答

怎么会没用呢  看截图

追问

我这07版的，确实没用啊

追答

跟版本没关系

追问

可确实没用啊

追答

可别把宏禁用了

追问

没有禁用啊

追答

把你的excel发来看看，你可以另存一份删掉内容