excel - VBa 和 Excel : sum up highlighted cells value from specific item number and then subtract to cells value from other table and display in next column

Question

我正在学习 excel 和 VBa，我遇到了以下问题，我想总结右列(G)中突出显示的 Qty 单元格(其中项目编号和开始日期在左表中相同的项目编号)，然后减去 QTY从左列 (B) 获取相同的项目编号，最后在突出显示的项目编号旁边的列 (K) 中显示这些结果。表格是动态的。我希望这很清楚我想要做什么。我尝试总结 G 列中突出显示的项目的数量，然后在第一列中减去相同项目编号的数量并在列 (K) 中显示但不起作用。

Sub check()
Dim lastData, lastData1 As Variant
Dim item1, item2 As Variant
Dim endD1, startD1, endD2, startD2 As Variant
Dim i As Integer
Dim ii As Integer
Dim countQ As String

'This will find "." in the date and replace it with "/" which is neccessary before to find a macht
Cells.Replace What:=".", Replacement:="/", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

lastData = Sheet7.Cells(Sheet7.Rows.count, 1).End(xlUp).row
lastData1 = Sheet7.Cells(Sheet7.Rows.count, 6).End(xlUp).row

'Loop through  tables
For i = 3 To lastData
  item1 = Cells(i, 1).value
  startD1 = Day(Cells(i, 3).value) & Month(Cells(i, 3).value) & Year(Cells(i, 3).value)
  endD1 = Day(Cells(i, 4).value) & Month(Cells(i, 4).value) & Year(Cells(i, 4).value)
   For ii = 3 To lastData1
      item2 = Cells(ii, 6).value
      startD2 = Day(Cells(ii, 8).value) & Month(Cells(ii, 8).value) & Year(Cells(ii, 8).value)
      endD2 = Day(Cells(ii, 9).value) & Month(Cells(ii, 9).value) & Year(Cells(ii, 9).value)
      If item1 = item2 And startD1 = startD2 And endD1 = endD2 Then
      highlight (ii)

      End If
Next ii
'Compare Data from first table (column A,C) and from second table (column F,H)and then substract to column
countQ = 0
If item2 = Cells(J, 6).Interior.Color = 65535 Then
    If startD2 = Cells(J, 6).Interior.Color = 65535 Then
       If item1 = item2 And startD1 = startD2 Then
          countQ = countQ + Cells(i, 7).value
          Cells(i, 11).value = countQ - Cells(i, 1).value


       End If
     End If
End If
Next i
End Sub

Function highlight(ByVal x As Integer)
    Range("F" & x & ":J" & x).Select
    Application.CutCopyMode = False
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Function

Answer 1

在我看来，您的代码应该是这样的(注释中的解释):

Option Explicit ' <-- use this to force variables explicit dimensioning

Sub check()
' all variables must be dimensioned with its own type: unspecified types default to Variant
    Dim lastData As Variant, lastData1 As Variant 
    Dim item1 As Variant, item2 As Variant
    Dim endD1 As Variant, startD1 As Variant, endD2 As Variant, startD2 As Variant
    Dim i As Long
    Dim ii As Long
    Dim countQ As Long ' <-- you need it a numeric variable!

    'This will find "." in the date and replace it with "/" which is neccessary before to find a macht
    Cells.Replace What:=".", Replacement:="/", LookAt:=xlPart, SearchOrder _
    :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

    lastData = Sheet7.Cells(Sheet7.Rows.Count, 1).End(xlUp).Row
    lastData1 = Sheet7.Cells(Sheet7.Rows.Count, 6).End(xlUp).Row

    'Loop through  tables
    For i = 3 To lastData
        item1 = Cells(i, 1).Value
        startD1 = Day(Cells(i, 3).Value) & Month(Cells(i, 3).Value) & Year(Cells(i, 3).Value)
'        endD1 = Day(Cells(i, 4).Value) & Month(Cells(i, 4).Value) & Year(Cells(i, 4).Value) ' as per your wording, you don't seem to need endDate comparison

        countQ = 0 ' reset the second table Qty counter
        For ii = 3 To lastData1
            item2 = Cells(ii, 6).Value
            startD2 = Day(Cells(ii, 8).Value) & Month(Cells(ii, 8).Value) & Year(Cells(ii, 8).Value)
'            endD2 = Day(Cells(ii, 9).Value) & Month(Cells(ii, 9).Value) & Year(Cells(ii, 9).Value) ' as per your wording, you don't seem to need endDate comparison
            If item1 = item2 And startD1 = startD2 Then ' And endD1 = endD2 Then ' as per your wording, you don't seem to need endDate comparison
                highlight ii
                countQ = countQ + Cells(ii, 7).Value ' update the second table qty counter
                Cells(ii, 11).Value = Cells(i, 2).Value - countQ ' subtract the current second table qty counter form first table qty and place it in coumn K of current second table row
            End If
        Next    
    Next
End Sub