Hsieh

回復 9# Jared
要了解事件程序的觸發時機
你的流程是在開啟表單時就讓ComboBox載入清單
選擇年、月後ComboBox3可判斷最後日期而載入清單
而TextBox1直接顯示當天日期

1. Private Sub ComboBox2_Change()
   
2. chang_day
   
3. End Sub
   
4. 
   
5. Private Sub ComboBox3_Change()
   
6. chang_day
   
7. End Sub
   
8. 
   
9. Private Sub CommandButton1_Click()
   
10. Dim A As Range
    
11. If Application.CountBlank(Sheet10.Range("A5:A99")) = 0 Then
    
12. Sheet10.[A100] = DateSerial(ComboBox1.Value, ComboBox2.Value, ComboBox3.Value) 'DateSerial為日期屬性
    
13. Else
    
14. Set A = [A5]
    
15. Do Until A = ""
    
16.     Set A = A.Offset(1, 0)
    
17. Loop
    
18. A.Value = DateSerial(ComboBox1.Value, ComboBox2.Value, ComboBox3.Value) 'DateSerial為日期屬性
    
19. End If
    
20. End Sub
    
21. 
    
22. 
    
23. Private Sub UserForm_Initialize()
    
24. For i = 2013 To 2020
    
25.     ComboBox1.AddItem i
    
26. Next
    
27. For i = 1 To 12
    
28.     ComboBox2.AddItem i
    
29. Next
    
30. For i = 1 To 31
    
31.     ComboBox3.AddItem i
    
32. Next
    
33. b21 = Date
    
34. 
    
35. End Sub
    
36. Sub chang_day()
    
37. If Val(ComboBox1) > 0 And Val(ComboBox2) > 0 Then
    
38. ComboBox3.Clear
    
39. For i = 1 To Day(DateSerial(ComboBox1.Value, ComboBox2.Value + 1, 0))
    
40.    ComboBox3.AddItem i
    
41. Next
    
42. End If
    
43. End Sub

複製代碼

mark15jill

回復 10# Jared


    不會啦ˇˇ
只是我比較雞婆而已..
話說 您的問題有解決了嗎?

Jared

回復 12# mark15jill

還沒有...>"<
還在找尋其他辦法

Jared

回復 11# Hsieh


感謝大大的協助
但是我不明白的是
執行這行程式
If Val(ComboBox1) > 0 And Val(ComboBox2) > 0 Then
就出現

下載 (12.38 KB)

2013-3-1 11:02

不知道是什麼問題＞"＜

Hsieh

回復 14# Jared
刪除這兩個控制項ComboBox1、ComboBox2
重新設置，這可能你在重新命名後曾經有新增ComboBox控制項然後刪除
導致記憶中的殘留物件，當然這只是猜測，若有知道確實原因者，請不吝指正