Hsieh

¦^´_ 9# Jared
­n¤F¸Ñ¨Æ¥óµ{§ÇªºÄ²µo®É¾÷
§Aªº¬yµ{¬O¦b¶}±Òªí³æ®É´NÅýComboBox¸ü¤J²M³æ
¿ï¾Ü¦~¡B¤ë«áComboBox3¥i§PÂ_³Ì«á¤é´Á¦Ó¸ü¤J²M³æ
¦Ó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

½Æ»s¥N½X

mark15jill

¦^´_ 10# Jared


    ¤£·|°Õ£¾£¾
¥u¬O§Ú¤ñ¸ûÂû±C¦Ó¤w..
¸Ü»¡ ±zªº°ÝÃD¦³¸Ñ¨M¤F¶Ü?

Jared

¦^´_ 12# mark15jill

ÁÙ¨S¦³...>"<
ÁÙ¦b§ä´M¨ä¥L¿ìªk

Jared

¦^´_ 11# Hsieh


·PÁ¤j¤jªº¨ó§U
¦ý¬O§Ú¤£©ú¥Õªº¬O
°õ¦æ³o¦æµ{¦¡
If Val(ComboBox1) > 0 And Val(ComboBox2) > 0 Then
´N¥X²{

¤U¸ü (12.38 KB)

2013-3-1 11:02

¤£ª¾¹D¬O¤°»ò°ÝÃD¡Ö"¡Õ

Hsieh

¦^´_ 14# Jared
§R°£³o¨â­Ó±±¨î¶µComboBox1¡BComboBox2
­«·s³]¸m¡A³o¥i¯à§A¦b­«·s©R¦W«á´¿¸g¦³·s¼WComboBox±±¨î¶µµM«á§R°£
¾É­P°O¾Ð¤¤ªº´Ý¯dª«¥ó¡A·íµM³o¥u¬O²q´ú¡A­Y¦³ª¾¹D½T¹ê­ì¦]ªÌ¡A½Ð¤£§[«ü¥¿