获取筛选后显示单元格的真实行数

天地一相

感谢帮助！详见截图附件。感谢 “liulang0808” 版主的帮助。

liulang0808

Sub 按钮1_Click()
    r = Cells(Rows.Count, 5).End(3).Row
    [e3] = ""
    On Error Resume Next
    i = 0
    For Each Rng In Range("E6:E" & r).SpecialCells(xlCellTypeVisible)
        i = i + 1
        If i = 5 Then
            [e3] = Rng.Row
            Exit Sub
        End If
    Next

End Sub

liulang0808

供参考。。。。。。

天地一相

liulang0808 发表于 2022-11-17 20:30
供参考。。。。。。

谢谢！结果不对。筛选项1，2，3，4，勾除。E3等于5和等于6，结果一样。我把代码中的E6改成E5了。补充：改回代码后测试发现，不论E3是什么。结果都是13

天地一相

liulang0808 发表于 2022-11-17 20:29
Sub 按钮1_Click()
    r = Cells(Rows.Count, 5).End(3).Row
    [e3] = ""

我的求助是想解决这个问题。我截图中要着色的个数就是单元格的数值。谢谢。

liulang0808

Sub 按钮1_Click()
    r = Cells(Rows.Count, 5).End(3).Row
    [e3] = ""
    On Error Resume Next
    i = 0
    For Each Rng In Range("E5:E" & r).SpecialCells(xlCellTypeVisible)
        i = i + 1
        If i = 5 Then
            [e3] = Rng.Row
            Exit Sub
        End If
    Next

End Sub
不知道理解的对不对

天地一相

liulang0808 发表于 2022-11-17 21:08
Sub 按钮1_Click()
    r = Cells(Rows.Count, 5).End(3).Row
    [e3] = ""

只改红色的5不行，我测试过的。我E3单元的数值的意思就是我刚有截图那个回帖了E2的用途。是要对多少个单元格上色。数值大了，下端露不出来，所以想着咋样能解决这个问题

天地一相

liulang0808 发表于 2022-11-17 21:08
Sub 按钮1_Click()
    r = Cells(Rows.Count, 5).End(3).Row
    [e3] = ""

看不太明白，尝试猜着说，E3单元格的数值只告诉是筛选键（E4）下面第几个单元格，然后问那最后一个的行号。不对我筛选内容进行操作。谢谢

liulang0808

Sub 按钮1_Click()
    r = Cells(Rows.Count, 5).End(3).Row
    y = [e3]
    On Error Resume Next
    i = 0
    For Each Rng In Range("E5:E" & r).SpecialCells(xlCellTypeVisible)
        i = i + 1
        If i = y Then
            Rng.Interior.ColorIndex = 3
            Exit For
        End If
    Next

End Sub
理解能力有限，再猜一次看看

天地一相

liulang0808 发表于 2022-11-17 21:25
Sub 按钮1_Click()
    r = Cells(Rows.Count, 5).End(3).Row
    y = [e3]

谢谢。不是这个意思。我有回帖的截图就是我实现按单元格数值给多少个筛选结果着色的。只是着色单元格多了，下端显示不出来。就想着怎样能实现。我发截图给你，是想你看看，原来的着色代码里，能否直接获取这个最后一个着色单元格的行号，直接赋值给最后一行的代码，就直接能把着色区的下端显示出来了。我这个求助，就是只想实现，筛选列第N个单元格（E3内容）的行号是多少，想赋值给屏幕显示的语句使用。