Excel自定义窗体label控件caption属性不能自动刷新

Question

本帖最后由 bcrun 于 2015-01-24 10:26:20 编辑

Answer 1

1、For I = 1 To Sheets.Count - 1
为什么要-1？2、下面代码起啥作用？
      tt = Timer
      Do Until Int(Timer - tt) = SlTime
        DoEvents
      Loop
3、这个CodeForm.Show要放在循环体之前
4、代码还有很大的优化空间
......

Answer 2

[
1.最后一张sheet不读它。
2.每读取一张后停顿几秒。
3.CodeForm.show放在循环体之前也不行。
多谢高手的回复。

Answer 3

在程序的某个位置，最好是循环语句中，写如下代码进去：
DoEvents

Answer 4

      CodeForm.Show
      CodeForm.Label1.Caption = Qicap & co1cap & co2cap & co3cap & co4cap & co5cap & co6cap & co7cap
      
      tt = Timer
      Do Until Int(Timer - tt) = SlTime
        DoEvents
      Loop
以上内容改为
      CodeForm.Label1.Caption = Qicap & co1cap & co2cap & co3cap & co4cap & co5cap & co6cap & co7cap
    DoEvents
    Application.Wait (Now + TimeValue("0:00:02"))
增加一个按钮。
按键事件中写
CommandButton1_Click()
AutoReading
end sub

Answer 5

我的问题是窗体CodeForm的Label1.caption不能自动改变。