Hsieh

回復 1# emmalee
SHEET1工作表模組

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

複製代碼

Hsieh

回復 4# emmalee


   

下載 (631.87 KB)

2011-6-9 23:59