Выполнить формулу Только при совпадении условий, иначе пропустить ячейку не меняя значения!

@Sheriffk018 · Регистрация: 02.01.2017

Студворк — интернет-сервис помощи студентам

Имеется Таблица 1 с значениями :
Инструменты ГО покупателя Шаг цены Ст. шага цены Дата торгов. <- Все эти значения меняются или могут изменится на следующий день,"Дата естественно меняется в любом случае".За исключением названия инструмента, остается прежним.

А так же имеется Таблица 2 с значениями:
Дата сделки Инструмент Объем Цена входа Цена Выхода В пунктах В рублях

Куда вносятся данные сделки в течении дня недели и т.д....

Ситуация следующая , нужно сравнить Дату Торгов из Таблицы 1 с Датой сделки в Таблице 2, Только при совпадении этих параметров проверяем на совпадение Инструмент из Таблицы 2 с Инструменты из таблицы 1, находим совпадение в инструментах и подставляем значения(этого инструмента) в формулу и высчитываем

Формула такая : (Цена выхода - Цена входа) / На Шаг цены * Ст. шага цены * Объем по итогу получаем значение и вносим его в столбец (В рублях)

Пробовал через функции Если И , вроде бы все замечательно работает, за исключением одного но, так как данные в Таблице 1 почти ежедневно меняются соответственно и меняется результат за ВСЕ дни.
Мне же по задумке нужно что бы уже посчитанные значения больше не менялись в противном случае все статистика будет испорчена. Спасибо за внимание.

@zewsua · 19.02.2018, 13:08

Sheriffk018, можете прикрепить файл где Вы прописывали формулу "если и", думаю так будет проще разобраться с вопросом.

Или еще лучше, сделать как должно быть...

@Sheriffk018 · 19.02.2018, 13:55 **[ТС]**

Немного задержался с ответом, прошу прощения.

@Sheriffk018 · 19.02.2018, 14:19 **[ТС]**

Самое главное для меня состоит в том что бы при не совпадении даты ,результат из столбца В рублях , не удалялся ни при каких обстоятельствах.
Допустим вчера было 18.02.2018 результат по инструменту Si был такой то, И когда формула сегодня 19.02.2018 натыкается на эту ячейку просто проходила мимо и не изменяла данные.
А то что получается у меня очень даже печально по тому как формула возвращает False ноль либо просто затирает эту ячейку а этого не должно быть.

@zewsua · 19.02.2018, 16:49

Sheriffk018, использование макросов разрешено?

@Sheriffk018 · 19.02.2018, 17:57 **[ТС]**

Да конечно, сижу вот целый день пытаюсь нарисовать макрос для такой процедуры, думаю до завтра будут какие то наработки

Добавлено через 26 минут
Если учесть, что я два дня назад узнал что такое VBA и синтаксис то у меня пока получилось так:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
 Sub Pavel()
    T = Timer
        
        Dim Table1
        Table1 = [A3:E15]
        Dim Table2
        Table2 = [G3:M15]
        
        Dim arrTable1(1 To 13, 1 To 5) As Variant
        Dim arrTable2(1 To 13, 1 To 7) As Variant
 
        For i = 1 To 13
            arrTable1(i, 1) = Table1(i, 1)
            arrTable1(i, 2) = Table1(i, 2)
            arrTable1(i, 3) = Table1(i, 3)
            arrTable1(i, 4) = Table1(i, 4)
            arrTable1(i, 5) = Table1(i, 5)
    
        Next
        
        For i = 1 To 13
            arrTable2(i, 1) = Table2(i, 1)
            arrTable2(i, 2) = Table2(i, 2)
            arrTable2(i, 3) = Table2(i, 3)
            arrTable2(i, 4) = Table2(i, 4)
            arrTable2(i, 5) = Table2(i, 5)
        Next
        
        For i = 1 To 13
            If arrTable1(i, 5) = arrTable2(i, 1) Then
                arrTable2(i, 6) = arrTable2(i, 5) - arrTable2(i, 4)
                arrTable2(i, 7) = arrTable2(i, 6) / arrTable1(i, 3) * arrTable1(i, 4) * arrTable2(i, 3)
                Debug.Print arrTable2(i, 6)
                Debug.Print arrTable2(i, 7)
            Else
                Debug.Print "Ðàçíûå"
            End If
            Next
            
        For i = 3 To 13
            Cells(i, 12) = arrTable2(i, 6)
            Cells(i, 13) = arrTable2(i, 7)
        Next
        
    Debug.Print Timer - T
    End Sub

Но понятно что много нагородил и лишнее и можно иначе, ну по крайней мере я на этом этапе D

Новые блоги и статьи Все статьи Все блоги /
Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .
wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .

@zewsua 35 / 35 / 9 Регистрация: 16.07.2012 Сообщений: 253
	19.02.2018, 13:08
	Sheriffk018, можете прикрепить файл где Вы прописывали формулу "если и", думаю так будет проще разобраться с вопросом. Или еще лучше, сделать как должно быть... 0

@Sheriffk018 5 / 4 / 1 Регистрация: 02.01.2017 Сообщений: 101
	19.02.2018, 14:19 [ТС]
	Самое главное для меня состоит в том что бы при не совпадении даты ,результат из столбца В рублях , не удалялся ни при каких обстоятельствах. Допустим вчера было 18.02.2018 результат по инструменту Si был такой то, И когда формула сегодня 19.02.2018 натыкается на эту ячейку просто проходила мимо и не изменяла данные. А то что получается у меня очень даже печально по тому как формула возвращает False ноль либо просто затирает эту ячейку а этого не должно быть. 0

@zewsua 35 / 35 / 9 Регистрация: 16.07.2012 Сообщений: 253
	19.02.2018, 16:49
	Sheriffk018, использование макросов разрешено? 0