返回列表 上一主題 發帖

[發問] 下拉式清單裡選擇"篩選不重複的資料"

回復 30# lifedidi
  1. Option Explicit
  2. Private Sub TextBox1_Change()
  3.     計時
  4. End Sub
  5. Private Sub TextBox2_Change()
  6.     計時
  7. End Sub
  8. Private Sub 計時()
  9.     'TextBox3控制項 請改成Label控制項為佳
  10.     If IsDate(TextBox1) And IsDate(TextBox2) Then
  11.         TextBox3 = Format(CDate(TextBox2) - CDate(TextBox1), "HH:MM")
  12.         'Label1.Caption = Format(CDate(TextBox2) - CDate(TextBox1), "HH:MM")
  13.     Else
  14.         TextBox3 = ""
  15.       '  Label1.Caption = ""
  16.     End If
  17. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

我也碰到類似的困難,真的順利的解決了 謝謝~!

TOP

一連串精彩的問答,真是獲益良多

TOP

        靜思自在 : 【停滯不前,終無所得】人都迷於尋找奇蹟,因而停滯不前;縱使時間再多、路再長,也了無用處,終無所得。
返回列表 上一主題