|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
30.09.2015, 13:16 | #111 |
Регистрация: 06.05.2014
Сообщений: 6
|
Здравствуйте! Есть 2 файла, export1-k.xls и export2-b.xls c 3-мя столбцами "ean", "old_price", "price". Помогите пожалуйста написать скрипт замены полей.
export1-k.xls ean old_price price 1138 0.00 28800.000000 1150 0.00 5200.000000 1172 0.00 5999.000000 export2-b.xls ean old_price price 1138 31250.00 28800.000000 1172 0.00 5999.000000 Если поле ean с первого файла соответствует ean второго файла, то "old_price" и "price" 2-го файла заменить на эти значения с первого, чтобы стало. export2-b.xls ean old_price price 1138 0.00 28800.000000 |
30.09.2015, 13:55 | #112 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
см. вложение
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
30.09.2015, 14:53 | #113 |
Регистрация: 06.05.2014
Сообщений: 6
|
|
30.09.2015, 15:03 | #114 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
в первом документе?
перенесите макрос в прайс 1-к замените в макросе имя файла с export1-k на export2-b удачи!))
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
21.06.2016, 15:25 | #115 |
Новичок
Джуниор
Регистрация: 21.06.2016
Сообщений: 1
|
Доброго времени суток! Стоит задача просканировать все, что есть, книги в одной папке на предмет повтора в определённом столбце и свести все совпадения в отдельную книгу с указанием значения и в каких книгах оно повторяется. Скрипт на прочёсывание книг в папке есть, но требует корректировки. В него можно интегрировать ваш скрипт на поиск и маркировку, только маркировку заменить на копирование значений в новую книгу. Только для меня это туго понимаемо, прошу вашей помощи.
Sub Get_All_File_from_Folder() Dim sFolder As String, sFiles As String 'диалог запроса выбора папки с файлами With Application.FileDialog(msoFileDialo gFolderPicker) If .Show = False Then Exit Sub sFolder = .SelectedItems(1) End With sFolder = sFolder & IIf(Right(sFolder, 1) = Application.PathSeparator, "", Application.PathSeparator) 'отключаем обновление экрана, чтобы наши действия не мелькали Application.ScreenUpdating = False sFiles = Dir(sFolder & "*.xls*") Do While sFiles <> "" 'открываем книгу Workbooks.Open sFolder & sFiles 'действия с файлом 'Запишем на первый лист книги в ячейку А1 ActiveWorkbook.Sheets(1).Range("A1" ).Value = "Привет" 'Закрываем книгу с сохранением изменений ActiveWorkbook.Close True 'если поставить False - книга будет закрыта без сохранения sFiles = Dir Loop 'возвращаем ранее отключенное обновление экрана Application.ScreenUpdating = True End Sub |
15.08.2017, 11:05 | #116 | |
Пользователь
Регистрация: 11.08.2017
Сообщений: 20
|
Цитата:
|
|
15.08.2017, 13:11 | #117 |
2 the Nation Glory
Старожил
Регистрация: 27.05.2014
Сообщений: 3,289
|
Код:
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы. |
15.08.2017, 13:46 | #118 |
Пользователь
Регистрация: 11.08.2017
Сообщений: 20
|
|
15.08.2017, 14:31 | #119 | |
Пользователь
Регистрация: 11.08.2017
Сообщений: 20
|
Цитата:
Sub Main() Dim i As Long, x As Range, Fst As String Application.ScreenUpdating = False Workbooks("Цех 5 Status(15.08.17).xlsx").Sheets(1).A ctivate For shCounter = 1 To Workbooks("tmp001.xlsx").Sheets.Cou nt With Workbooks("tmp001.xlsx").Sheets(shC ounter) 'With Workbooks("tmp001.xlsx").Sheets(1) Columns("A").Interior.ColorIndex = xlNone .Columns("A").Interior.ColorIndex = xlNone For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row Set x = .Columns("A").Find(what:=Cells(i, "A"), LookAt:=xlWhole) If Not x Is Nothing Then Cells(i, "A").Interior.ColorIndex = 6 Fst = x.Address Do .Cells(x.Row, "A").Interior.ColorIndex = 6 Set x = .Columns("A").FindNext(x) Loop While Fst <> x.Address End If Next End With Next End Sub а если снять коммент с 'With Workbooks("tmp001.xlsx").Sheets(1) и закоментить последний Next, то будут выделяться совпадающие данные из первой книги |
|
31.01.2019, 21:16 | #120 |
Регистрация: 28.01.2019
Сообщений: 4
|
Здравствуйте уважаемые форумчане кто может помочь с написанием макроса сравнения 2 файлов Excel, то что приведено выше не совсем подходит.
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Прибавление данніх из двух столбцов | gavrylyuk | Microsoft Office Excel | 3 | 01.08.2008 11:40 |
Нахождение совпадений в двух книгах | Professor Hubert | Microsoft Office Excel | 5 | 25.07.2008 12:59 |
Отображение в форме и таблице двух столбцов подстановок | smoky | Microsoft Office Access | 5 | 01.07.2008 09:27 |
Сравнение двух списков | lelik759 | Microsoft Office Excel | 7 | 13.04.2008 22:19 |
Как извлечь из двух столбцов несовпадающие строки | Shavminator | Microsoft Office Excel | 4 | 28.12.2007 12:23 |