Код для кнопки в excel

[SupermanYM]

Помогите пожалуйста, нужно написать код для кнопки. Надо перевести вольту из рублей в доллары и евро и наоборот. Напишите пожалуйста код. очень надо!

[Казанский]

Код вам тоже в виде картинки?
Приложите файл и поясните, что должно происходить при нажатии кнопки.

[SupermanYM]

да хоть как нибудь!хотя желательно сообщением. ну вот я например пишу в рублях цифру (сумму) нажимаю на кнопку и она переводит из рублей в доллары и евро. и наоборот вводу доллары нажимаю получаю рубли и евро и т.д.

[Hugo121]

Если не собираетесь копипастить сразу по несколько значений - я бы делал без кнопки, по событию изменения ячейки.

[SupermanYM]

Я знаю знаю... но кнопка мне нужно по заданию она необходима.

[Hugo121]

Ах задание...
Ну тогда так -
для каждой ячейки диапазона
если в ней есть значение
select case номер столбца
если 2: со сдвигом вправо на 1 умножаем на курс $, со сдвигом на 2 умножаем на курс €
если 3: со сдвигом вправо на 1 умножаем на курс € (c пересчётом), со сдвигом влево на 1 делим на курс $
если 4: аналогично вышесказанному (математику уже забыл, но Вы ведь должны знать )

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

Есть другие алгоритмы, несложные?

[SupermanYM]

Ух ты ж ежик! Как то это всё сложно! не хочу наглеть, но можно мне всё это как нибудь кодом, а то я не мною этого языка программирования вообще. ну или хоть ссылочку скиньте на урок какой нибудь) пожалуйста)
нет, других нет. только это.

[Hugo121]

Без файла кода не будет. От меня.
Ну а уроки вот например: http://www.firststeps.ru/

[SupermanYM]

http://f-bit.ru/135735
вот ссылка на файл.

[Hugo121]

Что-то вроде

Sub kursi()
    Dim cc As Range
    For Each cc In [b3:d5].Cells
        If Len(Trim(cc.Value)) Then
            Select Case cc.Column
            Case 2: cc.Offset(, 1) = cc * [f3]: cc.Offset(, 2) = cc * [g3]
            Case 3: cc.Offset(, -1) = cc / [f3]: cc.Offset(, 1) = cc / [f3] * [g3]
            Case 4: cc.Offset(, -2) = cc / [g3]: cc.Offset(, -1) = cc / [g3] * [f3]
            End Select
        End If
    Next
End Sub

Но математику/курсы исправьте - не может рубль стоить 31$