- 帖子
- 4901
- 主題
- 44
- 精華
- 24
- 積分
- 4916
- 點名
- 191
- 作業系統
- Windows 7
- 軟體版本
- Office 20xx
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台北
- 註冊時間
- 2010-4-30
- 最後登錄
- 2025-8-5
               
|
回復 9# Jared
要了解事件程序的觸發時機
你的流程是在開啟表單時就讓ComboBox載入清單
選擇年、月後ComboBox3可判斷最後日期而載入清單
而TextBox1直接顯示當天日期- Private Sub ComboBox2_Change()
- chang_day
- End Sub
- Private Sub ComboBox3_Change()
- chang_day
- End Sub
- Private Sub CommandButton1_Click()
- Dim A As Range
- If Application.CountBlank(Sheet10.Range("A5:A99")) = 0 Then
- Sheet10.[A100] = DateSerial(ComboBox1.Value, ComboBox2.Value, ComboBox3.Value) 'DateSerial為日期屬性
- Else
- Set A = [A5]
- Do Until A = ""
- Set A = A.Offset(1, 0)
- Loop
- A.Value = DateSerial(ComboBox1.Value, ComboBox2.Value, ComboBox3.Value) 'DateSerial為日期屬性
- End If
- End Sub
- Private Sub UserForm_Initialize()
- For i = 2013 To 2020
- ComboBox1.AddItem i
- Next
- For i = 1 To 12
- ComboBox2.AddItem i
- Next
- For i = 1 To 31
- ComboBox3.AddItem i
- Next
- b21 = Date
- End Sub
- Sub chang_day()
- If Val(ComboBox1) > 0 And Val(ComboBox2) > 0 Then
- ComboBox3.Clear
- For i = 1 To Day(DateSerial(ComboBox1.Value, ComboBox2.Value + 1, 0))
- ComboBox3.AddItem i
- Next
- End If
- End Sub
複製代碼 |
|