Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Номер листа в Excel / 15 сообщений из 15, страница 1 из 1
29.07.2004, 11:08
    #32626646
Stepler
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Номер листа в Excel
Когда смотрим VBAProject там отражено название листа (в русской версии например,"Лист7") и его имя (например, "29")...
Как программно найти максимальный по названию лист? , т.е. есть :
- "Лист1" с именем "26" (текущая дата)
- "Лист2" с именем "27"
- "Лист3" с именем "28"
- "Лист7" с именем "29"
мне необходимо узнать последний максимальный по названию лист ("Лист7")

Stepler (щёлк-щёлк!!)
...
Рейтинг: 0 / 0
29.07.2004, 11:42
    #32626756
Jojo
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Номер листа в Excel
Метод и свойство может пригодятся ?

ThisWorkbook.Sheets.Count
....
ThisWorkbook.Sheets(i).Name

Scio me nihil scire

<<Jojo®>>
...
Рейтинг: 0 / 0
29.07.2004, 11:49
    #32626782
Stepler
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Номер листа в Excel
JojoМетод и свойство может пригодятся ?

ThisWorkbook.Sheets.Count
....
ThisWorkbook.Sheets(i).Name

Scio me nihil scire

<<Jojo®>>
Дело в том, что по счетчику он дает общее число листов, к тому же, если на "i" - ом лист активизировать - то листы идут по порядку, как они стоят в закладках, независимо от их наименования
Более того, Name - это имя листа (29), а не его наименование...(Лист7)
...
Рейтинг: 0 / 0
29.07.2004, 12:36
    #32626927
Stepler
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Номер листа в Excel
Так и не смог решить задачу способом, вопрос по которому задал...
Решил так:
Sub ListData()
s = Sheets.Count
d = Format(Now(), "dd")
For i = 1 To s
rr = ThisWorkbook.Sheets(i).Name
If d = rr Then GoTo l
Next
Sheets.Add
ActiveSheet.Name = d
Sheets(d).Move After:=Sheets(rr)
l: End Sub

Т.е. листы будут выставляться по порядку своего имени по возрастанию даты...
Что скажешь, Jojo ???
Stepler (щёлк-щёлк!!)
...
Рейтинг: 0 / 0
29.07.2004, 13:15
    #32627032
Jojo
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Номер листа в Excel
А так ?
Sub jojo()
For i = 1 To Worksheets.Count
Sheets(2).Cells(i, 1) = Sheets(i).Index
Sheets(2).Cells(i, 2) = Sheets(i).Name
Next i
End Sub

Scio me nihil scire

<<Jojo®>>
...
Рейтинг: 0 / 0
29.07.2004, 13:32
    #32627096
Jojo
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Номер листа в Excel
Ну чё

Scio me nihil scire

<<Jojo®>>
...
Рейтинг: 0 / 0
29.07.2004, 13:42
    #32627120
Stepler
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Номер листа в Excel
не идет, происходит то, что я писал...
автор...то листы идут по порядку, как они стоят в закладках, независимо от их названия (i - Это номер закладки)
Более того, Name - это имя листа (29), а не его название...(Лист7)
Stepler (щёлк-щёлк!!)
...
Рейтинг: 0 / 0
29.07.2004, 13:54
    #32627154
Jojo
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Номер листа в Excel
Ну ты чё млин
Sheets(i).Index -индекс листа (1-3)
Sheets(i).Name -имя листа(Лист1-Лист3)

Scio me nihil scire

<<Jojo®>>
...
Рейтинг: 0 / 0
29.07.2004, 14:10
    #32627211
Stepler
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Номер листа в Excel
Я тебе и толкую - индекс листа= № листа по закладке...
Попробуй: измени порядок листов , но данные по твоему коду будет писать во второй слева по закладке лист, хотя он в проекте имеет название Лист100 и имя его "бла"
Stepler (щёлк-щёлк!!)
...
Рейтинг: 0 / 0
29.07.2004, 14:17
    #32627237
Jojo
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Номер листа в Excel
Дак у тебя ведь задача найти мах индекс ? как я понял

Scio me nihil scire

<<Jojo®>>
...
Рейтинг: 0 / 0
29.07.2004, 14:23
    #32627252
Stepler
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Номер листа в Excel
авторКак программно найти максимальный по названию лист? , т.е. есть :
- "Лист1" с именем "26" (текущая дата)
- "Лист2" с именем "27"
- "Лист3" с именем "28"
- "Лист7" с именем "29"
мне необходимо узнать последний максимальный по названию лист ("Лист7")
В этом случае мах индекс=5, а мах по названию лист =Лист7, имя его=29 ....
МНЕ НУЖНА ЕНТА " 7 "
Stepler (щёлк-щёлк!!)
...
Рейтинг: 0 / 0
29.07.2004, 14:31
    #32627274
Jojo
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Номер листа в Excel
не понял чем название отличается от имени :)
Scio me nihil scire

<<Jojo®>>
...
Рейтинг: 0 / 0
29.07.2004, 14:38
    #32627294
Stepler
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Номер листа в Excel
Может я некорректно называю,но авторКогда смотрим VBAProject там отражено название листа (в русской версии например,"Лист7") и его имя (например, "29")...

Stepler (щёлк-щёлк!!)
...
Рейтинг: 0 / 0
29.07.2004, 14:45
    #32627328
Jojo
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Номер листа в Excel
Маладес ...Маладес ...возьми с полки пэрожоК
Вот может поможет

http://bbs.vbstreets.ru/viewtopic.php?t=277&postdays=0&postorder=asc&start=15&sid=509cd13dd8f5d234bf7a1926b59baa17

Scio me nihil scire

<<Jojo®>>
...
Рейтинг: 0 / 0
29.07.2004, 14:47
    #32627332
Jojo
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Номер листа в Excel
тоже только первый лист
http://bbs.vbstreets.ru/viewtopic.php?t=277&postdays=0&postorder=asc&start=0

Scio me nihil scire

<<Jojo®>>
...
Рейтинг: 0 / 0
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Номер листа в Excel / 15 сообщений из 15, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]