Excel中DoEvent的接口控件

我有一个macros来循环遍历一个范围，并返回基于.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 

我想知道是否会有一个简单的方法来在接口中引入一个计数器函数，在这个模块中，我告诉它我想要的起始行和最后一行的位置。 例如，如果我有一个单元格包含“开始在行”单元格与一个增加或减lessbutton来增加或降低它，然后一个“结束行”单元格与两个button，将增加或减less结束基于哪些行我需要启动或停止的值？ 那有意义吗？

谢谢！

Answer 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