- ©«¤l
- 6
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 50
- ÂI¦W
- 0
- §@·~¨t²Î
- winows10
- ³nÅ骩¥»
- office2013
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- Taipei
- µù¥U®É¶¡
- 2011-1-23
- ³Ì«áµn¿ý
- 2019-5-10
|
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 |
|