Excel 在每个工作表的相同位置显示相同的文本

Excel 在每个工作表的相同位置显示相同的文本,excel,vba,Excel,Vba,我在一本工作簿中有10张工作表 在本工作簿中的每个工作表中,我都希望输入客户、项目名称和某个职位的项目经理。这些值在att表中是相同的 理想情况下,我希望用户在一个“管理表”中输入这些详细信息,然后在所有表中显示这些信息,而不考虑它们的列宽 这样做的好方法是什么 我曾考虑在10张工作表中的每一张中输入一个文本框。但这至少有两个缺点 用户可能会意外地选择和移动文本框,并感到困惑和烦恼 我必须有一些VBA工作表更改事件,当用户更改管理表中的项目经理、客户或项目名称时,这些事件会更新复选框。这让人觉

我在一本工作簿中有10张工作表

在本工作簿中的每个工作表中,我都希望输入客户、项目名称和某个职位的项目经理。这些值在att表中是相同的

理想情况下,我希望用户在一个“管理表”中输入这些详细信息,然后在所有表中显示这些信息,而不考虑它们的列宽

这样做的好方法是什么

我曾考虑在10张工作表中的每一张中输入一个文本框。但这至少有两个缺点

  • 用户可能会意外地选择和移动文本框,并感到困惑和烦恼
  • 我必须有一些VBA工作表更改事件,当用户更改管理表中的项目经理、客户或项目名称时,这些事件会更新复选框。这让人觉得不必要的复杂

有更好的方法吗?

您是否可以使用管理表上的命令按钮并从中运行此代码

Sub SO()

For Each ws In ActiveWorkbook.Sheets
    If Not ws.Name = "admin sheet" Then _
        ws.Range("A1:B10").Value = Sheets("admin sheet").Range("A1:B10").Value

    ws.Columns("A:B").AutoFit

Next ws

End Sub

如果你真的想,你可以在“管理工作表”模块中将它分配给一个
工作表\u Change()
事件,但我建议用户至少可以控制一个按钮。

你可以
插入
形状
>,例如
文本框
圆角矩形
,然后在选择新形状的同时单击公式栏,并在管理表上键入对单元格的引用,例如,
='admin sheet'!A1
并根据需要设置形状的格式

确保
格式化形状…
属性
不要移动单元格或调整单元格大小

设计完图纸后,选择要编辑的所有单元格,然后在右键单击菜单
设置单元格格式…
上的
保护
选项卡取消勾选
锁定单元格
,以启用这些单元格的编辑,即使在下一步中:


使用
Review
Protect Sheet
-您不必使用任何密码,您可以启用用户应该执行的所有操作,只要不选中
编辑对象
复选框,就可以阻止用户移动形状。

我可以。我的邮件问题是关于如何在多张图纸上显示一张图纸上的值,而不考虑目标图纸的列宽。在这种情况下,我不能使用“ws.Range(“A1:B10”).Value=“。我可以使用我写的文本框。但是我认为也许有一个更好的解决方案,可以在多张纸上显示数据,而不考虑列宽。你试过这个代码吗?它只获取值-它与列宽无关?很抱歉不清楚。谢谢你的帮助!我的意思是,如果A列很窄,那么A列和B列中的文本将彼此接近。如果A列是宽的,那么它们将彼此远离。我希望文本在所有工作表上显示在相同的位置。对于多行If语句,请使用
End If
而不是行延续字符,以提高可维护性自动拟合没有帮助。这些列包含有关其他行的更多信息。有些列的文本较多,而其他列的文本较少。我需要一个方法来显示一个表上的信息,这不是列依赖。我知道textbox就是这样一种方法。但我认为还有其他更好的方法我不知道。也许有可能拍摄四个细胞的实时照片,并在任何地方展示?或者类似的东西你说的
不考虑列宽是什么意思?公共数据的宽度/位置应强制在所有图纸上的相同位置?或者它可以在每张纸上有不同的宽度/位置?我刚刚注意到OP在回答下的评论:
我希望文本在所有纸上都显示在相同的位置。
这个问题一点也不清楚-您需要提供一个示例,说明您希望数据看起来像什么。