- ©«¤l
- 99
- ¥DÃD
- 15
- ºëµØ
- 0
- ¿n¤À
- 164
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN7
- ³nÅ骩¥»
- office2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2017-5-30
- ³Ì«áµn¿ý
- 2024-10-5
|
¦pªG §A¥u¬O·Qn®³¤µ¤Ñ¤ë¥÷¤é´Á«Ø¥ß·s¤u§@ªíªº¸Ü
¤£¥é¸Õ¸Õ¬Ý§Úªº¥¨¶°
¤£¬O¦Ñ¤â ¦h¨£½Ì
Sub ¨ú±o¤µ¤Ñ¤ë¥÷¤é´Á«Ø¥ß¬°·s¤u§@ªí()
ActiveWorkbook.Sheets.Add Before:=Worksheets(Worksheets.Count)
i = ActiveSheet.Name
Sheets(i).Name = Format(Now(), "mmdd")
End Sub |
|