0

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

Excel可以在左上角显示所选单元格的总和 在此处输入图像描述

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

4

1 回答 1

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
于 2012-05-08T17:24:10.700 回答