c_c_lai

¦^´_ 30# 198188
§A¸ÕµÛ§â¸Ì­±©Ò«Å§iÄÀ©ñ°O¾ÐÅ骺 Set FRng = Nothing ªº»yªk®³±¼¡A
µM«á¦b³Ì«á End Sub ¤§¤W¤@¦æ¦A¦æ¥[¤W Set FRng = Nothing ¸Õ¸Õ¡C

GBKEE

¦^´_ 30# 198188
°Ñ¦Ò³o¸Ì http://www.excelforum.com/excel-programming-vba-macros/686948-code-execution-has-been-interrupted.html

c_c_lai

¦^´_ 30# 198188
About the VBA Code Cleaner

198188

¦^´_ 32# GBKEE


    ÁÙ¬O¤£©ú¥Õ¬°¤°»ò·|³o¼Ë¡A¦ý¬O§Ú­«·s±Ò°Ê¹q¸£«á¡A´N¨S¦³°ÝÃD¤F

198188

¦^´_ 29# Hsieh


    ½Ð°Ý­ncheck¤@­ÓÀx¦s®æ¤ºªº¤é´Á¬O¬P´Á´X¡A¥i¥H¥Îvba¶Ü¡H

stillfish00

¦^´_ 35# 198188

if WeekdayName(Weekday("2013/1/10")) = "¬P´Á¤@"
©Î
if Weekday("2013/1/10") = vbMonday

GBKEE

¦^´_ 34# 198188
³oª¬ªp§Ú¤]¤£ª¾¹D!

¦^´_ 35# 198188

1. Sub Ex()
   
2. Dim The_day As Variant
   
3. The_day = #1/1/2013#
   
4. MsgBox Format(The_day, "aaa")
   
5. The_day = Date '¨t²Î¤é´Á: ¤µ¤é
   
6. MsgBox Format(The_day, "aaa")
   
7. End Sub

½Æ»s¥N½X

198188

1.     The_day = Worksheets("Request").Range("F" & i).Value - 2
   
2.   If The_day = "¬P´Á¤»" Or The_day = "¬P´Á¤é" Then .Range("H" & i).Value = .Range("F" & i).Value Else .Range("H" & i).Value = .Range("F" & i).Value - 2

½Æ»s¥N½X

¦^´_ 37# GBKEE




§Ú³o­Óµ{¦¡À³¸ÓµL°ÝÃD¡A¦ý¬OWorksheets("Request").Range("F" & i).Value ¸g±`¥X²{¬O¼Æ­È¡A¤£¬O¤é´Á¡A¦pªGÅý¹q¸£¦Û°Ê¿ë»{³o­ÓÀx¦s®æ¬O¤é´Á¡C§ÚÀx¦s®æªº¤é´Á®æ¦¡¬O11/1

198188

¦^´_  GBKEE

¤U¸ü (178.77 KB)

2013-1-11 10:44

§Ú³o­Óµ{¦¡À³¸ÓµL°ÝÃD¡A¦ý¬OWorksheets("Request").Range("F" & i).Value ¸g±`¥X²{¬O ...
198188 µoªí©ó 2013-1-11 10:19

§Ú²Ä¤@­Ódata base ­ì¥»¬O04-Jan-13
µM«á§ÚÂà1/4¦b²Ä¤G­Ódata base
¤§«áŪ¨ú²Ä¤G­Ódata base¡A´NÅܦ¨ªþ¥ó¹Ï¤ù¡A¼Æ­È¡A¦Ó³o­Óµ{¦¡«o¤£À´±o¿ë»{¦¨¤é´Á

198188

¦^´_ 19# kimbal

½Ð°Ý¥i§_À°§Ú¬Ý¤@¤U¤U­±ªºlink­þ¸Ì¥X²{°ÝÃD
    http://forum.twbts.com/viewthrea ... amp;page=4#pid49510