Hsieh

¦^´_ 3# toxin
À³¸Ó¬O§A¨â­ÓÀɮפÀ§O¨Ï¥Î2­ÓExcelÀ³¥Îµ{¦¡¶}±Ò©Ò­P
§Ú·Q§A³o­Óµ{§ÇÀ³¸Ó¬O¦b§t¦³Sheets("»s³y³æ")ªº¬¡­¶Ã¯¤¤¬Y¤@¤u§@ªíªº«ö¶sµ{§Ç
¸Õ¸Õ¥H¤Uµ{¦¡½X

1. Private Sub CommandButton1_Click()
   
2.     Dim a As Integer, i As Integer
   
3.     Dim b As Integer
   
4.     Dim c As Variant
   
5.     Dim d As Variant
   
6.     Dim E As Variant
   
7.     Dim WB As Workbook, IA As Integer, IB As Integer, IC As Integer
   
8.     IA = 7000
   
9.     IB = 3
   
10.     IC = 10
    
11.     Set WB = Workbooks.Open("d:\test.xls")  '¶}±Ò¬¡­¶Ã¯: «È¤á¤u§@ªí©Ò¦bªº¬¡­¶Ã¯
    
12.     Do
    
13.         If WB.Sheets("»s³y³æ").Range("E" & IB) <> "" Then
    
14.             IB = IB + 1
    
15.         End If
    
16.     Loop While Sheets("»s³y³æ").Range("E" & IB) <> ""
    
17. AGO:
    
18.     IC = IC + 1
    
19.     Do
    
20.         d = Sheets("»s³y³æ").Range("D" & IB)
    
21.         Set c = WB.Sheets("«È¤á").Range("B11:B" & IC).Find(What:=d, LookIn:=xlFormulas, _
    
22.          LookAt:=1, SearchOrder:=2, SearchDirection:=xlNext, _
    
23.          MatchCase:=False, MatchByte:=False, SearchFormat:=True)
    
24.         If IC = IA Then
    
25.             Sheets("»s³y³æ").Range("E" & IB) = "¥¼©R¦W"
    
26.             GoTo STAR
    
27.         End If
    
28.         If c Is Nothing Then
    
29.             GoTo AGO
    
30.         Else
    
31.         '    IA = IC - 1
    
32.             Sheets("»s³y³æ").Range("E" & IB) = WB.Sheets("«È¤á").Range("H" & IC)
    
33.         End If
    
34. STAR:
    
35.         IB = IB + 1
    
36.         IC = 11
    
37.     Loop While Sheets("»s³y³æ").Range("D" & IB) <> ""
    
38. WB.Close
    
39. End Sub

½Æ»s¥N½X

Hsieh

¦^´_ 5# toxin


    ©Ò¿×¤£¶}±Ò¥u¬Oµøı¤WªºÃö«Y¡A¦pªG­n¨ú±o¬YÀɮפº®e¡A³£¥²¶·¶}±Ò¸ÓÀÉ®×
´Nºâ¬O¸ê®Æ®w¬d¸ß¡A¹ê½è¤WÁÙ¬O¦b­I´º§@·~¤¤¶}±Ò¸ÓÀɮק@¬°¸ê®Æ®w³s½u
§Aªº°ÝÃD³Ì¦n±N2­ÓÀɮצP®Éªþ¤W¡A¤~ª¾¹D°ÝÃD¥X¦b­þ¸Ì