Question

我有一个宏来遍历一个范围，并根据

将电子邮件返回给.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

如何改变你的做法直到＆＃39;循环到下一个＆＃39;环？有点像？...

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的接口控件

1 个答案: