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

[µo°Ý] ¨Ì±ø¥ó§R°£¾ã¦C¸ê®Æ

¥u°µ§R°£³¡¥÷
Sub TEST()
Dim Arr, KS$, DS, D, R&, xR As Range, xU As Range, N&
If [VBA!AS7] = "V" Then KS = "µ²§ô" Else KS = "|^|"
If IsDate([VBA!AS6]) Then DS = CDate([VBA!AS6]) Else DS = -9
R = [CVS!A65536].End(xlUp).Row - 2
If R <= 0 Then Exit Sub
For Each xR In [CVS!A3].Resize(R)
    If IsDate(xR(1, 9)) Then D = CDate(xR(1, 9)) Else D = 0
    If xR = KS Or xR(1, 9) < DS Then
       N = N + 1
       If N = 1 Then Set xU = xR Else Set xU = Union(xU, xR)
    End If
Next
If N > 0 Then xU.EntireRow.Delete
MsgBox "¦@¦³ " & N & " µ§³Q§R°£ "
End Sub


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

TOP

¦^´_ 5# PJChen

R = Sh.[A65536].End(xlUp).Row - 2

For Each xR In Sh.[A3].Resize(R)

Sh.Cells(Rows.Count, 1).End(xlUp).Select '³Ì«á¤@¦æ

TOP

¦^´_ 5# PJChen


Do While FN <> ""
Set xB = Nothing
On Error Resume Next: Set xB = Workbooks(FN): On Error GoTo 0 '³o¥Î¨ÓÀˬdÀɮ׬O§_¤w¶}±Ò
If xB Is Nothing Then Set xB = Workbooks.Open(PH & FN) 'ÀÉ®×¥¼¶}±Ò®É¤~¯à¥Îopen, §_«h­«Âж}±Ò·|³y¦¨·í¾÷
Set Sh = xB.Sheets("CVS")

ª`·N¬õ¦â³¡¥÷

TOP

        ÀR«ä¦Û¦b : ¤Hªº¤ß¦a¬O¤@²¥¥Ð¡A¤g¦a¨S¦³¼½¤U¦nºØ¤l¡A¤]ªø¤£¥X¦nªºªG¹ê¡C -
ªð¦^¦Cªí ¤W¤@¥DÃD