Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Деактивация определённых листов книги при автоматическом заполнение бланков
 
#1
17.10.2018 23:25:45

При составлении примера взяла за базу приём «Заполнение бланков данными из таблицы», но использовала макрос (во закладке Данные), который предложил Sanja в постЕ: https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=message&FID=5&TID=46664&TITLE_SEO=46664&MID=398447#message398447

Подскажите пожалуйста, что можно сделать, чтобы при выставлении галочки в столбце A вкладки Данные:

1)при выборе цифры "1" из выпадающего списка в столбце B и, соответственно, выходящего слова «Москва» в соседней ячейке столбца С, деактивировалась бы вкладка «Города на латинице».

2)при выборе цифры "2" из выпадающего списка в столбце B и, соответственно, выходящего слова «Moskva» в соседней ячейке столбца С, деактивировалась бы вкладка «Города на русском».
 
 
 
#2
17.10.2018 23:31:30
Olga H., то, что Вы называете вкладками, в Excel принято называть листами.
 
 
 
#3
17.10.2018 23:54:51
У вас проблема с термИнами.
Что значит деативировалась?
Как можно деактивировать не активный лист (вкладку в ваших термИнах)?
 
 
 
#4
18.10.2018 05:36:58
Как понял.
в модуль листа Данные, книгу сохранить в формате поддерживающем макросы

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
 
 
#5
18.10.2018 08:30:46
RAN,
имеется ввиду, что один из листов ("города на латинице" или "города на русском") становится недоступным для внесения текста.

JayBhagavan,
извините, сохранила пример в сообщении № без сохранения макроса. Пример, приложенный к этому сообщению, дополнен моим макросом. Посмотрите пожалуйста, сработает ли ваш макрос в дополнении к моему. У меня не сработал.
 
 
 
#6
18.10.2018 08:55:31
См. файл. (как понял)

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
 
 
#7
18.10.2018 17:31:31
JayBhagavan,
Это то, что надо. Скажите пожалуйста, куда и что вы добавили, чтобы Пример заработал? Это мне важно, чтобы использовать этот приём при аналогичных задачах.  
 
 
 
#8
18.10.2018 17:37:23
Olga H., откройте модуль листа и в событиях выделение (ошибся событием) двойной клик и изменение увидите что я добавил.
Изменено: JayBhagavan - 18.10.2018 18:02:00

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
 
 
#9
18.10.2018 19:38:16
JayBhagavan,
увидела, что в модуль вы добавили указанное ниже.
Скажите, это универсальный, вставляемый в Модуль макрос, для применения которого в других задачах надо менять только названия листов в макросе?
Код
Sub jjj_hv_wsh(Optional ByVal vVar = 0)
    On Error Resume Next
        Select Case vVar
            Case 0:
                ThisWorkbook.Worksheets("Города на латинице").Visible = xlSheetVisible
                ThisWorkbook.Worksheets("Города на русском").Visible = xlSheetVisible
                
            Case 1:
                ThisWorkbook.Worksheets("Города на русском").Visible = xlSheetVisible
                ThisWorkbook.Worksheets("Города на латинице").Visible = xlSheetHidden
                
            Case 2:
                ThisWorkbook.Worksheets("Города на латинице").Visible = xlSheetVisible
                ThisWorkbook.Worksheets("Города на русском").Visible = xlSheetHidden
                
        End Select 'vVar
    On Error GoTo 0
End Sub
Изменено: Olga H. - 18.10.2018 19:39:39
 
 
 
#10
18.10.2018 19:42:29
Цитата
Olga H. написал: это универсальный, вставляемый в Модуль макрос
Универсально знать задачу, понимать алгоритм и владеть инструментом реализации алгоритма (проще говоря, языком программирования).

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
 
 
Страницы: 1
Наверх