Доброго времени суток. Встал вопрос с изменением действующего файла. В примере очень маленький кусочек из рабочего файла. В настоящий момент VBA работает следующим образом: - при выборе значения в ячейке А6, изменяются данные в ячейках В10:В41 (стоит простая формула, которая вытаскивает эти значения с другого листа - Лист "В"). Далее в ячейке В6 выбирается значение из выпадающего списка В10:В41. Ячеек клонов В6 около 150 штук, у них разный 2 параметр, для примера он не указан. Значение ячейки С6 считается так же на Листе "В" и вставляется через ВПР. Далее идет автофильтр, который скрывает строки в которых результат ячейки в столбце "С" = 0 и все это отдается на печать. При последующем изменении В6 все продолжается по кругу. Есть один "-" принтер печатает пустой лист, если все ячейки скрыты.
Не получается сложить вместе следующую задумку: При изменении ячейки А6 значение ячейки должно принимать по очереди значения из В10:В41 ("0" нужно пропустить, они иногда встречаются, но только внизу списка, и отправлять все на печать, если значение D13=1
Сейчас у меня так.
# Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> [b6].Address Then Exit Sub ActiveSheet.Unprotect Range("d4:d1700").Select Selection.AutoFilter Selection.AutoFilter Field:=1, Criteria1:="<>0", Operator:=xlAnd ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.PrintOut
End Sub #
Помогите, кто чем может.
Доброго времени суток. Встал вопрос с изменением действующего файла. В примере очень маленький кусочек из рабочего файла. В настоящий момент VBA работает следующим образом: - при выборе значения в ячейке А6, изменяются данные в ячейках В10:В41 (стоит простая формула, которая вытаскивает эти значения с другого листа - Лист "В"). Далее в ячейке В6 выбирается значение из выпадающего списка В10:В41. Ячеек клонов В6 около 150 штук, у них разный 2 параметр, для примера он не указан. Значение ячейки С6 считается так же на Листе "В" и вставляется через ВПР. Далее идет автофильтр, который скрывает строки в которых результат ячейки в столбце "С" = 0 и все это отдается на печать. При последующем изменении В6 все продолжается по кругу. Есть один "-" принтер печатает пустой лист, если все ячейки скрыты.
Не получается сложить вместе следующую задумку: При изменении ячейки А6 значение ячейки должно принимать по очереди значения из В10:В41 ("0" нужно пропустить, они иногда встречаются, но только внизу списка, и отправлять все на печать, если значение D13=1
Сейчас у меня так.
# Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> [b6].Address Then Exit Sub ActiveSheet.Unprotect Range("d4:d1700").Select Selection.AutoFilter Selection.AutoFilter Field:=1, Criteria1:="<>0", Operator:=xlAnd ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
