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

[µo°Ý] ·Q½Ð±Ð¦U¦ì«e½ú~¤@­ÓVBAªº°ÝÃD

¦pªG §A¥u¬O·Q­n®³¤µ¤Ñ¤ë¥÷¤é´Á«Ø¥ß·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

TOP

        ÀR«ä¦Û¦b : ¦³¤ß´N¦³ºÖ¡A¦³Ä@´N¦³¤O¡A¦Û³yºÖ¥Ð¡A¦Û±oºÖ½t¡C
ªð¦^¦Cªí ¤W¤@¥DÃD