Как Присвоить Листу Значение Наход. В Ячейке

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

Как Присвоить Листу Значение Наход. В Ячейке (Макросы/Sub)

Elhust

Дата: Четверг, 13.10.2016, 08:22 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 184

Репутация: -1 ±

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

Excel 2010

Добрый день увожаемые эксперты!
Есть книга там много листов (так как название длинные они записаны в ячейке B1) необходимо присвоить имя листа этой ячейке
И нужно скрыть те листы которых нет в списке столбца

К сообщению приложен файл: _Microsoft_Exce.xlsx (20.7 Kb)

Каждый сам выбирает правила игры

Ответить

Karataev

Дата: Четверг, 13.10.2016, 09:55 | Сообщение № 2

Группа: Проверенные

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

Сообщений: 1342

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

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

Excel

Задача не понятна. Например есть Лист2. Что надо с ним сделать? Например есть лист Лист21. Что надо с ним сделать?

Ответить

Elhust

Дата: Четверг, 13.10.2016, 10:04 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 184

Репутация: -1 ±

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

Excel 2010

Ну вот Смотри есть 21 лист , на 1-ом листе есть столбик с наименованиями , а на всех остальных эти наименования записаны в ячейке B1 нужно сделать так чтобы скрывались те листы которых нет в списке наименований... даже не знаю как ещё объяснить

Каждый сам выбирает правила игры

Ответить

Pelena

Дата: Четверг, 13.10.2016, 10:12 | Сообщение № 4

Группа: Админы

Ранг: Местный житель

Сообщений: 19603

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

Замечаний: ±

Excel 365 & Mac Excel

Elhust, зачем Вы уже не первый раз пользуетесь кнопкой СООБЩИТЬ? Вы жалуетесь на Karataeva ? Обоснуйте

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Elhust

Дата: Четверг, 13.10.2016, 10:14 | Сообщение № 5

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 184

Репутация: -1 ±

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

Excel 2010

Извините просто хотел сообщить что ответил так как я даже если ставлю уведомления на e-mail то они не всегда приходят ...

Каждый сам выбирает правила игры

Ответить

Elhust

Дата: Четверг, 13.10.2016, 10:15 | Сообщение № 6

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 184

Репутация: -1 ±

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

Excel 2010

это только для жалоб сделано ?

Каждый сам выбирает правила игры

Ответить

Pelena

Дата: Четверг, 13.10.2016, 10:25 | Сообщение № 7

Группа: Админы

Ранг: Местный житель

Сообщений: 19603

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

Замечаний: ±

Excel 365 & Mac Excel

Нажатие этой кнопки отправляет сообщение модераторам о Вашей жалобе. Всплывающая подсказка на этой кнопке однозначно об этом говорит.

Цитата Elhust, 13.10.2016 в 10:14, в сообщении № 5

ставлю уведомления на e-mail

Это Вам уведомления, а отвечающий сам подпишется на тему, если сочтёт нужным

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Elhust

Дата: Четверг, 13.10.2016, 10:30 | Сообщение № 8

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 184

Репутация: -1 ±

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

Excel 2010

хорошо а на счёт вспл. окна не заметил (
Спасибо за информацию

Каждый сам выбирает правила игры

Ответить

Karataev

Дата: Четверг, 13.10.2016, 10:39 | Сообщение № 9

Группа: Проверенные

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

Сообщений: 1342

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

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

Excel

[vba]

Код

Sub Скрыть_показать_листы()

    Dim i As Long

    Application.ScreenUpdating = False

    For i = 2 To Worksheets.Count
        If WorksheetFunction.CountIf(Worksheets(1).Columns("A"), Worksheets(i).Range("B1").Value) <> 0 Then
            Worksheets(i).Visible = xlSheetVisible
        Else
            Worksheets(i).Visible = xlSheetHidden
        End If
    Next i

    Application.ScreenUpdating = True

End Sub

[/vba]

Сообщение отредактировал Karataev - Четверг, 13.10.2016, 10:40

Ответить

Elhust

Дата: Четверг, 13.10.2016, 12:19 | Сообщение № 10

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 184

Репутация: -1 ±

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

Excel 2010

Karataev, Биг Рил Респект и Благодарю
Всё было проще чем я думал спасибо ещё раз )

Каждый сам выбирает правила игры

Ответить

Как Присвоить Листу Значение Наход. В Ячейке (Макросы/Sub)

Страница 1 из 1
1