Форум программистов, компьютерный форум CyberForum.ru Форум программистов | Компьютерный форум | Форум web-программистов | Форум по электронике и бытовой технике | Форум о софте | Научный форум | Карьера и бизнес
CyberForum.ru - форум программистов и сисадминов > Форум Форум программистов > Форум Basic > Форум VBA
Восстановить пароль Регистрация

Ответ Создать новую тему
 
02.09.2010, 09:54   #1
Кристина 1719
Новичок
Регистрация: 28.05.2010
Сообщений: 13
Репутация: 0 (0)
Создайте функцию пользователя, которая бы переводила рубли в $. Курс Валют возьмите произвольно.
02.09.2010, 09:54
AdAgent
Объявления
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
Доброе время! Столкнулся недавно с такой проблемкой.... Делал файл в который выгружаетются данные из других файлов и массивов НА ДАТУ. Дык вот в одном файле с базой данных, ДАТА("мать её за ногу") ЗА . Никто случаем не сталкивался с такой проблемкой?
Нажатие кнопки на Exel VBA
Доброе время суток!!! Есть таблица Exel, есть кнопка из стандартного набора Exel, проблема в том что при нажатии на кнопку эффект нажатия не проявляется, а если при нажатии немного сдвинуть курсор мыши, то эффект проявляется. Мож мне программно инициировать эффект нажатия, тока как это сделать?
02.09.2010, 14:48   #3
Vlanib
Частенько бываю
Регистрация: 20.06.2007
Сообщений: 854
Репутация: 738 (320)
Лучшие ответы: 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
02.09.2010, 14:48
Yandex
Объявления
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему

Похожие темы
Тема Раздел Автор Дата
Перевод учебника (за деньги) - 20 страниц = 700 рублей! - Заказать услугу, обслуживание
Здравствуйте, без лишних слов перейду сразу к делу. Из-за большого количества материала для перевода и малого количества времени, прошу о помощи, но не просто так, а за хорошее материальное вознаграждение. Есть иностранный учебник по теоретической механике, всего из него нужно перевести 40...
Заказать услугу, обслуживание Qvkstep 14.01.2014 19:49
Visual Basic .NET Написать программу для перевода рублей в доллары сша, евро, иены, юани, марки и фунты стерлингов
Написать программу для перевода рублей в доллары сша, евро, иены, юани, марки и фунты стерлингов и наоборот. Вводить нужное число необходимо с клавиатуры, а также иметь возможность задать число с помощью линейки прокрутки.
Visual Basic .NET ttt_xx 26.11.2013 18:06
Free Pascal Составить программу для печати таблицы перевода рублей в доллары. Количество элементов таблицы и шаг задать самостоятельно
Помогите пожалуйста.....Составить программу для печати таблицы перевода рублей в доллары. Количество элементов таблицы и шаг задать самостоятельно.
Free Pascal dmperf 05.12.2012 10:35
Free Pascal FreePascal. Есть информация о стоимости купли-продажи долларов в банках города. Найти банк с наиболее выгодными условиями для обмена рублей на доллары
В городе N банков. Есть информация о стоимости купли-продажи долларов в этих банках. Найти банк с наиболее выгодными условиями для обмена рублей на доллары.
Free Pascal programmistnub 09.07.2012 11:01
Перевод из Delphi в VBA. Стоимость работ - 300 рублей - Заказать программу
Hellppp
Заказать программу ander111 25.05.2012 21:38
Опции темы

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

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