Excel 继续添加到总数

Question

您好，我已经找了 2 天了，但我无法弄清楚。我到处都在网上看，这个小问题在任何地方都没有答案。我有两个下拉列表。一个问题列表和一个答案列表，当一个问题被 selected 时，用户然后选择一个答案。如果它 'Always' 它的 1 分，如果它 'Sometimes' 它的 0.5 分。我在许多单元格的不同行（最右边）中设置了当前设置，如果问题是两个答案中的任何一个，它的值为 0.5 或 1。唯一的问题是当用户使用下拉列表 select 下一个问题 if 语句现在为 false，值返回 0 而不是保存。我希望它在值高于 1 后保存该值，或者是否有更好的方法来继续汇总这些答案并仍然保持我的两个下拉列表一起工作？

感谢您抽出宝贵时间审阅我的问题，并且迫不及待地想学习如何操作，这让我抓狂。

Answer 1

这是给你的练习轮，一旦你开始使用它，你就可以让它为你的 sheet 工作。

问题下拉列表为 B10，答案为 D10

设置工作sheet。

添加一些代码。

您现在正在工作sheet模块

复制并粘贴此代码。

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range, x As Range, y
    Set rng = Range("G3:G9")

    If Target.Count > 1 Then Exit Sub
    If Target.Address = "$D" Then
        y = IIf(Target = "Answer 1", 1, 2)
        Set x = rng.Find(what:=Target.Offset(, -2), lookat:=xlWhole)
        If Not x Is Nothing Then
            x.Offset(, 1) = y
        End If
    End If

    If Target.Address = "$B" Then
        Application.EnableEvents = 0
        Target.Offset(, 2).ClearContents
        Application.EnableEvents = 1
    End If
End Sub

关闭 VBA 编辑器并处理您的传播sheet。

公式计算结果

Example Sheet

Excel 继续添加到总数

Excel keep adding to total

excel

list

sum

add