时间戳

首页 > 解决方案 > 单击单元格并在另一个单元格中添加显示总和

excel - 单击单元格并在另一个单元格中添加显示总和

问题描述

我有一系列的价值观；我想单击该范围的一个子集并将总和显示在该范围之外的另一个单元格中。

现在，我可以将单击的单元格的值传输到另一个单元格，但是当我单击多个单元格时，我无法显示这些值的总和。

这是我当前的代码；我还让单击的单元格变为黄色，表示它已被选中。

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Selection.Count = 1 Then
        If Not Intersect(Target, Range("B7:B8")) Is Nothing Then
            Range("L7").Value = Selection.Value
        Target.Interior.Color = vbYellow
        End If
    End If
End sub

我想知道是否可以将 sum 函数应用于

Range("L7").Value = Selection.Value

标签： excelvba

解决方案

状态栏可以配置为显示所选单元格的平均值、计数、总和等。如果你想在工作表单元格中显示它，试试这个

    Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

     If Not Intersect(Target, Range("B1:B10")) Is Nothing Then
         Range("L7").Value = WorksheetFunction.Sum(Target)

     End If

End Sub

推荐阅读