NUNCA MAIS PASSE RAIVA POR NÃO CONSEGUIR RESOLVER UM PROBLEMA COM O EXCEL - GARANTIDO!

UNIVERSIDADE DO VBA - Domine o VBA no Excel Criando Sistemas Completos - Passo a Passo - CLIQUE AQUI

Quer Receber Novidades e E-books Gratuitos de Excel? * Junte-se a mais de 103.000 pessoas!

Curso Grátis de Excel Avançado - Módulo 6 - Lição: Trabalhando com o Objetos Worksheet

120 Lições | Gratuito Online | Autor: Júlio Battisti


Nas lições anteriores fizemos uma pequena introdução aos objeto Application e Workbook. Vimos que o objeto Application é a maneira de, através do código VBA, acessarmos uma pasta de trabalho do Excel (arquivo .xls). Uma vez acessada a pasta de trabalho desejada, usamos o objeto Workbook (e a coleção Workbooks) para ter acesso às diversas planilhas da pasta de trabalho. Observe que estamos descendo um nível de cada vez, na hierarquia de objetos do Excel.

O próximo passo é aprendermos a utilizar os objetos que fazem referência a uma planilha específica dentro do conjunto de planilhas de uma pasta de trabalho. O objeto Workbook representa uma pasta de trabalho (arquivo .xls). Dentro de uma pasta de trabalho, podemos ter uma ou mais planilhas, as quais são acessadas usando-se o objeto Worksheet e a coleção Worksheets. Esses são os assuntos dessa lição, ou seja: o objeto Worksheet e a coleção Worksheets.

O objeto Worksheet e a coleção Worksheets:

O objeto Worksheet representa uma planilha O objeto Worksheet é um membro da coleção Worksheets. A coleção Worksheets contém todos os objetos Worksheet em uma pasta de trabalho.

Veremos alguns exemplos que utilizam as seguintes propriedades do objeto Worksheet:

  • Worksheets
  • ActiveSheet
  • Worksheets

Usamos Worksheets(índice), onde índice é número de índice ou nome da planilha, para retornar um único objeto Worksheet. O exemplo seguinte oculta a planilha um na pasta de trabalho ativa. Nesse exemplo, utilizo a propriedade Visible, do objeto Worksheet.

Worksheets(1).Visible = False

O número de índice da planilha denota a posição de uma planilha na barra de guias da pasta de trabalho. Worksheets(1) é a primeira planilha (mais à esquerda) na pasta de trabalho e Worksheets(Worksheets.Count) é a última. Todas as planilhas são incluídas na contagem do índice, mesmo quando estão ocultas. A propriedade Count retorna o número de planilhas existentes na pasta de trabalho atual.

O nome da planilha é mostrado na guia da planilha. Use a propriedade Name para definir ou retornar o nome da planilha. Por exemplo, para definir o nome da primeira planilha como sendo Débitos, use o seguinte código:

Dim pastas As Workbooks
Dim pasta As Worksheet
Set pastas = Application.Workbooks
Set pasta = Application.Worksheets(1)
MsgBox "Nome atual da planilha: " & pasta.Name
pasta.Name = "Débitos"
MsgBox "Novo nome da planilha: " & pasta.Name

Vamos supor que você execute esse código quando o nome da primeira planilha é Plan1. Nessa caso, você obterá a seguinte seqüência de mensagens:

Excel Avançado em 120 Lições - Júlio Battisti

Excel Avançado em 120 Lições - Júlio Battisti

Iniciamos o exemplo declarando um objeto do Tipo Workbook e um do tipo Worksheet:

Dim pastas As Workbooks
Dim pasta As Worksheet

Em seguida associamos a variável pasta com a pasta de trabalho atual:

Set pastas = Application.Workbooks

Depois associamos a variável pasta com a primeira planilha, da pasta de trabalho atual. Nesse momento, usamos a coleção Worksheets, do objeto Application, conforme indicado a seguir:

Set pasta = Application.Worksheets(1)

O próximo passo é exibir o nome atual da primeria planilha, o que no nosso exemplo é feito com o comando a seguir:

MsgBox "Nome atual da planilha: " & pasta.Name

Agora usamos a propriedade Name para renomear a primeira planilha, conforme indicado a seguir:

pasta.Name = "Débitos"

Por último exibimos o novo nome da planilha:

MsgBox "Novo nome da planilha: " & pasta.Name

O objeto Worksheet é também um membro da coleção Sheets. A coleção Sheets contém todas as planilhas da pasta de trabalho (tanto folhas de gráfico quanto planilhas de trabalho).

Propriedade ActiveSheet:

Quando uma planilha é a planilha ativa, você pode usar a propriedade ActiveSheet para referir-se a ela. O exemplo seguinte usa o método Activate para ativar a planilha Plan1, define a orientação da página como modo paisagem e, em seguida, imprime a planilha.

Worksheets("Plan1").Activate
ActiveSheet.PageSetup.Orientation = xlLandscape
ActiveSheet.PrintOut

A Propriedade Visible:

True se o objeto está visível ou False caso contrário. Essa propriedade pode ser utilizada para verificar o valor atual ou para defini-lo . Para um gráfico ou planilha, essa propriedade pode ser definida como xlVeryHidden. Isso oculta o objeto para que a única maneira de você torná-lo novamente visível seja definindo essa propriedade como True (o usuário não pode tornar o objeto visível).

Comentários:

A propriedade Visible para um item de tabela dinâmica é True quando o item está atualmente visível na tabela. Se você definir a propriedade Visible de um nome como False, o nome não aparecerá na caixa de diálogo Definir nome.

Considere o exemplo a seguir:

Este exemplo oculta a planilha Plan1.

Worksheets("Plan1").Visible = False

Este exemplo torna Plan1 visível.

Worksheets("Plan1").Visible = True

O exemplo de código a seguir torna visível todas as planilhas da pasta de trabalho ativa.

For Each sh In Sheets
   sh.Visible = True
Next sh

Propriedade UsedRange:

Essa propriedade retorna um objeto Range representando o intervalo usado na planilha especificada. Somente leitura.

Considere o exemplo a seguir:

Este exemplo seleciona o intervalo de células usado (onde existem dados), na planilha Plan1.

Worksheets("Plan1").Activate
ActiveSheet.UsedRange.Select

Existem dezenas de métodos e propriedades do objeto Worksheet e da coleção Worksheets. Você encontra exemplos de cada método e propriedade na Ajuda do Excel. No curso de Programação VBA e Criação de Aplicativos como Excel, estudaremos mais o objeto Worksheet e a coleção Worksheets.

[LIVRO]: MACROS E PROGRAMAÇÃO VBA NO EXCEL 2010 - PASSO-A-PASSO

APRENDA COM JULIO BATTISTI - 1124 PÁGINAS: CLIQUE AQUI