Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Обращение к переменной
 
#1
11.01.2013 11:48:50
Добрый день!

Пример:

adr1 = Range("год1").Adress   ' есть ряд переменных различающихся только по номеру
adr2 = Range("год2").Adress
adr3 = Range("год3").Adress
adr4 = Range("год4").Adress
adr5 = Range("год5").Adress

For i = 1 To 5   ' есть цикл, который обращается к этим переменным

Range(adr & i).Select

Next i

Excel выдает ошибку.

Подскажите, пожалуйста, как правильно написать "adr & i" чтобы Excel выбрал именно эту ячейку.
 
 
 
#2
11.01.2013 11:51:39
Range("год" & i)
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#3
11.01.2013 11:55:10
Цитата
The_Prist пишет:
Range("год" & i)

Это понятно... смысл в том, что эти переменные фиксируют адреса ячеек, после чего добавляются строки и, соответственно, адреса ячеек "Год1,2,3,4,5" изменяются. Мне надо чтобы Excel вставал именно в "старые" адреса после перемещения.
 
 
 
#4
11.01.2013 12:05:07
Тогда только через массивы:
Код
Dim asAddr(1 to 5)
asAddr(1) = Range("год1").Adress
asAddr(2) = Range("год2").Adress 
asAddr(3) = Range("год3").Adress 
asAddr(4) = Range("год4").Adress 
asAddr(5) = Range("год5").Adress
For i = 1 To 5
     Range(asAddr(i)).Select 
Next i
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#5
11.01.2013 12:21:42
Супер! Все работает!Спасибо!
 
 
 
#6
11.01.2013 15:48:58
Еще есть вопрос:

Можно ли ввести переменную в интервал массива? Вместо 5 в "Dim asAddr(1 to 5)" поставить Max, которая, в свою очередь будет ссылаться по значение из ячейки?

Пример:

Max = Range("Макс")  .Value

Dim asAddr(1 to Max)

For i = 1 To Max
asAddr(i) = Range("год" & i).Address
Next i

For e = 1 To Max
Range(asAddr(e)).Select
Next e

Excel выдает на это ошибку...
Изменено: Дмитрий Киселев - 11.01.2013 15:49:56
 
 
 
#7
11.01.2013 16:00:29
Т.к. Мах это функция VBA переименуйте вашу переменную например в MaxR
Изменено: sva - 11.01.2013 16:00:51
 
 
 
#8
11.01.2013 16:05:50
Цитата
sva пишет:
Т.к. Мах это функция VBA переименуйте вашу переменную например в MaxR

Я ее уже как только не переименовывал, все-равно выдает ошибку :(
 
 
 
#9
11.01.2013 16:12:28
попробуйте так
Код
Dim asAddr(), lMax as Long
lMax = Range("Макс") .Value 
redim asAddr(1 to lMax)
....
 
 
 
#10
11.01.2013 16:41:49
Код
Max = Range("Макс").Value 
Dim asAddr() 
asAddr = Range("Макс").Value 

For e = 1 To uBound(asAddr,1) 
    Range(asAddr(e,1)).Select 
Next e
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#11
11.01.2013 17:03:08
Можно собирать эти адреса в словарь, как ключ брать например номер счётчика, в Item класть адрес. Максимальный размер "массива" не важен.
Затем по ключу в любой момент получаете адрес.
Изменено: Hugo - 11.01.2013 17:51:03
 
 
 
#12
11.01.2013 17:03:53
Цитата
nilem пишет:
попробуйте так
Код
 Dim asAddr(), lMax as Long
lMax = Range("Макс") .Value 
redim asAddr(1 to lMax)
....

Работает, спасибо!
 
 
 
#13
12.01.2013 06:20:05
По первому вопросу, можно без переменных:
For Each x In Names
Range(x).Select
Next
 
 
 
Страницы: 1
Наверх