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

[µo°Ý] ¨Ì¤é´Á¨ú¸ê®Æ

¤é´Á®æ¦¡¦³¦hºØ,
¼Æ­È/¤å¦r®æ¦¡+mm/dd/yyyy ???
§ó¥D­n¬O¬Ý¤£À´¤ñ¸û³W«h?? ¤ñ¤j¤ñ¤p???

TOP

Sub TEST_A1()
Dim Arr, T$(2), D(2), i&, j%, N&
[¦¨ªG!A2:D2000].ClearContents
D(0) = [Form!E2]
If IsDate(D(0)) = False Then Exit Sub
Arr = Range([¥Ø¼Ð!F1], [¥Ø¼Ð!A65536].End(xlUp))
For i = 2 To UBound(Arr)
    If Arr(i, 1) = "" Then GoTo i01 '[«~¸¹]ªÅ¥Õ, ²¤¹L
    D(1) = Arr(i, 5) '[¥Í®Ä¤é´Á]
    D(2) = Arr(i, 6) '[¥¢®Ä¤é´Á]
    If IsDate(D(1)) Then If CDate(D(1)) > D(0) Then GoTo i01 '[¥Í®Ä¤é´Á]¦³¤é´Á, ¥B>«ü©w¤é, ²¤¹L
    If IsDate(D(2)) Then If CDate(D(2)) <= D(0) Then GoTo i01 '[¥¢®Ä¤é´Á]¦³¤é´Á, ¥B<=«ü©w¤é, ²¤¹L
    N = N + 1
    For j = 1 To 4: Arr(N + 1, j) = Arr(i, j): Next j
i01: Next i
If N > 0 Then [¦¨ªG!A1].Resize(N + 1, 4) = Arr
End Sub

¨â­Ó¤é´Á¬Û¦P, ¥²¥]§t¦b¨º¨â­Óif±ø¥ó¤¤, ¤£¥²¥t¦æ§PÂ_:
¨Ò¦p:«ü©w¤é2020/9/8
2020/9/7  2020/9/7 ¥¢®Ä¤é´Á<=«ü©w¤é
2020/9/12  2020/9/12  ¥Í®Ä¤é´Á>«ü©w¤é


'================================

TOP

¦pªG¤£§PÂ_¤é´Á®æ¦¡:
Sub TEST_A2()
Dim Arr, D, i&, j%, N&
[¦¨ªG!A2:D2000].ClearContents
D = [Form!E2]: If D = "" Then Exit Sub
Arr = Range([¥Ø¼Ð!F1], [¥Ø¼Ð!A65536].End(xlUp))
For i = 2 To UBound(Arr)
    If Arr(i, 5) <> "" And Arr(i, 5) > D Then GoTo i01
    If Arr(i, 6) <> "" And Arr(i, 6) <= D Then GoTo i01
    N = N + 1
    For j = 1 To 4: Arr(N + 1, j) = Arr(i, j): Next j
i01: Next i
If N > 0 Then [¦¨ªG!A1].Resize(N + 1, 4) = Arr
End Sub

TOP

¦pªG¸ê®Æ¤£¦h, ª½±µ¥Îrange§Y¥i
Sub TEST_A3()
Dim xR As Range, D
[¦¨ªG!A2:D2000].ClearContents
D = [Form!E2]: If D = "" Then Exit Sub
Application.ScreenUpdating = False
For Each xR In Range([¥Ø¼Ð!A2], [¥Ø¼Ð!A65536].End(xlUp))
    If (xR(1, 5) > D) + (xR(1, 6) <> "") * (xR(1, 6) <= D) Then GoTo 101
    xR.Resize(1, 4).Copy [¦¨ªG!A65536].End(xlUp)(2)
101: Next
End Sub

TOP

        ÀR«ä¦Û¦b : ¯à·F¤£·F¡A¤£¦p­W·F¹ê·F¡C
ªð¦^¦Cªí ¤W¤@¥DÃD