zyzzyva

¦^´_ 1# Changbanana
¸Õ¸Õ¬Ý

1. Dim myRow As Integer
   
2. 
   
3. Sheets("sheet1").Activate
   
4. Range("B2").Select
   
5. Do While ActiveCell <> ""
   
6.     myRow = WorksheetFunction.Match(ActiveCell, Sheets("sheet2").Range("A:A"), 0)
   
7.     If Sheets("sheet2").Cells(myRow, "A").Interior.ColorIndex = 14 Then
   
8.         Rows(ActiveCell.Row).Delete
   
9.     Else
   
10.         ActiveCell.Offset(1, 0).Select
    
11.     End If
    
12. Loop

½Æ»s¥N½X

zyzzyva

¦^´_ 3# Changbanana
ÃC¦âªº°ÝÃD¡AColorIndex¨ºÃä­n§ï¦¨43¡C
¥i¥H²³æ¥ÎmsgboxÀˬdÃC¦â¹ïÀ³ªº¼Æ¦r¡C

1. mycolor = Sheets(2).Range("A2").Interior.ColorIndex
   
2. MsgBox (mycolor)

½Æ»s¥N½X

zyzzyva

¦^´_ 6# Changbanana
¤£«È®ð¡C¦pªGsheet1ªºid³£·|¦bsheet2¥X²{¡A¥u¬O¶¶§Ç¤£¤@¼Ë¡A¨º³o¼Ë´N¥i¥H¤F¡F
¦pªG¤£¤@©wªº¸Ü´N­n¥[¤W¿ù»~³B²z¡A¤£µMmatch§ä¤£¨ìªº®É­Ô´N·|¥X²{¿ù»~°T®§¡C

zyzzyva

¦^´_ 8# Changbanana
¸Õ¸Õ¬Ý¡C

1. Dim myRow As Integer
   
2. 
   
3. Sheets("¤u§@ªí1").Activate
   
4. Range("B2").Select
   
5. Do While ActiveCell <> ""
   
6.     If IsError(Application.Match(ActiveCell, Sheets("¤u§@ªí2").Range("A:A"), 0)) Then
   
7.         ActiveCell.Offset(1, 0).Select
   
8.     Else
   
9.         myRow = WorksheetFunction.Match(ActiveCell, Sheets("¤u§@ªí2").Range("A:A"), 0)
   
10.         
    
11.         If Sheets("¤u§@ªí2").Cells(myRow, "A").Interior.ColorIndex = 43 Then
    
12.         Rows(ActiveCell.Row).Delete
    
13.         Else
    
14.             ActiveCell.Offset(1, 0).Select
    
15.         End If
    
16.         
    
17.     End If
    
18.    
    
19. Loop

½Æ»s¥N½X

zyzzyva

¦^´_ 11# Changbanana
¸òAccess¤£¤Ó¼ô­C¡A¬Ý¨ä¥L«e½ú¦³¨S¦³¤ñ¸û¦nªº¤èªk¡C
³Ì²³æªº¸Ü´N¥ÎADO§â¸ê®ÆŪ¥X¨Ó©ñ¨ìexcel¸Ì¡A³B²z§¹¦A§â¸ê®Æ¼g¦^¥h¡C