[已解决]搜A列数据时，有正常，无则出现错误提示

dok001

搜A列数据时，有正常，无则出现错误提示

最佳答案

月排行榜 / 总排行榜

Zipall

2011-12-29 07:53

dok001 发表于 2011-12-29 07:47
调试显示在下列最后一行：
Private Sub CommandButton1_Click()
  Dim M  As String

用on error语句处理match产生的#N/A值.
或者用下面的方法达到同样的目的.

Set Rng = Range("A1:A500").Find(m, , xlValues, xlWhole)
If Rng Is Nothing Then
    MsgBox "没有匹配值"
    Else
    n = Rng.Row
End If

跳转到最佳答案楼层

dok001

调试显示在下列最后一行：
Private Sub CommandButton1_Click()
  Dim M  As String
  Dim N As Integer
  ThisWorkbook.Worksheets(2).Select
  M = TextBox1.Text
  'Label1.Caption = M
  N = Application.WorksheetFunction.Match(M, Range("A1:A500"), 0)

dok001

请各位师兄指点一下！

Zipall

dok001 发表于 2011-12-29 07:47
调试显示在下列最后一行：
Private Sub CommandButton1_Click()
  Dim M  As String

用on error语句处理match产生的#N/A值.
或者用下面的方法达到同样的目的.

Set Rng = Range("A1:A500").Find(m, , xlValues, xlWhole)
If Rng Is Nothing Then
    MsgBox "没有匹配值"
    Else
    n = Rng.Row
End If

epexiaocheng

学习.............................

epexiaocheng

初来乍到，学习学习

wayy

又一个用代码调用工作表函数的，呵呵。
可以想个直接用代码操作的方法。