Excel - отображать сумму в другой валюте при наведении мыши / выборе ячейки?

Question

Я работаю с электронной таблицей Excel, в которой используется валюта, отличная от моей родной, и я хотел бы видеть быстрые и удобные конвертации валют, возможно, в строке состояния (например, когда вы выбираете несколько ячеек и видите AVG и SUM там) или в всплывающая подсказка, вроде как с комментариями. Все методы, которые я видел до сих пор, используют дополнительные ячейки и надстройки, такие как этот.

Два вопроса:

1. Возможно ли это в первую очередь? Есть ли в Excel модель расширяемости, которая позволила бы это?
2. Такой инструмент существует?

Благодарю.

Answer 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

Есть две части:

• Worksheet_SelectionChange: вот обнаружение выбранной ячейки.
• функция moneyconverter: здесь нужно поставить конвертацию валюты. Для демонстрационных целей я предположил, что это была первоначальная валюта, разделенная на 3, и денежные единицы были евро (€).

Значения появятся в левой части строки состояния и будут там, даже если вы перейдете в другую открытую книгу. Чтобы очистить значение, на исходном листе выберите текстовую ячейку.