Сравнение значений в столбцах в разных книгах - Мир MS Excel

Регистрация

Напомнить пароль

= Мир MS Excel/Сравнение значений в столбцах в разных книгах - Мир MS Excel

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Сравнение значений в столбцах в разных книгах (Макросы Sub)

Сравнение значений в столбцах в разных книгах

Дата: Среда, 18.12.2013, 21:35 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 3

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

4 столбец из "книги 1" сравнить с 4-м столбцом из "книги 2". Ячейки с одинаковыми значениями закрасить цветом в обоих книгах

Повлияет ли то что во второй книге числа в формате "текст" ?

Код :

[vba]

Код

Sub Sravnenie()

Dim ACell As Range
Dim BCell As Range

   For Each ACell In Workbooks("Книга 1").Worksheets("1"). _
Range("D1", Cells(Rows.Count, 4).End(xlUp))

      For Each BCell In Workbooks("Книга 2").Worksheets("1"). _
      Range("D2", Cells(Rows.Count, 4).End(xlUp))

       If BCell.Value = ACell.Value Then

      BCell.Interior.ThemeColor = xlThemeColorLight1
      ACell.Interior.ThemeColor = xlThemeColorLight1

       End If

      Next
Next

End Sub

[/vba]

он не хочет работать у меня

К сообщению приложен файл: _1.xls (68.0 Kb) · _2.xls (29.5 Kb)

Сообщение отредактировал luuppii - Среда, 18.12.2013, 21:35

Ответить

Дата: Среда, 18.12.2013, 21:39 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Цитата luuppii, 18.12.2013 в 21:35, в сообщении № 1

Повлияет ли то что во второй книге числа в формате "текст" ?

Число никогда не равно тексту.
Так что повлияет.

Быть или не быть, вот в чем загвоздка!

Ответить

Дата: Среда, 18.12.2013, 21:42 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 3

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Спасибо, за ответ!

А по основному вопросу?

Ответить

Дата: Среда, 18.12.2013, 22:01 | Сообщение № 4

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

1. макросов нет
2. что, откуда, куда, зачем - не ясно
3. разбираться лениво

Быть или не быть, вот в чем загвоздка!

Ответить

Дата: Среда, 18.12.2013, 22:33 | Сообщение № 5

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3859

Репутация: 819 ±

Замечаний: 0% ±

365

Можно сравнивать [vba]

Код

cstr(BCell.Value)=cstr(ACell.Value)

[/vba]
тогда число будет равно тексту

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD

Ответить

Дата: Среда, 18.12.2013, 23:01 | Сообщение № 6

Группа: Пользователи

Ранг: Прохожий

Сообщений: 3

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Hugo,Спасибо, подскажи еще, что не так с кодом? выделил то что нужно сравнить цветом

К сообщению приложен файл: _1.xlsm (24.8 Kb) · 8839680.xls (26.0 Kb)

Ответить

Дата: Четверг, 19.12.2013, 00:07 | Сообщение № 7

Группа: Проверенные

Ранг: Старожил

Сообщений: 2369

Репутация: 486 ±

Замечаний: 0% ±

2003-2010

Кросс: http://www.planetaexcel.ru/forum....lt=edit
Достали!

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Ответить

Сравнение значений в столбцах в разных книгах (Макросы Sub)

Страница 1 из 1
1

© 2010-2025 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!