register313

¦^´_ 2# tonycho33

±N«ö¶s§ï¬°Àx¦s®æ
¥ý¥u³B²zA1~A11

1. Private Sub Worksheet_SelectionChange(ByVal T As Range)
   
2. If T.Row = 27 And T.Column >= 7 And T.Column <= 17 Then
   
3. Set Rng = Columns("Z").Find(T)
   
4. [K3].Resize(5, 7) = Rng.Resize(5, 7).Value
   
5. If ([S1] > [N6]) And ([S1] < [N7]) Then
   
6.    Shapes("Group " & Mid(Rng.Value, 2, 2)).Fill.ForeColor.SchemeColor = 11
   
7. Else
   
8.    Shapes("Group " & Mid(Rng.Value, 2, 2)).Fill.ForeColor.SchemeColor = 45
   
9. End If
   
10. End If
    
11. End Sub

½Æ»s¥N½X

¥ý抛¥X¤@ÂI·Qªk,«áÄòÅý¤j¤j­ÌÄ~Äò°Q½×
µe­±.rar (68.08 KB)

¤U¸ü¦¸¼Æ: 5

2012-1-13 13:07