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

Посмотрите здесь:

VBA Перевод в шестнадцатеричный формат

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

VBA 4-е макроса которые бы меняли формат ячейки на денежный – рубли, доллары, английские фунты и евро

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

VBA Перевод с паскаля на VBA

VBA Перевод с паскаля на VBA

VBA Перевод на VBA с c++

VBA Какой банк выбрать, чтобы выгодно обменять доллары на рубли

VBA Перевод из десятичной сс в шестеричную

VBA Перевод из Pascal в VB

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
Частенько бываю
739 / 321 / 3
Регистрация: 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
Yandex
Объявления
02.09.2010, 14:48    Перевод рублей в доллары
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему
Опции темы

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