stud25 (Все сообщения пользователя)

Присвоение массиву значение ячейки другого листа

stud25 Пользователь Сообщений: 3 Регистрация: 24.05.2014	# 24.05.2014 10:30:00 Двумерный? Тогда все ясно, спасиб)
	Перейти

Присвоение массиву значение ячейки другого листа

stud25

Пользователь

Сообщений: 3 Регистрация: 24.05.2014

24.05.2014 10:17:08

Спасибо, конечно, все работает, но это за гранью моих небольших знаний :-) Буду разбираться. Но теперь не пойму как можно получить доступ к отдельным элементам массива arr.
Запись вида msgbox(arr(1)) не работает. Чувствую, это не простой массив.

Изменено: stud25 - 24.05.2014 10:17:56

Перейти

Присвоение массиву значение ячейки другого листа

stud25

Пользователь

Сообщений: 3 Регистрация: 24.05.2014

24.05.2014 09:25:59

Здравствуйте. Вчера впервые сел за макросы, еще многого не знаю или не понимаю.
Суть задачи:
макрос запускается на "листе1". Надо присвоить массиву значения определенных ячеек с листа2 и вывести это все дело на листе 1.
Текст программы:

Код

Sub Test2()
   Dim plank(1 To 30) As Integer
   k = 1
   Sheets("Лист2"Select
   Range("I7".Select

   Do Until IsEmpty(ActiveCell)
      plank(k) = ActiveCell.Formula
         k = k + 1
      ActiveCell.Offset(1, 0).Select
    Loop


   Sheets("Лист1".Select
   Range("m9".Select
   For i = 1 To k - 1
       ActiveCell.Formula = plank(i)
       ActiveCell.Offset(1, 0).Select
   Next i

End Sub

Не забывайте оформлять код [МОДЕРАТОР]

Эксель выдает ошибку "400". Ясно, что это связано с выбором другого листа. Но в чем конкретно дело - понять не могу.
Так я тоже пробовал. Worksheets("Лист2" ;) .Range("I7" ;) .Select. Тоже выдается ошибка.

Много гуглил. По идее проблем быть не должно (
Помогите пожалуйста :-)

Перейти