|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
24.02.2011, 18:43 | #101 |
Старожил
Регистрация: 02.05.2009
Сообщений: 3,907
|
Пишите в личку.договоримся
Анализ,обработка данных Недорого
|
22.06.2011, 15:36 | #102 |
Пользователь
Регистрация: 22.02.2010
Сообщений: 21
|
Добрый день. Макрос с первой страницы ни с того, ни с сего начал ругаться на строку
Workbooks("Книга1.xls").Sheets(1).A ctivate With Workbooks("Книга2.xls").Sheets(1) Excel 2003. Файлы открыты. Соответственно Книгу1 он находит, а вторую нет. Что может быть не пойму... |
04.11.2011, 14:28 | #103 |
Новичок
Джуниор
Регистрация: 04.11.2011
Сообщений: 1
|
Ребят а не поможете с макросом. тем же что и на 1й странице, только требуется чтобы он после поиска одинаковых значений строк (даже если разные строки) в двух столбцах выписал в 3ю книгу несовпавшией значения. ну или те что остаются незакрашенными
Sub Main() Dim i As Long, x As New Collection Application.ScreenUpdating = False Workbooks("Êíèãà1.xls").Sheets(1).A ctivate On Error Resume Next For i = 1 To Cells(Rows.Count, "C").End(xlUp).Row x.Add Cells(i, "C"), CStr(Cells(i, "C")) Next On Error GoTo 0 With Workbooks("Êíèãà2.xls").Sheets(1) Columns("C").Interior.ColorIndex = xlNone For i = 1 To .Cells(Rows.Count, "C").End(xlUp).Row On Error Resume Next x.Add .Cells(i, "C"), CStr(.Cells(i, "C")) If Err <> 0 Then .Cells(i, "C").Interior.ColorIndex = 6 On Error GoTo 0 Next End With Set x = Nothing End Sub |
12.05.2012, 15:05 | #104 |
Новичок
Джуниор
Регистрация: 12.05.2012
Сообщений: 1
|
Здравствуйте, всем
Уважаемый SAS888, спасибо огромное Вам за труды. С успехом применяю Ваши коды. Будете в Киеве, с меня пиво С уважением, Виталий |
24.07.2012, 11:23 | #105 |
Новичок
Джуниор
Регистрация: 24.07.2012
Сообщений: 1
|
Доброго времени суток! Столкнулся с похожей проблемой, опыта с VBA мало поэтому решил обратится за помощью, задача примерно похожая, нужно сравнить 3 столбца в 2 файлах (Книга1 столбец А(лиц.счет) Стобец Р(типсчет) Столбец Q(номерсчет) Книга2 столбец А(лиц.счет) Стобец Е(номерсчет) Столбец F(типсчет)) нужно сравнить эти 3 столбца в обоих файлах и если хоть по одному не будет совпадение подсветить его. Сам пытался подправить макрос с первой страницы, но пока без результативно.
|
25.07.2012, 09:25 | #106 | |
Новичок
Джуниор
Регистрация: 24.07.2012
Сообщений: 1
|
Возможно ли увеличить количество книг?
Цитата:
Скажите, глубокоуважаемый SAS888, а возможно ли в этом макросе увеличить количество книг, в которых будет производится сравнение одинаковых ячеек (Книга3.xls, Книга4.xls, Книга5.xls...Книга18.xls). Если это возможно, напишите, пожалуйста код макроса. Спасибо! |
|
03.04.2013, 15:59 | #107 |
Пользователь
Регистрация: 16.04.2009
Сообщений: 19
|
есть файл в котором листы Наши и ЦБ нужно сравнить столбец С с одного листа состолбцом С другого листа и одинаковые выделить
в данном файле много значений и он виснит при поиске, возможно ли как-то это поправить?
|
03.04.2013, 17:03 | #108 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Полторы секунды.
Но если будут дубли - то первые во втором листе не покрасит. Как в прочем и Ваш код - но он не покрасит все следующие... Можно это пофиксить, как впрочем и ещё чуть ускорить - но лениво... да и может по задаче не нужно... Код:
webmoney: E265281470651 Z422237915069 R418926282008
Последний раз редактировалось Hugo121; 03.04.2013 в 17:09. |
22.10.2013, 11:54 | #109 |
Регистрация: 22.10.2013
Сообщений: 4
|
проблемы на семерке
на работе на хрюшке все работает без проблем а на семерке отказывается находить какую-либо вторую запущенную книгу. Постоянно выдает строчку
With Workbooks("22.xls").Sheets(1) Обе книги открыты |
22.10.2013, 12:03 | #110 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
другая книга открыта в другом экземпляре ексель, ее нет списке Workbooks текущего экземпляра.
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Прибавление данніх из двух столбцов | 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 |