Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 04.10.2015, 11:35   #31
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

настораживает это
Цитата:
В книге будет как минимум 62
и помните без детальных обьяснений этот файл - бесполезная информация!
никто не будет шерстить минимум 62 листа и разбирать что там в них...
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума Ответить с цитированием
Старый 04.10.2015, 11:40   #32
RAN.
Форумчанин
 
Аватар для RAN.
 
Регистрация: 05.07.2011
Сообщений: 208
По умолчанию

Tем паче, когда в файле нет данных, один мусор.
A уж выкладывать файл без макроса, когда есть работающий, но который вы не правильно используете...
RAN. вне форума Ответить с цитированием
Старый 04.10.2015, 11:44   #33
kvaavals
Пользователь
 
Регистрация: 29.09.2015
Сообщений: 23
По умолчанию

Цитата:
Сообщение от IgorGO Посмотреть сообщение
настораживает это
и помните без детальных обьяснений этот файл - бесполезная информация!
никто не будет шерстить минимум 62 листа и разбирать что там в них...
эти листы дублируются, в данном случаи привязка только такая как я предоставил в этих трёх листах , а так всё остальное повторяется. Из-за этого я и не даю все 62, так как думаю что одним кодом, который был предоставлен SAS 888:
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
смог бы дальше сам устанавливать на каждый лист, меняя только значения...
kvaavals вне форума Ответить с цитированием
Старый 04.10.2015, 11:49   #34
kvaavals
Пользователь
 
Регистрация: 29.09.2015
Сообщений: 23
По умолчанию

Цитата:
Сообщение от RAN. Посмотреть сообщение
Tем паче, когда в файле нет данных, один мусор.
A уж выкладывать файл без макроса, когда есть работающий, но который вы не правильно используете...
Рабочий файл занимает 9,69 МБ, а я сейчас тяну интернет с мобильного, если по другому никак, то в понедельник выложу рабочий файл (
kvaavals вне форума Ответить с цитированием
Старый 04.10.2015, 11:52   #35
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

да уж...
информация исчерпывающая

похоже, Вы перепутали разделы форума - тут Ексель а Ваш материал для раздела РЕБУСЫ, там любители это дела враз раскусят что нужно скрыть и главное - в каком случае это сделать,
...и для любителей подбирать пароли - это это не задача, а чистый мед, сидишь себе перебираешь пароли и, глядишь, на 3-4 сутки есть результат!!!
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума Ответить с цитированием
Старый 04.10.2015, 12:13   #36
kvaavals
Пользователь
 
Регистрация: 29.09.2015
Сообщений: 23
По умолчанию

Цитата:
Сообщение от IgorGO Посмотреть сообщение
да уж...
информация исчерпывающая

похоже, Вы перепутали разделы форума - тут Ексель а Ваш материал для раздела РЕБУСЫ, там любители это дела враз раскусят что нужно скрыть и главное - в каком случае это сделать,
...и для любителей подбирать пароли - это это не задача, а чистый мед, сидишь себе перебираешь пароли и, глядишь, на 3-4 сутки есть результат!!!
Ой, извините, пароль 1234
kvaavals вне форума Ответить с цитированием
Старый 04.10.2015, 12:46   #37
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

спасибо!
пароль я уже вычитал в макросе SAS888

а теперь посмотрите свой файл и приведенный макрос:
Внимание! вопросы:
1. что должно служить толчком для системы, чтобы скрыть/показать строки на гипотетических 62 и даже более листах?

2. Как определить адрес проверяемой ячейки? потому что
в макросе:
Код:
r = 10 'Номер строки контролируемой ячейки
c = 2 'Номер столбца контролируемой ячейки
в обьяснениях:
Цитата:
Скрывать строки нужно в листах "1", "2","3" (выделены жёлтым) и таких листов будет как мин.62.
Контролируемая ячейка находится в этих же строках, текст красным "0,0%"
судя по описанию для листа:
1 это ячейка R30C6?
2 - R30C6?
3 - R40C6?

еще 2 таких "удачных обьяснения" что нужно сделать и я закрою эту тему, в связи с отсутствием какой-либо перспективы что-либо понять!

думаете кому-либо из посетителей форума будет интересно читать эту бессмысленную переписку? (уже почти на полсотни сообщений)

соберитесь, осталось пара попыток...
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума Ответить с цитированием
Старый 04.10.2015, 15:13   #38
valerij
Старожил
 
Аватар для valerij
 
Регистрация: 12.05.2007
Сообщений: 2,339
Смех

Цитата:
Сообщение от IgorGO Посмотреть сообщение
состалось пара попыток...
IgorGO, вы, что не можете чисто по теме ответить?
Цитата:
Как авт.скрывать нужную строку при определённом значении в ячейке
Код:
If Cells(3, 9) = 0 Then Rows(3).Hidden = True
определённое значение в ячейке [i3] = 0

valerij вне форума Ответить с цитированием
Старый 04.10.2015, 16:02   #39
kvaavals
Пользователь
 
Регистрация: 29.09.2015
Сообщений: 23
По умолчанию

Цитата:
Сообщение от IgorGO Посмотреть сообщение
спасибо!
пароль я уже вычитал в макросе SAS888

а теперь посмотрите свой файл и приведенный макрос:
Внимание! вопросы:
1. что должно служить толчком для системы, чтобы скрыть/показать строки на гипотетических 62 и даже более листах?

2. Как определить адрес проверяемой ячейки? потому что
в макросе:
Код:
r = 10 'Номер строки контролируемой ячейки
c = 2 'Номер столбца контролируемой ячейки
в обьяснениях:

судя по описанию для листа:
1 это ячейка R30C6?
2 - R30C6?
3 - R40C6?

еще 2 таких "удачных обьяснения" что нужно сделать и я закрою эту тему, в связи с отсутствием какой-либо перспективы что-либо понять!

думаете кому-либо из посетителей форума будет интересно читать эту бессмысленную переписку? (уже почти на полсотни сообщений)

соберитесь, осталось пара попыток...
Постараюсь дать полный ответ.
Вопрос 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

Надеюсь, что предоставил исчерпывающую информацию )
kvaavals вне форума Ответить с цитированием
Старый 04.10.2015, 16:15   #40
kvaavals
Пользователь
 
Регистрация: 29.09.2015
Сообщений: 23
По умолчанию

Цитата:
Сообщение от valerij Посмотреть сообщение
IgorGO, вы, что не можете чисто по теме ответить?

Код:
If Cells(3, 9) = 0 Then Rows(3).Hidden = True
определённое значение в ячейке [i3] = 0

ещё нужно что бы скрывало на защищённом листе (
kvaavals вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Последовательное заполнение ячеек при помощи диалоговых окон, при определенном значении в определенной ячейке 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