Форум программистов и сисадминов CyberForum.ru
Вернуться   Форум программистов и сисадминов CyberForum.ru > Форум Форум программистов > Форум Basic > Форум VBA
Восстановить пароль Регистрация

Ответ Создать новую тему
 
Старый 02.09.2010, 09:54   #1
Кристина 1719
Новичок
 
Регистрация: 28.05.2010
Сообщений: 13
Репутация: 0 (0)
Перевод рублей в доллары / VBA

Создайте функцию пользователя, которая бы переводила рубли в $. Курс Валют возьмите произвольно.
Старый 02.09.2010, 11:04   #2
Cigurd
Новичок
 
Регистрация: 29.08.2010
Сообщений: 18
Репутация: 0 (0)
Перевод рублей в доллары

я сам не профи, но вот такой вот нашел в книжке:

Код 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
Другие темы раздела Форум программистов VBA. Программирование на Visual Basic for Applications. Помощь в решении задач.
Преобразование Дат. "НА" и "ЗА" VBA
Доброе время! Столкнулся недавно с такой проблемкой.... Делал файл в который выгружаетются данные из других файлов и массивов НА ДАТУ. Дык вот в одном файле с базой данных, ДАТА("мать её за ногу") ЗА . Никто случаем не сталкивался с такой проблемкой?
Нажатие кнопки на Exel VBA
Доброе время суток!!! Есть таблица Exel, есть кнопка из стандартного набора Exel, проблема в том что при нажатии на кнопку эффект нажатия не проявляется, а если при нажатии немного сдвинуть курсор мыши, то эффект проявляется. Мож мне программно инициировать эффект нажатия, тока как это сделать?
Старый 02.09.2010, 14:48   #3
Vlanib
Частенько бываю
 
Аватар для Vlanib
 
Регистрация: 20.06.2007
Сообщений: 854
Репутация: 667 (318)
Лучшие ответы: 3
Перевод рублей в доллары / VBA

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

Похожие темы
Тема Автор
Free Pascal FreePascal. Есть информация о стоимости купли-продажи долларов в банках города. Найти банк с наиболее выгодными условиями для обмена рублей на доллары
В городе N банков. Есть информация о стоимости купли-продажи долларов в этих банках. Найти банк с наиболее выгодными условиями для обмена рублей на доллары.
programmistnub
Заказать программу Перевод из Delphi в VBA. Стоимость работ - 300 рублей
Hellppp
ander111
Pascal ABC Дядя и доллары
богатый дядя подарил племяннику на первый день рожденья один доллар,каждый последующий день рожденья он удваивал сумму и прибавлял возраст.Определить возраст племянника,когда сумма подарка превысит n долларов Напишите задачу пожаалуйста:) n долларов можно принимать за любое значение
Evgen32
C# для начинающих Программа ДОЛЛАРЫ
У вас есть доллары.Вы хотите обменять их на рубли.Есть информация о стоимости купли-продажи в банках города.В городе N банков.Составьте программу , определяющую ,какой банк выбрать,чтобы выгодно обменять доллары на рубли??
den=
Политика Коричневые доллары
Согласно единственно правильному представлению о Второй Мировой войне, там было двое плохих, из которых один прогнал другого с польских земель, чтобы установить на них новую оккупацию. Были и хорошие – те с Запада, а особенно – из-за океана, которые, ведомые идеализмом, пошли на войну с нацизмом....
mik-a-el
Опции темы

Текущее время: 20:09. Часовой пояс GMT +4.

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.7 PL3
Copyright ©2000 - 2014, vBulletin Solutions, Inc.