Question

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功率或进程的方法吗？
延迟会影响速度！

Answer 1

1、首先，在电脑中找到并打开Excel，在工具栏找到开发工具。

2、然后，在开发工具栏下点开VisualBasic。

3、然后，使用lable控件来来显示变量内容，接着双击按钮1进入按钮1的代码编写。

4、在按钮1中输入：UserForm1.Label1.Caption = a。

5、然后，回到form，点击运行窗体。

6、最后，lable位置发生了变化，显示了变量a的值。

Answer 2

步骤如下：

1. Sheet1的A1:A10中有如下内容

   

2. 插入窗体，并插入一个复选框

   

   
   

3. 双击窗体，添加如下代码

   

4. 按F5执行代码，结果如下：

   

Answer 3

似乎你的代码只能放在事件里，才能实现，比如点击按钮事件，鼠标移动事件，值改变事件，激活事件等。你想想你的这段代码是在什么情况下触发的，把它放在对应的事件里。

注意 ：必须加上延时才能看出效果

如果你这段代码是窗体一弹出，就运行，可以把它放在 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要刷屏，而你那是在窗体内，上班又没时间研究，你请教下高人，小女子不好意思

Answer 4

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替换成实际的控件名称。

Answer 5

在
Worksheet_Change的事件中填写代码。
lable1.caption=range("a1").value