GBKEE

¦^´_ 6# flutist

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim ´Á§O As Range, Msg As String, xi As Integer, xS As Integer
   
4.     With Sheets("Sheet1")
   
5.         .[B2:B7].Name = "§ëª`°Ï"
   
6.         Set ´Á§O = Sheets("sheet2").Range("a:a").Find(.[a2], lookat:=xlWhole)       '´M§ä´Á§O
   
7.         Msg = IIf(´Á§O Is Nothing, "´Á    §O:" & .[a2] & " §ä¤£¨ì!!! " & vbLf, "") & _
   
8.               IIf([COUNT(§ëª`°Ï)] <> 6, "§ëª`°Ï: ¸¹½X¤£»ô¥þ", "")                   '[COUNT(§ëª`°Ï)] <> 6 §ëª`¸¹½X»Ý¦³6­Ó
   
9.         If Msg <> "" Then MsgBox Msg: Exit Sub
   
10.         [§ëª`°Ï].Interior.ColorIndex = .[a2].Interior.ColorIndex                    '¨î©w§ëª`°Ï©³¦â
    
11.         For xi = 1 To 7
    
12.             If IsNumeric(Application.Match(´Á§O.Offset(, xi), [§ëª`°Ï], 0)) Then    '¶}¥X¼ú¸¹¤@¤@¤ñ¹ï   §ëª`¸¹½X
    
13.                 If xi < 6 Then
    
14.                  xS = xS + 1
    
15.                  [§ëª`°Ï].Cells(Application.Match(´Á§O.Offset(, xi), [§ëª`°Ï], 0)).Interior.ColorIndex = 17  '¶}¥X¸¹¸¹:¨î©w©³¦â
    
16.                 Else
    
17.                   Msg = "OK"        '¯S§O¸¹
    
18.                   [§ëª`°Ï].Cells(Application.Match(´Á§O.Offset(, xi), [§ëª`°Ï], 0)).Interior.ColorIndex = 7   '¯S§O¸¹:¨î©w©³¦â
    
19.                 End If
    
20.             End If
    
21.         Next
    
22.         With .[D2]
    
23.             Select Case xS
    
24.                 Case 6
    
25.                     .Value = "¡u®¥³ß§A¹ï¤¤ÀY¼ú¡v"
    
26.                 Case 5
    
27.                     .Value = IIf(Msg <> "", "¡u®¥³ß§A¹ï¤¤¶L¼ú¡v", "¡u®¥³ß§A¹ï¤¤°Ñ¼ú¡v")
    
28.                 Case 4
    
29.                     .Value = IIf(Msg <> "", "¡u®¥³ß§A¹ï¤¤¸v¼ú¡v", "¡u®¥³ß§A¹ï¤¤¥î¼ú¡v")
    
30.                 Case 3
    
31.                     .Value = IIf(Msg <> "", "¡u®¥³ß§A¹ï¤¤³°¼ú¡v", "¡u¼úª÷$1,000¡v")
    
32.                 Case 2
    
33.                     .Value = IIf(Msg <> "", "¡u®¥³ß§A¹ï¤¤´¶¼ú¡v", "¡u¼úª÷$400¡v")
    
34.                 Case Else
    
35.                 .Value = "¤U´Á¦A¨Ó"
    
36.             End Select
    
37.         End With
    
38.     End With

½Æ»s¥N½X