标题中的单元格值 – 每个工作表和macros循环都不相同

我有报告说我每个月都在工作，不得不更改标题。 我在工作簿中有20个工作表，每个工作表都需要不同的标题。

我想创build一个头的macros，这将参考每个工作表中的4个单元格。

例如 – 工作表1 – Q115与Q414 – 标题需要引用单元格a150，a151，a152，a153。 单元格a152中有一个公式。 2015财年和FY14工作表将涉及到单元格a150，a151，a152，a153本身，等等…我创build了一个macros后谷歌search，但一旦我运行它所有的工作表都有第一个活动工作表的标题。

你能帮我纠正吗？

Sub InsertHeaderFooter() Dim sheetIndex, numsheets As Integer sheetIndex = 1 numsheets = Sheets.Count ' Loop through each sheet, but don't set any of them to active While sheetIndex <= numsheets Dim sheetname, role, labeltext As String sheetname = Sheets(sheetIndex).name role = GetRole(mode) labeltext = "Some text - " & sheetname & " - " & role strong text With Sheets(sheetIndex).PageSetup .LeftHeader = "" .CenterHeader = vbCr & Range("A150").Text & vbCr & Range("A151").Text & _ vbCr & Range("A152").Text & vbCr & Range("A153").Text .RightHeader = "" .LeftFooter = "" .CenterFooter = "SanDisk Confidential" .RightFooter = "&[Date] - &[Time]" End With sheetIndex = sheetIndex + 1 Wend End Sub 

Answer 1

更改

 .CenterHeader = vbCr & Range("A150").Text & vbCr & Range("A151").Text & _ vbCr & Range("A152").Text & vbCr & Range("A153").Text 

至

  .CenterHeader = vbCr & .Range("A150").Text & vbCr & .Range("A151").Text & _ vbCr & .Range("A152").Text & vbCr & .Range("A153").Text 

Range对活动工作表进行引用。

.Range对With Sheets(sheetIndex)表单进行引用。