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

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

¥»©«³Ì«á¥Ñ GBKEE ©ó 2012-12-18 09:43 ½s¿è

¦^´_ 6# c_c_lai
  1. VABªº»¡©ú

  2. Boolean ¸ê®Æ«¬ºA
  3. Boolean ÅܼƫY¥H 16 ¦ì¤¸( 2 ­Ó¦ì¤¸²Õ)¼Æ¦rªº§Î¦¡Àx¦s¡A¦ý¥u¯à¬O True ©Î¬O False¡CBoolean Åܼƪº­È¤£¬O True ´N¬O False ( ¦b¨Ï¥Î Print ªº®É­Ô )¡A©Î¬O #TRUE# ©M #FALSE# ( ¦b¨Ï¥Î Write # ªº®É­Ô )¡C¨Ï¥ÎÃöÁä¦r True »P False ¥i±N Boolean Åܼƫü©w¬°³o¨â­Óª¬ºA¤¤ªº¤@­Ó¡C
  4. ·íÂà´«¨ä¥Lªº¼Æ­È«¬ºA¬° Boolean ®É¡A0 ·|Âন False¡A¦Ó©Ò¦³¨ä¥Lªº­È«hÅܦ¨ True¡C·íÂà´« Boolean ­È¬°¨ä¥Lªº¸ê®Æ«¬ºA,®É¡AFalse ¦¨¬° 0 ¡A¦Ó True ¦¨¬° -1¡C

  5. If .[¹Bºâ¦¡±ø¥ó]..Then...Else ³¯­z¦¡  ¨ä[¹Bºâ¦¡±ø¥ó]¤§¹Bºâµ²ªG¬° True ©Î False
  6. True ©Î False ¬O Boolean ¸ê®Æ«¬ºA
½Æ»s¥N½X
  1. Sub Ex()
  2.     Dim Vari
  3.     Vari = "oBL"
  4.     '¤T­Ó¦¡¤lªº¹Bºâµ²ªG³£¤@¼Ëªº Boolean ¸ê®Æ«¬ºA
  5.     'If Vari Like "*OBL*" = False Then
  6.     'If Vari Like "*OBL*" = 0 Then
  7.     If Not Vari Like "*OBL*" Then
  8.         MsgBox Vari & " ¤£¥]§t : * OBL * "
  9.     End If
  10. End Sub
½Æ»s¥N½X
  1. Sub Ex1()
  2.     Dim Vari As String
  3.     Vari = "AOBL"
  4.     MsgBox InStr(Vari, "OBL")
  5.     If InStr(Vari, "OBL") Then  '¹Bºâµ²ªG¬O Boolean ¸ê®Æ«¬ºA
  6.     'If InStr(Vari, "OBL") > 0 Then
  7.         MsgBox Vari & " ¥]§t : * OBL * "
  8.     End If
  9. End Sub
½Æ»s¥N½X

TOP

¦^´_ 10# 198188
¬O¦³ªº
   .Range("D2:D" & LastRec).Value = .Range("AA2:AA" & LastRec).Value  &  .Range("AH2:AH" & LastRec).Value
¦p LastRec=10
    "D2:D" & LastRec      ->"D2:D10"
    "AA2:AA" & LastRec ->"AA2:AA10"
³o³£¬O³sÄò½d³ò:µLªk¥Î "="  ¨Ó­pºâ

TOP

¦^´_ 12# 198188
Âন¼Æ¦r
VLOOKUP(VALUE(RIGHT(A2,6)),K:L,2,FALSE)

TOP

¦^´_  GBKEE

    ½Ð°ÝSUBSCRIPT OUT OF RANGE¬O­þ­Ó°ÝÃD¡H
  Set FRng = Wb.Sheets("­»´ä&®ü¨¾³æ"). ...
198188 µoªí©ó 2012/12/20 15:16

§A­n»¡¬O¥X¤F¤°»ò¿ù»~??

TOP

¦^´_ 16# 198188
SUBSCRIPT OUT OF RANGE->°}¦C¯Á¤Þ¶W¥X½d³ò (¿ù»~ 9)
Àˬd Set FRng = Wb.Sheets("­»´ä&®ü¨¾³æ").Range("A:A").Find(A, lookat:=xlWhole)
³oWb¬¡­¶Ã¯ ¬O§_¦³ ­»´ä&®ü¨¾³æ ³o¤u§@ªí

TOP

¦^´_ 21# 198188
21#ªºªþÀÉ ¦b2003ª©°õ¦æ 20#  ªºµ{¦¡¨S¦³¿ù»~.
ÁÙ»Ý 2007ª© ªº°õ¦æ ¬Ý¦³µL¿ù»~?

TOP

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

¦^´_ 39# 198188
    ¤G­Ódata base¡A´NÅܦ¨ªþ¥ó¹Ï¤ù
FÄæ­n³]©w¬°¤é´Á®æ¦¡ ¦p¹Ï

EX1.GIF
2013-1-11 16:06

TOP

¦^´_ 42# 198188
¤W¶ÇÀɮפε{¦¡½X¬Ý¬Ý.

TOP

        ÀR«ä¦Û¦b : °ß¨ä´L­«¦Û¤vªº¤H¡A¤~§ó«i©óÁY¤p¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD