|
|||||
¾È³çÇϼ¼¿ä. ¾÷¹«¸¦ ÇÏ´Ùº¸¸é ¼öÁ¤ ºÒ°¡´ÉÇϵµ·Ï ¹®¼¸¦ Áà¾ßÇϴ°æ¿ìµéÀÌ Àִµ¥. °¡²û°¡´Ù ÆíÁýÇؼ ¾µ¼öÀÖµµ·Ï ¿ä±¸¸¦ Çϴ°æ¿ìµéÀÌ ÀÖ½À´Ï´Ù.. µ·¹ÞÀ¸·Á¸é ¾î¿¼ö¾øÀÌ Áà¾ßÇϴµ¥ ¤Ì¤Ì ±×·¡¼ »ý°¢ÇÑ°Ô »ç¿ë±âÇÑÀ» °É¾î³õ°í º¸³»ÁÖÀÚ !! Àä. ±¸±ÛÅë¿¡¼ »ç¿ëÁ¦ÇÑ °Å´Â ¹æ¹ýÀº ã¾Æ¼ Å×½ºÆ®Çغ¸´Ï ÀÛµ¿Àº ÀߵǴµ¥ ¸ÞÅ©·Î »ç¿ë±â´ÉÀ» Á¦ÇѰɾî³õÀ¸¸é ¹«¿ëÁö¹°À̳׿ä.. ±×·¡¼ ¿¢¼¿ ½ÇÇàÈÄ ¸ÞÅ©·Î »ç¿ë±â´ÉÁ¦ÇÑÀÌ °É·ÁÀÖÀ¸¸é ¾Æ¿¹ ¹®¼ ÆíÁý ÀÚü¸¦ ¸øÇÏ°Ô ¸¸µé¾î ¹ö¸®¸é ¹®¼¸¦ ÆíÁýÇϱâ À§Çؼ´Â ¸ÞÅ©·Î »ç¿ëÀ» ÇؾßÇÏ´Ï±î ±×·³ ÀǵµÇÑ ¸ñÀûÀ» ´Þ¼ºÇÒ¼ö ÀÖ°Ú´Ù! ¶ó°í »ý°¢ÇÏ°í ¿¢¼¿ ¸ÞÅ©·Î ½ÇÇà¾ÈÇÏ¸é ¹®¼ ¾Èº¸ÀÌ´Â ¹æ¹ý µîµî.. ¿©·¯°¡Áö·Î °Ë»öÇغôµ¥ ¹æ¹ýÀ» ¸øã°Ú³×¿ä.. ¿¢¼¿ÆÄÀÏ ½ÇÇà½Ã ¸ÞÅ©·Î ±â´ÉÀÌ ²¨Á®ÀÖÀ¸¸é ¹®¼ ÆíÁý ÀÚü¸¦ ¸øÇϵµ·Ï ¼³Á¤ÇÒ¼öÀÖ´Â ¹æ¹ýÀÌ ºÐ¸íÈ÷ ÀÖÀ»°Å°°Àºµ¥....... ¸ðµç°ÍÀÌ ÇØ°á°¡´ÉÇÑ ÅõÇÇ È¸¿ø¿©·¯ºÐµé Á¶¾ð ºÎŹµå¸³´Ï´Ù! ¹®¼ »ç¿ë Á¦ÇÑ °É¾î³õÀº ÄÚµå´Â ¾Æ·¡¿Í °°½À´Ï´Ù (Âü°í¿ë) ----------------------------------------------------- Private Sub Workbook_Open() Dim EndDate As Date EndDate = "2023/02/19" If Date > EndDate Then MsgBox "ÅëÇÕ ¹®¼ À¯È¿±â°£ÀÌ Áö³µ½À´Ï´Ù. " ThisWorkbook.Close False End If End Sub --------------------------------------------------------- |
|
| ||
| ||