Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Неправильно работает Cells / 13 сообщений из 13, страница 1 из 1
14.12.2008, 18:03:01
    #35713352
Andreevna
Andreevna
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Неправильно работает Cells
Здравствуйте! Помогите разобраться, пожалуйста.

Вот код листа "Смета":
Код: plaintext
1.
2.
3.
4.
5.
6.
Private Sub Worksheet_Change(ByVal Target As Range)

    Sheets("Предлож").Range(Cells( 1 ,  1 ), Cells( 20 ,  1 )).Copy
    Sheets("Смета").Range("A1").PasteSpecial Paste:=xlPasteValues

End Sub

Почему не работает? Ошибка "Application-defined or object-defined error"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.12.2008, 18:39:55
    #35713384
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Неправильно работает Cells
У вас происходит зацикливание.
Попробуйте так
Код: plaintext
1.
2.
3.
4.
5.
6.
Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    Sheets("Предлож").Range("A1:A20").Copy
    Sheets("Смета").Range("A1").PasteSpecial Paste:=xlPasteValues
    Application.EnableEvents = True
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.12.2008, 19:12:07
    #35713410
Andreevna
Andreevna
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Неправильно работает Cells
big-duke,

Дело в том, что мне нужно использовать Range именно с помощью Cells.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.12.2008, 21:09:51
    #35713474
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Неправильно работает Cells
Ну и используйте.
Код: plaintext
1.
2.
3.
4.
5.
6.
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False

    Sheets("Предлож").Range(Cells( 1 ,  1 ), Cells( 20 ,  1 )).Copy
    Sheets("Смета").Range("A1").PasteSpecial Paste:=xlPasteValues
Application.EnableEvents = true
End Sub

...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.12.2008, 21:36:18
    #35713494
Andreevna
Andreevna
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Неправильно работает Cells
Это я, ессесно, так попробовала, но ошибка все равно возникает. Причем при первом изменении листа "Смета" событие происходит, а при последующих - нет. Прилагаю файл, чтоб легче было разобраться.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.12.2008, 21:46:59
    #35713508
KL (XL)
KL (XL)
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Неправильно работает Cells
Andreevna,

Cells работает правильно, неправильно написан код. В данном случае Range(...) принадлежит листу "Предлож", а составляющие их Cells(...) принадлежат исключительно листу, в модуле которого находится ваш код. Иными словами: вы прописали объект листа для Range(...), но не сделали этого для Cells(...). Попробуйте так:

Код: plaintext
1.
2.
3.
4.
5.
Private Sub Worksheet_Change(ByVal Target As Range)
    With Sheets("Предлож")
        .Range(.Cells( 1 ,  1 ), .Cells( 20 ,  1 )).Copy
    End With
    Sheets("Смета").Range("A1").PasteSpecial Paste:=xlPasteValues
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.12.2008, 21:51:42
    #35713510
KL (XL)
KL (XL)
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Неправильно работает Cells
Кстати, во второй части объект листа как раз прописывать нет необходимости, т.к. Sheets("Смета") и есть лист, в модуле которого находится ваш код и значит присваевается объекту Range(...) по умолчанию:

Код: plaintext
1.
2.
3.
4.
5.
Private Sub Worksheet_Change(ByVal Target As Range)
    With Sheets("Предлож")
        .Range(.Cells( 1 ,  1 ), .Cells( 20 ,  1 )).Copy
    End With
    Range("A1").PasteSpecial Paste:=xlPasteValues
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.12.2008, 01:15:08
    #35713622
Andreevna
Andreevna
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Неправильно работает Cells
KL (XL), big-duke

СПАСИБО ВАМ БОЛЬШОЕ! Сработало! Цикл, правда, все равно возникает, но от него можно избавиться с помощью совета от big-duke. Кстати, не поясните, что такое Application.EnableEvents?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.12.2008, 01:55:30
    #35713639
Andreevna
Andreevna
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Неправильно работает Cells
Про свойство EnableEvents узнала. Теперь, несмотря на
Код: plaintext
1.
Application.EnableEvents = True
в конце кода, событие на этом листе работает только один первый раз. Что делать?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.12.2008, 02:21:12
    #35713648
Andreevna
Andreevna
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Неправильно работает Cells
Событие работает один раз, т.к. код еще в процессе отладки и до конца не исполняется. Вот и получается, что события не успевают включиться.
А теперь у меня вот такая беда: выскакивает ошибка "Метод PasteSpecial из класса Range завершен неверно". Код такой
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
    y = Sheets("Предлож").Range("O7:IN7").Find(what:=Sheets("Смета").Range("L9")).Column +  1 
    
    Sheets("Предлож").Range("b35").AutoFilter Field:= 3 
    Sheets("Предлож").Range(Sheets("Предлож").Cells( 35 , y), Sheets("Предлож").Cells( 45 , y)).Copy
    Sheets("Предлож").Range("b35").AutoFilter Field:= 3 , Criteria1:="<>"
    
    Sheets("Смета").Range("G22").PasteSpecial Paste:=xlPasteValues
Где ошибка?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.12.2008, 09:09:55
    #35713770
nporaMep
nporaMep
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Неправильно работает Cells
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
    dim y as range, dim col as integer
y = Sheets("Предлож").Range("O7:IN7").Find(what:=Sheets("Смета").Range("L9").Value)
    col = y.column+ 1 
    Sheets("Предлож").Range("b35").AutoFilter Field:= 3 
    Sheets("Предлож").Range(Sheets("Предлож").Cells( 35 , col), Sheets("Предлож").Cells( 45 , col)).Copy
    Sheets("Предлож").Range("b35").AutoFilter Field:= 3 , Criteria1:="<>"
    
    Sheets("Смета").Range("G22").PasteSpecial Paste:=xlPasteValues

Разобрался только с первыми 3-мя строчками, в код дальше не вникал и не особо задумывался чего он должен делать.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.12.2008, 10:56:47
    #35714004
KL (XL)
KL (XL)
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Неправильно работает Cells
AndreevnaГде ошибка?
На листе. Надо смотреть, что там.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.12.2008, 13:45:29
    #35714547
Andreevna
Andreevna
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Неправильно работает Cells
Наверное дело в том, что после метода Copy должен сразу действовать метод Paste, а у меня перед Paste.
Код: plaintext
1.
Sheets("Предлож").Range("b35").AutoFilter Field:= 3 , Criteria1:="<>"
Так работает. Ну все. Спасибо всем за содействие!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Неправильно работает Cells / 13 сообщений из 13, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 286ms
Закрыть
start [/forum/topic.php?fid=61&tablet=1&tid=2180004]:
 0ms
get settings:
 8ms
get forum list:
 10ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 34ms
get topic data:
 6ms
get forum data:
 2ms
get page messages:
 28ms
get tp. blocked users:
 1ms
others: 193ms
total:  286ms
x
x
Закрыть


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