Добрый вечер форумчане, Христос Воскрес православные. Помогите скрыть ячейки но так чтоб они не теряли свое предназначение. ЗАДАЧА такова: остается лист ФИО; ВОПРОС 1; РЕЗУЛЬТАТ - все остальные листы скрыты но оставляют свою функциональность. Посмотрев ролики я попробовал скрыть их макросом но я тем самым скрыл их функциональность ((((( и если можно разъясните как потому что. В дальнейшем планируется также добавить еще листы до 20 и редактировать вопросы. Чтоб я смог их еще и сам отобразить )))) ПОМОГИТЕ если не сложно пожалуйста
Добрый вечер форумчане, Христос Воскрес православные. Помогите скрыть ячейки но так чтоб они не теряли свое предназначение. ЗАДАЧА такова: остается лист ФИО; ВОПРОС 1; РЕЗУЛЬТАТ - все остальные листы скрыты но оставляют свою функциональность. Посмотрев ролики я попробовал скрыть их макросом но я тем самым скрыл их функциональность ((((( и если можно разъясните как потому что. В дальнейшем планируется также добавить еще листы до 20 и редактировать вопросы. Чтоб я смог их еще и сам отобразить )))) ПОМОГИТЕ если не сложно пожалуйстаlebensvoll
Leanna, когда я просто скрываю листы то после того как я начинаю тест с листа ФИО; вопрос 1; то после вопроса 1 должен быть по идее вопрос 2. А вот НЕТ сразу лист РЕЗУЛЬТАТ (((((( а куда делись те вопросы на тех листах которые я скрыл (((((. Также попробовал скрыть их макросом, такой же результат (((( ПОМОГИТЕ
Leanna, когда я просто скрываю листы то после того как я начинаю тест с листа ФИО; вопрос 1; то после вопроса 1 должен быть по идее вопрос 2. А вот НЕТ сразу лист РЕЗУЛЬТАТ (((((( а куда делись те вопросы на тех листах которые я скрыл (((((. Также попробовал скрыть их макросом, такой же результат (((( ПОМОГИТЕlebensvoll
lebensvoll, привет попробуйте всем кнопкам назначить этот макрос [vba]
Код
Sub ertert() Dim n, ShName$ ShName = ActiveSheet.Name n = Right(ShName, 1) Application.ScreenUpdating = False If Not IsNumeric(n) Then n = 0: StartTime = Now End If
If n = 6 Then Sheets("Результаты").Visible = True Sheets(ShName).Visible = False Call End_Click Exit Sub End If
Sheets("Вопрос " & n + 1).Visible = True Sheets(ShName).Visible = False Application.ScreenUpdating = True End Sub
[/vba]
[p.s.]... и какие же есть методы определения пылевидных частиц? :)[/p.s.]
lebensvoll, привет попробуйте всем кнопкам назначить этот макрос [vba]
Код
Sub ertert() Dim n, ShName$ ShName = ActiveSheet.Name n = Right(ShName, 1) Application.ScreenUpdating = False If Not IsNumeric(n) Then n = 0: StartTime = Now End If
If n = 6 Then Sheets("Результаты").Visible = True Sheets(ShName).Visible = False Call End_Click Exit Sub End If
Sheets("Вопрос " & n + 1).Visible = True Sheets(ShName).Visible = False Application.ScreenUpdating = True End Sub
[/vba]
[p.s.]... и какие же есть методы определения пылевидных частиц? :)[/p.s.]nilem
Посмотрите файл, там три вопроса, остальные добавите по аналогии. На мой взгляд тест должен заканчиваться при кликанье кнопки последнего вопроса, а не на листе Результаты.
Посмотрите файл, там три вопроса, остальные добавите по аналогии. На мой взгляд тест должен заканчиваться при кликанье кнопки последнего вопроса, а не на листе Результаты.Kuzmich
nilem, Kuzmich, спасибо вам огромное... Правда пока что не разобрался как вы так скрыли (потому как для меня макросы это еще ново). Как отобразить данные листы, как добавлять новые листы???
nilem, Kuzmich, спасибо вам огромное... Правда пока что не разобрался как вы так скрыли (потому как для меня макросы это еще ново). Как отобразить данные листы, как добавлять новые листы???lebensvoll
. и какие же есть методы определения пылевидных частиц? :)
Для определения пыливидных и глинистых частиц как щебня из гравия так и песка поверяется по методу испытания отмучивания. Данный вид испытания указан в ГОСТ 8735-88
. и какие же есть методы определения пылевидных частиц? :)
Для определения пыливидных и глинистых частиц как щебня из гравия так и песка поверяется по методу испытания отмучивания. Данный вид испытания указан в ГОСТ 8735-88lebensvoll
lebensvoll, nilem, помогите произвести суммирование окрашенных ячеек если сумма зеленных ячеек из 20 ячеек составляет 18-20 то СДАЛ; если сумма окрашенных ячеек в зеленый цвет составляет меньше 18 то соответственно НЕ СДАЛ. [moder]Так, стоп. При чём здесь сумма, если тема про скрытие листов?[/moder]
lebensvoll, nilem, помогите произвести суммирование окрашенных ячеек если сумма зеленных ячеек из 20 ячеек составляет 18-20 то СДАЛ; если сумма окрашенных ячеек в зеленый цвет составляет меньше 18 то соответственно НЕ СДАЛ. [moder]Так, стоп. При чём здесь сумма, если тема про скрытие листов?[/moder]lebensvoll
Кто бы ты ни был, мир в твоих руках
Сообщение отредактировал Pelena - Понедельник, 13.04.2015, 21:40
Там не просто окрашенные ячейки, а условное форматирование. По моему мы уже пришли к формуле =ЕСЛИ(И(C10=D10;C11=D11;C12=D12);"СДАЛ";"НЕ СДАЛ") Если вопросов будет больше, то добавьте в условие по И дополнительные вопросы.
Цитата
суммирование окрашенных ячеек
Там не просто окрашенные ячейки, а условное форматирование. По моему мы уже пришли к формуле =ЕСЛИ(И(C10=D10;C11=D11;C12=D12);"СДАЛ";"НЕ СДАЛ") Если вопросов будет больше, то добавьте в условие по И дополнительные вопросы.Kuzmich