Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Список листов книги - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Список листов книги (Макросы/Sub)
Список листов книги
Nic70y Дата: Среда, 08.07.2015, 16:43 | Сообщение № 1
Группа: Друзья
Ранг: Экселист
Сообщений: 8791
Репутация: 2288 ±
Замечаний: 0% ±

Excel 2010
Вот стырил макрос, у кого не помню (я всегда так делаю)
[vba]
Код
Sub SheetsList()
'Sheets.Add(Before:=Sheets(1)).Name = "List"
     Cnt = 0
     For Elem = 2 To Sheets.Count
     Sheets(1).Cells(1, 1).Offset(Cnt, 0) = Sheets(Elem).Name
     Cnt = Cnt + 1
Next Elem
End Sub
[/vba]но если листы называютя 01.01 и т.п. макрос переводить названия в числа.
как с этим бороться?

ЮMoney 41001841029809
 
Ответить
СообщениеВот стырил макрос, у кого не помню (я всегда так делаю)
[vba]
Код
Sub SheetsList()
'Sheets.Add(Before:=Sheets(1)).Name = "List"
     Cnt = 0
     For Elem = 2 To Sheets.Count
     Sheets(1).Cells(1, 1).Offset(Cnt, 0) = Sheets(Elem).Name
     Cnt = Cnt + 1
Next Elem
End Sub
[/vba]но если листы называютя 01.01 и т.п. макрос переводить названия в числа.
как с этим бороться?
Автор - Nic70y
Дата добавления - 08.07.2015 в 16:43
nilem Дата: Среда, 08.07.2015, 16:49 | Сообщение № 2
Группа: Авторы
Ранг: Старожил
Сообщений: 1613
Репутация: 563 ±
Замечаний: 0% ±

Excel 2013, 2016
[vba]
Код
Sheets(1).Columns(1).NumberFormat = "@"
For Elem = 2 To Sheets.Count
...
[/vba]

Яндекс.Деньги 4100159601573
 
Ответить
Сообщение[vba]
Код
Sheets(1).Columns(1).NumberFormat = "@"
For Elem = 2 To Sheets.Count
...
[/vba]
Автор - nilem
Дата добавления - 08.07.2015 в 16:49
Manyasha Дата: Среда, 08.07.2015, 16:50 | Сообщение № 3
Группа: Модераторы
Ранг: Старожил
Сообщений: 2198
Репутация: 898 ±
Замечаний: 0% ±

Excel 2010, 2016
Nic70y, здравствуйте, а если так:[vba]
Код
    With Sheets(1).Cells(1, 1).Offset(Cnt, 0)
          .NumberFormat = "@"
          .Value = Sheets(Elem).Name
      End With
[/vba]

nilem, ну да, сразу столбец привести к формату проще :)

ЯД: 410013299366744 WM: R193491431804

Сообщение отредактировал Manyasha - Среда, 08.07.2015, 16:52
 
Ответить
СообщениеNic70y, здравствуйте, а если так:[vba]
Код
    With Sheets(1).Cells(1, 1).Offset(Cnt, 0)
          .NumberFormat = "@"
          .Value = Sheets(Elem).Name
      End With
[/vba]

nilem, ну да, сразу столбец привести к формату проще :)
Автор - Manyasha
Дата добавления - 08.07.2015 в 16:50
Nic70y Дата: Среда, 08.07.2015, 17:00 | Сообщение № 4
Группа: Друзья
Ранг: Экселист
Сообщений: 8791
Репутация: 2288 ±
Замечаний: 0% ±

Excel 2010
Спасибо! :)
т.е. форматом его.
а я хотел типа &"" прилепить - не вышло :(

ЮMoney 41001841029809
 
Ответить
СообщениеСпасибо! :)
т.е. форматом его.
а я хотел типа &"" прилепить - не вышло :(
Автор - Nic70y
Дата добавления - 08.07.2015 в 17:00
Manyasha Дата: Среда, 08.07.2015, 17:10 | Сообщение № 5
Группа: Модераторы
Ранг: Старожил
Сообщений: 2198
Репутация: 898 ±
Замечаний: 0% ±

Excel 2010, 2016
Nic70y, можно и прилепить чего-нибудь, например:[vba]
Код
Sheets(Elem).Name & vbCr
[/vba]

ЯД: 410013299366744 WM: R193491431804
 
Ответить
СообщениеNic70y, можно и прилепить чего-нибудь, например:[vba]
Код
Sheets(Elem).Name & vbCr
[/vba]
Автор - Manyasha
Дата добавления - 08.07.2015 в 17:10
Nic70y Дата: Среда, 08.07.2015, 22:27 | Сообщение № 6
Группа: Друзья
Ранг: Экселист
Сообщений: 8791
Репутация: 2288 ±
Замечаний: 0% ±

Excel 2010
Manyasha, спасибо еще раз.
Круто
Цитата Manyasha, 08.07.2015 в 17:10, в сообщении № 5
vbCr
блин, а видел же где-то, а стырить забыл :(

ЮMoney 41001841029809
 
Ответить
СообщениеManyasha, спасибо еще раз.
Круто
Цитата Manyasha, 08.07.2015 в 17:10, в сообщении № 5
vbCr
блин, а видел же где-то, а стырить забыл :(
Автор - Nic70y
Дата добавления - 08.07.2015 в 22:27
_Boroda_ Дата: Среда, 08.07.2015, 22:39 | Сообщение № 7
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16675
Репутация: 6481 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Цитата Nic70y, 08.07.2015 в 22:27, в сообщении № 6
vbCr
Это просто символ возврата каретки. Можно еще вот так написать
[vba]
Код
Chr(13)
[/vba] - как в Excel
Код
=СИМВОЛ(13)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
Сообщение
Цитата Nic70y, 08.07.2015 в 22:27, в сообщении № 6
vbCr
Это просто символ возврата каретки. Можно еще вот так написать
[vba]
Код
Chr(13)
[/vba] - как в Excel
Код
=СИМВОЛ(13)
Автор - _Boroda_
Дата добавления - 08.07.2015 в 22:39
Nic70y Дата: Среда, 08.07.2015, 22:46 | Сообщение № 8
Группа: Друзья
Ранг: Экселист
Сообщений: 8791
Репутация: 2288 ±
Замечаний: 0% ±

Excel 2010
я ж тупо так писал [vba]
Код
.Name & ""
[/vba]все пошел чай пить, т.к. уже >22-00

ЮMoney 41001841029809
 
Ответить
Сообщениея ж тупо так писал [vba]
Код
.Name & ""
[/vba]все пошел чай пить, т.к. уже >22-00
Автор - Nic70y
Дата добавления - 08.07.2015 в 22:46
Nic70y Дата: Пятница, 10.07.2015, 09:28 | Сообщение № 9
Группа: Друзья
Ранг: Экселист
Сообщений: 8791
Репутация: 2288 ±
Замечаний: 0% ±

Excel 2010
Цитата _Boroda_, 08.07.2015 в 22:39, в сообщении № 7
=СИМВОЛ(13)
как-то недавно у меня стоял 2003, так в нем 13 символ был виден (вроде бы ни чего не перепутал)

ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Пятница, 10.07.2015, 09:29
 
Ответить
Сообщение
Цитата _Boroda_, 08.07.2015 в 22:39, в сообщении № 7
=СИМВОЛ(13)
как-то недавно у меня стоял 2003, так в нем 13 символ был виден (вроде бы ни чего не перепутал)
Автор - Nic70y
Дата добавления - 10.07.2015 в 09:28
RAN Дата: Пятница, 10.07.2015, 12:27 | Сообщение № 10
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
[vba]
Код
[a1] = "'" & ActiveSheet.Name
[/vba]
И ничего лишнего :)

Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение[vba]
Код
[a1] = "'" & ActiveSheet.Name
[/vba]
И ничего лишнего :)
Автор - RAN
Дата добавления - 10.07.2015 в 12:27
Nic70y Дата: Суббота, 11.07.2015, 07:34 | Сообщение № 11
Группа: Друзья
Ранг: Экселист
Сообщений: 8791
Репутация: 2288 ±
Замечаний: 0% ±

Excel 2010
Андрей, спасибо,
'но что-то я туплю.
'в a1 будет имя активного листа,
'а где список?
дошло наконец-то:[vba]
Код
    Sheets(1).Cells(1, 1).Offset(Cnt, 0) = "'" & Sheets(Elem).Name
[/vba]

ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Суббота, 11.07.2015, 09:44
 
Ответить
СообщениеАндрей, спасибо,
'но что-то я туплю.
'в a1 будет имя активного листа,
'а где список?
дошло наконец-то:[vba]
Код
    Sheets(1).Cells(1, 1).Offset(Cnt, 0) = "'" & Sheets(Elem).Name
[/vba]
Автор - Nic70y
Дата добавления - 11.07.2015 в 07:34
krosav4ig Дата: Воскресенье, 12.07.2015, 03:06 | Сообщение № 12
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация: 989 ±
Замечаний: 0% ±

Excel 2007,2010,2013
А можно немного поизвращаццо? :)
в модуле листа
[vba]
Код
Sub SheetsList()
     With CreateObject("adodb.connection")
         .Open "Provider=microsoft.ace.oledb.12.0;" & _
                 "data source=" & Parent.FullName & ";" & _
                 "extended properties=excel 12.0 macro;"
         .cursorlocation = 3
         With .OpenSchema(19)
             .Filter = "table_name like '*$*' and cardinality=0 and table_name<>'" & Me.Name & "$'"
             [A1].Resize(.RecordCount) = Application.Transpose(.getrows(-1, 0, 2))
             .Close
         End With
         .Close
     End With
End Sub
[/vba]

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
СообщениеА можно немного поизвращаццо? :)
в модуле листа
[vba]
Код
Sub SheetsList()
     With CreateObject("adodb.connection")
         .Open "Provider=microsoft.ace.oledb.12.0;" & _
                 "data source=" & Parent.FullName & ";" & _
                 "extended properties=excel 12.0 macro;"
         .cursorlocation = 3
         With .OpenSchema(19)
             .Filter = "table_name like '*$*' and cardinality=0 and table_name<>'" & Me.Name & "$'"
             [A1].Resize(.RecordCount) = Application.Transpose(.getrows(-1, 0, 2))
             .Close
         End With
         .Close
     End With
End Sub
[/vba]
Автор - krosav4ig
Дата добавления - 12.07.2015 в 03:06
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Список листов книги (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!