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

[µo°Ý] ¥X²{RUN-TIME ERROR '9': SUBSCRIPT OUT OF RANGE,½Ð°Ý­þ¸Ì¥X²{°ÝÃD¡H

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

TOP

TOP

TOP

¦^´_ 32# GBKEE


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

TOP

¦^´_ 29# Hsieh


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

TOP

¥»©«³Ì«á¥Ñ stillfish00 ©ó 2013-1-10 16:23 ½s¿è

¦^´_ 35# 198188

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

TOP

¦^´_ 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

TOP

  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

TOP

¦^´_  GBKEE

¥¼©R¦W.png
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¿ë»{¦¨¤é´Á

TOP

¦^´_ 19# kimbal

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

TOP

        ÀR«ä¦Û¦b : ¯àµ½¥Î®É¶¡ªº¤H¡A¥²¯à´x´¤¦Û¤v§V¤Oªº¤è¦V¡C
ªð¦^¦Cªí ¤W¤@¥DÃD