|
- 我看你是这意思
- Sub sx()
- Dim rng As Range
- With Sheet3
- .Range("b7:b100000").EntireRow.Hidden = True
- On Error Resume Next
- With .Range("b7:b100000").Find(What:=.Cells(2, 2).Value, LookAt:=xlWhole)
- .EntireRow.Hidden = False
- End With
- End With
- End Sub
- 事件代码
- Private Sub Worksheet_Change(ByVal T As Range)
- If Not Intersect(T, Range("b2")) Is Nothing Then sx
- If T.Row > 6 And T.Column = 2 Then
- If T.Count > 1 Then Exit Sub
- If T.Value = "" Then Exit Sub
- Set rng = Sheets("学员信息建档").Columns(1).Find(T.Value, , , 1)
- If rng Is Nothing Then MsgBox "学员信息建档中没有该电话!": Exit Sub
- r = rng.Row
- For j = 2 To 8
- T.Offset(, j - 1) = Sheets("学员信息建档").Cells(r, j)
- Next j
- T.Offset(, -1) = Now()
- End If
- End Sub
复制代码 |
|