ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / сложная формула
6 сообщений из 6, страница 1 из 1
сложная формула
    #36923660
SNikolai
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SNikolai
Гость
привет!
подскажите пжл. как реализовать:
есть табл.
.......................USD..1
.......................EUR..0.7
.......................RUS..30
название1....EUR......102
название1....RUS......546
название1....USD......54
название1....EUR.......45
TOTAL USD..........formula...
надо чтобы формула переводила все значения в USD и складывала в TOTAL USD и чтоб если поменять любое значение она пересчитывалась,кол-во строк может быть разное столбцов тоже(по месяцам меняется курс валют)
делаю сл.образом
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
 For col =  14  To fc
    For b = i - a To i
         For curr =  1  To  5 
           If xlSheet.Cells(b,  13 ) = xlSheet.Cells(curr,  13 ) Then
            xlSheet.Cells(i +  2 , col).Copy
            xlSheet.Cells(i +  1 , col).Select
             xlApp.Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
               :=False, Transpose:=False
                xlApp.Application.CutCopyMode = False
             xlSheet.Cells(i +  2 , col).Select
             xlApp.ActiveCell.FormulaR1C1 = "=(R" & i +  1  & "C+R" & b & "C/R" & curr & "C)"
           End If
         Next
       Next
     Next
тут он пробегает циклом ищет валюты по месяцам и строкам,но в итог формулу заносит результат(правильный) но его менять нельзя..
надо чтоб он посчитал для одной валюты записал формулу в ячейку потом для другой валюты и прибывил эту формулу к уже имеющейся формуле в ячейке и т.д
..
надеюсь хоть что-нить понятно из того что я тут написал)
...
Рейтинг: 0 / 0
27.10.2010, 17:30
| Ответить | Цитировать | Написать  
сложная формула
    #36924504
Cursky
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Cursky
Участник
SNikolai,

Ох, как вы здесь перемудрили. Добавили бы просто дополнительный столбец для цены в долларах и
создали из таблицы список со строкой итогов.
...
Рейтинг: 0 / 0
28.10.2010, 02:43
| Ответить | Цитировать | Написать  
сложная формула
    #36924678
Фотография vikttur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vikttur
Участник
Cursky, для Вашего примера еще проще :)
=ЕСЛИ(B5="";"";C5/ВПР(B5;$B$1:$C$3;2;0))
SNikolai, если бы Вы показали пример в Excel, Cursky не тратил бы время на рисование таблички.
...
Рейтинг: 0 / 0
28.10.2010, 09:25
| Ответить | Цитировать | Написать  
сложная формула
    #36924748
SNikolai
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SNikolai
Гость
вопрос остаётся открытым
есть цикл(он оязательный)
Код: plaintext
1.
2.
3.
for b=i-a to i
 cells(i+ 1 , 10 )="=if(R"& b &"C="USD",R"& b &"C/R1C)
next
данный цикл в итоге в нужную нам ячейку вставит только последнее значение(формулу) где b=i,а надо чтоб он на каждый шаг цикла к имеющейся формуле в ячейки прибавлял новую с новым значением b и в итоге получить вот такую формулу:
Код: plaintext
1.
cells(i+ 1 , 10 )="=if(R"& b &"C="USD",R"& b &"C/R1C)+if(R"& b+ 1  &"C="USD",R"& b+ 1  &"C/R1C)+.....+if(R"& i &"C="USD",R"& i &"C/R1C)"
...
Рейтинг: 0 / 0
28.10.2010, 09:50
| Ответить | Цитировать | Написать  
сложная формула
    #36924751
SNikolai
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SNikolai
Гость
b+1 имеется ввиду новое b на каждом шаге цикла
...
Рейтинг: 0 / 0
28.10.2010, 09:51
| Ответить | Цитировать | Написать  
сложная формула
    #36929165
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
Пример в студию
...
Рейтинг: 0 / 0
30.10.2010, 14:49
| Ответить | Цитировать | Написать  
6 сообщений из 6, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / сложная формула
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/search_topic.php?author=Anderson555&author_mode=last_posts&do_search=1]:
 0ms
get settings:
 9ms
get forum list:
 16ms
get settings:
 10ms
get forum list:
 16ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 161ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 42ms
get tp. blocked users:
 1ms
others: 439ms
total:  709ms
созд. / загр.: 709ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]