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

[µo°Ý] IF AND OR ¦p¦ó¾A¥Î¡H

[µo°Ý] IF AND OR ¦p¦ó¾A¥Î¡H

­Y·Q¥ÎVBA ªºIF¥yªk¡A¨Ó§PÂ_¨C©u°]³ø¦Û°Ê§ó·s¡A¸Ó¦p¦ó¼g¡H
If .Cells(r, "EN") = "" Or (Date >= DateSerial(Year(Date), 3, 31) And Date < DateSerial(Year(Date), 4, 1)) Or (Date >= DateSerial(Year(Date), 5, 14) And Date < DateSerial(Year(Date), 5, 16)) Or (Date >= DateSerial(Year(Date), 8, 14) And Date < DateSerial(Year(Date), 8, 16)) Or (Date >= DateSerial(Year(Date), 11, 14) And Date < DateSerial(Year(Date), 11, 16)) Then Exit Sub
¥X²{µ{¦¡ª«¥ó©w¸q¿ù»~¡A½Ð«e½ú°ª¤â«ü¥¿¡I
Lin

¦^´_ 1# Lin-excel


    r ¥i¯à¬O 0 ³y¦¨ªº
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

¦^´_ 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
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

ÁÂÁª©¥D½ç±Ð¡A·P®¦¡I
Lin

TOP

        ÀR«ä¦Û¦b : ¡i®É¶¡¦pÆp¥Û¡j®É¶¡¹ï¤@­Ó¦³´¼¼zªº¤H¦Ó¨¥¡A´N¦pÆp¥Û¯ë¬Ã¶Q¡F¦ý¹ï·M¤H¨Ó»¡¡A«o¹³¬O¤@§âªd¤g¡A¤@ÂI»ù­È¤]¨S¦³¡C
ªð¦^¦Cªí ¤W¤@¥DÃD