- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
|
¦^´_ 1# sammay
UserForm3- Dim ¤é´Á()
- Private Sub UserForm_Initialize()
- CommandButton1.Enabled = False '½T©w¶s±±¨î¶µ: ¤£¥i¥H¨Ï¥Î
- ¤é´Á = Array(ComboBox1, ComboBox2, ComboBox3, ComboBox4) '±N¦~¤ëªº¿é¤J ¸m¤J¦b°}¦C
- ComboBox1.RowSource = "¤U©Ô¿ï³æ!c2:c11"
- ComboBox2.RowSource = "¤U©Ô¿ï³æ!d2:d13"
- ComboBox3.RowSource = "¤U©Ô¿ï³æ!c2:c11"
- ComboBox4.RowSource = "¤U©Ô¿ï³æ!d2:d13"
- End Sub
- Private Sub CommandButton1_Click()
- Dim Data As Range, Rng As Range, Day1 As Date, Day2 As Date, Msg As String, E As Range
- Set Data = Sheets("Á`ªí").Range("A3").CurrentRegion
- 'Range("A3").CurrentRegion : Á`ªíªº¸ê®Æ A2:D2 ,EÄæ ½Ð¤£n¦³¸ê®Æ¿é¤J
- If Data.Rows.Count = 1 Then '¥u¦³Äæ¦ì
- MsgBox "Á`ªí: ¨S¦³¸ê®Æ !!!"
- Unload Me
- Exit Sub
- End If
- Day1 = DateSerial(¤é´Á(0), ¤é´Á(1), 1) 'Âà¤J¤é´Á
- Day2 = DateSerial(¤é´Á(2), ¤é´Á(3), 1)
- For Each E In Data.Columns(1).Offset(1).Cells '[A4]->
- If DateSerial(E, E.Cells(1, 2), 1) >= Day1 And DateSerial(E, E.Cells(1, 2), 1) <= Day2 Then
- If Rng Is Nothing Then 'ªì¦¸
- Set Rng = E.Resize(1, 4)
- Else '²Ä¤G¦¸¥H«á
- Set Rng = Union(Rng, E.Resize(1, 4))
- End If
- End If
- Next
- Msg = ¤é´Á(0) & "/" & ¤é´Á(1) & " - " & ¤é´Á(2) & "/" & ¤é´Á(3)
- If Rng Is Nothing Then
- MsgBox Msg & "§ä¤£¨ì ¸ê®Æ"
- Else
- Rng.Copy Sheets("¬d¸ß©ú²Ó").Cells(Rows.Count, 1).End(xlUp).Offset(1)
- 'Rng ½Æ»s¨ì "¬d¸ß©ú²Ó"AÄæ ³Ì«á¤@µ§¦³¸ê®Æªº¤U¤@®æ Offset(1)
- MsgBox Msg & " §ä¨ì " & Rng.Count / Data.Columns.Count & " µ§¸ê®Æ"
- End If
- Unload Me
- End Sub
- Private Sub ComboBox1_Change()
- Check_¤é´Á
- End Sub
- Private Sub ComboBox2_Change()
- Check_¤é´Á
- End Sub
- Private Sub ComboBox3_Change()
- Check_¤é´Á
- End Sub
- Private Sub ComboBox4_Change()
- Check_¤é´Á
- End Sub
- Private Sub Check_¤é´Á() '§P§O ¦~¤ë¿é¤J
- Dim Msg As Boolean, E As Variant
- For Each E In ¤é´Á '¨Ì§Ç³B¸Ì: ¦~¤ëªº¿é¤J
- If Not IsNumeric(E) Then '¤£¬O¼Æ¦r
- CommandButton1.Enabled = False '½T©w¶s±±¨î¶µ: ¤£¥i¥H¨Ï¥Î
- Msg = True 'Msg³]©w¬° True
- Exit For
- End If
- Next
- If Msg = False Then '¤é´Á¬Ò¬°¼Æ¦r
- If DateSerial(¤é´Á(0), ¤é´Á(1), 1) <= DateSerial(¤é´Á(2), ¤é´Á(3), 1) Then
- 'DateSerial(¦~,¤ë, 1)
- CommandButton1.Enabled = True '½T©w¶s±±¨î¶µ: ¥i¥H¨Ï¥Î
- Else
- CommandButton1.Enabled = False '½T©w¶s±±¨î¶µ: ¤£¥i¥H¨Ï¥Î
- End If
- End If
- End Sub
½Æ»s¥N½X |
|