120 Lições | Gratuito Online | Autor: Júlio Battisti
Nesse lição veremos algumas das principais propriedades do objeto Workbook.
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.
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
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.
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
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.
Este exemplo define a variável pt com a pasta de trabalho de myaddin.xla.
Set wb = Workbooks.Item("myaddin.xla")
Retorna o objeto pai do objeto especificado. Somente leitura.
Este exemplo exibe o nome do gráfico que contém myAxis.
Set myAxis = Charts(1).Axes(xlValue)
MsgBox myAxis.Parent.Name
VOCÊ CONHECE A UNIVERSIDADE DO EXCEL? |
UNIVERSIDADE PRÁTICA DO EXCEL - Domine o Excel, do Básico até a Criação de Planilhas Profissionais com Excel e VBA! Aplica-se ao Excel 2019, 2016, 2013 e 2010! |
22 Cursos - 925 Vídeo-Aulas - 120:42 horas - Só R$ 97,00 |
Para Todos os Detalhes, Acesse: |