Стоп-цикл VBA (Application.InputBox)

Question

Я делаю макрос для вычисления значений ячеек из заданного диапазона (начиная с ячейки до конечной ячейки) и повторяя ячейки до тех пор, пока не найдет нулевую ячейку (в ней нет значения).

Так рабочий процесс должен быть:

1. Запуск ячейки (определяется пользователем);
2. Конечная ячейка (определяется пользователем);
3. Пронумеруйте значения до тех пор, пока не будет найдена пустая ячейка. Если пустая ячейка найдена, следующий столбец (Примечание: я предполагаю, что пустая ячейка является разрывом столбца);
4. Проход через столбцы до тех пор, пока не будет достигнута конечная ячейка;
5. Если конечная ячейка достигнута, , если она не заполнена, прокрутите колонку до тех пор, пока не будет найдена пустая ячейка;
6. Остановите программу.

Он также должен получать значения из активной ячейки и вычислять сумму, когда она меняет колонку (теперь это просто идея, а не основная проблема).

Проблема, с которой я столкнулась, заключается в том, что, разрешая пользователю выбирать ее окончание, я застреваю при остановке цикла, когда он достигает этой конечной ячейки.

Это то, что я сделал до сих пор (Примечание: обработка Нет ошибок на входе еще, чтобы быть добавлены позже):

Sub test01() 
    Dim startCell As Variant 
    Dim endCell As Variant  

    Range("A1").Select ' Starting cell position 
    startCell = Application.InputBox("A", "A", , , , , Type:=8) 'Start of range 
    endCell = Application.InputBox("B", "B", , , , , Type:=8) 'End of range 


    Do 
     If IsEmpty(ActiveCell) Then 
      ActiveCell.EntireColumn.Select 
      ActiveCell.Offset(0, 1).Select 

     Else 
      'Calculate data 
      ActiveCell.Offset(1, 0).Select 

      If ActiveCell.Column And ActiveCell.Row = endCell Then 
       Exit Do 
      End If 

     End If 

    Loop 

End Sub 

Есть sugestions на то, что я делаю неправильно и пути совершенствования Это? Спасибо :)

PS. Новое с vba.

Answer 1

Бизнес-логика немного неясна, поэтому основываясь на лучшем предположение, решение может быть такими, как показано в следующем Excel VBA фрагменте коды:

Sub test01() 
    Dim startCell As Variant 
    Dim endCell As Variant 

    'Range("A1").Select ' Starting cell position 
    startCell = Application.InputBox("A", "A", , , , , Type:=8).Address 'Start of range 
    endCell = Application.InputBox("B", "B", , , , , Type:=8).Address 'End of range 

    Range(startCell).Activate ' Starting cell position instead of "A1" 

    Do 
     If IsEmpty(ActiveCell) Then 
      ActiveCell.EntireColumn.Select 
      ActiveCell.Offset(0, 1).Select 
      Exit Do 
     Else 
      'Calculate data 
      ActiveCell.Offset(1, 0).Select 
      If ActiveCell.Address = endCell Then 
       Exit Do 
      End If 
     End If 
    Loop 
End Sub 

Надеется, что это может помочь.