Hsieh

¦^´_ 1# emmalee
SHEET1¤u§@ªí¼Ò²Õ

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Address <> "$B$1" Then Exit Sub
   
3. With Sheet2
   
4. Set a = .Columns("A").Find(Target, LookIn:=xlValues)
   
5. Set b = .Columns("A").Find(Date, LookIn:=xlValues)
   
6. If Not a Is Nothing And Not b Is Nothing Then
   
7. Range([A3], Cells(Rows.Count, 2)) = ""
   
8. .Range(a, b.Offset(, 1)).Copy [A3]
   
9. End If
   
10. End With
    
11. End Sub

½Æ»s¥N½X

Hsieh

¦^´_ 4# emmalee


   

¤U¸ü (631.87 KB)

2011-6-9 23:59