Как в Excel 1 кнопка может управлять 2 отдельными функциями, где 1-й щелчок скрывает определенные c столбцы, а 2-й щелчок отображает столбцы?

Question

Сейчас у меня по 2 кнопки для каждой категории контрактов. Информация, выделенная розовым цветом, - это то, что мне нужно видеть для каждой категории. Например, в контрактах LID, когда я нажимаю кнопку «Свернуть», столбцы D, F, H, I, J, K, L, M, N, P исчезают, показывая только то, что выделено розовым цветом. Затем мне нужно нажать кнопку «Развернуть», чтобы сбросить это значение. Как я могу объединить это в одну кнопку?

Кроме того, мне нужно вручную скопировать / вставить выделенные данные между этими двумя функциями.

введите описание изображения здесь

Answer 1

 Sub toggleHidden()

   ' declare yours columns and sheet
   ' just a sample
   With ThisWorkbook.Sheets(1).Columns("G:H")
       .Hidden = Not .Hidden
   End With

 End Sub

Answer 2

Пример для столбца D. При необходимости добавьте другие столбцы.

With Sheet1 'change as needed to your sheet object name
   .Range("D1").EntireColumn.Hidden = Not .Range("D1").EntireColumn.Hidden
End With