ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Сравнение строк
19 сообщений из 19, страница 1 из 1
Сравнение строк
    #34960207
Фотография Ser Artur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ser Artur
Участник
Поможите пожалуйста с примером
Есть яйчейки
Как написать цикл в цикле чтобы код искал из Е:Е код продуктов, сравнивал с А:А результат остатков вставлял в D:D
Я попробовал так
авторSub m()
d=ActiveSheet.Range("A" & n)
For n=1 to 5
For m=1 to 5
If d= ActiveSheet.Range("E" & d) then
ActiveSheet.Range("D" & m)= ActiveSheet.Range("F" & m)
End if
Next n
Next m
End sub
он матерится
...
Рейтинг: 0 / 0
23.11.2007, 09:46:36
| Ответить | Цитировать | Написать  
Сравнение строк
    #34960221
Фотография Ser Artur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ser Artur
Участник
Смотрю я на код и вижу что что-то не то
Мозги дают сбой, давно логических задачек не решал
Подскажите А
...
Рейтинг: 0 / 0
23.11.2007, 09:49:39
| Ответить | Цитировать | Написать  
Сравнение строк
    #34960364
vbapro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vbapro
Участник
за точность результата не ручаюсь:), не проверял, но работает в таком виде:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Option Explicit

Sub m()
Dim n  As Long
Dim m  As Long
Dim d As String
    For n =  1  To  5 
        d = ActiveSheet.Range("A" & n)
        For m =  1  To  5 
            If d = ActiveSheet.Range("E" & m) Then
                ActiveSheet.Range("D" & m) = ActiveSheet.Range("F" & m)
            End If
        Next m
    Next n
End Sub

были проблемы:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Sub m()
d=ActiveSheet.Range("A" & n)                            ' здесь у n еще нет значений
For n= 1  to  5 
For m= 1  to  5 
If d= ActiveSheet.Range("E" & d) then                   ' d всесто m или n
ActiveSheet.Range("D" & m)= ActiveSheet.Range("F" & m)
End if
Next n                                                  ' сначала закрыть цикл по m, потом по n
Next m
End sub
...
Рейтинг: 0 / 0
23.11.2007, 10:34:26
| Ответить | Цитировать | Написать  
Сравнение строк
    #34960403
Фотография Ser Artur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ser Artur
Участник
А если код продукта повторяется тогда как
Спасибо
...
Рейтинг: 0 / 0
23.11.2007, 10:44:12
| Ответить | Цитировать | Написать  
Сравнение строк
    #34960447
Фотография Ser Artur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ser Artur
Участник
vbapro Логика у Вас безупречна
Вот возник вопрос если код в столбце А повторяется можно ли просумировать КОЛИЧЕСТВА повторяющихся КОД-ов продукта и потом вставить ОСТАТКИ из F:F
Если не затруднит пожалуйста
...
Рейтинг: 0 / 0
23.11.2007, 10:51:42
| Ответить | Цитировать | Написать  
Сравнение строк
    #34960558
vbapro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vbapro
Участник
Спасибо за комплимент;). Похоже, что именно для этого случая есть функция листа SUMIF:
Вставь в G2 и "растяни" вниз
Код: plaintext
=SUMIF($A$ 2 :$A$ 5 ;E2;$D$ 2 :$D$ 5 )
...
Рейтинг: 0 / 0
23.11.2007, 11:21:38
| Ответить | Цитировать | Написать  
Сравнение строк
    #34960638
Фотография Ser Artur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ser Artur
Участник
Я имел ввиду макросом SUMIF я знаю, даже знаю как внедрить в модуль, но проблема в том чтобы код макроса искал повторяющийся КОД удалил второй, третий, отделил от них и в отдельной строке B:B вписал КОД продукта, а в - C:C их SUMIF
Спасибо
...
Рейтинг: 0 / 0
23.11.2007, 11:44:34
| Ответить | Цитировать | Написать  
Сравнение строк
    #34961069
vbapro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vbapro
Участник
нши, пжл, еще раз подробно,в чем задача и опиши что с какой колонкой делать. а то пока не до конца ясно
...
Рейтинг: 0 / 0
23.11.2007, 13:22:28
| Ответить | Цитировать | Написать  
Сравнение строк
    #34961432
Фотография Ser Artur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ser Artur
Участник
Макрос должен:
1. искать повторяющийся КОД из столбца А:А
2. удалял повторящиеся КОД-ы продуктов
3. Суммировал КОЛИЧЕСТВА повторяющихся КОД-ов из столбца В:В
4. В столбце H:H вписал КОД продукта, в столбце I:I просумированное КОЛИЧЕСТВ-о, в столбце J:J Остаток продукта найденное из столбца F:F
Спасибо
...
Рейтинг: 0 / 0
23.11.2007, 14:39:35
| Ответить | Цитировать | Написать  
Сравнение строк
    #34961496
кладовщик
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
кладовщик
Участник
Ser ArturМакрос должен:
1. искать повторяющийся КОД из столбца А:А
2. удалял повторящиеся КОД-ы продуктов
3. Суммировал КОЛИЧЕСТВА повторяющихся КОД-ов из столбца В:В
4. В столбце H:H вписал КОД продукта, в столбце I:I просумированное КОЛИЧЕСТВ-о, в столбце J:J Остаток продукта найденное из столбца F:F
Спасибо
Посмотрел файл примера, и возникли вопросы.
Повторяющийся код в столбце А найти не проблема - тривиальная задача. Единственное, при нескольких десятках тысяч строк решение будет минуты занимать.
Но что Вы имеете в виду под "удалял повторящиеся КОД-ы продуктов"? Код удалил - а с соседними столбцами что делать?
И остальные пункты тоже непонятны пока.
ЗЫ По поводу поиска повторных записей у мну даже где-то код на VB был - стандартная вещь.
...
Рейтинг: 0 / 0
23.11.2007, 14:52:19
| Ответить | Цитировать | Написать  
Сравнение строк
    #34961732
Фотография Ser Artur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ser Artur
Участник
авторНо что Вы имеете в виду под "удалял повторящиеся КОД-ы продуктов"? Код удалил - а с соседними столбцами что делать?
И остальные пункты тоже непонятны пока.
Суммировал КОЛИЧЕСТВА повторяющихся КОД-ов из столбца В:В, т.е. сумировал КОЛИЧЕСТВО повторяющихся КОД-ов продуктов из А:А
...
Рейтинг: 0 / 0
23.11.2007, 15:53:41
| Ответить | Цитировать | Написать  
Сравнение строк
    #34961932
vbapro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vbapro
Участник
используется Scripting, поэтому будешь использовать в другом файле поставь галочку в References.
...
Рейтинг: 0 / 0
23.11.2007, 16:43:33
| Ответить | Цитировать | Написать  
Сравнение строк
    #34962754
Фотография Ser Artur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ser Artur
Участник
Уважаемый vbapro Большое спасибо, хотя Спасибо в карман не положишь.
Я извиняюсь ещё раз у меня возник встречный вопрос по поводу цены продукта, если продажная цена одного и того же ПРОДУКТА разная, т.е. она встречается 3 раза:
скажем продукт А продан в 1-й раз за 130р, 2-й раз 150, 3-й раз145, то могу ли я в итоге получить средне арифметическое. Я попробовал создать константу
Const ColumnGroup3Cena = 9
и
TotalCena = Application.WorksheetFunction.Average(ColumnGroup3Cena)
но что-то не то
код макроса выводит только первую продажную цену
Премного благодарен
...
Рейтинг: 0 / 0
24.11.2007, 08:58:32
| Ответить | Цитировать | Написать  
Сравнение строк
    #34962864
vbapro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vbapro
Участник
пожалуйста :)
попробуй такой вариант
...
Рейтинг: 0 / 0
24.11.2007, 12:32:17
| Ответить | Цитировать | Написать  
Сравнение строк
    #34962883
Фотография Ser Artur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ser Artur
Участник
SPASIBO Vek ne zabudu
...
Рейтинг: 0 / 0
24.11.2007, 12:51:39
| Ответить | Цитировать | Написать  
Сравнение строк
    #34962888
Фотография Ser Artur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ser Artur
Участник
SPASIBO Vek ne zabudu
...
Рейтинг: 0 / 0
24.11.2007, 12:56:02
| Ответить | Цитировать | Написать  
Сравнение строк
    #34970291
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
Это для сводных таблиц задача, пример в файле!
Можно формулами.
...
Рейтинг: 0 / 0
27.11.2007, 23:11:12
| Ответить | Цитировать | Написать  
Сравнение строк
    #34970614
Фотография Ser Artur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ser Artur
Участник
Уважаемый Deggasad а как Вы получили число 118 для кода 2510 ведь средне арифметическое равно 115
Спасибо
...
Рейтинг: 0 / 0
28.11.2007, 09:09:29
| Ответить | Цитировать | Написать  
Сравнение строк
    #34973366
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
Ser ArturУважаемый Deggasad а как Вы получили число 118 для кода 2510 ведь средне арифметическое равно 115
Спасибо

Если мне не изменяет память (файл я не смотрел повторно), то там 2 варианта:
1 - среднее арифметическое 115
2 - среднее взвешенное 118, расчитывается путём деления суммы выручки на сумму количества, непосредственно в самой сводной таблице Сводная таблица - Формулы - Вычисляемое поле
...
Рейтинг: 0 / 0
28.11.2007, 23:17:15
| Ответить | Цитировать | Написать  
19 сообщений из 19, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Сравнение строк
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=34960558&tid=2181814]:
 0ms
get settings:
 9ms
get forum list:
 16ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 50ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 60ms
get tp. blocked users:
 1ms
others: 211ms
total:  366ms
созд. / загр.: 366ms
x
x
Закрыть


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