Excel Vba 如何将单元格的值，同步显示在窗体中的LABEL或TEXTBOX中？

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

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

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

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

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

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

步骤如下：

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

   

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

   

   
   

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

   

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

   

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

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

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

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

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