ML089

¦^´_ 1# Lin-excel


    r ¥i¯à¬O 0 ³y¦¨ªº

ML089

¦^´_ 1# Lin-excel

§Ú·|©î¦¨¦n´X±ø§P¦¡¡A¤ñ¸û®e©ö¾\Ū

        Y = Year(Date)
        If .Cells(r, "EN") = "" Then Exit Sub
        If Date >= DateSerial(Y, 3, 31) And Date < DateSerial(Y, 4, 1) Then Exit Sub
        If Date >= DateSerial(Y, 5, 14) And Date < DateSerial(Y, 5, 16) Then Exit Sub
        If Date >= DateSerial(Y, 8, 14) And Date < DateSerial(Y, 8, 16) Then Exit Sub
        If Date >= DateSerial(Y, 11, 14) And Date < DateSerial(Y, 11, 16) Then Exit Sub