Office中国论坛/Access中国论坛

标题: 求助一个查找问题 [打印本页]

作者: a195713812 时间: 2009-11-2 21:37
标题: 求助一个查找问题
今天做了一个表格，但是不知道怎么设置查找，希望大家帮我解决这个问题

作者: 方漠 时间: 2009-11-11 13:42
右键单击工作表SHEET1,选查看代码. COPY如下代码进去即可.

Private Sub Worksheet_Change(ByVal Target As Range)

Dim StF As String

  If Target.Column = 2 And Target.Row = 1 Then

  StF = [B1]
  [B1] = ""

  Cells.Find(What:=StF).Activate

  End If

End Sub

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)