c_c_lai

¦^´_ 1# 198188

1. if left([A1]¡A1¡^= 2 then
   
2.     ' .......
   
3. end if
   
4. 
   
5. if left([A2]¡A1¡^= 7 then
   
6.     ' .......
   
7. end if
   
8. 
   
9. if left([A3]¡A3¡^= "OBL" then
   
10.     ' .......
    
11. end if

½Æ»s¥N½X

c_c_lai

¦^´_ 3# 198188
»P Hsieh ¤jªº Instr() ¦³¤£¦Pªºªí¹F¤è¦¡¡A »P Kimbal ª©¤jªº¬O¦P¼Ëªº·N«ä¡A½Ð°Ñ¦Ò¡I

1. Sub Test5()
   
2.     If Not [A1] Like "*OBL*" Then   '  [A1] = "ABCDEFG"
   
3.         [B1] = "Not *OBL*"
   
4.     Else                            '  [A1] = "ABCODLDE"
   
5.         [B1] = "I Got it!"
   
6.     End If
   
7. End Sub

½Æ»s¥N½X

c_c_lai

¦^´_ 7# GBKEE
·PÁ GBKEE ª©¤jªºªþ¥[»¡©ú¡C

c_c_lai

¦^´_ 23# 198188
¦^´_ 22# GBKEE
¦]¬°§A©ÒªþÀɮתºµ{¦¡½X¤¤¤å³¡¤À¥þ¬°ÀËÅé¶Ã½X¡A
¹ïÀ³¤£¤Wªí³æ¦WºÙ©Ò­P¡A½Ð¦A­«·s½Æ»s GBKEE ª©¤jªºµ{¦¡½XÂл\¡A
«KOK¤F¡I

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

c_c_lai

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