Номера листов

[sonata]

Необходимо узнать настоящие номера, листов....
в VBA, но как это сделать программно?

Public Sub jop1()

For i = 1 To Worksheets.Count

Sheets("Номера_листов").Activate
Cells(i, 1) = i
Cells(i, 2) = Sheets(i).Name
Next i

End Sub

[RayShade]

For i = 1 To Worksheets.Count



Sheets("Номера_листов").Activate

Cells(i, 1) = Sheets(i).Index

Cells(i, 2) = Sheets(i).Name

Next i

[Calvin]

Ну вообще в этом примере i - является индексом, а так вообще
ActiveSheet.index
или
Sheets("gfdghfdhgf").index

[sonata]

Ну а если листов много, и хочется составить в цикле ОТЧЕТ?
Можно ли это сделать?

[RayShade]

Ответ в моем постинге. Выделен специально жирным

[sonata]

Не удовлетворена, Ваш код-это то как посмотреть номер на Активном листе, а вот как пробежаться по всем листам, и посмотреть индекс каждого?

[corgi]

это код как записать данные в активный лист с других

[RayShade]

Ну неужели нельзя немного проявить фантазии и доделать его до нужной кондиции?



For i = 1 To Worksheets.Count

Sheets(1).Cells(i, 1) = Sheets(i).Index

Sheets(1).Cells(i, 2) = Sheets(i).Name

Next i

[Calvin]

2 Sonata Ну вообще-то ответ на этот попрос ты сама себе дала еще в самом первом посте

Public Sub jop1()

For i = 1 To Worksheets.Count
Sheets("Номера_листов").Activate
Cells(i, 1) = i
Cells(i, 2) = Sheets(i).Name
Next i
End Sub

здесь можно даже Sheets(i).Index не использовать, так как i в данном случае и является индексом листа.

а во-вторых RayShade и я дополнили в довольно полной мере

ЗЫ Обрати внимание, что я в первом своем посте указывал индекс не только активного листа....

[Vitaly1]

For i = 1 To Workbooks.Count
MsgBox Workbooks(i).Name + " индекс:" + CStr(i)
Next i

Действительно, Sonata, оказывается вы в своем вопросе дали ответ

Пардон, для нумеров листов нужно организовать второй цикл

For i = 1 To Workbooks.Count
K=3
cells(i,1).value=Workbooks(i).Name
cells(i,2).value= i
For j = 1 To Workbooks(i).worksheets.count
cells(i,k).value= Workbooks(i).worksheets(j).index
k=k+1
next j
Next i

Можно и одним циклом, но тогда выдадутся идексы листов только активной книги:
k = 1
For i = 1 To Sheets.Count
Cells(1, k).Value = Sheets(i).Index
k = k + 1
Next i

[sonata]

Не понимаю....
Мне кажется, что я вполне понятно все объяснила, чего мне нужно...
То, что в моей программе -i - это обычный счетчик, а не индекс листа ...
Например У меня есть лист с названием "ВСЕ" у него счетчик -3(по счету 3-й от начала книги), а индекс -15...., так вот, в моей програме выдается 3-ка, а мне нужно, чтобы выдавалось 15....

[RayShade]

Повторяю еще раз! Индекс листа - это проперть .Index! Она содержит именно тот индекс, которй тебе нужен!

[Vitaly1]

Порядковый номер листа это и есть Index!
Sheets -работает с листами только активной книги. В любой книге первый лист имеет Index =1, второй Index =2 и т.д. !!!!!

[sonata]

Но тогда как понять следующую ситуацию:
1. Есть лист с именем "ВСЕ"
2. По вышеуказ. программе его index=3(и он 3-й по счету)
Но, когда я делаю Лист15.Activate, то активизируется именно он, и в коде VBA стоит число 15 в скобках .... Как это понять????
Или я совсем уже заучилась?

[sonata]

А, когда пишу
Sheets(3).Select
то выбирается совершенно другой лист, который по счету 8, и индекс у него 8. Но, мне кажется, что сдесь не всегда возможны совпадения...,
ведь листы иногда удаляются, добавляются новые....

[Vitaly1]

Но, когда я делаю Лист15.Activate, то активизируется именно он, и в коде VBA стоит число 15 в скобках .... Как это понять????
Или я совсем уже заучилась?

Лист15 это не Лист с индексом 15, а лист с именем Лист15, т.к. Лист15 мог пользователь перетащить на другую позицию , или удалить листы перед Лист15. По умолчанию Excel называет Лист1 первый порядковый лист в книги, но символ 1 в имени листа, это не его индекс!

[RayShade]

У меня нет слов. Остались только буквы и впервые за последний год я плачу как ребенок !!! Может, ты все таки не дашь мне погибнуть в расцвете сил и почитаешь хелпник?



Это просто имя листа и все. Значит, в том цикле выводи проперть .Name и получишь имена листов.

[Vitaly1]

RayShade - я надеюсь что вы поняли, что я отвечал на вопрос Sonata.
Именно я и объяснял что такое имя, и что такое индекс, что это разные свойства одного объекта никак не связанные друг-с-другом.

[RayShade]

Да я, собственно, про вас ничего и не имел в виду, я обращался к Sonata, конечно же