这是一个很多人可能觉得没有必要的问题,但对我来说这很有帮助,因为我有分心的问题。
Excel可以在左上角显示所选单元格的总和
但是有没有办法让它出现在鼠标指针旁边?
这可能是一个解决方案,尽管它无论如何都不是完美的,但是如果您想在工作表的其他地方使用数据验证,则必须小心,因为它会破坏它。
当您选择不同的范围时,这将需要重置数据验证范围,但您应该能够首先确定这种方法是否有用。
在选择更改事件中
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