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

¬°¦ó¤£¯à§R°£¦h­Ó¤u§@ªí(¥u§R¨ì³Ì«á1­Ó)

¬°¦ó¤£¯à§R°£¦h­Ó¤u§@ªí(¥u§R¨ì³Ì«á1­Ó)

·Q­n§R°£¤u§@ªí¦W«e2½X¬°11(§Y11¤ë¥÷ªº¤u§@ªí,¦p11.5 11.6 11.7),¬°¦óÁ`¬O¥u§R¨ì³Ì«á¤@­Ó¤u§@ªí ¬°¦ó¤£¯à¤@¦¸§R°£¦h­Ó¤u§@ªí.rar (52.96 KB)

¦^´_ 1# ¤d·u´M

§Ú¥Î Excel 2013 ³æ¨B¼Ò¦¡°lÂܤΰõ¦æ³£¨Sµo²{§A»¡ªº±¡§Î³á,

§A­n¤£­n±Ô­zªº§ó¸Ô²Ó¤@ÂI,

©Î¬O¤¤¶¡¦³¨ä¥¦«ü¥O¦æ¦s¦b§A¨S¨q¥X¨Ó?

TOP

Private Sub CommandButton1_Click()
Dim MM%, SC%, i%, SN$
MM = Month(Date + 10)
SC = Sheets.Count
Application.DisplayAlerts = False
For i = SC To 1 Step -1
    SN = Sheets(i).Name
    If Val(Split(SN, ".")(0)) = MM And SN <> Me.Name Then Sheets(i).Delete
Next
Application.DisplayAlerts = True
End Sub


=======================

TOP

¦^´_ 2# luhpro ÁÂÁ¤j¤jªºÀ°¦£,§Ú«á¨Ó¦A¸Õ,¤]¯à§R¥h,¥u¬O¤£ª¾¹D¬°¦ó«e«á·|¦³®t²§µo¥Í(¤]³\¦³¬Y¨Ç¾Þ§@¼vÅT,¦ý¸ñ¶H¤£©ú,¦]¥\¤OÁ¡®z,µLªk¬dª¾¤Î¨ú±o)

TOP

¦^´_ 3# ­ã´£³¡ªL ¨C¦¸µo°Ý³£¯à¾Ç¨ì²¼ä¦³¤Oªº»yªk,·PÁ­ã¤j¥X¤âÀ°¦£.

TOP

        ÀR«ä¦Û¦b : ¡i°±º¢¤£«e¡A²×µL©Ò±o¡j¤H³£°g©ó´M§ä©_ÂÝ¡A¦]¦Ó°±º¢¤£«e¡FÁa¨Ï®É¶¡¦A¦h¡B¸ô¦Aªø¡A¤]¤FµL¥Î³B¡A²×µL©Ò±o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD