Сверить Данные

[valerij]

Сообщение от IgorGO

б) задумка с цветом не моя. я работал с твоими данными как ты их организовал.?

Игорь, то ты не правильно понял, я цвет сделал, только для визуального понятия 1-й и 2-й накладной, цвет яч., всех данных, черный и что то раскрашивать, исключенно!!

Скажи-ка мне еще если в разных накладных есть один и тот же товар допустим разное количество, как ты собираешься это вносить в таблицу? и проверять результаты?

Такое бывает, но там, всего одна, мах. три позиции и сравнить не трудно!!!
Игорек, ну возьми два тех. файла, что в прищепке, и введи их, только забудь про цвет, ст. D, весь черный!

[IgorGO]

забудь про цвет, ст. D, весь черный!

отлично!
смотрим самый первый исходный файл, считаем там нет синих и красных, все черные. Как знать что 10, 20, 30 - это одна накладная, а 15,25,10,11 - другая?????

[valerij]

Сообщение от IgorGO

отлично!
Как знать что 10, 20, 30 - это одна накладная, а 15,25,10,11 - другая?????

В а10 = 1, значит 10, 20, 30 - это одна накладная, а10 = 2, значит, 15,25,10,11 - другая

[IgorGO]

если я допишу еще 46 Хл.Домашний Форм - это будет какая накладная 1-я или вторая?
Что, не знаешь?...

Вот точно также и я не знаю, почему 10,20,30 - 1-я накладная, а 15,25,10,11 - вторая, и как программе обьяснить не знаю? Ты не понимаешь, что нужен признак какой-то, а его нет и не предусмотрено. Цвет однозначно подсказывал, как сгруппировать данные по накладным, нету цвета - нет признака.

разговор не о чем... мы не понимаем друг друга.
Успехов!

[valerij]

Сообщение от IgorGO

если я допишу еще 46 Хл.Домашний Форм - это будет какая накладная 1-я или вторая?
Что, не знаешь?...!

Знаю!!!!!!!
Если ты допишешь при а10 = 1, первая накладная, а если дописать при а10 = 2, вторая!!!
признак в а10, разве, нет?

[DV68]

С макросами не знаком, поэтому записал макродекодером, корявенько, но работает)

[valerij]

Сообщение от DV68

но работает)

DV68!
Можешь, объяснить, как это работает, что такое Пуск, Откат, что в "H3:H33" - отображается??

Ну фиг его знает, как еще объяснить...
Есть 2-е бумажки, берем в руки, первую с нее берем данные, они, данные, могут быть с 3 по 33 позиции, получили сумму в а11, все, эта сумма больше не нужна, берем вторую, данные не повторяющиеся, могут быть так же с 3 по 33 позиции, получили новую сумму в а11

[valerij]

Сообщение от IgorGO

мы не понимаем друг друга.

Игорь, это ты не понимаешь мою задачу, а ~ решение я тебе показал, все работает, выдержка с рабочей проги:

With Application
        If [a21].Offset(dat * 44) = 1 Then [s3].Offset(dat * 44) = _
                .Sum([F3:F33].Offset(dat * 44)): _
                    [a22].Offset(dat * 44) = [s3].Offset(dat * 44)
        If [a21].Offset(dat * 44) = 2 Then [s4].Offset(dat * 44) = _
            .Sum([F3:F33].Offset(dat * 44)) - [s3].Offset(dat * 44): _
                [a22].Offset(dat * 44) = [s4].Offset(dat * 44)
End With

Только я не знаю, как сделать это условие:

[a21].Offset(dat * 44) = 1: [a22].Offset(dat * 44) = 0

когда я ухожу с диапазона (3:33) на (47:77).... с шагом 44??

[IgorGO]

Игорь, это ты не понимаешь мою задачу

я этого и не скрывал. вся передудущая переписка - это попытка понять, что собственно нужно получить.

а ~ решение я тебе показал, все работает

- я рад за тебя! правда это решение мне не интересно совершенно... как циклом пробежаться по двумерному массиву данных (в данном случае по массиву ячеек) я знал еще в далеком 1985 году (грустно только, что я, кажется, остался на том уровне программирования). закрывай тему...

Только я не знаю, как сделать это условие:
[a21].Offset(dat * 44) = 1: [a22].Offset(dat * 44) = 0
когда я ухожу с диапазона (3:33) на (47:77).... с шагом 44??

не перестаю поражаться сложности задач, которые возникали и продолжают возникать перед тобой по ходу решения задачи. Напиши так:

for dat = 0 to не_знаю_до_кудова
  With Application
        If [a21].Offset(dat * 44) = 1 Then [s3].Offset(dat * 44) = _
                .Sum([F3:F33].Offset(dat * 44)): _
                    [a22].Offset(dat * 44) = [s3].Offset(dat * 44)
        If [a21].Offset(dat * 44) = 2 Then [s4].Offset(dat * 44) = _
            .Sum([F3:F33].Offset(dat * 44)) - [s3].Offset(dat * 44): _
                [a22].Offset(dat * 44) = [s4].Offset(dat * 44)
  End With
next

только вместо не_знаю_до_кудова напиши конкретное число (или выражение, которое может их сосчитать), сколько у тебя этих групп по 44 строки.

[valerij]

Сообщение от IgorGO

я этого и не скрывал. вся передудущая переписка - это попытка понять, что собственно нужно получить..

Игорек, давай еще раз, а, ибо мое решение, мягко говоря делитанство, использую промеж. яч.S3 и S4.
Тебе, просто нужно, "взять в руки" первую накладную, ни какого цвета, по умолчанию в а10 стоит единица, ввел данные в а11 получил сумму, все, первую накладную, выкинул.
Берешь вторую накладную, переключил в а10 на двойку и вводишь данные, данные 1 и 2 накладной никогда не повторяются - аксиома, в а11 отразилась сумма, ВСЕ, вся задача!!!!
Напиши так:

for dat = 0 to не_знаю_до_кудова

Да есть у меня так, это уже не проблема!!