Представляю вашему вниманию макрос, написанный для Excel, с помощью которого можно быстро переконвертировать цены в евро, по утверждённому курсу. Он будет полезен для тех, у кого документы содержат большое количество данных в эстонских кронах.

Public Const Euro As Double = 15.6466

' coded by www.antoshka.ee

Sub ConvertEuro()

Dim MyCell As Range

For Each MyCell In Selection

If IsNumeric(MyCell) And MyCell <> "" Then

    If MyCell.HasFormula = False Then MyCell.Value = Application.Round(MyCell.Value / Euro, 3)

MyCell.NumberFormat = "_-[$ˆ-2] * #,##0.00_-;-[$ˆ-2] * #,##0.00_-;_-[$ˆ-2] * ""-""??_-;_-@_-"

End If

Next MyCell

End Sub

Скачать экселевский файл (Excel 2003), содержащий макрос