GBKEE

¦^´_ 1# sammay
UserForm3

1. Dim ¤é´Á()
   
2. Private Sub UserForm_Initialize()
   
3.     CommandButton1.Enabled = False                            '½T©w¶s±±¨î¶µ: ¤£¥i¥H¨Ï¥Î
   
4.     ¤é´Á = Array(ComboBox1, ComboBox2, ComboBox3, ComboBox4)  '±N¦~¤ëªº¿é¤J ¸m¤J¦b°}¦C
   
5.     ComboBox1.RowSource = "¤U©Ô¿ï³æ!c2:c11"
   
6.     ComboBox2.RowSource = "¤U©Ô¿ï³æ!d2:d13"
   
7.     ComboBox3.RowSource = "¤U©Ô¿ï³æ!c2:c11"
   
8.     ComboBox4.RowSource = "¤U©Ô¿ï³æ!d2:d13"
   
9. End Sub
   
10. Private Sub CommandButton1_Click()
    
11.     Dim Data As Range, Rng As Range, Day1 As Date, Day2 As Date, Msg As String, E As Range
    
12.     Set Data = Sheets("Á`ªí").Range("A3").CurrentRegion
    
13.     'Range("A3").CurrentRegion :   Á`ªíªº¸ê®Æ A2:D2 ,EÄæ ½Ð¤£­n¦³¸ê®Æ¿é¤J
    
14.     If Data.Rows.Count = 1 Then         '¥u¦³Äæ¦ì
    
15.         MsgBox "Á`ªí:  ¨S¦³¸ê®Æ !!!"
    
16.         Unload Me
    
17.         Exit Sub
    
18.     End If
    
19.     Day1 = DateSerial(¤é´Á(0), ¤é´Á(1), 1)                   'Âà¤J¤é´Á
    
20.     Day2 = DateSerial(¤é´Á(2), ¤é´Á(3), 1)
    
21.     For Each E In Data.Columns(1).Offset(1).Cells             '[A4]->
    
22.         If DateSerial(E, E.Cells(1, 2), 1) >= Day1 And DateSerial(E, E.Cells(1, 2), 1) <= Day2 Then
    
23.             If Rng Is Nothing Then                     'ªì¦¸
    
24.                 Set Rng = E.Resize(1, 4)
    
25.             Else                                        '²Ä¤G¦¸¥H«á
    
26.                 Set Rng = Union(Rng, E.Resize(1, 4))
    
27.             End If
    
28.         End If
    
29.     Next
    
30.     Msg = ¤é´Á(0) & "/" & ¤é´Á(1) & " - " & ¤é´Á(2) & "/" & ¤é´Á(3)
    
31.     If Rng Is Nothing Then
    
32.         MsgBox Msg & "§ä¤£¨ì  ¸ê®Æ"
    
33.     Else
    
34.         Rng.Copy Sheets("¬d¸ß©ú²Ó").Cells(Rows.Count, 1).End(xlUp).Offset(1)
    
35.         'Rng ½Æ»s¨ì "¬d¸ß©ú²Ó"AÄæ ³Ì«á¤@µ§¦³¸ê®Æªº¤U¤@®æ  Offset(1)
    
36.         MsgBox Msg & " §ä¨ì  " & Rng.Count / Data.Columns.Count & " µ§¸ê®Æ"
    
37.     End If
    
38.         Unload Me
    
39. End Sub
    
40. Private Sub ComboBox1_Change()
    
41.     Check_¤é´Á
    
42. End Sub
    
43. Private Sub ComboBox2_Change()
    
44.      Check_¤é´Á
    
45. End Sub
    
46. Private Sub ComboBox3_Change()
    
47.      Check_¤é´Á
    
48. End Sub
    
49. Private Sub ComboBox4_Change()
    
50.     Check_¤é´Á
    
51. End Sub
    
52. Private Sub Check_¤é´Á()      '§P§O ¦~¤ë¿é¤J
    
53.     Dim Msg As Boolean, E As Variant
    
54.     For Each E In ¤é´Á                          '¨Ì§Ç³B¸Ì: ¦~¤ëªº¿é¤J
    
55.         If Not IsNumeric(E) Then                '¤£¬O¼Æ¦r
    
56.             CommandButton1.Enabled = False      '½T©w¶s±±¨î¶µ: ¤£¥i¥H¨Ï¥Î
    
57.             Msg = True                          'Msg³]©w¬° True
    
58.             Exit For
    
59.         End If
    
60.     Next
    
61.     If Msg = False Then                         '¤é´Á¬Ò¬°¼Æ¦r
    
62.         If DateSerial(¤é´Á(0), ¤é´Á(1), 1) <= DateSerial(¤é´Á(2), ¤é´Á(3), 1) Then
    
63.           'DateSerial(¦~,¤ë, 1)
    
64.             CommandButton1.Enabled = True           '½T©w¶s±±¨î¶µ: ¥i¥H¨Ï¥Î
    
65.         Else
    
66.             CommandButton1.Enabled = False          '½T©w¶s±±¨î¶µ: ¤£¥i¥H¨Ï¥Î
    
67.         End If
    
68.     End If
    
69. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 4# sammay
CurrentRegion ÄÝ©Ê   ¸Óª«¥ó¥Nªí¥Ø«eªº°Ï°ì¡C¥Ø«e°Ï°ì¬O«ü¥H¥ô·NªÅ¥Õ¦C¤ÎªÅ¥ÕÄ檺²Õ¦X¬°Ãä¬Éªº½d³ò¡C

1. Sub Ex()
   
2.     With ActiveCell.CurrentRegion.Borders
   
3.         .LineStyle = 1
   
4.         .ColorIndex = 7
   
5.     End With
   
6. End Sub

½Æ»s¥N½X

¦p¹Ï ªº½d³ò¤¤¿ï¨ú³æ¤@¦³¸ê®ÆªºªS¦s®æ °õ¦æEx¥¨¶°

¤U¸ü (21.51 KB)

2012-1-17 09:18

¨ä¤¤"/1"¬°¦ó·N©O¡HÁÙ¦³¡Ï1911¥Î·N©O¡H
/1 :            ¨Ï¨ä¤é´Á¬°¨C¤ëªº1¤é
¡Ï1911 :  ¦]§Aªº¦~«×¬O¥Á°ê, +1911¦¨¬°¦è¤¸¦~«×