Сравнение двух книг с записью разницы значений в третью книгу

@danilqa · Регистрация: 03.12.2015

Author24 — интернет-сервис помощи студентам

Доброго времени суток. С VBA познакомился неделю назад, и поэтому следующая задача оказалась для меня трудноватой. Итак: существует файл 11112.xlsx , в котором находится , допустим, 4 столбца с заголовками и значениями, и существует файл 22222.xlsx , в котором так же 4 столбца, но заголовки со значениями расположены в другом порядке. К тому же неизвестно с какой ячейки начинается таблица. Нужно Сравнить 2 файла и вывести в итоговый файл.xlsx разницу между соответствующими ячейками и выделить цветом ячейки. Уже неделю голову ломаю, но так нечего в голову не приходит. Заранее благодарен. Приложу эти 2 файла как пример

@Виктор Михалыч · 17.11.2016, 21:18

А если в третьем файле просто сделать ссылку на второй файл в отдельном листе и по ВПР сделать расчет? Зачем именно VBA?

@Виктор Михалыч · 17.11.2016, 21:32

Откройте файл 33333 и при обновлении укажите свой путь к файлам (измените связь). Смотрите на листе Sheet1 формулы.

@Виктор Михалыч · 17.11.2016, 21:35

А по какому критерию вам нужно расскрасить ячейки? Условное форматирование вам не подходит?

@danilqa · 17.11.2016, 21:53 **[ТС]**

я скорее всего не так объяснил. в файле 11111 столбец "вес" может находиться не после столбца "имя" , а , допустим, в самом конце

имен может быть около 25000, если не больше. а раскрасить нужно так

QBasic/QuickBASIC

1
2
3

 Range("d" & r).Interior.ColorIndex = 10
        IF Range("d" & r) < ThisWorkbook.Worksheets(1).Cells(2, 6) AND Range("d" & r) > ThisWorkbook.Worksheets(1).Cells(2, 7) THEN Range("d" & r).Interior.ColorIndex = 6
        IF Range("d" & r) > ThisWorkbook.Worksheets(1).Cells(2, 6) THEN Range("d" & r).Interior.ColorIndex = 3

@Виктор Михалыч · 17.11.2016, 22:06

Аааа. Тогда VBA

Тоесть столбец "вес" в каждом файле может быть в разном месте, я так понял?

@danilqa · 17.11.2016, 22:44 **[ТС]**

не только этот столбец. любой из. и этих столбцов может быть больше. но мне нужен код, который бы находил начало таблицы во втором файле, брал название первого столбца из первого файла , искал такое же название во втором , и так далее. Найти начало таблица у меня уже получилось, а вот дальше как - я даже представить не могу

@Виктор Михалыч · 17.11.2016, 23:04

Я завтра набросаю малость по вашему вопросу, сегодня нет времени. Вот часть кода для поиска значения в диапазоне, может как то по своему примудрите.

Visual Basic

Sub Поиск()
Dim iskomoe As String
Dim c As Range
Dim a As Integer
iskomoe = Range("C23").Value
   a = 2
On Error Resume Next
1     Cells(2, a).Select
'Поиск значения ряда
Set c = Range("F2:S2").Find(iskomoe, , , xlWhole)
If Not c Is Nothing Then c.Select
'ваши действия
     Else
  a = a + 1
  GoTo 1
End If
End Sub

@danilqa · 18.11.2016, 01:01 **[ТС]**

было бы очень хорошо, если у вас получится мне помочь)

@Виктор Михалыч · 18.11.2016, 18:38

Строго не судите. Вот что получилось. Я не гуру в VBA, я только учусь. Я уверен можно как то по другому, но сделал как сделал. Расскрашивание не делал, сами как то думаю пропишете. Открываем файл итог.xlsm, Нажимаем кнопочку и...

@Виктор Михалыч · 18.11.2016, 19:20

Есть пару но:
1) Если в таблице файла 22222, есть пустая ячейка, то в итоге пропишет пустую (в ячейках должен быть ноль или число).
2) Наименования в первом столбце обеих таблиц, должны быть одинаковыми (порядок может быть разным), если названия разные, нужно делать еще условие.

@danilqa · 19.11.2016, 08:52 **[ТС]**

огромнейшее спасибо) выручили

@Виктор Михалыч 280 / 136 / 23 Регистрация: 08.01.2014 Сообщений: 635
	17.11.2016, 21:18	2
	А если в третьем файле просто сделать ссылку на второй файл в отдельном листе и по ВПР сделать расчет? Зачем именно VBA? 0

@Виктор Михалыч 280 / 136 / 23 Регистрация: 08.01.2014 Сообщений: 635
	17.11.2016, 21:35	4
	А по какому критерию вам нужно расскрасить ячейки? Условное форматирование вам не подходит? 0

@Виктор Михалыч 280 / 136 / 23 Регистрация: 08.01.2014 Сообщений: 635
	17.11.2016, 22:06	6
	Аааа. Тогда VBA Тоесть столбец "вес" в каждом файле может быть в разном месте, я так понял? 0

@danilqa 1 / 1 / 0 Регистрация: 03.12.2015 Сообщений: 12
	17.11.2016, 22:44 [ТС]	7
	не только этот столбец. любой из. и этих столбцов может быть больше. но мне нужен код, который бы находил начало таблицы во втором файле, брал название первого столбца из первого файла , искал такое же название во втором , и так далее. Найти начало таблица у меня уже получилось, а вот дальше как - я даже представить не могу 0

@danilqa 1 / 1 / 0 Регистрация: 03.12.2015 Сообщений: 12
	18.11.2016, 01:01 [ТС]	9
	было бы очень хорошо, если у вас получится мне помочь) 0

@Виктор Михалыч 280 / 136 / 23 Регистрация: 08.01.2014 Сообщений: 635
	18.11.2016, 19:20	11
	Сообщение было отмечено danilqa как решение Решение Есть пару но: 1) Если в таблице файла 22222, есть пустая ячейка, то в итоге пропишет пустую (в ячейках должен быть ноль или число). 2) Наименования в первом столбце обеих таблиц, должны быть одинаковыми (порядок может быть разным), если названия разные, нужно делать еще условие. 1

@danilqa 1 / 1 / 0 Регистрация: 03.12.2015 Сообщений: 12
	19.11.2016, 08:52 [ТС]	12
	огромнейшее спасибо) выручили 0

Сравнение двух книг с записью разницы значений в третью книгу

Решение