[已解决]获取指定条件的行号

xiaomaoxiaolan

获取指定条件的行号，求修改

最佳答案

月排行榜 / 总排行榜

爱疯

2015-8-22 16:38

Private Sub CommandButton1_Click()
    q = Cells(8, 4)
    Set Rng = Sheets("表二").Range("B:B").Find(q)
    If Rng Is Nothing Then
        Cells(9, 4) = "该日期不存在"
    Else
        Cells(9, 4) = Rng.Row
    End If
End Sub

2.rar (11.58 KB, 下载次数: 14)

2015-8-22 16:38 上传

点击文件名下载附件

跳转到最佳答案楼层

爱疯

Private Sub CommandButton1_Click()
    q = Cells(8, 4)
    Set Rng = Sheets("表二").Range("B:B").Find(q)
    If Rng Is Nothing Then
        Cells(9, 4) = "该日期不存在"
    Else
        Cells(9, 4) = Rng.Row
    End If
End Sub

2.rar (11.58 KB, 下载次数: 14)

2015-8-22 16:38 上传

点击文件名下载附件

xiaomaoxiaolan

爱疯 发表于 2015-8-22 16:38
Private Sub CommandButton1_Click()
    q = Cells(8, 4)
    Set Rng = Sheets("表二").Range("B:B").F ...

感谢！！！！！！！！！！！

爱很简单

爱疯 发表于 2015-8-22 16:38
Private Sub CommandButton1_Click()
    q = Cells(8, 4)
    Set Rng = Sheets("表二").Range("B:B").F ...

版主，为什么·· 结果会提示不存在呢？？？？？  在表二中是有该日期的呀？？？？

爱疯

我下了4楼附件，没发现什么。

你说的“该日期”，是什么？