将活动工作表上的页眉设置为不同工作表上的单元格值
将活动工作表上的页眉设置为不同工作表上的单元格值
提问于 2018-08-21 07:15:40
我正在尝试一些我认为很简单的事情，基本上我试图将一个工作表中的页眉设置为另一个工作表中的单元格的值。我似乎不能让单元格引用工作。下面是我正在使用的代码：
Sub PrepareHeader()
Sheet30.PageSetup.CenterHeader = "&""Arial,Bold""&18 " &
Application.ActiveWorkbook.Sheets("Sheet1").Range("A1").Value
End Sub我无法从sheet1上的A1获取数据。有什么想法吗？
回答 1
Stack Overflow用户
回答已采纳
发布于 2018-08-21 07:25:16
选项1
通过将范围设置为相等，将A1中的值从Sheet1携带到Sheet2
Sub PrepareHeader()
ThisWorkbook.Sheets("Sheet2").Range("A1").Value = ThisWorkbook.Sheets("Sheet1").Range("A1").Value
End Sub选项2
通过复制和粘贴，将A1中的值和格式从Sheet1传递到Sheet2
Sub PrepareHeaderV2()
ThisWorkbook.Sheets("Sheet1").Range("A1").Copy
With ThisWorkbook.Sheets("Sheet2").Range("A1")
.PasteSpecial xlPasteValuesAndNumberFormats
.PasteSpecial xlPasteFormats
End With
End Sub注意：
调整Sheet1和Sheet2的值以满足您的需要。我怀疑这是否真的是您所需要的，但希望您能看到正确的语法，并根据需要应用于您的实际问题。如果要处理多个工作簿，则可以在需要时将ThisWorkbook替换为ActiveWorkbook。类似地，可以与ActiveSheet交换Sheets("Sheet1")。但是，我不建议这样做，因为依赖于Active对象的代码并不总是可靠的。
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/51939637
复制相关文章
相似问题
腾讯云开发者
