Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

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

 

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

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сравнение значений в столбцах в разных книгах (Макросы Sub)
Сравнение значений в столбцах в разных книгах
luuppii Дата: Среда, 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
 
Ответить
Сообщение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]

он не хочет работать у меня :)
Автор - luuppii
Дата добавления - 18.12.2013 в 21:35
RAN Дата: Среда, 18.12.2013, 21:39 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Цитата luuppii, 18.12.2013 в 21:35, в сообщении № 1
Повлияет ли то что во второй книге числа в формате "текст" ?

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

Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение
Цитата luuppii, 18.12.2013 в 21:35, в сообщении № 1
Повлияет ли то что во второй книге числа в формате "текст" ?

Число никогда не равно тексту.
Так что повлияет.
Автор - RAN
Дата добавления - 18.12.2013 в 21:39
luuppii Дата: Среда, 18.12.2013, 21:42 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

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

А по основному вопросу?
 
Ответить
СообщениеСпасибо, за ответ!

А по основному вопросу?
Автор - luuppii
Дата добавления - 18.12.2013 в 21:42
RAN Дата: Среда, 18.12.2013, 22:01 | Сообщение № 4
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

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

Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение1. макросов нет
2. что, откуда, куда, зачем - не ясно
3. разбираться лениво
Автор - RAN
Дата добавления - 18.12.2013 в 22:01
Hugo Дата: Среда, 18.12.2013, 22:33 | Сообщение № 5
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3254
Репутация: 707 ±
Замечаний: 0% ±

2019
Можно сравнивать [vba]
Код
cstr(BCell.Value)=cstr(ACell.Value)
[/vba]
тогда число будет равно тексту :)

excel@nxt.ru
webmoney: E265281470651 Z422237915069
 
Ответить
СообщениеМожно сравнивать [vba]
Код
cstr(BCell.Value)=cstr(ACell.Value)
[/vba]
тогда число будет равно тексту :)
Автор - Hugo
Дата добавления - 18.12.2013 в 22:33
luuppii Дата: Среда, 18.12.2013, 23:01 | Сообщение № 6
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Hugo,Спасибо, подскажи еще, что не так с кодом? выделил то что нужно сравнить цветом
К сообщению приложен файл: _1.xlsm (24.8 Kb) · 8839680.xls (26.0 Kb)
 
Ответить
СообщениеHugo,Спасибо, подскажи еще, что не так с кодом? выделил то что нужно сравнить цветом
Автор - luuppii
Дата добавления - 18.12.2013 в 23:01
KuklP Дата: Четверг, 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
 
Ответить
СообщениеКросс: http://www.planetaexcel.ru/forum....lt=edit
Достали!
Автор - KuklP
Дата добавления - 19.12.2013 в 00:07
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сравнение значений в столбцах в разных книгах (Макросы Sub)
  • Страница 1 из 1
  • 1
Поиск:

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