在Excel UserForm中，如何更新标签的标题？
在Excel UserForm中，如何更新标签的标题？
提问于 2011-07-28 12:11:59
我在Excel中创建了我的第一个无模式UserForm，并在它上添加了一个ActiveX标签。如何设置标签的标题，使其显示Sheet1.Range("A1")中的任何内容，并在单元格A1中的值发生变化时自我更新？
基本上，我希望在Userform's单元格中的任何内容发生更改时，始终更新标签。谢谢!
回答 2
Stack Overflow用户
回答已采纳
发布于 2011-07-28 12:18:37
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Cells(1, 1), Target) Is Nothing Then
Exit Sub
End If
UserForm1.Label1.Caption = Sheet1.Range("A1").Value
End Sub每次单元格发生变化时，都会调用子Change。代码这样做:如果A1被更改，则更改Label1在UserForm1上的标题。该表单必须已打开，而不是模态(vbModeless)。
UserForm1.Show vbModelessStack Overflow用户
发布于 2015-12-15 22:52:12
这对我有用。
Sheets("Sheet").Shapes("TheNameOfTheLabel").TextFrame.Characters.Text = "Hello"页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/6858747
复制相关文章
相似问题
腾讯云开发者
