Задать названия Листов в Книге, используя массив - Страница 2

Старая форма входа

Страница 2 из 2 « 1 2
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Задать названия Листов в Книге, используя массив (Макросы/Sub)

Задать названия Листов в Книге, используя массив

mower07

Дата: Понедельник, 08.02.2016, 19:52 | Сообщение № 21

Группа: Пользователи

Ранг: Новичок

Сообщений: 24

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Ковыряюсь дальше

Имеется такой Код в "ЭТА Книга":
[vba]

Код

Private Sub Workbook_Open()
MsgBox "HELLO! Document ШАБЛОН is open!"
End Sub

[/vba]

В Модуле 1 имеется такой код

[vba]

Код

Public NameShale(1 To 4) As String

Sub mas1()
NameShale(1) = "Шале-176"
NameShale(2) = "Шале-207"
NameShale(3) = "Шале-248"
NameShale(4) = "Шале-304"
End Sub

Private Sub именуем_вкладки_шале()

    Dim i As Integer
    For i = 62 To 65
        ThisWorkbook.Worksheets(i).Name = NameShale(i - 61)
    Next i

End Sub

[/vba]

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

Сейчас все работает только, если запускать вручную процедуры, последовательно

Пробовал вызывать Call'ом эти процедурыиз модуля 1 в первом коде, сразу после MSgBox, но выдавало ошибку

Ответить

mower07

Дата: Понедельник, 08.02.2016, 19:58 | Сообщение № 22

Группа: Пользователи

Ранг: Новичок

Сообщений: 24

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Udik, заработало. Ошибка была, видимо в наличии элемента Private в одном из макросов

Сообщение отредактировал mower07 - Понедельник, 08.02.2016, 20:02

Ответить

Udik

Дата: Понедельник, 08.02.2016, 19:58 | Сообщение № 23

Группа: Друзья

Ранг: Старожил

Сообщений: 1588

Репутация: 192 ±

Замечаний: 0% ±

Excel 2016 х 64

Вы мое предыдущее сообщение читали? http://www.excelworld.ru/forum/10-21404-173117-16-1454950251
==
уже разобрались

вот вам барабан
яд 41001231307558 wm R419131876897
udik1968@gmail.com

Сообщение отредактировал Udik - Понедельник, 08.02.2016, 19:59

Ответить

mower07

Дата: Понедельник, 08.02.2016, 20:02 | Сообщение № 24

Группа: Пользователи

Ранг: Новичок

Сообщений: 24

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Udik, читал и делал это (без проверки), но выдавало ошибку, как и писал, видимо, из-за Private

А в проверку тут нет необходимости, т.к. я перед закрытием переименовываю вкладки и сохраняю. После открытия они стали называться, как и было до изменения, значит, макрос работает

Спасибо

Ответить

Udik

Дата: Понедельник, 08.02.2016, 20:07 | Сообщение № 25

Группа: Друзья

Ранг: Старожил

Сообщений: 1588

Репутация: 192 ±

Замечаний: 0% ±

Excel 2016 х 64

Если надо Private вызывать из другого модуля, то в модуле с Private прописываете Public макрос, вызывающий Private. Из других модулей вызываете Public

вот вам барабан
яд 41001231307558 wm R419131876897
udik1968@gmail.com

Ответить

mower07

Дата: Понедельник, 08.02.2016, 20:25 | Сообщение № 26

Группа: Пользователи

Ранг: Новичок

Сообщений: 24

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Цитата Udik, 08.02.2016 в 20:07, в сообщении № 25

Что-то слишком запутано, все циклично друг друга вызывает, как-будто :)
Пока что все работает, допилю и выложу сюда финальный код

Ответить

mower07

Дата: Понедельник, 08.02.2016, 20:34 | Сообщение № 27

Группа: Пользователи

Ранг: Новичок

Сообщений: 24

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Что имеетя:

1. Автозапуск процессов в Эта_книга

[vba]

Код

Private Sub Workbook_Open()
Call ShaleNaming
Call OptimumNaming
End Sub

[/vba]

2. Сами процессы в Модуль1
[vba]

Код

Public NameShale(1 To 4) As String

Public NameOptimum(1 To 17) As String

Sub ShaleNaming()
NameShale(1) = "Шале-176"
NameShale(2) = "Шале-207"
NameShale(3) = "Шале-248"
NameShale(4) = "Шале-304"

    Dim i As Integer

    For i = 62 To 65
        ThisWorkbook.Worksheets(i).Name = NameShale(i - 61)
    Next i

End Sub

Sub OptimumNaming()
NameOptimum(1) = "Оптмиум-230"
NameOptimum(2) = "Оптмиум-2х110"
NameOptimum(3) = "Оптмиум-180"
NameOptimum(4) = "Оптмиум-190"
NameOptimum(5) = "Оптмиум-290"
NameOptimum(6) = "Оптмиум-200"
NameOptimum(7) = "Оптмиум-350"
NameOptimum(8) = "Оптмиум-270"
NameOptimum(9) = "Оптмиум-480"
NameOptimum(10) = "Оптмиум-420"
NameOptimum(11) = "Оптмиум-540"
NameOptimum(12) = "Оптмиум-370"
NameOptimum(13) = "Оптмиум-450"
NameOptimum(14) = "Оптмиум-530"
NameOptimum(15) = "Оптмиум-400"
NameOptimum(16) = "Оптмиум-170"
NameOptimum(17) = "Оптмиум-410"

    Dim i As Integer

    For i = 45 To 61
        ThisWorkbook.Worksheets(i).Name = NameOptimum(i - 44)
    Next i

End Sub

[/vba]

Сообщение отредактировал mower07 - Понедельник, 08.02.2016, 20:36

Ответить

Udik

Дата: Понедельник, 08.02.2016, 20:40 | Сообщение № 28

Группа: Друзья

Ранг: Старожил

Сообщений: 1588

Репутация: 192 ±

Замечаний: 0% ±

Excel 2016 х 64

Цитата mower07, 08.02.2016 в 20:25, в сообщении № 26

Что-то слишком запутано

хы, ну вот пример
это в стандартном модуле
[vba]

Код

Private Sub mas1()
NameShale(1) = "Шале-176"
NameShale(2) = "Шале-207"
NameShale(3) = "Шале-248"
NameShale(4) = "Шале-304"
End Sub

Public Sub getPrivate()
Call mas1
End Sub

[/vba]

а это в другом модуле
[vba]

Код

Private Sub Workbook_Open()
Call getPrivate
End Sub

[/vba]