mmggmm

GBKEE :
ÁÂÁÂ,½Ð°ÝH3:AL400¤º¦p¬OªÅ®æ¥ç«O¯d,½Ð°Ý¦p¦ó?

GBKEE

¦^´_ 11# mmggmm

1. Sub Ex()
   
2.     Dim Ay(1), Y As Integer, A As Range
   
3.     With Sheets("POSIT")
   
4.         Ay(0) = Application.Transpose(.Range("P2:P" & .Range("P" & Rows.Count).End(xlUp).Row))
   
5.         Ay(1) = Application.Transpose(.Range("Q2:Q" & .Range("O" & Rows.Count).End(xlUp).Row))
   
6.     End With
   
7.     For Each A In ActiveSheet.[H3:AL400]
   
8.         If A <> "" Then
   
9.             Y = Application.Match(A, Ay(0), 0)
   
10.             If IsError(Y) Then
    
11.                 A.Value = "X"
    
12.             ElseIf Y > 0 Then
    
13.                 If (Y <= 14 Or Y >= 24) And Cells(A.Row, "G") = Ay(1)(Y) Then A.Value = "X"
    
14.             End If
    
15.         End If
    
16.     Next
    
17. End Sub

½Æ»s¥N½X

mmggmm

¤U¸ü (18.29 KB)

2011-7-4 22:21

¤U¸ü (43.8 KB)

2011-7-4 22:22

GBKEE :°õ¦æ«á²{¥H¤W±¡ªp

GBKEE

¦^´_ 13# mmggmm
Dim Ay(1), Y As Integer, A As Range
Y¬°¼Æ¦r«¬ºA¬OInteger
Y¤£¬°¼Æ¦r«h¶Ç¦^ ¿ù»~­È "#NA"
©T¶·§ï¬°   As Variantr ¨S³Q©ú½T«Å§i¬°¨ä¥L«¬ºA

mmggmm

GBKEE :
   ½Ð°ÝAs Variantr ©M As Variant ¦³¦ó¤À§O¦]¬°§ï¬° As Variant ´Nok¤F

GBKEE

¦^´_ 15# mmggmm
§ó¥¿¬O As Variant ¤£¬O  As Variantr  ¬O§Ú¤£¤Ó¥Î¤ß!!  
PS:·PÁ oobird ª©¥D«ü¥¿