0

我有一个宏来遍历一个范围并将电子邮件返回到 .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

我想知道是否有一种简单的方法可以在界面中合并一个计数器功能，在该界面中我触发这个模块来告诉它我希望起始行在哪里以及我希望结束行在哪里。例如，如果我有一个单元格包含“从行开始”单元格，其中包含一个增加或减少按钮来增加或降低值，然后是一个“行结束”单元格，其中包含两个按钮，可以增加或减少结尾基于我需要开始或停止的行的值？那有意义吗？

谢谢！

4

1 回答 1

1

如何将“直到”循环更改为“下一个”循环？就像是？...

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
于 2015-06-23T14:33:15.980 回答