Форум программистов, компьютерный форум CyberForum.ru
CyberForum.ru - форум программистов и сисадминов > > >
Восстановить пароль Регистрация
 
Кристина 1719
Новичок
0 / 0 / 0
Регистрация: 28.05.2010
Сообщений: 13
02.09.2010, 10:54     Перевод рублей в доллары   #1
Создайте функцию пользователя, которая бы переводила рубли в $. Курс Валют возьмите произвольно.
AdAgent
Объявления
02.09.2010, 10:54     Перевод рублей в доллары
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.09.2010, 10:54     Перевод рублей в доллары
Посмотрите здесь:

VBA Найти наименьшее количество купюр и монет для выдачи энного количества рублей
VBA Перевод градусов в радианы
VBA 4-е макроса которые бы меняли формат ячейки на денежный – рубли, доллары, английские фунты и евро
VBA Найти наименьшее количество купюр и монет для выдачи N рублей
VBA Перевод с паскаля на VBA
VBA Перевод на VBA с c++
VBA Какой банк выбрать, чтобы выгодно обменять доллары на рубли
VBA Перевод из Pascal в VB
Cigurd
Новичок
0 / 0 / 0
Регистрация: 29.08.2010
Сообщений: 18
02.09.2010, 12: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
Частенько бываю
739 / 321 / 3
Регистрация: 20.06.2007
Сообщений: 854
02.09.2010, 15: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
Yandex
Объявления
02.09.2010, 15:48     Перевод рублей в доллары
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Опции темы

Текущее время: 10:45. Часовой пояс GMT +4.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.7 PL3
Copyright ©2000 - 2014, vBulletin Solutions, Inc.
Яндекс.Метрика