Office中国论坛/Access中国论坛

标题: 查找匹配问题 [打印本页]

作者: Bluelost 时间: 2005-7-16 01:08
标题: 查找匹配问题
下面是我写的在一个范围里查找输入内容的代码,输入x就会找到第一个含x的单元格

      With Worksheets(2).Range("b2:b300")

      Set j = .Find(k, LookIn:=xlValues)

      If Not j Is Nothing Then

      addr = j.Address

      nrow = j.Row

      .Cells(nrow - 1, 2).Copy

      Worksheets(3).Cells(Target.Row, Target.Column - 9).PasteSpecial

但我想要输入单元格内容和目标单元格内容完全一致才算查找成功应该怎么做?

比如输入blue,目标单元的内容也是blue才行,blues多了个s就不行.

作者: 红池坝 时间: 2005-7-16 01:21
你的意思是完全匹配吗？dim i as integer

dim found as booleanfound=false

For i=2 to 300

  if cells(i,2)=X then

cells(i,2).select

found=true

exit sub

  endif

next i  if not found then

msgbox "没有找到"

  endif

作者: Bluelost 时间: 2005-7-16 21:41
谢谢，我试试先

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