Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Имя листа через переменную, Код аналогичный Range("a" & i) для Sheets("название")
 
#1
27.12.2012 13:10:13
Добрый день.

Подскажите, пожалуйста, ответ на мой глупый вопрос :) . Для ячейки можно использовать команду Range("a" & i). Как будет выглядеть в таком стиле код для Sheets("название")? Нужно не выбор через номер, а именно через имя.
Т.е. код ниже не подходит:

sub 1()
dim i
i=1
Sheets(i).select
end sub
 
 
 
#2
27.12.2012 13:12:29
Sheets("Лист3").select
 
 
 
#3
27.12.2012 13:13:16
Цитата
Юрий пишет: Sheets("название")
вот именно так и пишите.
фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг
 
 
 
#4
27.12.2012 13:16:57
Наверное, имя+переменная?
i = 3
Sheets("Лист" & i).Activate
 
 
 
#5
27.12.2012 13:21:24
Большое спасибо. Прошу прощения за неточную формулировку вопроса. Давно не писал на формуме, видимо отвык...

По теме: Можно было еще указать i="имя" и это сработало бы в примере указанном мною выше. Но в прикремленном примере почему-то не работает. Подскажите,пожалуйста, что нужно поправить.

В планах указать имя листа в Public zn As Integer, чтобы его можно было использовать для определения с какого листа следует брать список.
 
 
 
#6
27.12.2012 13:24:33
Имя листа - это строка, а у Вас переменная Integer
 
 
 
#7
27.12.2012 13:28:44
Цитата
Юрий М пишет:
Имя листа - это строка, а у Вас переменная Integer
Цитата
Юрий М пишет:
Public zn As Integer
Нужно просто Public zn ?

У меня из-за этого места форма не открывается:
Код
zn = "ии"
Dim x As Long
x = 0
With ComboBox2
For i = 1 To 8
.AddItem ""
.List(x, 0) = Sheets(zn).Cells(i, 1).Value
x = x + 1
Next
End With
 
 
 
#8
27.12.2012 13:30:33
Public zn as sting
 
 
 
#9
27.12.2012 13:33:49
Цитата
Юрий пишет:
For i = 1 To 8 .AddItem "" .List(x, 0) = Sheets(zn).Cells(i, 1).Value x = x + 1
Зачем так?
Код
For i = 1 To 8
.AddItem  Sheets(zn).Cells(i, 1).Value
x = x + 1
Я сам - дурнее всякого примера! ...
 
 
 
#10
27.12.2012 13:42:57
зачем так? :))
для одноколоночного списка достаточно
ComboBox2.List = Sheets(zn).[a1:a8].Value
фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг
 
 
 
#11
27.12.2012 13:43:08
А я вот эту строку не понял:
If Sheets(zn).ComboBox2.Value = "" Then Exit Sub
Если zn = "ии" - ведь там на листе нет КомбоБокса.
 
 
 
#12
27.12.2012 13:43:44
Спасибо. И правда короче, а  работает также, но с Sheets(zn) все равно проблема. Не могу понять, как задать zn="ии", или zn="аа"
 
 
 
#13
27.12.2012 13:44:21
офф
ух ты...
Value с предшествующей точкой даже и не в теге code ведут себя неадекватно.
беда.
фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг
 
 
 
#14
27.12.2012 13:49:54
в стандартном модуле поменяйте на
Код
public zn as s tring
фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг
 
 
 
#15
27.12.2012 13:50:55
Саш, я уже предлагал  в 13:30:33)
 
 
 
#16
27.12.2012 13:51:26
Цитата
ikki пишет:
офф
ух ты...
Value с предшествующей точкой даже и не в теге code ведут себя неадекватно.
беда.
Все заработало. Большое всем спасибо. Забыл Public zn as sting "r" добавить  :)  . Выкладываю окончательный вариант, может кому пригодится.
Изменено: Юрий - 27.12.2012 14:04:52
 
 
 
Страницы: 1
Читают тему
Наверх