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: O Objeto Workbook - Propriedades e Métodos - Parte 2

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


Nesse lição veremos algumas das principais propriedades do objeto Workbook.

Propriedade Application:

Quando usada sem um qualificador de objeto, essa propriedade retorna um objeto Application representando o aplicativo Microsoft Excel. Quando usada com um qualificador de objeto, essa propriedade retorna um objeto Application representando o criador do objeto especificado (você pode usar essa propriedade com um objeto de Automação OLE para retornar o aplicativo desse objeto), somente leitura.

Exemplo da propriedade Application:

Este exemplo exibe uma mensagem sobre o aplicativo que criou a variável myObject.

Set myObject = ActiveWorkbook
If myObject.Application.Value = "Microsoft Excel" Then
   MsgBox "É um objeto do Microsoft Excel!!!"
Else
   MsgBox "Não é um objeto do Microsoft Excel!!!"
End If

Propriedade Count:

Retorna o número de objetos da coleção. Long somente leitura.

Comentários: Para fontes de dados OLAP, somente os campos visíveis em um relatório de tabela dinâmica são contados.

Exemplo da propriedade Count:

Este exemplo exibe o número de colunas na faixa selecionada na planilhaSheet1. O código também testa se a seleção é de área múltipla; se for o caso, o código fará um loop pelas áreas da seleção de múltiplas áreas.

Worksheets("Sheet1").Activate
areaCount = Selection.Areas.Count
If areaCount <= 1 Then
   MsgBox "A seleção contém " & Selection.Columns.Count & " colunas."
Else
   For i = 1 To areaCount
      MsgBox "Area " & i & " da selção contém " & _
      Selection.Areas(i).Columns.Count & " colunas."
   Next i
End If

Este exemplo faz do último caractere da célula A1 um caractere sobrescrito:

n = Worksheets("Sheet1").Range("A1").Characters. Count
Worksheets("Sheet1").Range("A1").Characters(n, 1).Font.Superscript = True

Propriedade Item (coleção Workbooks):

Retorna um único objeto Workbook de uma coleção Workbooks.

Sintaxe:

expressão.Item(Index)

expressão: Obrigatória. Uma expressão que retorne um objeto Workbooks.

Index: Variant obrigatória. O nome ou número de índice da pasta de trabalho.

Exemplo da propriedade Item (coleção Workbooks):

Este exemplo define a variável pt com a pasta de trabalho de myaddin.xla.

Set wb = Workbooks.Item("myaddin.xla")

Propriedade Parent:

Retorna o objeto pai do objeto especificado. Somente leitura.

Exemplo da propriedade Parent:

Este exemplo exibe o nome do gráfico que contém myAxis.

Set myAxis = Charts(1).Axes(xlValue)
MsgBox myAxis.Parent.Name

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

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