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

³Æ¥÷ÀÉ®×

³Æ¥÷ÀÉ®×

¥­¦w
¥H¤U¥N½X¥i¥H«ö¤é´Á³Æ¥÷ÀÉ®×
¤@­Ó°ÝÃD½Ð±Ð
°²¦p³o­ÓÀɮצ³³\¦hSheet
§Ú¥u·Q¥t¦sSheet(3,5,6,10,11,12,14,15)
¥i¥H°µ¨ì¶Ü ?

Sub Backup ()
PAF = MsgBox("­n³Æ¥÷¸ê®Æ¶Ü?", vbYesNo + vbQuestion, "°T®§µøµ¡")
      If PAF = vbYes Then
      Application.StatusBar = "Àɮ׳ƥ÷¤¤,·q½Ðµy­Ô!"
FileDate = Format(Date, "yyyymmdd")  ' ¦~¤ë¤é®æ¦¡¦@8­Ó¼Æ¦r(³Æ¥÷)
ActiveWorkbook.SaveCopyAs filename:= _
"\\Web_server\pcmac¥æ´«°Ï\µo¦æ\³Æ¥÷\" & FileDate & ".xls"

Else
        MsgBox "¦A¨£ !", vbOKOnly + vbInformation, "°T®§µøµ¡"
        End If
end sub
µL¤îºÉªº§V¤O¤W¶i

¦^´_ 2# GBKEE
Gbkee ¥­¦w
³o¼Ë¤]¥i¥H°µ±o¨ì !
¯u´Î
·PÁ±zªº¦^ÂÐ
¯¬ºÖ±z¤Ñ¤Ñ³Q³ß¼Ö¥]³ò
µL¤îºÉªº§V¤O¤W¶i

TOP

¦^´_ 2# GBKEE
GBKEE ¥­¦w
³Æ¥÷«áªºSheet ¬Û·í§¹¾ã !

¦A½Ð±Ð
¥i¥H§â³Æ¥÷ÀÉ®× Sheet¸Ìªºµ{¦¡½X , ¨ú®ø©Î§R°£¶Ü?
µL¤îºÉªº§V¤O¤W¶i

TOP

¦^´_ 5# GBKEE
GBKEE ¥­¦w
ÁÂÁ±z¥J²Óªº¦^ÂÐ
´¼¼z¤H¤j¦³¯à¤O , ¦³ª¾ÃѪº¤H¤O¤W¥[¤O
µL¤îºÉªº§V¤O¤W¶i

TOP

        ÀR«ä¦Û¦b : ¦³Ä@©ñ¦b¤ß¸Ì¡A¨S¦³¨­Åé¤O¦æ¡A¥¿¦p¯Ñ¥Ð¤£¼½ºØ¡A¬Ò¬OªÅ¹L¦]½t¡C
ªð¦^¦Cªí ¤W¤@¥DÃD