GBKEE

¦^´_ 1# brabus
¥i¥Î VBA

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     Application.EnableEvents = False
   
3.     If Target(1).Cells = [B5] Then
   
4.         [C5] = ""
   
5.         For Each E In Range([G5], [G5].End(xlDown))
   
6.             If [B5] >= Val(Split(E, "~")(0)) And [B5] <= Val(Split(E, "~")(1)) Then
   
7.                 S = IIf(S = "", E.Offset(, -1), S & "," & E.Offset(, -1))
   
8.             End If
   
9.         Next
   
10.         With Range("C5").Validation
    
11.             .Delete
    
12.             If S <> "" Then
    
13.             .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
    
14.             xlBetween, Formula1:=S
    
15.             End If
    
16.         End With
    
17.     End If
    
18.     Application.EnableEvents = True
    
19. End Sub

½Æ»s¥N½X