Question

我有一个宏，它在选定的单元格过滤范围内循环，并且仅对选定的单元格做一些事情。

这时，循环进入“下一步”，并带有一个消息框，询问用户是否要继续（是/否）。我想通过一个消息框包括3个选项（上一个，下一个，退出）而不是2个选项（是，否）来更改“循环时”的循环方法。在这个新循环中，我将使用与过滤范围内的细胞系位置相关的计数器，并执行以下操作：

   Case Previous : Counter = Counter - 1
   Case Next : Counter = Counter + 1
   Case Quit : Exit For

我面临的问题是我不知道如何轻松地使用计数器，因为我的For Next循环当前没有任何计数器，并且要为已过滤范围引用单元格位置并不容易。 / p>

关于如何进行的任何建议？

谢谢！

Sub newstuff()
    Dim Msg, Style, Title, Help, Ctxt, Response, MyString
    Msg = "Do you want to continue ?"    ' Define message.
    Style = vbYesNo + vbCritical + vbDefaultButton2    ' Define buttons.
    Title = "MsgBox Demonstration"    ' Define title.
    Help = "DEMO.HLP"    ' Define Help file.
    Ctxt = 1000    ' Define topic
        ' context.
        ' Display message.
    Dim addr As String
    addr = Selection.Address 'Select a range of filtered cells in a column

    Dim cl As Range, rng As Range

    Set rng = Range(addr)

    For Each cl In rng.SpecialCells(xlCellTypeVisible)
        Debug.Print cl 'Do some stuff for each cell of the filtered range
    Response = MsgBox(Msg, Style, Title, Help, Ctxt)

        If Response = vbNo Then    ' User chose No.
          Exit For
        End If
    Next cl
End Sub

Answer 1

我将尝试使用（添加用户表单）之类的方法

t=2

Do until t > rng.SpecialCells(xlCellTypeVisible).rows.count
Userform1.Show
‘Do something depending on button clicked on userform

t = t + 1

Loop

如何使用过滤范围“执行循环”-VBA Excel

1 个答案: