ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

ComboBox¿ï¦n¤å¦r«á¡AÄæ¦ì¨SªF¦è

¦^´_ 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. Private Sub ComboBox3_Change()
  5. chang_day
  6. End Sub

  7. Private Sub CommandButton1_Click()
  8. Dim A As Range
  9. If Application.CountBlank(Sheet10.Range("A5:A99")) = 0 Then
  10. Sheet10.[A100] = DateSerial(ComboBox1.Value, ComboBox2.Value, ComboBox3.Value) 'DateSerial¬°¤é´ÁÄÝ©Ê
  11. Else
  12. Set A = [A5]
  13. Do Until A = ""
  14.     Set A = A.Offset(1, 0)
  15. Loop
  16. A.Value = DateSerial(ComboBox1.Value, ComboBox2.Value, ComboBox3.Value) 'DateSerial¬°¤é´ÁÄÝ©Ê
  17. End If
  18. End Sub


  19. Private Sub UserForm_Initialize()
  20. For i = 2013 To 2020
  21.     ComboBox1.AddItem i
  22. Next
  23. For i = 1 To 12
  24.     ComboBox2.AddItem i
  25. Next
  26. For i = 1 To 31
  27.     ComboBox3.AddItem i
  28. Next
  29. b21 = Date

  30. End Sub
  31. Sub chang_day()
  32. If Val(ComboBox1) > 0 And Val(ComboBox2) > 0 Then
  33. ComboBox3.Clear
  34. For i = 1 To Day(DateSerial(ComboBox1.Value, ComboBox2.Value + 1, 0))
  35.    ComboBox3.AddItem i
  36. Next
  37. End If
  38. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 10# Jared


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

  ¦h°µ¦h·Q¦h¾Ç²ß¡A¤Ö¬Ý¤Ö¿ù¤Ö°g³~

  ¦h°µ=¦h¦h½m²ß¡A¦h¦h½s¼g¡C
  ¦h·Q=·Q·Q¬°¤°»ò¤H®aµ{¦¡­n¨º¼Ë¼g¡A¦pªG´«¦¨¦Û¤v¡A¤S·|«ç¼g¡C
  ¦h¾Ç²ß=¾Ç²ß¤H®aªºµo°Ý¨Ã¸Ñµª¡A¾Ç²ß¤H®aªº¼gªk

  ¤Ö¬Ý=¥u¬Ý¤£°µ¤]ªPµM

TOP

¦^´_ 12# mark15jill

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

TOP

¦^´_ 11# Hsieh


·PÁ¤j¤jªº¨ó§U
¦ý¬O§Ú¤£©ú¥Õªº¬O
°õ¦æ³o¦æµ{¦¡
If Val(ComboBox1) > 0 And Val(ComboBox2) > 0 Then
´N¥X²{
¿Ã¹õºI¹Ï00050.jpg
2013-3-1 11:02

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

TOP

¥»©«³Ì«á¥Ñ Hsieh ©ó 2013-3-1 11:10 ½s¿è

¦^´_ 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½Ð¤£§[«ü¥¿
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¡i¬°µ½Ävª§¡j¤H¥Í­n¬°µ½Ävª§¡A¤À¬í¥²ª§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD