excel - 基于另一个向列添加 1

Question

我正在尝试根据总重量创建一个有效的订单。我有一个包含总库存需求和手头库存的数据选项卡，这是 Raw_Data。

然后我有我的实际订单表，它计算订单 Order_Form 的总重量。Raw_data 从 "n2:n16" AMOUNT 输入 Order_form 然后我创建了一个列来计算总库存（包括必须订购的）并将其与预期使用情况进行比较以获得手头的总剩余库存，然后我将其排在最低多余的“q2:q16”。

我想根据 Excess 列中的排名向 Amount 列添加一个。目标是有这个循环，直到我把卡车开到 46,200。

目前，我正在根据超出部分更新金额列。

任何帮助，将不胜感激。

Sub Optomize_Order()
'Basic Parameters for entire code

'Set workbook and sheets

    Dim Order_Op As Workbook
    Set Order_Op = ThisWorkbook
    
    Dim Order_Form As Worksheet
    Set Order_Form = Order_Op.Sheets("Order_Form")
    
    Dim Raw_Data As Worksheet
    Set Raw_Data = Order_Op.Sheets("Raw_Data")

'Setting the goal

    Set Weight = Order_Form.Range("A21")

'Setting Range to Adjust variable

    Dim Amount As Range, cell_2 As Range
    Set Amount = Raw_Data.Range("n2:n16")

'Setting excess Ranking Range

    Dim Excess As Range, cell As Range
    
    Set Excess = Raw_Data.Range("q2:q16")


'Loop until weight greater than 46200

    If Weight.Value <= 46200 Then Raw_Data.Activate

    For Each cell In Excess
        If cell.Value = 1 Then
        cell_2.Value = cell_2.Value + 1
    End If
    
    Next
        
    End Sub

标签： excelvba