0

我编写了一个 VBA 脚本，允许用户允许将新程序集及其权重插入表中。插入的组件可以是两个级别（1 或2）之一。如果插入的行是子组件（即级别 2），则其位置直接位于更高级别组件的下方。我希望 1 级权重等于所有 2 级权重的总和。我相信最简单的方法是计算空白单元格以定义范围，然后进行计算。如果当前处于 1 级的重量与 2 级重量的总和之间的差异不为 0，我希望将此值作为 2 级重量插入到与 1 级装配相同的行中。我意识到这很令人困惑，所以附上了一张图片来尝试更好地解释它。任何帮助表示赞赏:)

Excel 工作表图像

这是我目前用来插入值的代码（来自用户表单）

If TextBox_LevelNo.Value = 1 Then
Cells(NextRow, 6).Value = TextBox_Weight.Value
Cells(NextRow, 7).Value = TextBox_ExtraWeight.Value
ElseIf TextBox_LevelNo.Value = 2 Then
Cells(NextRow, 7).Value = TextBox_Weight.Value
Cells(NextRow, 8).Value = TextBox_ExtraWeight.Value
ElseIf TextBox_LevelNo.Value = 3 Then
Cells(NextRow, 8).Value = TextBox_Weight.Value
End If
4

1 回答 1

1

好的，这就去。使用这个宏。完成装配体上的工作后执行它。

代码说明：

  • col1 和 col2 必须分别设置为级别的列号
  • 其他变化不应该是必要的。检查列值只是一次大迭代

只需将其作为宏执行一次。将设置 1 级条目旁边的所有 2 级列。

Sub SumLevelOne()

Dim col1 As Integer
Dim col2 As Integer

col1 = 1    'level 1 column (1 = A)
col2 = 2    'level 2 column (2 = B)

Dim i As Integer
Dim currentLevel1Row As Integer
currentLevel1Row = -1
Dim currentLevel1Total As Integer
currentLevel1Total = 0
Dim currentLevel2Sum As Integer
currentLevel2Sum = 0

Dim LastRow As Integer
LastRow = ActiveSheet.Cells(ActiveSheet.Rows.Count, col2).End(xlUp).Row

For i = 1 To LastRow
    If Cells(i, col1) <> "" Then    'level 1 entry
        If currentLevel1Row <> -1 Then  'level 1 entry already set
            'sum up former level 1 entry:
            Cells(currentLevel1Row, col2) = currentLevel1Total - currentLevel2Sum
        End If
        'set new level 1 entry
        currentLevel1Row = i
        currentLevel1Total = Cells(i, col1)
        currentLevel2Sum = 0
    ElseIf i = LastRow Then
        If currentLevel1Row <> -1 Then  'level 1 entry already set
            'sum up former level 1 entry:
            Cells(currentLevel1Row, col2) = currentLevel1Total - currentLevel2Sum
        End If
    Else
        'sum up level 2 entries
        If Cells(i, col2) <> "" Then    'level 2 entry here
            'add this
            currentLevel2Sum = currentLevel2Sum + Cells(i, col2)
        End If
    End If

Next i
End Sub
于 2017-01-10T13:42:29.677 回答