倉儲批拆解 VBA

轉載請註明出處，聯繫我: [email protected]
本人熱衷於數據庫技術及算法的研究，志同道合之士， 歡迎探討

Sub 按鈕2_Click()
    Dim i2 As Integer
    i2 = 2
    For i = 2 To 1000
        If Len(工作表2.Cells(i, 2).Value) = 0 Then
           Exit For
        End If
        工作表3.Cells(i2, 2).Value = 工作表2.Cells(i, 2).Value
        工作表3.Cells(i2, 3).Value = 工作表2.Cells(i, 3).Value
        工作表3.Cells(i2, 4).Value = 工作表2.Cells(i, 4).Value
        工作表3.Cells(i2, 5).Value = 工作表2.Cells(i, 5).Value
        For j = 2 To 10000
            If Len(工作表1.Cells(j, 2).Value) = 0 Then
               Exit For
            Else
               If 工作表3.Cells(i2, 4).Value = 工作表1.Cells(j, 2).Value Then
                   If 工作表1.Cells(j, 7).Value > 0 Then
                      If 工作表3.Cells(i2, 5).Value <= 工作表1.Cells(j, 7).Value Then
                          工作表3.Cells(i2, 6).Value = 工作表3.Cells(i2, 5).Value
                          工作表3.Cells(i2, 8).Value = 工作表1.Cells(j, 4).Value
                          工作表3.Cells(i2, 9).Value = 工作表1.Cells(j, 3).Value
                          工作表1.Cells(j, 6).Value = 工作表1.Cells(j, 6).Value + 工作表3.Cells(i2, 6).Value
                          i2 = i2 + 1
                          Exit For
                      Else
                          工作表3.Cells(i2, 6).Value = 工作表1.Cells(j, 7).Value
                          工作表3.Cells(i2, 8).Value = 工作表1.Cells(j, 4).Value
                          工作表3.Cells(i2, 9).Value = 工作表1.Cells(j, 3).Value
                          工作表1.Cells(j, 6).Value = 工作表1.Cells(j, 5).Value
                          i2 = i2 + 1
                          工作表3.Cells(i2, 2).Value = 工作表3.Cells(i2 - 1, 2).Value
                          工作表3.Cells(i2, 3).Value = 工作表3.Cells(i2 - 1, 3).Value
                          工作表3.Cells(i2, 4).Value = 工作表3.Cells(i2 - 1, 4).Value
                          工作表3.Cells(i2, 5).Value = 工作表3.Cells(i2 - 1, 7).Value
                          If 工作表3.Cells(i2, 7).Value <= 0 Then
                              Exit For
                          End If
                       End If
                    End If
                End If
            End If
        Next j
    Next i
End Sub