Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Сверка цен / 17 сообщений из 17, страница 1 из 1
24.07.2006, 14:36:43
    #33874019
Sergey_su
Sergey_su
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сверка цен
Всем Привет!!!
Может кто сможет подсказать, как сделать так, чтобы можно было быстро сверять цены в excel. Суть такая:
приходит счет с позициями и ценами, надо чтобы макрос рядом проставлял значения цен по этим позициям, которые он найдет из прайсов (другие файлы).
и если цена совпадает - там выделяет зеленым, если нет, то красным.

Если не сложно, подскажите.. СПАСИБО.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.07.2006, 15:47:32
    #33874277
vbapro
vbapro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сверка цен
нет проблем, как написал, так и нужно делать :). что можно еще подсказать?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.07.2006, 15:50:32
    #33874288
vbapro
vbapro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сверка цен
если серьезно, то решается с помошью VBA достаточно просто
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.07.2006, 16:30:06
    #33874452
Sergey_su
Sergey_su
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сверка цен
Не, ну нормально????? Написал в форум VBA, а мое сообщение перебросили сюда, СПРАШИВАЕТСЯ КАКОГО Х......?????????????
Верните меня назад.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.07.2006, 16:49:55
    #33874536
Tachkin
Tachkin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сверка цен
Вот все кричат: "VBA- это рулез!!!!, VBA- это кулл!!!! VBA- это супер гуд!!!!"
Нет, я не спорю конечно, но зачем же забивать гвозди микроскопом!!!?

Сделайте сначала ВПР, а затем условное форматирование. Все будет так как надо по описанию и быстрее (ну это кому как).
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.07.2006, 16:50:06
    #33874538
vbapro
vbapro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сверка цен
Здесь тебе тоже помогут. Напиши подробнее в чем проблема, чем конкретно помочь! Хотя решение скорее всего такое: готового решения нет, нужно писать прогу под конкретные файлы счетов и справочников.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.07.2006, 17:02:10
    #33874585
Sergey_su
Sergey_su
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сверка цен
ВПР надо проставлять в каждой позиции, а мне бы чтобы оно само находило позицию и искало в файлах-прайсах позицию с ценой. Файлов-прайсов несколько и с несколькими ярлыками.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.07.2006, 17:03:30
    #33874593
Sergey_su
Sergey_su
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сверка цен
а вот прайс
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.07.2006, 17:07:19
    #33874605
vbapro
vbapro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сверка цен
если это не ком. тайна, выложи файл справочник, можно без цен, но чтоб форма и заголовки колонок были как в рабочем.
вопросы:1) все файлы-справочники имеют одинаковый формат? 2) искать во всех или пользователь выбирает в каком? 3) формат листа -счета такой всегда будет?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.07.2006, 17:27:14
    #33874681
Sergey_su
Sergey_su
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сверка цен
Ком.тайна, но я немного подправил прайс, ща выложу. Прайсы отличаются тем, что они по разным доп.соглашениям, и в каждом таком доплашении в прайсе меняется пару цен в позициях. В основном я пользуюсь двумя-тремя прайсами(к примеру конец 2005 и начало 2006). Формат одинаковый, искать во всех. Хотя наверное будет правельнее вручнуюю подключать прайсы. Формат счета тоже одинаковый.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.07.2006, 10:30:15
    #33875750
vbapro
vbapro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сверка цен
пробуй
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.07.2006, 10:53:00
    #33875830
Sergey_su
Sergey_su
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сверка цен
Привет, а что делает эта строка?
RowIndex = Module1.FindInColumn(WBInvoice.ActiveSheet, "ID позиції", 2).Row + 1
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.07.2006, 11:00:01
    #33875848
vbapro
vbapro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сверка цен
Sergey_suПривет, а что делает эта строка?
RowIndex = Module1.FindInColumn(WBInvoice.ActiveSheet, "ID позиції", 2).Row + 1
находит первую строку после заголовка колонки, с которой будет идти вниз проверка
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.07.2006, 11:08:10
    #33875877
Sergey_su
Sergey_su
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сверка цен
не фунциклирует :-(
вот пример счета и прайса реального, в прайсе только одна закладка AD
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.07.2006, 11:29:17
    #33875987
vbapro
vbapro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сверка цен
нужно было в том же формате высылать в первый раз. держи
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.07.2006, 11:57:33
    #33876128
Sergey_su
Sergey_su
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сверка цен
ОК. Работает, блин, спасибо тебе огромное, а то я всю почти всю ночь проверял эти гребанные счета.
Но без траблов никуда. Вообщем есть позиции AD,FD,SD,RT,RF,PS все отлично, только вот есть строки - названия подразделов там "установка оборудования","монтаж","демонтаж" и вот по ним искать не надо, надо чтобы четко искало ячейку, которая начинается с AD,FD.... Я просмотрел прайсы и там такая фигня, редкая, но есть, в закладке install есть позиции RF PS, соответственно, если находит RF, то ищет закладку RF, а таковой нету.Вообщем наверное будет лучше вручную вбить на каком ярлыке находятся соответ позиции. И как поставить игнор на любую ошибку в поиске?

ЕЩЕ РАЗ СПАСИБО ДРУЖИЩЕ
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.07.2006, 12:23:51
    #33876286
vbapro
vbapro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сверка цен
Sergey_su... И как поставить игнор на любую ошибку в поиске? ...

обработка ошибли делается после ErrHandler: Хочешь закомментируй после него операторы, хочешь измени

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Private Function GetPrice(PosID As String) As Double

...

On Error GoTo ErrHandler

...
    
ErrHandler:
    MsgBox "Не найден лист " & ShName & " для позиции " & PosID, vbCritical
    GetPrice =  9999999999999 #
End Function
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Сверка цен / 17 сообщений из 17, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 335ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2184583]:
 0ms
get settings:
 8ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 43ms
get topic data:
 6ms
get forum data:
 1ms
get page messages:
 31ms
get tp. blocked users:
 1ms
others: 232ms
total:  335ms
x
x
Закрыть


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