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

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

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

Scio me nihil scire

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

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

Scio me nihil scire

<<Jojo®>>
Дело в том, что по счетчику он дает общее число листов, к тому же, если на "i" - ом лист активизировать - то листы идут по порядку, как они стоят в закладках, независимо от их наименования
Более того, Name - это имя листа (29), а не его наименование...(Лист7)
...
Рейтинг: 0 / 0
Номер листа в Excel
    #32626927
Фотография Stepler
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Так и не смог решить задачу способом, вопрос по которому задал...
Решил так:
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
Номер листа в Excel
    #32627032
Фотография Jojo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А так ?
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
Номер листа в Excel
    #32627096
Фотография Jojo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ну чё

Scio me nihil scire

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

Scio me nihil scire

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

Scio me nihil scire

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

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

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

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

Scio me nihil scire

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

Scio me nihil scire

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


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