使Excel上的标签动态化

Question

如何在Excel中动态地输入Label字段？我想要的是，当我打开excel文件时，我的用户名将显示在动态标签字段中。在Excel5.0对话框上。

​

​

Answer 1

使用它将值绑定到用户名和Workbook_Open事件。只需确保你在“标签1”中有正确的名字。

Private Sub Workbook_Open()
    Worksheets("YourSheetName").Shapes("Label 1").TextFrame.Characters.Text = Environ("Username")
End Sub

放置在VBA.Project ThisWorkbook中

在这里，您可以找到标签的名称：

​

​

Answer 2

将其放在特定于工作表的模块中-每当工作表上的某些内容发生更改时，这将动态地更改Label 1的标题：

Private Sub Worksheet_Change(ByVal Target As Range)
    ActiveSheet.Shapes("Label 1").TextFrame.Characters.Text = Range("A1").Value
End Sub