 Конвертер валют, Пересчет валюты |
Здравствуйте, гость ( Вход | Регистрация )
Образовательно-студенческий форум > Образование > Программирование на Паскале, Си, Бейсике, Ассемблере > Программирование в офисных пакетах  |
| PolPoll |
 10.3.2008, 9:21
Сообщение
#41
|
 :) Группа: Главные администраторы Сообщений: 5 858 Регистрация: 24.11.2005 Из: Москва Пользователь №: 5 327  |
Что за "другой лист" и что за "лист пересчета" и что на них расположено и в каких ячейках?
-------------------- |
   |
 
|
| Amirana |
10.3.2008, 13:35
Сообщение
#42
|
 Пользователь Группа: Собеседник Сообщений: 34 Регистрация: 19.2.2008 Пользователь №: 18 980 |
Другой лист - где будут автоматически записываться и храниться коэффициенты и дата, которые были введены. Если сегодня один коэффициент и дата, завтра - другие, они должны где-то храниться, чтобы, если понадобятся данные, введенные ранее, можно было найти через поиск. Вы писали функцию =ВПР. Чтобы в этих ячейках выходили запрошенные коэффициент и дата.
|
|
|
|
| PolPoll |
10.3.2008, 19:32
Сообщение
#43
|
|
:) Группа: Главные администраторы Сообщений: 5 858 Регистрация: 24.11.2005 Из: Москва Пользователь №: 5 327 |
Зачем их сохранять, если нельзя будет ими воспользоваться? ведь исходные цены стерты!!! (новыми значениями по какому-то курсу)
-------------------- |
|
|
|
| Amirana |
11.3.2008, 13:03
Сообщение
#44
|
|
Пользователь Группа: Собеседник Сообщений: 34 Регистрация: 19.2.2008 Пользователь №: 18 980 |
Можно сделать так, чтобы исходные цены не стирались, а автоматически сохранялись на другом листе??? Задание поменялось немного, вводимые данные нужны.
|
|
|
|
| PolPoll |
11.3.2008, 19:07
Сообщение
#45
|
|
:) Группа: Главные администраторы Сообщений: 5 858 Регистрация: 24.11.2005 Из: Москва Пользователь №: 5 327 |
Цитата(Amirana @ 11.3.2008, 16:03)  Задание поменялось немного, вводимые данные нужны. Где что хранится? и где какие кнопки? и что они делают? Цитата Можно сделать так, чтобы исходные цены не стирались, а автоматически сохранялись на другом листе??? А как понять это введенные данные или уже измененные???  -------------------- |
|
|
|
| Amirana |
13.3.2008, 13:49
Сообщение
#46
|
|
Пользователь Группа: Собеседник Сообщений: 34 Регистрация: 19.2.2008 Пользователь №: 18 980 |
Задание это же, только мелочи изменились:
Как сделать так, чтобы данные в активной ячейке умножались на коэффициент? Ячейка умножала бы саму себя на другую ячейку. Незнаю, так можно понять? "А1" - активная ячейка. В этой же ячейке: =А1*В1, где В1 - коэффициент. Проблема в том, что когда вводишь данные, формула стирается. Насчет данных... действительно. |
|
|
|
| PolPoll |
14.3.2008, 8:17
Сообщение
#47
|
|
:) Группа: Главные администраторы Сообщений: 5 858 Регистрация: 24.11.2005 Из: Москва Пользователь №: 5 327 |
Вобщем, странное ты чего-то хочешь
И сама же видишь, что не получается так  -------------------- |
|
|
|
| Amirana |
14.3.2008, 15:28
Сообщение
#48
|
|
Пользователь Группа: Собеседник Сообщений: 34 Регистрация: 19.2.2008 Пользователь №: 18 980 |
Я вижу, что так не получается, поэтому и спрашиваю!
Может быть есть другой вариант? |
|
|
|
| PolPoll |
14.3.2008, 19:08
Сообщение
#49
|
|
:) Группа: Главные администраторы Сообщений: 5 858 Регистрация: 24.11.2005 Из: Москва Пользователь №: 5 327 |
Хранить цены в евро в отдельном столбце.
И в отдельном столбце высчитывать цены в долларах - будут менятся в зависимости от курса при нажатии кнопки Для добавления нового курса с датой к имеющимся - тоже кнопку Можно и для поиска даты по курсу кнопку... Кстати, а если два одинаковых курса будут? (в разные дни) -------------------- |
|
|
|
| Amirana |
15.3.2008, 8:16
Сообщение
#50
|
|
Пользователь Группа: Собеседник Сообщений: 34 Регистрация: 19.2.2008 Пользователь №: 18 980 |
можно поставить большую точность для курса, например, с точностью до тысячных, тогда будет маловероятным появление двух одинаковых курсов.
|
|
|
|
| PolPoll |
17.3.2008, 14:44
Сообщение
#51
|
|
:) Группа: Главные администраторы Сообщений: 5 858 Регистрация: 24.11.2005 Из: Москва Пользователь №: 5 327 |
Например, так
 Для кнопки Найти Код Dim i As Integer Sheets("Лист1").Select i = 3 'номер строки с которой начинать поиск Range("H" + Chr(i + 48)).Select 'H- столбец с коэффициэнтами старыми Do While Range("H" + Chr(i + 48)) <> "" And Range("H" + Chr(i + 48)) <> Range("E3") i = i + 1 Loop Range("F3").Select If Range("H" + Chr(i + 48)) = Range("E3") Then ActiveCell.Formula = Range("I" + Chr(i + 48)) Else ActiveCell.Formula = "" End If Для кнопки Добавить Код Dim i As Integer Sheets("Лист1").Select i = 3 'номер строки с которой начинать поиск Range("H" + Chr(i + 48)).Select 'H- столбец с коэффициэнтами старыми Do While Range("H" + Chr(i + 48)) <> "" i = i + 1 Loop Range("H" + Chr(i + 48)).Select ActiveCell.Formula = Range("E3") Range("I" + Chr(i + 48)).Select ActiveCell.Formula = Range("F3") Selection.NumberFormat = "dd/mm/yyyy" Для кнопки Пересчитать Код Dim i As Integer, k As Single Dim st As String Sheets("Лист1").Select i = 3 'номер строки с которой начинать пересчет Range("C" + Chr(i + 48)).Select 'B- столбец с ценами в евро, С - с долларами Do k = Range("B" + Chr(i + 48)) * Range("E3") 'E3 - ячейка с коэффициентом для пересчета ActiveCell.Formula = k i = i + 1 Range("C" + Chr(i + 48)).Select Loop While Range("B" + Chr(i + 48)) <> "" -------------------- |
|
|
|
| PolPoll |
17.3.2008, 20:27
Сообщение
#52
|
|
:) Группа: Главные администраторы Сообщений: 5 858 Регистрация: 24.11.2005 Из: Москва Пользователь №: 5 327 |
Новую задачу - в отдельной теме http://www.opeople.ru/topic9095.html
-------------------- |
|
|
|
|
2 чел. читают эту тему (гостей: 2, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | Сейчас: 23.5.2012, 3:19 |
Русская версия Invision Power Board
v2.1.7 © 2012 IPS, Inc.