Помогите с макросом / Visual Basic

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите с макросом

1 сообщений из 1, страница 1 из 1

Помогите с макросом

#37704495

Anna_Mol

Гость

Доброго всем времени суток!
Помогите с запросом .
Есть задание.Есть данные о товарах со сроком годности (лист1) и потребность в этих товарах (лист 2).Необходимо взять потребность в товаре и взять со склада товар так что бы большая часть или вся часть закрылась сначало сроком голности который хуже.Т.е. есть потребность 700 штук,а на складе с худшим сроком годности 400,а с лучшим 900.Необходимо сначало взять с худшего срока,а затем добить с лучшим сроком годности.

Как я поняла для решения этой задачи необходимо:

1.Взять код из данныз по товарам найти такой же в потребностях.Затем если нет кода,то так и пишем "кода нет".Если есть то переходим ко 2 шагу.

2.Ищем у кода худший срок и сравниваем количество с потребностью,если хватает то пишем в результат (колонка на листе 1) данные,если не хватает ищем следующий худший код и с него добиваем и т.д.

Вот только ума хватило что бы сравнить коды.

Код: sql

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.

Dim i As Long
Dim sourse_ As Object, potreb_ As Object
Dim cc As Range


Set sourse_ = Sheets(1)
Set potreb_ = Sheets(2)



With sourse_.Columns(1)
    For i = 2 To .Cells(.Rows.Count).End(xlUp).Row
        If potreb_.Columns(1).Find(.Cells(i), LookIn:=xlValues, lookat:=xlPart) Is Nothing Then
            .Cells(i).Offset(, 4) = "нет такого кода"
        Else
       ''    .Cells(i).Offset(, 4) = "есть такой"
         
        End If
    Next i
End With

Подскажите с чего дальше начать.Файл прилогаю.

Подскажите еще какой нибудь электронный справочник по VBA

...

Рейтинг:

0 / 0

14.03.2012, 12:09

| Ответить | Цитировать | Написать

1 сообщений из 1, страница 1 из 1

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите с макросом

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=60&msg=37704495&tid=2157995]:	0ms
get settings:	8ms
get forum list:	12ms
check forum access:	4ms
check topic access:	4ms
track hit:	26ms
get topic data:	12ms
get forum data:	2ms
get page messages:	28ms
get tp. blocked users:	1ms
others:	16ms

total:	113ms