Excel 中 DoEvent 的界面控件

Question

我有一个循环遍历范围的宏，return 将电子邮件发送到 .Display 基于

 DoEvents

我模块中的元素。我重复：

row_number = 1
'And
Do
DoEvents
row_number = row_number +1 
'Then a bunch of formatting requirements
Loop Until row_number = 'some value

我想知道是否有一种简单的方法可以在我启动此模块的界面中合并一个计数器函数，以告诉它我希望起始行在哪里以及我希望结束行在哪里.例如，如果我有一个包含 "start on row" 单元格的单元格，其中包含一个增加或减少按钮来增加或降低它的值，然后是一个 "end on row" 单元格，其中包含两个按钮，可以增加或减少结尾基于我需要开始或停止的行的值？这有意义吗？

谢谢！

Answer 1

将 'do until' 循环更改为 'for next' 循环如何？像什么？...

Sub rowinput()

    Dim lngInputStartRow As Long
    Dim lngInputEndRow As Long
    Dim row_number As Long

    lngInputStartRow = Range("A1").Value 'specify your input cell here
    lngInputEndRow = Range("A2").Value

    For row_number = lngInputStartRow To lngInputEndRow
        DoEvents
    Next row_number

    'Then a bunch of formatting requirements

End Sub

Excel 中 DoEvent 的界面控件

Interface Controls for DoEvent in Excel

excel

vba

loops

doevents