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

[µo°Ý] «ü©w¤é´Á­pºâµ²¾l¼Æ

°µ­Ó¸û§¹¾ã+¨¾§bªº¤èªk:
Sub §R°£¦C()
Dim D(2) As Date, K%, MS$, xR As Range, xU As Range, N&
If IsDate([AF1]) Then D(1) = [AF1]: K = 1
If IsDate([AF2]) Then D(2) = [AF2]: K = K + 2
If K = 0 Then MsgBox "¡°¥¼«ü©w§R°£¤é´Á! ": Exit Sub
If K = 1 Then D(2) = D(1): MS = D(1) & " ¤§«áªº¸ê®Æ"
If K = 2 Then D(1) = D(2): MS = D(2) & " ¤§«eªº¸ê®Æ"
If K = 3 Then
   If D(2) < D(1) Then D(0) = D(1): D(1) = D(2): D(2) = D(0)
   MS = D(1) & " ¦Ü " & D(2) & " ¤§¶¡ªº¸ê®Æ"
   If D(1) = D(2) Then MS = D(1) & " ·í¤Ñªº¸ê®Æ"
End If
If MsgBox("¡°½T©w­n§R°£ " & MS & "¡H  ", 1 + 32 + 256) = vbCancel Then Exit Sub
'---------------------------------------------
For Each xR In Range([c3], [c65536].End(3))
    If xR = "¬ü" Or IsDate(xR(1, 0)) = False Then GoTo 99
    D(0) = xR(1, 0)
    If D(0) < D(1) Or D(0) > D(2) Then GoTo 99
    N = N + 1
    If N = 1 Then Set xU = xR Else Set xU = Union(xR, xU)
99: Next
If N = 0 Then MsgBox "¡°°õ¦æ§¹²¦! §ä¤£¨ì²Å¦Xªº¸ê®Æ!  ": Exit Sub
xU.Select
If MsgBox("¡°°õ¦æ§¹²¦! ¦@§ä¨ì " & N & " µ§²Å¦X¸ê®Æ¡A¬O§_­n§R°£¡H  ", 4 + 32 + 256) = vbYes Then xU.EntireRow.Delete
End Sub

ªþ¥ó:
§R°£¦C_3­Ó±ø¥ó_°_¨´¤é´Á-v1.rar (21.29 KB)


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

TOP

        ÀR«ä¦Û¦b : ¤f»¡¦n¸Ü¡B¤ß·Q¦n·N¡B¨­¦æ¦n¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD