循环问题

Question

我正在尝试解决问题..

在一列中，我有一些股票编号（activecell）。我有一个销售号码。

我必须减去这个股票编号的销售编号，直到它为0.例如：

Sales Number = 500

Result = 500 - StockNumber1
Result2 = Result - StockNumber2
Result3 = Result - StockNumber3

我试图找出一种循环方式。

可能是这样的：

i = 0
Do While SalesNumber > Activecell.Offset(i,0)
SalesNumber - ActiveCell(i,0)

i = i + 1

Loop

然而，我还没有找到解决方案..通常有3个股票编号。 如何在库存数量结束时停止循环？有没有人有想法？

我不知道我很清楚..有任何疑问，请问！

感谢您的帮助！

Answer 1

此？

Dim i, SalesNumber, nRowMax

nRowMax = Rows.Count
SalesNumber  = 500

' my stock number starts at the cell A1:

i = 1

Do While SalesNumber > 0
  ' use this to avoid infinite loop:
  If (i > nRowMax) Then
    Exit Do
  ElseIf (IsEmpty(Cells(i, 1))) Then
    Exit Do
  End If

  SalesNumber = SalesNumber - Cells(i, 1)
  i = i + 1
Loop