excel - 如何利用右键功能选择表格中的多个单元格进行计算？

Question

我有一个看起来像这样的表：

Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("C25:C35", "I25:I35")) Is Nothing Then
    If Target.Cells.Count = 1 Then
        Cancel = True
        Sheets("Sheet1").Range("G42") = Target.Value

Cancel = True
Target.Interior.Color = vbGreen
   End If
End If
End Sub

当我右键单击 CLTV 表中的任何单元格时，它会突出显示绿色并自动填充下面以黄色突出显示的单元格中的值。我可以选择多个单元格，所有单元格都以绿色突出显示，但是，右键单击的最后一个单元格将自动填充 Total Purp./Char.LLPAs (#2): 字段中的值。

我希望实现的是能够右键单击表格中的多个单元格（所有单元格都突出显示，如示例所示）并以某种方式添加选定的单元格 0.250 + 0.375 + 0.250 + 0.500 并将总和自动填充到总 Purp./Char.LLPAs (#2)：字段。

那可能吗？

提前致谢。

标签： excelvba

Answer 1

试试这个 - 我想这就是你要找的东西？需要更多说明

Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

Dim cell As Range

If Not Intersect(Target, Range("C25:C35", "I25:I35")) Is Nothing Then

    If Target.Cells.Count = 1 Then

        Cancel = True
        Sheets("Sheet1").Range("G42") = 0
        Target.Interior.Color = vbGreen

        For Each cell In Range("C25:C35", "I25:I35")
            If cell.Interior.Color = vbGreen Then
                Sheets("Sheet1").Range("G42") = Sheets("Sheet1").Range("G42") + cell.Value
            End If
        Next cell

    End If

End If

End Sub

要重置所有颜色，请将其分配给一个按钮或单独运行它：

Sub ResetColors()

Sheets("Sheet1").Range("G42") = 0

With Range("C25:C35", "I25:I35").Interior
    .Pattern = xlNone
    .TintAndShade = 0
    .PatternTintAndShade = 0
End With

End Sub