Форум программистов, компьютерный форум CyberForum.ru

VBA

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 66, средняя оценка - 4.80
Кристина 1719
0 / 0 / 0
Регистрация: 28.05.2010
Сообщений: 13
#1

Перевод рублей в доллары - VBA

02.09.2010, 09:54. Просмотров 8017. Ответов 2
Метки нет (Все метки)

Создайте функцию пользователя, которая бы переводила рубли в $. Курс Валют возьмите произвольно.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.09.2010, 09:54     Перевод рублей в доллары
Посмотрите здесь:

форма для перевода суммы в гривнах в доллары - VBA
Подскажите как создать форму для перевода суммы в гривнах в доллары по известному курсу Национального банка. Для этого на форме создать...

Какой банк выбрать, чтобы выгодно обменять доллары на рубли - VBA
У вас есть доллары. Вы хотите обменять их на рубли. Есть информация о стоимости купли-продажи в банках города. В городе N банков. Составьте...

4-е макроса которые бы меняли формат ячейки на денежный – рубли, доллары, английские фунты и евро - VBA
Суть в том, что осталась последняя пресдача, есть задачи и есть решение на них, нужно помочь объяснить само решение, помогите кто чем...

Найти наименьшее количество купюр и монет для выдачи N рублей - VBA
Найти наименьшее количество купюр и монет для выдачи N рублей

Найти наименьшее количество купюр и монет для выдачи энного количества рублей - VBA
Найти наименьшее количество купюр и монет для выдачи N рублей

Написать программу для перевода рублей в доллары сша, евро, иены, юани, марки и фунты стерлингов - Visual Basic .NET
Написать программу для перевода рублей в доллары сша, евро, иены, юани, марки и фунты стерлингов и наоборот. Вводить нужное число...

Ввод суммы в рублях и перевод ее в евро и доллары по обычному или льготному курсу - C#
в С# Помогите Написать программу: Создать меню с командами Input, About, Exit. При выборе команды Input должно открываться диалоговое...

FreePascal. Есть информация о стоимости купли-продажи долларов в банках города. Найти банк с наиболее выгодными условиями для обмена рублей на доллары - Free Pascal
Найти банк с наиболее выгодными условиями для обмена рублей на доллары

Создать проект, позволяющий переводить рубли в доллары или доллары в рубли - Delphi
Создать проект, позволяющий переводить рубли в доллары или доллары в рубли. Курс доллара можно вводить. Расчет выполняется по нажатию на...

Нужны деньги - 1000 рублей. На 500 рублей можно взять кредит в одном из банков А, В, С. 400 рублей может дать - Комбинаторика
Нужны деньги - 1000 рублей. На 500 рублей можно взять кредит в одном из банков А, В, С. 400 рублей может дать дедушка или бабушка. 100...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Cigurd
0 / 0 / 0
Регистрация: 29.08.2010
Сообщений: 18
02.09.2010, 11:04     Перевод рублей в доллары #2
я сам не профи, но вот такой вот нашел в книжке:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Test()
    Dim cur_range As Range
    With ActiveSheet
        Set cur_range = Selection
        cur_range.Activate
        For x = 1 To cur_range.Rows.Count
            For y = 1 To cur_range.Columns.Count
            ' значению ячейки присвоить значение умноженно на 2 (курс)
                cur_range(x, y) = cur_range(x, y).Value * 2
            Next y
        Next x
    End With
End Sub
Vlanib
Частенько бываю
744 / 326 / 42
Регистрация: 20.06.2007
Сообщений: 854
02.09.2010, 14:48     Перевод рублей в доллары #3
Visual Basic
1
2
3
4
5
6
Function ОБМЕН_ВАЛЮТЫ(РУБЛИ)
    Application.Volatile
    Const cDoll As Currency = 25.25
    If Not IsNumeric(РУБЛИ) Then ОБМЕН_ВАЛЮТЫ = "#Н\Д": Exit Function
    ОБМЕН_ВАЛЮТЫ = FormatNumber(РУБЛИ * cDoll, 2)
End Function
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru