|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
04.10.2015, 11:35 | #31 | |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
настораживает это
Цитата:
никто не будет шерстить минимум 62 листа и разбирать что там в них...
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
|
04.10.2015, 11:40 | #32 |
Форумчанин
Регистрация: 05.07.2011
Сообщений: 208
|
Tем паче, когда в файле нет данных, один мусор.
A уж выкладывать файл без макроса, когда есть работающий, но который вы не правильно используете... |
04.10.2015, 11:44 | #33 | |
Пользователь
Регистрация: 29.09.2015
Сообщений: 23
|
Цитата:
Private Sub Worksheet_Calculate() Dim r As Long, c As Long, Stroka As Long Application.ScreenUpdating = False Sheets("Лист1").Unprotect Password:="1234" Stroka = 10 'Номер строки, которая должна скрываться (отображаться) r = 10 'Номер строки контролируемой ячейки c = 2 'Номер столбца контролируемой ячейки Rows(Stroka).Hidden = Cells(r, c) = 0 Sheets("Лист1").Protect Password:="1234" Application.ScreenUpdating = True End Sub смог бы дальше сам устанавливать на каждый лист, меняя только значения... |
|
04.10.2015, 11:49 | #34 |
Пользователь
Регистрация: 29.09.2015
Сообщений: 23
|
Рабочий файл занимает 9,69 МБ, а я сейчас тяну интернет с мобильного, если по другому никак, то в понедельник выложу рабочий файл (
|
04.10.2015, 11:52 | #35 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
да уж...
информация исчерпывающая похоже, Вы перепутали разделы форума - тут Ексель а Ваш материал для раздела РЕБУСЫ, там любители это дела враз раскусят что нужно скрыть и главное - в каком случае это сделать, ...и для любителей подбирать пароли - это это не задача, а чистый мед, сидишь себе перебираешь пароли и, глядишь, на 3-4 сутки есть результат!!!
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
04.10.2015, 12:13 | #36 | |
Пользователь
Регистрация: 29.09.2015
Сообщений: 23
|
Цитата:
|
|
04.10.2015, 12:46 | #37 | |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
спасибо!
пароль я уже вычитал в макросе SAS888 а теперь посмотрите свой файл и приведенный макрос: Внимание! вопросы: 1. что должно служить толчком для системы, чтобы скрыть/показать строки на гипотетических 62 и даже более листах? 2. Как определить адрес проверяемой ячейки? потому что в макросе: Код:
Цитата:
1 это ячейка R30C6? 2 - R30C6? 3 - R40C6? еще 2 таких "удачных обьяснения" что нужно сделать и я закрою эту тему, в связи с отсутствием какой-либо перспективы что-либо понять! думаете кому-либо из посетителей форума будет интересно читать эту бессмысленную переписку? (уже почти на полсотни сообщений) соберитесь, осталось пара попыток...
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
|
04.10.2015, 15:13 | #38 |
Старожил
Регистрация: 12.05.2007
Сообщений: 2,339
|
|
04.10.2015, 16:02 | #39 | |
Пользователь
Регистрация: 29.09.2015
Сообщений: 23
|
Цитата:
Вопрос 1. что должно служить толчком для системы, чтобы скрыть/показать строки на гипотетических 62 и даже более листах? Ответ: В листе "расчёт стоимости", в ячейках выделенных жёлтым, вручную вносятся данные. Каждая ячейка подвязана под конкретный лист: Ячейка I7, меняет данные в листе "1" в ячейке F30 (соответственно F30 - контролированная ячейка); Ячейка I8, меняет данные в листе "2" в ячейке F30 (соответственно F30 - контролированная ячейка); Ячейка I9, меняет данные в листе "3" в ячейке F40 (соответственно F40 - контролированная ячейка); и т.д. Нужно, что бы при внесении цифры "0" в ячейки - строка скрывалась, если больше "0" открывалась. Вопрос 2. Как определить адрес проверяемой ячейки? потому что в макросе: Код: r = 10 'Номер строки контролируемой ячейки c = 2 'Номер столбца контролируемой ячейки в обьяснениях: Цитата: Скрывать строки нужно в листах "1", "2","3" (выделены жёлтым) и таких листов будет как мин.62. Контролируемая ячейка находится в этих же строках, текст красным "0,0%" судя по описанию для листа: 1 это ячейка R30C6? 2 - R30C6? 3 - R40C6? Ответ: Так как в описании для листа. Тоесть, для листа "1": Private Sub Worksheet_Calculate() Dim r As Long, c As Long, Stroka As Long Application.ScreenUpdating = False Sheets("1").Unprotect Password:="1234" Stroka = 30 'Номер строки, которая должна скрываться (отображаться) r = 30 'Номер строки контролируемой ячейки c = 6 'Номер столбца контролируемой ячейки Rows(Stroka).Hidden = Cells(r, c) = 0 Sheets("1").Protect Password:="1234" Application.ScreenUpdating = True End Sub Для листа "2": Private Sub Worksheet_Calculate() Dim r As Long, c As Long, Stroka As Long Application.ScreenUpdating = False Sheets("2").Unprotect Password:="1234" Stroka = 30 'Номер строки, которая должна скрываться (отображаться) r = 30 'Номер строки контролируемой ячейки c = 6 'Номер столбца контролируемой ячейки Rows(Stroka).Hidden = Cells(r, c) = 0 Sheets("2").Protect Password:="1234" Application.ScreenUpdating = True End Sub Для листа "3": Private Sub Worksheet_Calculate() Dim r As Long, c As Long, Stroka As Long Application.ScreenUpdating = False Sheets("3").Unprotect Password:="1234" Stroka = 40 'Номер строки, которая должна скрываться (отображаться) r = 40 'Номер строки контролируемой ячейки c = 6 'Номер столбца контролируемой ячейки Rows(Stroka).Hidden = Cells(r, c) = 0 Sheets("3").Protect Password:="1234" Application.ScreenUpdating = True End Sub Надеюсь, что предоставил исчерпывающую информацию ) |
|
04.10.2015, 16:15 | #40 |
Пользователь
Регистрация: 29.09.2015
Сообщений: 23
|
|
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Последовательное заполнение ячеек при помощи диалоговых окон, при определенном значении в определенной ячейке | 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 |