¬°¦ó¤£¯à§R°£¦hÓ¤u§@ªí(¥u§R¨ì³Ì«á1Ó)
- ©«¤l
- 36
- ¥DÃD
- 7
- ºëµØ
- 0
- ¿n¤À
- 77
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN7
- ³nÅ骩¥»
- MICROSOFT
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2015-6-7
- ³Ì«áµn¿ý
- 2024-9-22
|
¬°¦ó¤£¯à§R°£¦hÓ¤u§@ªí(¥u§R¨ì³Ì«á1Ó)
|
|
|
|
|
|
- ©«¤l
- 835
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 915
- ÂI¦W
- 16
- §@·~¨t²Î
- Win 10,7
- ³nÅ骩¥»
- 2019,2013,2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-3
- ³Ì«áµn¿ý
- 2024-11-14
|
¦^´_ 1# ¤d·u´M
§Ú¥Î Excel 2013 ³æ¨B¼Ò¦¡°lÂܤΰõ¦æ³£¨Sµo²{§A»¡ªº±¡§Î³á,
§An¤£n±Ôzªº§ó¸Ô²Ó¤@ÂI,
©Î¬O¤¤¶¡¦³¨ä¥¦«ü¥O¦æ¦s¦b§A¨S¨q¥X¨Ó? |
|
|
|
|
|
|
- ©«¤l
- 2839
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2895
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2024-12-22
|
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
======================= |
|
|
|
|
|
|
- ©«¤l
- 36
- ¥DÃD
- 7
- ºëµØ
- 0
- ¿n¤À
- 77
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN7
- ³nÅ骩¥»
- MICROSOFT
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2015-6-7
- ³Ì«áµn¿ý
- 2024-9-22
|
¦^´_ 2# luhpro ÁÂÁ¤j¤jªºÀ°¦£,§Ú«á¨Ó¦A¸Õ,¤]¯à§R¥h,¥u¬O¤£ª¾¹D¬°¦ó«e«á·|¦³®t²§µo¥Í(¤]³\¦³¬Y¨Ç¾Þ§@¼vÅT,¦ý¸ñ¶H¤£©ú,¦]¥\¤OÁ¡®z,µLªk¬dª¾¤Î¨ú±o) |
|
|
|
|
|
|
- ©«¤l
- 36
- ¥DÃD
- 7
- ºëµØ
- 0
- ¿n¤À
- 77
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN7
- ³nÅ骩¥»
- MICROSOFT
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2015-6-7
- ³Ì«áµn¿ý
- 2024-9-22
|
¦^´_ 3# ã´£³¡ªL ¨C¦¸µo°Ý³£¯à¾Ç¨ì²¼ä¦³¤Oªº»yªk,·PÁÂã¤j¥X¤âÀ°¦£. |
|
|
|
|
|
|