![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
![]() |
#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 |
![]() |
![]() |
#2 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
![]()
Посмотрите вложенный файл.
Макрос "Persons1" запускать, если есть код товара в столбце "A" листа "Sheet1". Макрос "Persons2" запускать, если есть название в столбце "B" листа "Sheet1". Лист "Sheet2", как я понял, содержит исходные данные (и код (столбец "A") и название (столбец "B")).
Чем шире угол зрения, тем он тупее.
|
![]() |
![]() |
#3 |
Форумчанин
Регистрация: 12.11.2007
Сообщений: 209
|
![]()
SAS888 !
Все классно! Спасибо! |
![]() |
![]() |
#4 |
Форумчанин
Регистрация: 12.11.2007
Сообщений: 209
|
![]()
Добрый день !
Подскажите, пожалуйста, почему машина при отборе тормозит и примерно на 170-ой строке останавливается ? |
![]() |
![]() |
#5 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
![]()
Не могу открыть вложенный файл.
Чем шире угол зрения, тем он тупее.
Последний раз редактировалось SAS888; 16.01.2008 в 11:02. |
![]() |
![]() |
#6 |
Форумчанин
Регистрация: 12.11.2007
Сообщений: 209
|
![]()
Во посылаю еще раз
|
![]() |
![]() |
#7 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
![]()
Та же беда. При открытии файла выскакивает ошибка Excel. Затем восстанавливается файл, но без макросов.
Может лучше Вам вложить файл только с данными, а коды макросов отдельно текстом, так как причина возникновения ошибки не известна.
Чем шире угол зрения, тем он тупее.
|
![]() |
![]() |
#8 |
Форумчанин
Регистрация: 21.08.2007
Сообщений: 292
|
![]()
Последний файл вообще Excel завалил и открывается уже с удалёнными макросами
|
![]() |
![]() |
#9 |
Форумчанин
Регистрация: 12.11.2007
Сообщений: 209
|
![]()
Во данные
В Sheet-e 2 -это база данных В Sheet-e 1 надо к SAP коду пришить кол-во |
![]() |
![]() |
#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 |