Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
VBA - присвоение значений ячеек с другого листа
 
#1
19.02.2013 11:03:41
Имеется следующий фрагмент:

h = Sheets("дд").Range("A62000").End(xlUp).Row
d = Sheets("дд").Range(Cells(2, 1), Cells(h, 2)).Value

Собственно говоря, необходимо присвоить в переменную значения некоторого диапазона с другого листа. Почему-то на 2 строке выдает ошибку "Run-time error 1004"
Если же мы находимся на этом самом листе или добавляем перед этим
Sheets("дд").select
то все нормально работает.
Может, кто-нибудь знает, в чем причина?..
 
 
 
#2
19.02.2013 11:08:13
Код
d = Sheets("дд").resize(h-1, 2).Value
Учимся сами и помогаем другим...
 
 
 
#3
19.02.2013 11:18:51
Попробуйте так
Код
With Sheets("дд")
h = .Range("A62000").End(xlUp).Row 
d = .Range(.Cells(2, 1), .Cells(h, 2)).Value
End With
 
 
 
#4
19.02.2013 11:29:31
Тоже самое, на 2-й строке ошибка выдается...
Excel 2007, если чего...
 
 
 
#5
19.02.2013 11:35:02
dx01 = Sheets("дд";).Range("A2";).Resize(h - 1, 2).Value

ber$erk, так - да, работает... Спасибо...

Все равно вопрос-то остается в причине ошибки, т.к не особенно понятно, откуда она возникает-то...
Относительно исходного варианта интересно - это у меня excel кривой стоит, или так на самом деле нельзя писать (почему???)...
 
 
 
#6
19.02.2013 11:59:41
Файл приложите в формате .xls
 
 
 
#7
19.02.2013 12:07:07
Цитата
denis76 пишет:

Все равно вопрос-то остается в причине ошибки, т.к не особенно понятно, откуда она возникает-то...
Относительно исходного варианта интересно - это у меня excel кривой стоит, или так на самом деле нельзя писать (почему???)

Меня смущает, что код Кузьмича выдает у Вас ошибку, а он ее выдавать не должен (у меня его код отрабатывает нормально). А по поводу ситуации в целом:
изначально в коде
Код
d = Sheets("дд").Range(Cells(2, 1), Cells(h, 2)).Value

Cells(2, 1) и Cells(h, 2) ссылаются на ячейки другого (отличного от "дд") листа. Поэтому и вылезает ошибка пока напрямую не указать нужный лист (ну или не перейти на него).
Учимся сами и помогаем другим...
 
 
 
#8
19.02.2013 13:12:53
Цитата
ber$erk пишет:

Cells(2, 1) и Cells(h, 2) ссылаются на ячейки другого (отличного от "дд") листа. Поэтому и вылезает ошибка пока напрямую не указать нужный лист (ну или не перейти на него).

Ну как бы мне кажется, что мы тут ведь и пишем явным образом указание на нужный лист -  
Sheets("дд").Range(Cells...
или, аналогично,
With Sheets("дд")...
,однако не работает...
Тогда как в 1-й строке у нас тоже указание на другой лист
h = Sheets("дд").Range("A62000").End(xlUp).Row
,однако работает...

Насчет вставить файл - не знаю, как его сюда вставлять, но если отбросить ненужное, суть его такая:
есть 2 листа, на листе "дд" в первых 2 столбцах какие-то данные, далее пишем:

Sub p40()

  hd = Sheets("дд").Cells(62000, 1).End(xlUp).Row
  dx01 = Sheets("дд").Range(Cells(2, 1), Cells(hd, 2)).Value

End Sub

ну и запускаем, находясь на другом листе... и пишет ошибку...

Resize работает нормально...
 
 
 
#9
19.02.2013 13:19:49
Цитата
denis76 пишет:
Насчет вставить файл - не знаю, как его сюда вставлять
А что тут непонятного? См. файл.
 
 
 
#10
19.02.2013 13:30:15
denis76, из своего опыта могу сказать, что многие свойства и методы объекта Range (например, Find) не работают, если лист не является активным. IMHO это следует воспринимать как данность и при обращениях к Range сначала использовать Sheets(имя листа).Select или Activate.
 
 
 
#11
19.02.2013 13:30:25
Цитата
denis76 пишет:
Ну как бы мне кажется, что мы тут ведь и пишем явным образом указание на нужный лист -
Sheets("дд").Range(Cells...

явно Вы указываете только Sheets("дд").Range, а вот Cells(2, 1) и Cells(h, 2) это уже ячейки ТЕКУЩЕГО листа. т.е. явно заданное будет выгляеть так:
Код
Sheets("дд").Range(Sheets("дд").Cells(2, 1), Sheets("дд").Cells(h, 2)).Value
Учимся сами и помогаем другим...
 
 
 
#12
19.02.2013 13:31:41
Пример.
Вот такой код выдаст ошибку:
Sheets("Лист1").Activate
Set h = Sheets("Лист2").Range(Cells(1, 1), Cells(10, 10)).Find(What:="something")

А вот такой будет работать:
Sheets("Лист2").Activate
Set h = Sheets("Лист2").Range(Cells(1, 1), Cells(10, 10)).Find(What:="something")
 
 
 
#13
19.02.2013 14:07:23
Не нужны для Find Select'ы:

Sub tt()
   Sheets("Лист1").Activate 'это для демонстрации! Не нужно для работы.
   With Sheets("Лист2")
       Set h = Range(.Cells(1, 1), .Cells(10, 10)).Find(What:="something")
   End With
   If Not h Is Nothing Then MsgBox h.Address
End Sub
 
 
 
#14
19.02.2013 14:09:06
Цитата
ber$erk пишет:
явно Вы указываете только Sheets("дд").Range, а вот Cells(2, 1) и Cells(h, 2) это уже ячейки ТЕКУЩЕГО листа

Понятно... хотя на мой взгляд нелогично это... да и то, что With даже не помогает...
Ну ладно, а то думал, может я чего-то элементарного не понимаю, а раз так сделано, то вопросы к разработчикам... будем
Цитата
Alex K пишет:
воспринимать как данность...



Всем спасибо за пояснения...
 
 
 
#15
19.02.2013 14:16:38
Цитата
denis76 пишет:
что With даже не помогает..
Поможет, если код не в модуле листа. Иначе всё равно придётся указывать для каждой ячейки ещё и лист.
 
 
 
#16
19.02.2013 14:36:38
Код кстати не в модуле листа, в обычном модуле...
 
 
 
#17
19.02.2013 14:45:15
Тогда with-end with поможет. Ведь специально для этого сделано. Только точки не забывайте ставить  :)
 
 
 
Страницы: 1
Читают тему
Наверх