ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / сравнить две ячейки на разных листах
19 сообщений из 19, страница 1 из 1
сравнить две ячейки на разных листах
    #33760463
jjj676
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
jjj676
Гость
объясните пожалуйста что я не так делаю.
Нужно сравнить две ячейки на разных листах и в зависимости от этого проставить в определенные ячейки значения 100 или 50


If Sheets("Лист1").ActiveRange = Sheets("Лист2").ActiveCell Then
Sheets("Лист1").ActiveCell.Offset(0, 10) =100
Else
Sheets("Лист1").ActiveCell.Offset(0, 10) =50
End If
...
Рейтинг: 0 / 0
30.05.2006, 13:05:40
| Ответить | Цитировать | Написать  
сравнить две ячейки на разных листах
    #33760469
jjj676
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
jjj676
Гость
вернее делаю я так, но ничео не получается (

If Sheets("Лист1").ActiveCell= Sheets("Лист2").ActiveCell Then
Sheets("Лист1").ActiveCell.Offset(0, 10) =100
Else
Sheets("Лист1").ActiveCell.Offset(0, 10) =50
End If
...
Рейтинг: 0 / 0
30.05.2006, 13:07:31
| Ответить | Цитировать | Написать  
сравнить две ячейки на разных листах
    #33760476
jjj676
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
jjj676
Гость
да ещё одно забыл - сравнить нужно активные ячейки
...
Рейтинг: 0 / 0
30.05.2006, 13:09:14
| Ответить | Цитировать | Написать  
сравнить две ячейки на разных листах
    #33760819
vkodor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vkodor
Участник
активной ячейкой, может быть только одна ячейка (в любом случае).
...
Рейтинг: 0 / 0
30.05.2006, 14:36:18
| Ответить | Цитировать | Написать  
сравнить две ячейки на разных листах
    #33760825
jjj676
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
jjj676
Гость
Да? ... грустно...:(
...
Рейтинг: 0 / 0
30.05.2006, 14:37:58
| Ответить | Цитировать | Написать  
сравнить две ячейки на разных листах
    #33760857
vkodor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vkodor
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Sub f()
    Dim rng As Range
    Set rng = ActiveCell
    If rng.Parent.Name = "Лист1" Then Sheets("Лист2").Select Else Sheets("Лист1").Select
    If rng = ActiveCell Then
        Sheets("Лист1").ActiveCell.Offset( 0 ,  10 ) =  100 
    Else
        Sheets("Лист1").ActiveCell.Offset( 0 ,  10 ) =  50 
    End If
    
End Sub
...
Рейтинг: 0 / 0
30.05.2006, 14:45:28
| Ответить | Цитировать | Написать  
сравнить две ячейки на разных листах
    #33761759
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
White Owl
Участник
Может все же так:
Код: plaintext
1.
2.
3.
4.
if Worksheets("Лист1").Selection.Cells( 1 , 1 ).Value  = Worksheets("Лист2").Selection.Cells( 1 , 1 ).Value then
     Worksheets("Лист1").Selection.Cells( 1 , 1 ).Offset( 0 ,  10 ).Value =  100 
else
     Worksheets("Лист1").Selection.Cells( 1 , 1 ).Offset( 0 ,  10 ).Value =  50 
end if
...
Рейтинг: 0 / 0
30.05.2006, 20:09:23
| Ответить | Цитировать | Написать  
сравнить две ячейки на разных листах
    #33761905
ikondakov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ikondakov
Гость
вот готовая фишка для сравнения, надо открыть файл а потом через запустить макрос кнопкой, разберетесь если шо, может поможет
...
Рейтинг: 0 / 0
30.05.2006, 22:08:00
| Ответить | Цитировать | Написать  
сравнить две ячейки на разных листах
    #33761908
Фотография Ivan33
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ivan33
Участник
вот готовая фишка для сравнения, надо открыть файл а потом через запустить макрос кнопкой, разберетесь если шо, может поможет
...
Рейтинг: 0 / 0
30.05.2006, 22:10:39
| Ответить | Цитировать | Написать  
сравнить две ячейки на разных листах
    #33763518
jjj676
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
jjj676
Гость
Результат достигнут. Большое спасибо всем!
...
Рейтинг: 0 / 0
31.05.2006, 14:41:46
| Ответить | Цитировать | Написать  
сравнить две ячейки на разных листах
    #33763871
Фотография Ivan33
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ivan33
Участник
а шо помогло? а код будет или нэт? мы тут потели панимаешь:)
...
Рейтинг: 0 / 0
31.05.2006, 16:15:50
| Ответить | Цитировать | Написать  
сравнить две ячейки на разных листах
    #33765158
jjj676
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
jjj676
Гость
Задача была в следующем - было два листа эксель. На одном были в столбще проставлены только коды, а на втором были те же коды но рядом в столбце были проставлены ещё и наименования данных кодов. Нужно было сравнив коды из первого и второго листа проставить названия на первый лист. Вот как я это сделал:

Sub Макрос1()
'Application.ScreenUpdating = False
Dim q1 As Variant
Sheets("Лист1").Select
Range("A1").Select

Sheets("Лист2").Select
Range("A1").Select


h:
Sheets("Лист1").Select
ActiveCell.Offset(1, 0).Select
q1 = ActiveCell
Sheets("Лист2").Select
v:
If q1 = "" Then GoTo w:
If ActiveCell = "" Then GoTo h:
If ActiveCell = q1 Then
ActiveCell.Offset(0, 1).Copy
Sheets("Лист1").Select
ActiveCell.Offset(0, 1).PasteSpecial
ActiveCell.Offset(0, -1).Select

Sheets("Лист2").Select
Range("A1").Select
GoTo h:
Else
Sheets("Лист2").Select
ActiveCell.Offset(1, 0).Select
GoTo v:
End If
w:
Sheets("Лист1").Select
'Application.ScreenUpdating = True
End Sub
...
Рейтинг: 0 / 0
01.06.2006, 10:39:55
| Ответить | Цитировать | Написать  
сравнить две ячейки на разных листах
    #33765171
jjj676
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
jjj676
Гость
кстати, а может кто знает более простой способ? А то если обновление экрана не убирать, то при большом списке работает довольно долго:(
...
Рейтинг: 0 / 0
01.06.2006, 10:43:08
| Ответить | Цитировать | Написать  
сравнить две ячейки на разных листах
    #33765472
Logayn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Logayn
Гость
А может воспользоваться ф-ей ВПР:
=ВПР(А1;Лист2!$А$1:$В$10;2;ЛОЖЬ)
...
Рейтинг: 0 / 0
01.06.2006, 12:07:32
| Ответить | Цитировать | Написать  
сравнить две ячейки на разных листах
    #33765579
jjj676
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
jjj676
Гость
что то вариант через ВПР у меня не прокатывает... может что то не так делаю
...
Рейтинг: 0 / 0
01.06.2006, 12:26:51
| Ответить | Цитировать | Написать  
сравнить две ячейки на разных листах
    #33766033
Фотография Ivan33
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ivan33
Участник
надо нарыть пример с работающей впр, тогда будет проще узнать, почему не пашет впр
...
Рейтинг: 0 / 0
01.06.2006, 14:10:11
| Ответить | Цитировать | Написать  
сравнить две ячейки на разных листах
    #33766049
Фотография Ivan33
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ivan33
Участник
в принципе впр работает так, если бы на первый лист вы вводили бы коды функций, то название бы подставлялось автоматически, впр бы просматривала второй лист с кодами, сравнивала бы их с введенными вручную кодами и потом поняв, что есть совпадение возвращало бы значение во второй столбец с названиями из второго листа.
...
Рейтинг: 0 / 0
01.06.2006, 14:14:00
| Ответить | Цитировать | Написать  
сравнить две ячейки на разных листах
    #33766097
vkodor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vkodor
Участник
jjj676кстати, а может кто знает более простой способ? А то если обновление экрана не убирать, то при большом списке работает довольно долго:(
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Sub f()
    For Each rng In Sheets("Лист1").UsedRange
        If rng.Value <> "" Then
            Set rng2 = Sheets("Лист2").Cells.Find(What:=rng.Value, LookIn:=xlValues, LookAt:= _
                xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
            If Not rng2 Is Nothing Then rng.Offset( 0 ,  1 ).Value = rng2.Offset( 0 ,  1 ).Value
            Set rng2 = Nothing
        End If
    Next
End Sub
...
Рейтинг: 0 / 0
01.06.2006, 14:27:15
| Ответить | Цитировать | Написать  
сравнить две ячейки на разных листах
    #33766196
jjj676
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
jjj676
Гость
да, Vkodor! Ваш вариант работает намного быстрее. Возьму его на вооружение. Спасибо.
...
Рейтинг: 0 / 0
01.06.2006, 14:55:53
| Ответить | Цитировать | Написать  
19 сообщений из 19, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / сравнить две ячейки на разных листах
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=33761908&tid=2184797]:
 0ms
get settings:
 7ms
get forum list:
 10ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 59ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 41ms
get tp. blocked users:
 1ms
others: 234ms
total:  365ms
созд. / загр.: 365ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]