Добрый день.

Необходимо в отчёте по дебиторам скрывать столбец кредитора и наоборот - в отчёте по кредиторам скрывать столбец дебитора. Создал отчёт как рабочая книга и использовал VBA функцию EntireColumn.Hidden = True, но тогда возникает проблема что у скрытых строк видны строки результата. В настройках в QD выставлено: "отображать строки результата всегда" и этого требует задача.

Вопрос: как скрыть или удалить столбец кредитора или дебитора, чтобы по нему не отображались строки результата, при выставленной настройке: "отображать строки результата всегда"?

Спасибо.

Написать ещё немножко кода на VBA, где предусмотреть скрытие столбца. Вы же можете определить его местоположение?

Местоположение его определяю однозначно по имени столбца и решёткам в данных и тогда его скрываю, просто жёлтые поля результатов остаются, как бы урезанными без слова результат. А я вообще не хочу выводить поля результатов в случае если столбец скрыт.

Вот скрин:

Где красным выделена строка результата дебитора-это поле не скрыто, а синим кусок строки результата кредитора: это поле скрыто.

А что вам мешает сделать два различных запроса?

В требовании 1 нужен, при том что его потом хитро обрабатывать надо будет, в зависимости от скрытых столбцов.

Прошу уточнить, а почему бы просто не убрать результат по скрываемому полю, если он не нужен? Как вариант в макросе удалять эти строки.

Вы как настоящий пионер и трудности Вас не страшат, хоть картошку копать в противогазе, хоть секс стоя в гамаке, хоть азбуку с конца учить!

VBA вам в помощь. Пробегайте в цикле по указанному столбцу и скрывайте строки, в которых будет слово "Результат".

если необходимо удалить результаты для поля Кредитор (Дебитор), то либо стандартными свойствами подавление результата. если по каким то причинам это не подходит, то VBA столбец известен ищем строку результата хоть по тексту хоть как, вариантов масса и удаляем строки (также использование фильтра экселя)

На сколько понял, Вы предоставляете отчеты пользователям через рабочие книги.

Если да, то сделайте два ракурса вашего запроса, в каждом настройте нужные столбцы, итоги и прочее.
Где то в книге была ещё галка - не восстанавливать начальный вид при обновлении запроса. Но если Ваши пользователи запрос перезапустить не могут, то не обязательно...

И забудте про VBA как про страшный сон. Ну по крайней мере постарайтесь

Скрыл по Do While всё. Это не то что хотелось, но результат подходит. Всем спасибо.

И все же.
Как определяется, что отчет по дебиторам или по кредиторам?

Do Until IsEmpty(lSheet.Cells(15, Count))
If lSheet.Cells(15, Count).Value = "Кредитор" And lSheet.Cells(16, Count).Value = "#" Or lSheet.Cells(15, Count).Value = "Дебитор" And lSheet.Cells(16, Count).Value = "#" Then



Ну и так далее..