☰

Excel - 鼠标悬停/选择单元格时以不同的货币显示金额？

tag-icon • tag-icon microsoft-excel
Excel - 鼠标悬停/选择单元格时以不同的货币显示金额？

我正在处理一个 Excel 电子表格，它使用的货币不是我的本国货币，我希望看到快速方便的货币转换，可能在状态栏中（例如当您选择多个单元格时，您会在那里看到 AVG 和 SUM）或在工具提示中，有点像带有注释。到目前为止，我见过的所有方法都使用额外的单元格和插件，例如这个。

两个问题：

  1. 首先，这可能吗？Excel 是否有允许这样做的扩展模型？
  2. 有这样的工具吗？

谢谢。

答案1

您可以在状态栏使用 VBA。

在 VBA 上将其复制到工作表中：

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    q = Target.Value
    qRow = Target.Row
    qColumn = Target.Column
    If IsNumeric(q) Then
        m = moneyconverter(q)
        Application.StatusBar = m & " €"
    Else
        Application.StatusBar = False
    End If
End Sub

Public Function moneyconverter(originalmoney As Variant)
    moneyconverter = (originalmoney / 3)
End Function

分为两个部分：

  • 工作表_选择更改：这是对选定单元格的检测。
  • 货币转换功能：这里需要输入货币换算。为了便于演示，我假设它是原始货币除以 3，货币单位为欧元 (€)。

这些值将显示在状态栏的左侧，即使您切换到另一个打开的工作簿，它们仍会存在。要清除这些值，请在原始工作表中选择一个文本单元格。

相关内容