问每次打开userform时更新userform标签Worksheet_Calculate
EN

Stack Overflow用户

提问于 2019-03-14 16:38:59

回答 1查看 34关注 0票数 1

我有用户表单，我有标签，每次我在我的工作表“价格计算”上更改一些东西时都会更新。一切似乎都很好，除了当我关闭用户表单，然后再次打开它的情况。那么所有的标签都是空的。如果我转到我的工作表“价格计算”，并在userform打开时在那里进行更改，我会再次将值返回到userform。如何在打开用户表单时更新标签？

下面是我的工作表“价格计算”的代码：

Private Sub Worksheet_Calculate()

Dim Ws As Worksheet

Set Ws = ThisWorkbook.Sheets("Price calculation")

Summary.Controls("Label630").Caption = Ws.Range("I1850").Value
Summary.Controls("Label635").Caption = Ws.Range("I1850").Value
Summary.Controls("Label634").Caption = Ws.Range("I1854").Value
Summary.Controls("Label633").Caption = Ws.Range("I1855").Value
Summary.Controls("Label632").Caption = Ws.Range("I1856").Value
Summary.Controls("Label631").Caption = Ws.Range("I1860").Value

End Sub

用户表单将打开：

Sub DisplaySummary()

Summary.Show (vbModeless)

End Sub

excel

vba

回答 1

Stack Overflow用户

回答已采纳

发布于 2019-03-14 16:48:14

使用Prive Sub Userform_Initialize()，您可以在用户表单打开时设置您想要的标签。如下所示：

Private Sub Userform_Initialize()

   Dim Ws As Worksheet

   Set Ws = ThisWorkbook.Sheets("Price calculation")

   Me.Controls("Label630").Caption = Ws.Range("I1850").Value
   Me.Controls("Label635").Caption = Ws.Range("I1850").Value
   Me.Controls("Label634").Caption = Ws.Range("I1854").Value
   Me.Controls("Label633").Caption = Ws.Range("I1855").Value
   Me.Controls("Label632").Caption = Ws.Range("I1856").Value
   Me.Controls("Label631").Caption = Ws.Range("I1860").Value

   Set Ws = Nothing

End Sub

票数 2

页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持

原文链接：

https://stackoverflow.com/questions/55158097

复制

相似问题

问每次打开userform时更新userform标签Worksheet_Calculate
EN

回答 1

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问每次打开userform时更新userform标签Worksheet_CalculateEN

回答 1

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问每次打开userform时更新userform标签Worksheet_Calculate
EN