返回列表 上一主題 發帖

[發問] Userform可以作到即時更新嗎？

蒼雪

帖子
43 
主題
9 
精華
0 
積分
79 
點名
1  
作業系統
windows 7 
軟體版本
office 2016 
閱讀權限
20 
註冊時間
2017-7-23 
最後登錄
2024-9-15 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2017-9-5 22:12 | 只看該作者

[發問] Userform可以作到即時更新嗎？

本帖最後由 蒼雪 於 2017-9-5 22:13 編輯

在userform2中，設置了一個textbox，名稱: TB2
而TB2若有輸入數值，則 Label會即時更新。

TB2輸入的格式為:0800-2000 or 0800-1700
而，運算完 Label會即時顯示兩者相差幾小時，目前只能靠著 commandButton_Click來達成...
希望可以作成在Userform下就會自動更新
  1. Dim timebox1, timebox2 As Variant
  2. timebox1 = TimeValue(Mid(TB2, 1, 2) & ":" & Mid(TB2, 3, 2))
  3. timebox2 = TimeValue(Mid(TB2, 6, 2) & ":" & Mid(TB2, 8, 2))
  4. Label9 = (DateDiff("n", DateValue(TB1) & timebox1, DateValue(TB1) & timebox2)) / 60
複製代碼
收藏 分享

蒼雪

帖子
43 
主題
9 
精華
0 
積分
79 
點名
1  
作業系統
windows 7 
軟體版本
office 2016 
閱讀權限
20 
註冊時間
2017-7-23 
最後登錄
2024-9-15 
2#
發表於 2017-9-5 22:25 | 只看該作者
在userform2中，設置了一個textbox，名稱: TB2
而TB2若有輸入數值，則 Label會即時更新。

TB1的部份為輸入日期: 2016/01/01 or 2017/09/05

TB2輸入的格式為:0800-2000 or 0800-1700
而，運算完 Label會即時顯示兩者相差幾小時，目前只能靠著 commandButton_Click來達成...
希望可以作成在Userform下就會自動更新
  1. Dim timebox1, timebox2 As Variant
  2. timebox1 = TimeValue(Mid(TB2, 1, 2) & ":" & Mid(TB2, 3, 2))
  3. timebox2 = TimeValue(Mid(TB2, 6, 2) & ":" & Mid(TB2, 8, 2))
  4. Label9 = (DateDiff("n", DateValue(TB1) & timebox1, DateValue(TB1) & timebox2)) / 60
複製代碼
----------------------------------------------------------------------------------------

嗯...，抱歉，在發表這邊文章後，找到了可用的答案
由於超過3分鐘，不可以進行編輯，所以回在下方QQ
獻醜了....

利用 TB2_Exit的方式去達成
  1. Private Sub TB2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  2. timebox1 = TimeValue(Mid(TB2, 1, 2) & ":" & Mid(TB2, 3, 2))
  3. timebox2 = TimeValue(Mid(TB2, 6, 2) & ":" & Mid(TB2, 8, 2))
  4. Label9 = (DateDiff("n", DateValue(TB1) & timebox1, DateValue(TB1) & timebox2)) / 60
  5. End Sub
複製代碼

TOP

        靜思自在 : 改變自己是自救，影響別人是救人。
返回列表 上一主題