Saberexcel VBA Estudos®

Esse procedimento do Aplicativo Microsoft Excel VBA agrupa e desagrupa colunas na folha de planilha principal de um livro.
no exemplo também muda o muda o nome(caption) do botão ligado procedimento.


Private Sub Botao1_Click()
If Botao1.Caption = "Desagrupar Colunas" Then
ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=2
ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=3
Botao1.Caption = "Agrupar as Colunas"
Else
ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=1
Botao1.Caption = "Desagrupar Colunas"
End If
End Sub

Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel




 Baixe o exemplo de planilha contendo o procedimento acima
Planilha vba colunas agrupar desagrupar colunas em folha de planilha (27.19 kB)