|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
12.02.2009, 13:19 | #11 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
Примерно так:
Код:
Чем шире угол зрения, тем он тупее.
|
12.02.2009, 13:23 | #12 |
Форумчанин
Регистрация: 07.02.2009
Сообщений: 110
|
Профессии
объясните пожалуйста разницу между математиком-программистом и инженером программистом
|
12.02.2009, 14:15 | #13 |
Регистрация: 12.02.2009
Сообщений: 5
|
|
12.02.2009, 14:20 | #14 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
Перед тем, как в него что-то вносить, он станет пустым, не зависимо от того, что в нем было.
Чем шире угол зрения, тем он тупее.
|
12.02.2009, 14:22 | #15 |
Регистрация: 12.02.2009
Сообщений: 5
|
SAS888
спасибо вам огромное сейчас буду пробовать |
12.02.2009, 15:07 | #16 |
Регистрация: 12.02.2009
Сообщений: 5
|
пишет subscript out of range
вставляю так (прописала названия файлов): Sub Main() Dim i As Long Application.ScreenUpdating = False Workbooks("FM.xls").Sheets(FM).Acti vate With Workbooks("all products 2009.xls").Sheets(1) Columns("A").Interior.ColorIndex = xlNone: Columns("B").ClearContents .Columns("A").Interior.ColorIndex = xlNone: .Columns("B").ClearContents For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row If Cells(i, "A") <> "" Then If Cells(i, "A") = .Cells(i, "A") Then Cells(i, "A").Interior.ColorIndex = 6: Cells(i, "B") = 1 .Cells(i, "A").Interior.ColorIndex = 6: .Cells(i, "B") = 1 End If End If Next End With End Sub что я делаю не так? |
12.02.2009, 15:20 | #17 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,858
|
Чтобы точно ответить на Ваш вопрос, надо знать, на какой строке макроса вылетает эта ошибка.
В строке Workbooks("FM.xls").Sheets(FM).Activate подозрительно смотрится параметр FM Вместо него надо поставить или имя листа (например, "FM" в кавычках, если так называется лист), или индекс листа (например, 1) |
12.02.2009, 18:03 | #18 |
Регистрация: 12.02.2009
Сообщений: 5
|
все равно не получается
у меня есть 2 файла. в одном - список людей, у которых закончилась услуга. в другом - список людей, возобновивших услугу. Соответственно, люди, присутствующие в 1 списке, могут быть и во 2м. мне нужен макрос, который сравнит оба файла и поставит "1" рядом с повторяющимися номерами в обоих файлах раньше я пользовалась вашим макросом ,который подсвечивает в обоих файлах одинаковые номера. Но мне это не подходит, т.к. потом я не могу их отсортировать "по цвету" |
13.02.2009, 05:19 | #19 | ||
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
Цитата:
Цитата:
Посмотрите вложение. Откройте оба файла и запустите макрос "Main".
Чем шире угол зрения, тем он тупее.
|
||
26.02.2009, 23:21 | #20 |
Регистрация: 26.02.2009
Сообщений: 5
|
А возможно ли сделать такое?
Есть две книги - это старый и новый прайс. Столбец А - наименование, B - цена. (все подсвечивается только в новом прайсе, ну или на новом листе) Условия: 1 - полное совпадение наименования(А) и цены(B) - выделяем строку допустим зеленым 2 - наименование совпадает, цена изменилась - выделяем желтым ячейку с ценой 3 - в новом прайсе такое наименование отсутствует - выделяем строчку серым 4 - в новом прайсе появилось новое наименование - выделяем строку красным Последний раз редактировалось qwerty1; 26.02.2009 в 23:24. Причина: добавление |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Прибавление данніх из двух столбцов | 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 |