窗体上的标签数据是通过单元格赋值的，我希望在单元格的数字改变后，窗体的标签数...

风雨相随3 · 发表于 2024-7-5 19:13

求助.rar (20.67 KB, 下载次数: 10)

请问各位大师，VBA窗体上的数据怎么刷新，窗体上的标签数据是通过单元格赋值的，我希望在单元格的数字改变后，窗体的标签数据能跟着改变，目前我只知道关闭窗体再重新显示窗体可以达到这个效果，请问还有什么方法可以达到刷新窗体的作用，具体如图示，还请各位大师帮忙，谢谢！

q490525427 · 发表于 2024-7-5 19:18

回错了，意外

Qs18 · 发表于 2024-7-5 19:39

单元格改变时重新加载

jaxxcyh · 发表于 2024-7-5 19:53

Public Sub ZTimer()
UserForm1.TextBox1.Text = Now
If Not Zen Then Exit Sub
Application.OnTime Now + 1 / (24# * 3600), "ZTimer"
If Right(UserForm1.TextBox1.Text, 1) = 5 Then
Application.Calculate
UserForm1.Label1.Caption = [a1].Value '这里加一句即可
End If
End Sub

lss001 · 发表于 2024-7-5 19:56

本帖最后由 lss001 于 2024-7-5 20:52 编辑

参考一下附件注意星号位置

求助.rar (22.1 KB, 下载次数: 7)

micch · 发表于 2024-7-5 20:00

可以在单元格所在工作表里写change事件，然后用代码去更新窗体

jaxxcyh · 发表于 2024-7-5 20:04

Public Sub ZTimer()
UserForm1.TextBox1.Text = Now
If Not Zen Then Exit Sub
Application.OnTime Now + 1 / (24# * 3600), "ZTimer"
If Right(UserForm1.TextBox1.Text, 1) = 5 Then
Application.Calculate
UserForm1.Label1.Caption = [a1].Value '这里加一句就行了
End If
End Sub

jaxxcyh · 发表于 2024-7-5 20:05

lss001 发表于 2024-7-5 19:56
参考一下附件注意星号位置

似乎没有用

lss001 · 发表于 2024-7-5 20:10

jaxxcyh 发表于 2024-7-5 20:05
似乎没有用

您有实践过吗?

jaxxcyh · 发表于 2024-7-5 20:11

把这句加到Ztimer里就OK

UserForm1.Label1.Caption = [a1].Value

		自动登录	找回密码
密码			免费注册

[求助] 窗体上的标签数据是通过单元格赋值的，我希望在单元格的数字改变后，窗体的标签数...