|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
13.03.2012, 14:03 | #1 |
Пользователь
Регистрация: 21.02.2012
Сообщений: 82
|
Как дописать в макрос.............?
Есть макрос
Sub 1() Dim myF As Range For i = 7 To Sheets(2).Range("C7").End(xlDown).R ow Set myF = Sheets(1).Columns(4).Find(Sheets(2) .Range("C" & i), , , xlWhole) If Not myF Is Nothing Then Sheets(2).Range("V" & i) = Sheets(1).Range("E" & myF.Row) End If Next End Sub сравнивает два столбца на разных листах столбец( C на листе 2 и столбец D на втором листе) и при совпадении выводит значение из столбца Е.Что надо дописать что бы сравнивались еще два столбца (В на листе1 и столбец А на листе2) и при 100% совпадении по двум условиям выводилось значение из столбца Е |
13.03.2012, 15:26 | #2 |
Пользователь
Регистрация: 03.08.2011
Сообщений: 74
|
обработка примерно 3 сек.
Sub io() Dim cell As Range, x As Range Application.ScreenUpdating = 0 For Each cell In Sheets(2).UsedRange.Offset(6).Colum ns("C").Cells Set x = Sheets(1).UsedRange.Offset(7).Colum ns("D").Find(cell, , , 1) If Not x Is Nothing Then If x.Offset(, -2).Value = cell.Offset(, -2).Value Then cell.Offset(, 1).Value = x.Offset(, 1).Value End If End If Next Application.ScreenUpdating = 1 End Sub |
13.03.2012, 16:14 | #3 | |
Пользователь
Регистрация: 21.02.2012
Сообщений: 82
|
Цитата:
|
|
13.03.2012, 16:24 | #4 |
Пользователь
Регистрация: 03.08.2011
Сообщений: 74
|
4,5 строка в коде?
уберите пробел в слове Colum ns |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
как дописать программу ... | rostik123 | Общие вопросы C/C++ | 2 | 26.11.2011 20:10 |
Помогите дописать макрос | Neo007 | Microsoft Office Excel | 2 | 25.09.2008 17:31 |
как SListBox1 дописать! | aesoem | Общие вопросы Delphi | 13 | 21.04.2008 11:38 |