爲DoEvent界面控件在Excel

Question

我有一個宏遍歷一個範圍，並返回電子郵件。我重複說：

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

我想知道是否有將納入其中，我火了這個模塊，告訴它我想要的起始行界面內的計數器功能是其中一個簡單的上下的方式和我想要結束行。例如，如果我有一個單元格包含「起始行」單元格，並帶有增加或減少按鈕以調高或降低該值，然後使用兩個按鈕來增加或減少結尾的「結束行」單元格基於哪些行需要啓動或停止的值？那有意義嗎？

謝謝！

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