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

[µo°Ý] ½Ð°Ý¦p¦ó¤À§O¼¶¼gVBA¡A¨Ï¯S©w¤u§@ªíªº¯S©w­È¦X¨Ö¡A¦A§ì¯S©w­È¦^­ì©lÀÉ

  1. Sub SaveIt()
  2.     Msg = MsgBox("My Dear Friend¡AIt's been a while¡Aplease press YES to save file!" & Chr(13) _
  3.        & "¬O(Y)¡GSave File" & Chr(13) _
  4.        & "§_(N)¡GYou Are in Trouble." & Chr(13) _
  5.        & "¨ú®øCancel¡GYour Boss Is in Trouble.", vbYesNoCancel + 64, "Take a Break!")
  6. '´£¥Ü¥Î¤á«O¦s·í«e¬¡°Ê¤åÀÉ¡C
  7.     If Msg = vbYes Then Application.Run "OutputtoUpdatedDataI" Else If Msg = vbCancel Then Exit Sub
  8.     ActiveWorkbook.Save
  9.     ActiveWorkbook.Worksheets("Updated Data").Copy
  10.     ActiveWorkbook.Worksheets("Updated Data").SaveAs "D:\" & "Updated Data" & ".xlsx"
  11.     ActiveWorkbook.Worksheets("Updated Data").SaveAs "D:\Updated Data " & Date$ & ".xlsx"
  12.     Call runtimer '¦pªG¥Î¤á¨S¦³¿ï¾Ü¨ú®ø´N¦A¦¸½Õ¥Î Runtimer
  13. End Sub
½Æ»s¥N½X
¦^´_ 20# Hsieh
·d©w¤F!!
ÁÂÁ¶W¯Åª©¥Dªº«üÂI!³]©w¦n¤F«Ü¦n¥Î³á!¥Ñ©ó³o­Ó³Æ¥÷·|§â¦PÀÉ®×Âл\¤W¥h¡A¦³³\¦h¥®¥®¯Zªº¨Ï¥ÎªÌ¦@¦P¨Ï¥Î¸ÓÀÉ¡A©Ò¥H§Ú¤]¦b¥t¥~³]©wÀx¦s¤T­ÓÀÉ®×(1.­ìÀÉ¡B2.¥u¦³¸Ó¤u§@ªí¡B3.¥u¦³¸Ó¤u§@ªí+¤é´Á)¡A¤£¹L¦³1­Ó¤p°ÝÃD·Q³Â·Ð½Ð¶W¯Åª©³BÀ°§Ú¸Ñ¨M:
1. ¦s'¥u¦³¸Ó¤u§@ªí'¦b°õ¦æ«ü¥O®É·|¶}°_Àx¦s«á¦Û°ÊÃö³¬¡A¦ý'¥u¦³¸Ó¤u§@ªí+¤é´Á'³o­Ó¤£·|¡A½Ð°Ý­n«ç»ò¼Ë¤~¯à¨Ï2¡B3³Æ¥÷Àɳ£¦bÀx¦s«á¦Û°ÊÃö³¬©O? (§Ú¸Õ¤F´X­Ó¤èªk¦ý¤£ÆF¥ú...¦³§â3­ÓÀɳ£Ãö±¼¤]¦³3­ÓÀɳ£¶}°_¨S³QÃö±¼...-_-lll)

«ô°U±z¤F!!
ÁÂÁÂ!

®z¤k¤l¯d

TOP

        ÀR«ä¦Û¦b : ¡i»X½ªªº¦Û¥Ñ¡j¤H±`¦b¤°»ò³£¥i¥H¦Û¥Ñ¦Û¦bªº®É­Ô¡A«o³Q³oºØÀH¤ß©Ò±ýªº¦Û¥Ñ»X½ª¡AµêÂY®É¥ú¦Ó²@µLıª¾¡C
ªð¦^¦Cªí ¤W¤@¥DÃD