Форум программистов, компьютерный форум CyberForum.ru
CyberForum.ru - форум программистов и сисадминов > > >
Восстановить пароль Регистрация

Ответ Создать новую тему
 
Кристина 1719
Новичок
0 / 0 / 0
Регистрация: 28.05.2010
Сообщений: 13
02.09.2010, 09:54     Перевод рублей в доллары
  #1
Создайте функцию пользователя, которая бы переводила рубли в $. Курс Валют возьмите произвольно.
AdAgent
Объявления
02.09.2010, 09:54
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
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему

Похожие темы
Тема Раздел Ответов Автор Дата
VBA Перевод из Pascal в VB
Нужна помощь в переводе с Pascal на VB (VBA)! Не получается перевод массива! Pascal: Procedure obuch; begin repeat clrscr;kol:=kol+1; ...
VBA 4 IMAN12 16.01.2014 00:37
VBA Перевод из десятичной сс в шестеричную
Подскажите как написать данный обработчик событий, а то я профан=)
VBA 2 Constpwi 11.09.2013 19:25
VBA Какой банк выбрать, чтобы выгодно обменять доллары на рубли
У вас есть доллары. Вы хотите обменять их на рубли. Есть информация о стоимости купли-продажи в банках города. В городе N банков. Составьте программу, определяющую, какой банк выбрать, чтобы выгодно...
VBA 6 karpovmixa 03.06.2013 12:45
VBA Перевод на VBA с c++
Перевод на VBA с c++ Ввести строку, состоящую только из цифр и букв. Распечатать те группы цифр, в которых цифра 7 встречается не более двух раз. (Группа цифр - это последовательность цифр,...
VBA 1 natasha777 26.05.2013 13:44
VBA Перевод с паскаля на VBA
Помогите с переводом var a:arrayof Integer; k,x,i,j,n:Integer; f:Boolean; begin n:=3; Writeln('Ishodnaya matrica:'); Randomize();
VBA 2 ilyashis 27.03.2013 18:12
VBA Найти наименьшее количество купюр и монет для выдачи N рублей
Найти наименьшее количество купюр и монет для выдачи N рублей
VBA 5 xenear 13.12.2011 03:43
VBA 4-е макроса которые бы меняли формат ячейки на денежный – рубли, доллары, английские фунты и евро
Суть в том, что осталась последняя пресдача, есть задачи и есть решение на них, нужно помочь объяснить само решение, помогите кто чем может, или в асю напишите 401996793, заранее спасибо Запишите...
VBA 41 Sleier 05.03.2011 10:19
VBA Найти наименьшее количество купюр и монет для выдачи энного количества рублей
Найти наименьшее количество купюр и монет для выдачи N рублей
VBA 6 kolyusta 20.06.2010 17:27
Опции темы

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