Excel Vba 如何将单元格的值，同步显示在窗体中的LABEL或TEXTBOX中？
1、Excel Vba 如何在sheet中运行单元格赋值的循环代码，将指定位置单元格的值，同步显示在窗体中的LABEL或TEXTBOX中？
2、指定位置的单元格中的数据会在运行循环代码中变化。
如何将单元格实时变化的值，传递给VBA窗体中的label或textbox？
简单举例：
sheets代码：
for i = 1 to 10000
range("A3").value = i
userform1.show
userform1.label1.caption = range("A3").value
next
以上简单的代码只是表达意思，和我实际的代码不一样。
运行问题：弹出窗体后关闭此窗体才能运行sheet中的代码；更改写法后，只有在运行sheet代码后才能在窗体中显示指定单元格最终的值，窗体label不能实时随单元格更新？
请高手提点！
CPU 100％ 问题，有控制CPU功率或进程的方法吗？
延迟会影响速度！
1、首先，在电脑中找到并打开Excel，在工具栏找到开发工具。
2、然后，在开发工具栏下点开VisualBasic。
3、然后，使用lable控件来来显示变量内容，接着双击按钮1进入按钮1的代码编写。
4、在按钮1中输入：UserForm1.Label1.Caption = a。
5、然后，回到form，点击运行窗体。
6、最后，lable位置发生了变化，显示了变量a的值。
温馨提示：答案为网友推荐，仅供参考
第1个回答 2016-02-01
步骤如下：
Sheet1的A1:A10中有如下内容
插入窗体，并插入一个复选框
双击窗体，添加如下代码
按F5执行代码，结果如下：
第2个回答 推荐于2017-11-27
似乎你的代码只能放在事件里，才能实现，比如点击按钮事件，鼠标移动事件，值改变事件，激活事件等。你想想你的这段代码是在什么情况下触发的，把它放在对应的事件里。
注意 ：必须加上延时才能看出效果
如果你这段代码是窗体一弹出，就运行，可以把它放在 UserForm_Activate事件里
private Sub UserForm_Activate()
Dim i As Integer
For i = 0 To 100
LabelFile1 = i
delay (10)// 延时
Next
End Sub
'***********延时*************************************
Sub delay(T As Single)
Dim T1 As Single
T1 = Timer
Do
DoEvents
Loop While Timer - T1 < T
End Sub
'延时
****************************************
不好意思，才看到。不知道你解决没有。我这边CPU是50%。
解决办法没找到，，5555555555555
55，不好意思哦。本来可以用SLEEP的，可是SLEEP要刷屏，而你那是在窗体内，上班又没时间研究，你请教下高人，小女子不好意思本回答被提问者采纳
注意 ：必须加上延时才能看出效果
如果你这段代码是窗体一弹出，就运行，可以把它放在 UserForm_Activate事件里
private Sub UserForm_Activate()
Dim i As Integer
For i = 0 To 100
LabelFile1 = i
delay (10)// 延时
Next
End Sub
'***********延时*************************************
Sub delay(T As Single)
Dim T1 As Single
T1 = Timer
Do
DoEvents
Loop While Timer - T1 < T
End Sub
'延时
****************************************
不好意思，才看到。不知道你解决没有。我这边CPU是50%。
解决办法没找到，，5555555555555
55，不好意思哦。本来可以用SLEEP的，可是SLEEP要刷屏，而你那是在窗体内，上班又没时间研究，你请教下高人，小女子不好意思本回答被提问者采纳
第3个回答 2016-01-06
form1.label1.caption = cells(i,j)
form1.text1.text = cells(i,j)
一般有窗体的情况下，VBA代码是直接写在窗体的代码中的。这时候，form1就可以去掉了。如下：
label1.caption = cells(i,j)
text1.text = cells(i,j)
代码中的label,text1,form1替换成实际的控件名称。
form1.text1.text = cells(i,j)
一般有窗体的情况下，VBA代码是直接写在窗体的代码中的。这时候，form1就可以去掉了。如下：
label1.caption = cells(i,j)
text1.text = cells(i,j)
代码中的label,text1,form1替换成实际的控件名称。
第4个回答 2009-02-26
在
Worksheet_Change的事件中填写代码。
lable1.caption=range("a1").value
Worksheet_Change的事件中填写代码。
lable1.caption=range("a1").value
相似回答