|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
05.10.2015, 00:11 | #41 | ||||
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
Цитата:
valerij, Цитата:
Цитата:
твой совет решил проблему автора темы? зачем ты вообще встрял в тему? я, например не даю советов по выпечке и ее доставке в точки реализации потому что никогда с этим не сталкивался и ничего в этом не понимаю. kvaavals Тоесть, для листа "1": r = 30 'Номер строки контролируемой ячейки Для листа "2": r = 30 'Номер строки контролируемой ячейки Для листа "3": r = 40 'Номер строки контролируемой ячейки это я написал в своем вопросе: Цитата:
как определить адрес ячейки для листов 4, 5, 6 ... 62 ... и дальше? напоминаю, это последняя попытка. 600 просмотров - слишком много для темы ни о чем!
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
Последний раз редактировалось IgorGO; 05.10.2015 в 06:36. |
||||
05.10.2015, 06:00 | #42 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
Посмотрите пример во вложении.
Листы "1", "2" и "3" защищены. Пароль "1234" для всех листов одинаковый. В коде макроса прописаны 3 массива. Массив "List()" содержит имена тех листов в которых требуется скрывать (отображать) строки по условию. Массив "Stroka()" содержит номера строк, которые требуется скрывать (отображать) на соответствующих листах. Массив "Addr()" содержит адреса контролируемых ячеек соответствующих листов. Эти массивы синхронизированы, т. е. все элементы массива находятся в соответствии. Добавляйте (изменяйте) эти массивы по Вашим требованиям, соблюдая количество и порядок их элементов. Если для разных листов требуется использовать разные пароли, то добавьте 4-ый массив,содержащий пароли, соблюдая соответствие его элементов порядку листов, а в коде макроса, при снятии и установке защиты текущего листа используйте строковую переменную. Код:
Чем шире угол зрения, тем он тупее.
|
05.10.2015, 09:57 | #43 | |
Пользователь
Регистрация: 29.09.2015
Сообщений: 23
|
Цитата:
|
|
08.10.2015, 10:38 | #44 |
Пользователь
Регистрация: 29.09.2015
Сообщений: 23
|
Ещё чуть поправил код SAS888, так как таблицы долго пересчитывались. Сейчас так сделано, что бы все таблицы были неактивны пока на них не перейдёшь. Так что сейчас всё ОТЛИЧНО работает!
Большое спасибо SAS888 за терпение ) |
14.09.2018, 16:07 | #45 |
Новичок
Джуниор
Регистрация: 14.09.2018
Сообщений: 1
|
Спасибо.
Private Sub Worksheet_Change(ByVal Target As Range) Dim r As Long, c As Long, Stroka As Long Stroka = 10 'Номер строки, которая должна скрываться (отображаться) r = 1 'Номер строки контролируемой ячейки c = 1 'Номер столбца контролируемой ячейки Rows(Stroka).Hidden = Cells(r, c) = 0 End Sub Работает =) |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Последовательное заполнение ячеек при помощи диалоговых окон, при определенном значении в определенной ячейке | Inna2708 | Microsoft Office Excel | 5 | 10.11.2014 01:15 |
Как вставить строку в RichEdit в определённом месте? | Евгений9 | Общие вопросы Delphi | 0 | 01.03.2014 11:11 |
Как скрыть строку при выполнении условия в другой ячейке | Алексей777 | Microsoft Office Excel | 4 | 09.12.2010 10:06 |
Как добавить нужную строку в memo | Volkogriz | Общие вопросы Delphi | 5 | 02.12.2008 22:38 |
Как найти нужную строку в ListBox? | DelphiKettle | Помощь студентам | 2 | 05.09.2007 22:02 |