|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
04.01.2008, 16:31 | #1 |
Форумчанин
Регистрация: 12.11.2007
Сообщений: 209
|
Сравнить колонки
Всем привет!
С Новым Годом! У меня в Sheet2 в колонке A - код товара , а в колонке В -его название т.е. как "база данных" В Sheet1 в колонку А пишу коды и макрос1 , в колонку В, из "базы"присуждает название Пользуюсь макросом с формулой Но не очень удобно все убирать лишнее после формул Подскажите макрос без формулы. Иногда надо наоборот- названию присудить код, тогда в Sheet1 в колонку А пишем название , а "макрос2" в Колонке В -присуждает код Как сделать два макроса без формул? Пользуюсь во каким (макрос1) Sub Perenos() Sheets("Sheet1").Activate Cells(1, 2).Select Application.ScreenUpdating = False ActiveCell.FormulaR1C1 = "=VLOOKUP(TRIM(RC[-1])*1,Sheet2!C[-1]:C,2,0)" Selection.AutoFill Destination:=Range("B1:B20000"), Type:=xlFillDefault Range("B1:B20000").Select Columns("B:B").Select Selection.Copy Range("E1").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Columns("B:B").Select Application.CutCopyMode = False Selection.Delete Shift:=xlToLeft Columns("D:D").Select Selection.Copy Range("B1").Select ActiveSheet.Paste Columns("D:D").Select Application.CutCopyMode = False Selection.Delete Shift:=xlToLeft Range("G7").Select Columns("A:A").EntireColumn.AutoFit Columns("B:B").EntireColumn.AutoFit End Sub |
04.01.2008, 19:06 | #2 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
Посмотрите вложенный файл.
Макрос "Persons1" запускать, если есть код товара в столбце "A" листа "Sheet1". Макрос "Persons2" запускать, если есть название в столбце "B" листа "Sheet1". Лист "Sheet2", как я понял, содержит исходные данные (и код (столбец "A") и название (столбец "B")).
Чем шире угол зрения, тем он тупее.
|
07.01.2008, 12:39 | #3 |
Форумчанин
Регистрация: 12.11.2007
Сообщений: 209
|
SAS888 !
Все классно! Спасибо! |
16.01.2008, 10:42 | #4 |
Форумчанин
Регистрация: 12.11.2007
Сообщений: 209
|
Добрый день !
Подскажите, пожалуйста, почему машина при отборе тормозит и примерно на 170-ой строке останавливается ? |
16.01.2008, 10:57 | #5 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
Не могу открыть вложенный файл.
Чем шире угол зрения, тем он тупее.
Последний раз редактировалось SAS888; 16.01.2008 в 11:02. |
16.01.2008, 12:40 | #6 |
Форумчанин
Регистрация: 12.11.2007
Сообщений: 209
|
Во посылаю еще раз
|
16.01.2008, 12:45 | #7 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
Та же беда. При открытии файла выскакивает ошибка Excel. Затем восстанавливается файл, но без макросов.
Может лучше Вам вложить файл только с данными, а коды макросов отдельно текстом, так как причина возникновения ошибки не известна.
Чем шире угол зрения, тем он тупее.
|
16.01.2008, 12:46 | #8 |
Форумчанин
Регистрация: 21.08.2007
Сообщений: 292
|
Последний файл вообще Excel завалил и открывается уже с удалёнными макросами
|
16.01.2008, 16:12 | #9 |
Форумчанин
Регистрация: 12.11.2007
Сообщений: 209
|
Во данные
В Sheet-e 2 -это база данных В Sheet-e 1 надо к SAP коду пришить кол-во |
16.01.2008, 16:21 | #10 |
Форумчанин
Регистрация: 12.11.2007
Сообщений: 209
|
А макрос написан чуть выше (отSAS888)
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
DBGrid ширина колонки | Pinya | БД в Delphi | 7 | 07.08.2008 09:22 |
Вывод звука на колонки | KapeLLaN | Общие вопросы C/C++ | 3 | 18.02.2008 13:03 |
сравнить 2 строчки | oLMeR | Общие вопросы Delphi | 3 | 02.11.2007 11:51 |
Колонки в richedit или memo | 2face | Компоненты Delphi | 1 | 15.06.2007 15:08 |