Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1 2 След.
RSS
Выпадающий список с названиями листов книги
 
#1
29.08.2013 15:04:27
Доброго времени суток.
Подскажите, как сделать выпадающий список с названиями листов книги.
На каком нибудь запасном листе запускаю макрос:
Sub List()
Dim i As Integer
For i = 1 To ActiveWorkbook.Worksheets.Count
ActiveSheet.Cells(i, 1).Value = ActiveWorkbook.Worksheets(i).Name
Next i
End Sub

Всё прекрасно работает.
Нужно что бы на рабочем листе в определённой ячейке был выпадающий список в котором отображаются названия листов начинающихся с цифры, может это можно сделать прямо в макросе. И при дополнении новых листов, чтобы они тоже были в этом списке. Я предполагаю что на основе списка созданного макросом сделать выпадающий список в ячейке. Любому совету буду рад.
 
 
 
#2
29.08.2013 15:19:50
Макрос добавит в в ячейку А1 активного листа выпадающий список с именами всех листов со второго по последний.
Код
Sub SheetsToValidation()
Dim i As Long, Arr()
Dim shp As Worksheet
    ReDim Arr(1 To Sheets.Count)
    For i = 2 To Sheets.Count
        Arr(i) = Sheets(i).Name
    Next
    [A1].Validation.Delete
    [A1].Validation.Add Type:=xlValidateList, Formula1:=Join(Arr, ",")
End Sub
 
 
 
#3
30.08.2013 08:30:12
Спасибо. Работает.
Только макрос добавил 20 листов. Как вывести все листы?
Я ещё хотел бы чтобы в список входили только названия листов начинающихся с цифры.
Если я правильно понял, Arr(i) = Sheets(i).Name - в массив добавляем название i-го листа.
В Delphi я бы объявил переменную s: string;
Далее:
s := Sheets(i).Name;
if s[1] in [0..9] then Arr(i) = s; //если первый символ цыфра
Не знаю как воплотить это в VBA.
Изменено: Фрезератор - 30.08.2013 08:32:04 (Дополнение)
 
 
 
#4
30.08.2013 08:35:51
Не подскажите, где можно почитать про VBA для начинающих? Для чайников.
 
 
 
#5
30.08.2013 09:06:34
Код
if instr("0123456789", left(Sheets(i).Name,1)) > 0 then Arr(i) = Sheets(i).Name

http://www.planetaexcel.ru/links/
Учимся сами и помогаем другим...
 
 
 
#6
30.08.2013 09:37:06
спасибо за вопрос и ответ. Мне тоже пригодилось.
 
 
 
#7
30.08.2013 09:40:11
Супер. Спасибо.
А можно сделать чтобы макрос срабатывал автоматически, например когда ячейка с выпадающим меню становится активной или при добавлении нового листа. Потому что листы часто добавляются. Что бы список обновлялся.
Вообще таблица для выписывания нарядов. По шаблону создаётся новый лист. Чтобы мастерам не  заморачиватся с запуском макроса. Да и некоторые мастера слабо представляют, как это сделать.
 
 
 
#8
30.08.2013 09:42:47
этот макрос повесьте на событие WorkSheet_Activate первого листа.
Учимся сами и помогаем другим...
 
 
 
#9
30.08.2013 10:09:37
Цитата
Только макрос добавил 20 листов.
Не верю)) Макрос добавит ВСЕ листы, кроме первого.
Вот с выводом только тех листов, имена которых начинаются с цифры. Скопируйте в модуль первого листа:
Код
Private Sub Worksheet_Activate()
Dim i As Long, Arr()
    ReDim Arr(1 To Sheets.Count)
    For i = 2 To Sheets.Count
        If IsNumeric(Left(Sheets(i).Name, 1)) Then Arr(i) = Sheets(i).Name
    Next
    [A1].Validation.Delete
    [A1].Validation.Add Type:=xlValidateList, Formula1:=Join(Arr, ",")
End Sub
 
 
 
#10
30.08.2013 10:40:17
Точнее, лучше, что бы макрос срабатывал при создании нового листа по шаблону.
А нельзя ли процедуру встроить в функцию? В ячейку вставляем функцию и она в ней создаёт выпадающий список.
 
 
 
#11
30.08.2013 10:42:49
Когда Вы создадите новый лист, он автоматически становится активным. Чтобы посмотреть - добавился ли он в выпадающий список,- Вам в любом случае придётся перейти на первый лист. Тут и сработает макрос. Что теперь не так?
 
 
 
#12
30.08.2013 10:51:09
функция не умеет создавать списки
Учимся сами и помогаем другим...
 
 
 
#13
30.08.2013 10:51:45
у меня этот макрос создает выпадающий список, но мне бы хотелось, чтобы при выборе из списка осуществлялся переход на соответствующий выбранный лист. как это сделать?
 
 
 
#14
30.08.2013 10:58:23
Для OdriH: добавьте в модуль листа этот код
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1")) Is Nothing Then
        Sheets(Target.Value).Activate
    End If
End Sub
 
 
 
#15
30.08.2013 11:24:15
Юрий М, добавила. Но видимо нужен оператор вызова этого модуля? или он один раз вызывается перед выполнением предыдущего модуля?
 
 
 
#16
30.08.2013 11:25:05
/Скопируйте в модуль первого листа:/
У меня получается вставить макрос только в отдельный модуль. Как вставить в конкретный лист не знаю.

/этот макрос повесьте на событие WorkSheet_Activate первого листа./
Подскажите как это сделать. В менеджере не нашел такого события.
С чайниками бывает тяжело  :(.
 
 
 
#17
30.08.2013 11:34:25
Фрезератор, мои два кода ПРОСТО скопируйте в модуль первого листа. Для этого: правый клик по ярлычку первого листа - исходный текст. События искать не нужно - уже всё написано.
 
 
 
#18
30.08.2013 11:35:52
заходите на нужный лист и жмете Alt+F11 - вы оказываетесь в модуле листа туда и вставляете код.
 
 
 
#19
30.08.2013 11:36:41
Цитата
С чайниками бывает тяжело
Чтобы побыстрее выйти из этой категории - нужно что-то читать. Для начала почитайте эту статью. И купите/скачайте какую-нибудь книгу по VBA.
 
 
 
#20
30.08.2013 11:38:36
Цитата
Но видимо нужен оператор вызова этого модуля?
OdriH, о чём Вы?)
 
 
 
#21
30.08.2013 11:44:01
Юрий М, спасибо. буду разбираться.
Но к сожалению я теперь не могу открыть эту книгу - EXCEL пишет, что обнаружено содержимое, которое он не может прочитать и на ответ "да" пытается загрузить книгу и намертво зависает. Буду с предыдущей версии восстанавливать.
 
 
 
#22
30.08.2013 11:44:03
Да я и рад бы купить/ скачать, только пока ничего путного не нашёл. За "эту" ссылку спасибо.
 
 
 
#23
30.08.2013 11:45:43
Цитата
Подскажите как это сделать. В менеджере не нашел такого события.
на будущее  ;)
Изменено: V - 30.08.2013 11:48:12
 
 
 
#24
30.08.2013 11:47:51
OdriH, создайте новую книгу и в неё попробуйте вставить эти две процедуры.
 
 
 
#25
30.08.2013 11:51:25
OdriH, вот работающий пример.
 
 
 
#26
30.08.2013 11:59:44
Всё всё всё, ребята спасибо. Юрий, вам отдельное, огромное спасибо. Разобрался, всё работает.
 
 
 
#27
30.08.2013 12:11:31
Юрий М
перешла на Лист2. зашла в VBA и попыталась запустить макрос, чтобы поставить этот список на втором листе (для проверки). Получила сообщение Compile error  Expected expression
 
 
 
#28
30.08.2013 12:12:55
Не нужно ничего "запускать" - при переходе на первый лист всё сработает автоматически. Я ведь уже писал об этом...
 
 
 
#29
30.08.2013 12:26:18
но у меня в списке получается ",,2p.2,3p.3,4p.4,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,," и я не могу выбрать страницу.
 
 
 
#30
30.08.2013 12:28:27
У Фрезератора всё получилось, у меня тоже работает. Что там у Вас - только Вам и известно. В МОЁМ файле всё нормально?
 
 
 
Страницы: 1 2 След.
Читают тему
Наверх