Отоброжение/скрытие - строк

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин

Отоброжение/скрытие - строк (Условие скрыть/отобразить строки макросом)

Отоброжение/скрытие - строк

anisimovaleksandr32

Дата: Суббота, 14.10.2023, 12:04 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 86

Репутация: 4 ±

Замечаний: 20% ±

Добрый день всем!!!
Тема работы отобразить или скрыть строки согласно условия выбора количества образцов
- имеется "Forms.OptionButton" в количестве 5 шт. Оператор выбирает количество образцов в серии, в таблице имеется при этом 6 серий по 6-ть образцов в каждой. После выбора нужного числа образцов в серии в данной таблице должно в каждой серии уменьшиться(скрыть лишние если указали три то значится в серии три образца; указали 4 то значится 4 образца в серии и т. д.)на это количество.
Ранее уже был создан макрос Бородой - но данный код был для одной серии образцов и работает на ура

В связи с изменениями поставленной задачи (и нормативной документации) требуется дополнить серии образцов в протоколе - но при этом соответственно условие работы данного макроса расширить диапазон условия чтоб в каждой отображаемой серии учитывалось количество образцов выбранных оператором.
[img]

[/img]

И вторая задача
- если в ячейке Е24 оператор указал объем бетона то должно сработать условие:
1. если менее 12 кубов - три серии но при этом должно учитываться количество образцов в серии указанных оператором в "Forms.OptionButton"
[img]

[/img]
2. если указанно от 12 до 24 кубов то количество серий должно быть 4-е + условие количества образцов в серии
3. если указанно более 24 куба то количество серий должно быть 6-ть + условие количества образцов в серии
- если в ячейке Е24 оператор не указал объем бетона то должно сработать условие:
- две серии образцов + условие количества образцов в серии

Работу оцениваю в 1500 рублей, файл прилагаю

Сообщение отредактировал anisimovaleksandr32 - Воскресенье, 15.10.2023, 08:15

Ответить

СообщениеДобрый день всем!!!
Тема работы отобразить или скрыть строки согласно условия выбора количества образцов
- имеется "Forms.OptionButton" в количестве 5 шт. Оператор выбирает количество образцов в серии, в таблице имеется при этом 6 серий по 6-ть образцов в каждой. После выбора нужного числа образцов в серии в данной таблице должно в каждой серии уменьшиться(скрыть лишние если указали три то значится в серии три образца; указали 4 то значится 4 образца в серии и т. д.)на это количество.
Ранее уже был создан макрос Бородой - но данный код был для одной серии образцов и работает на ура

Автор - anisimovaleksandr32
Дата добавления - 14.10.2023 в 12:04

anisimovaleksandr32

Дата: Воскресенье, 15.10.2023, 12:17 | Сообщение № 2

Группа: Пользователи

Ранг: Участник

Сообщений: 86

Репутация: 4 ±

Замечаний: 20% ±

Многоуважаемые форумчане - завтра уже рабочая неделя )))) хватит отдыхать!
ПОМОГИТЕ пжл осуществить задачу

Думал поступить аналогичном образом и дополнить макрос от Бороды диапазонами - но увы ((((( не сработал

А если Rows исправить на Range
[vba]

Код

Private Sub CommandButton1_Click() 'макрос для выбора количества образцов

If OptionButton1.Value = True Then
Range("S1") = 1
End If
    Application.ScreenUpdating = 0
    Range("33:38,39:44,45:50,51:56,57:62,63:68").EntireRow.Hidden = False
    If Range("S1") < 5 Then
        Range("34,40,46,52,58,64" + Range("S1") & ":38,:44,:50,:56,:62,:68").EntireRow.Hidden = True
    End If

[/vba]
то ругается на эту строку
[vba]

Код

Range("34,40,46,52,58,64" + Range("S1") & ":38,:44,:50,:56,:62,:68").EntireRow.Hidden = True

[/vba]

Так еще ведь это дело увезать в связку с объем как то надо ((((

А если Rows исправить на Range
[vba]

Код

[/vba]
то ругается на эту строку
[vba]

Код

Range("34,40,46,52,58,64" + Range("S1") & ":38,:44,:50,:56,:62,:68").EntireRow.Hidden = True

[/vba]

Так еще ведь это дело увезать в связку с объем как то надо ((((

anisimovaleksandr32

Сообщение отредактировал anisimovaleksandr32 - Понедельник, 16.10.2023, 10:00

Ответить

СообщениеМногоуважаемые форумчане - завтра уже рабочая неделя )))) хватит отдыхать!
ПОМОГИТЕ пжл осуществить задачу

Думал поступить аналогичном образом и дополнить макрос от Бороды диапазонами - но увы ((((( не сработал

А если Rows исправить на Range
[vba]

Код

[/vba]
то ругается на эту строку
[vba]

Код

Range("34,40,46,52,58,64" + Range("S1") & ":38,:44,:50,:56,:62,:68").EntireRow.Hidden = True

[/vba]

Так еще ведь это дело увезать в связку с объем как то надо ((((

Автор - anisimovaleksandr32
Дата добавления - 15.10.2023 в 12:17

anisimovaleksandr32

Дата: Понедельник, 16.10.2023, 12:36 | Сообщение № 3

Группа: Пользователи

Ранг: Участник

Сообщений: 86

Репутация: 4 ±

Замечаний: 20% ±

Народ!!!
Решение по первому вопросу нашлось!!!
Осталось решить задачу по второму вопросу:
И вторая задача
- если в ячейке Е24 оператор указал объем бетона то должно сработать условие:
1. если менее 12 кубов - три серии но при этом должно учитываться количество образцов в серии указанных оператором в "Forms.OptionButton"
[img][/img]
2. если указанно от 12 до 24 кубов то количество серий должно быть 4-е + условие количества образцов в серии
3. если указанно более 24 куба то количество серий должно быть 6-ть + условие количества образцов в серии
- если в ячейке Е24 оператор не указал объем бетона то должно сработать условие:
- две серии образцов + условие количества образцов в серии

Работу оцениваю в 1000 рублей, файл прилагаю