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 o Aplicativo Microsoft Excel VBA com SaberExcel
|