excel - 如何将所选单元格的总和显示为提示？Excel VBA

Question

这是一个很多人可能觉得没有必要的问题，但对我来说这很有帮助，因为我有分心的问题。

Excel可以在左上角显示所选单元格的总和

但是有没有办法让它出现在鼠标指针旁边？

Answer 1

这可能是一个解决方案，尽管它无论如何都不是完美的，但是如果您想在工作表的其他地方使用数据验证，则必须小心，因为它会破坏它。

当您选择不同的范围时，这将需要重置数据验证范围，但您应该能够首先确定这种方法是否有用。

在选择更改事件中

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 doSumTip
End Sub

然后使用数据验证在您的选择上设置输入消息。您可以更改它以显示计数或平​​均值等。

Sub doSumTip()
Dim myRng As Range
Dim sumTip
Set myRng = Selection
    If myRng.Count > 1 Then
       sumTip = WorksheetFunction.Sum(myRng)
        With Selection.Validation
            .Delete
            .Add Type:=xlValidateInputOnly
            .IgnoreBlank = True
            .InputMessage = sumTip
        End With
    Else
        With Selection.Validation
            .Delete
            .Add Type:=xlValidateInputOnly
            .InputMessage = ""
        End With
    End If
 Set myRng = Nothing
End Sub

或者您可以使用选择范围创建您自己的工具提示，并根据该选择进行定位，建议文本框像数据验证一样着色和平坦

Sub doSumTip()
Dim myRng As Range
Dim sumTip
Set myRng = Selection
    If myRng.Count > 1 Then
       sumTip = WorksheetFunction.Sum(myRng)
       cTop = myRng.Top
       cWidth = myRng.Left + myRng.Width
       ActiveSheet.TextBox1.Left = cWidth
       ActiveSheet.TextBox1.Top = cTop
       ActiveSheet.TextBox1.Text = sumTip
       ActiveSheet.TextBox1.Visible = True

     Else
       ActiveSheet.TextBox1.Visible = False
     End If
 Set myRng = Nothing
End Sub