Excel - exibe o valor em uma moeda diferente na seleção de mouse / cell?

Question

Estou trabalhando em uma planilha do Excel que usa uma moeda diferente da minha nativa e gostaria de ver conversões de moeda rápidas e convenientes, possivelmente na barra de status (como quando você seleciona várias células e vê o AVG e o SUM ) ou em uma dica de ferramenta, como com comentários. Todos os métodos que vi até agora usam células e add-ins adicionais, como este .

Duas perguntas:

1. Isso é possível em primeiro lugar? O Excel tem modelo de extensibilidade que permitiria isso?
2. Essa ferramenta existe?

Obrigado.

    

Answer 1

Você pode colocar qualquer texto ou número na barra de status com o VBA.

Copie isso no VBA para a planilha:

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

Existem duas partes:

• Worksheet_SelectionChange : Aqui está a detecção da célula selecionada.
• função moneyconverter : aqui você tem que colocar a conversão de moeda. Para fins de demonstração, assumi que era a moeda original dividida por 3 e as unidades monetárias eram Euros (€).

Os valores aparecerão no lado esquerdo da barra de status e estarão lá, mesmo que você mude para outra pasta de trabalho aberta. Para limpar o valor, na folha original, selecione uma célula de texto.