GBKEE

¦^´_ 1# jiuhtsair
§¹¥þ§PÂ_
   

1. Sub Ex()
   
2.     Dim A, Rng As Range, S As String
   
3.     Set Rng = [C2:C11]
   
4.     A = Application.Match([A2], Rng, 1)
   
5.     If IsError(A) Then
   
6.          S = [A2] & " :  <= " & Rng(1)
   
7.     ElseIf A = 1 Then
   
8.         S = [A2] & " :  <= " & Rng(1)
   
9.     ElseIf A = Rng.Count Then
   
10.         S = [A2] & " : >=" & Rng(A)
    
11.     Else
    
12.         If [A2] = Rng(A) Then
    
13.             S = [A2] & " : " & Rng(A - 1) & "  <->  " & Rng(A)
    
14.         Else
    
15.             S = [A2] & " : " & Rng(A) & "  <->  " & Rng(A + 1)
    
16.         End If
    
17.     End If
    
18.     MsgBox S
    
19. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 5# PJChen

1. Sub judge()
   
2. If [A2] >= 10 And [A2] <= 100 Then
   
3. a = Application.Lookup([A2], [C2:C11])
   
4. b = Application.Lookup([A2], [C2:C11], [C3:C12])
   
5. MsgBox [A2] & "¤¶©ó" & a & "»P" & b & "¤§¶¡"
   
6. End If
   
7. End Sub

½Æ»s¥N½X