页眉更改无效

thdyyf

请大神帮忙看下，inputbox输入新内容后，对应的页眉内容并没有更新。

thdyyf

是不是Excel2016的版本问题？好像我用WPS打开就没有这个问题

ww87725244

1. Sub s9_HeaderFooter()
   
2. Application.ScreenUpdating = False
   
3. Dim myText As String, f1 As String, f2 As String
   
4. f1 = Worksheets("Sheet1").Cells(1, 1)
   
5. f2 = Worksheets("Sheet1").Cells(1, 2)
   
6. myText = InputBox("Enter your text here", "Enter Text")
   
7. With Worksheets("Sheet1").PageSetup
   
8.     .LeftHeader = "&F"                   '页眉左设置为：文件名
   
9.     .CenterHeader = myText               '页眉中设置为：输入的指定信息
   
10.     .RightHeader = f1 & f2                  '页眉右设置为：单元格A1A2里的信息
    
11.     .LeftFooter = "&B 机密 &B"           '页脚左设置为：加粗的 机密两个字
    
12.     .CenterFooter = "&D"                 '页脚中设置为：当前日期
    
13.     .RightFooter = "&p/&N"               '页脚右设置为：页码
    
14.     End With
    
15. Application.ScreenUpdating = True
    
16. End Sub

复制代码

cidanji

注释掉Application.PrintCommunication = False，不关打印通讯呢