GBKEE

¦^´_ 6# c_c_lai

1. VABªº»¡©ú
   
2. 
   
3. Boolean ¸ê®Æ«¬ºA
   
4. 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
   
5. ·íÂà´«¨ä¥Lªº¼Æ­È«¬ºA¬° Boolean ®É¡A0 ·|Âন False¡A¦Ó©Ò¦³¨ä¥Lªº­È«hÅܦ¨ True¡C·íÂà´« Boolean ­È¬°¨ä¥Lªº¸ê®Æ«¬ºA,®É¡AFalse ¦¨¬° 0 ¡A¦Ó True ¦¨¬° -1¡C
   
6. 
   
7. If .[¹Bºâ¦¡±ø¥ó]..Then...Else ³¯­z¦¡  ¨ä[¹Bºâ¦¡±ø¥ó]¤§¹Bºâµ²ªG¬° True ©Î False
   
8. 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

GBKEE

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

GBKEE

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

GBKEE

¦^´_  GBKEE

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

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

GBKEE

¦^´_ 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§@ªí

GBKEE

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

GBKEE

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

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

GBKEE

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

¤U¸ü (57.98 KB)

2013-1-11 16:06

GBKEE

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