120 Lições | Gratuito Online | Autor: Júlio Battisti
Conforme descrito na Lição 4, desse módulo, o objeto Application representa o Excel propriamente dito. É o primeiro objeto, na hierarquia de objetos do Microsoft Excel. Na Lição 4 fizemos um breve estudo desse objeto. Ele possui dezenas de propriedades e métodos, para ser mais exato, somando propriedades e métodos, temos a incrível marca de 218. Estudar todos esses métodos e propriedades exigiria um curso tão extenso quanto todo esse curso de Excel Avançado. Nessa a nas próximas duas lições, faremos um estudo das principais propriedades e métodos do objeto Application, avançando um pouco em relação ao que foi estudado na Lição 4.
Vamos iniciar o estudo das principais propriedades do objeto Application. Esse estudo seguirá na Próxima lição.
Essa propriedade retorna um objeto Workbook representando a pasta de trabalho na qual o código da macro atual está sendo executado. É do tipo Somente leitura, ou seja, essa propriedade somente pode ser usada para fazer referência ao Workbook atualmente carregado e não para definir o Workbook ativo.
Use essa propriedade para referir-se à pasta de trabalho que contém o código de sua macro.
Por exemplo, use código tal como o seguinte para ativar uma folha de caixa de diálogo armazenada em sua pasta de trabalho do suplemento:
ThisWorkbook.DialogSheets(1).Show
Essa propriedade só pode ser usada de dentro do Microsoft Excel. Você não pode usá-la para acessar uma pasta de trabalho a partir de um outro aplicativo, como por exemplo o Microsoft Access.
O exemplo a seguir fecha a pasta de trabalho que contém o código de exemplo. Alterações na pasta de trabalho, caso existam, não são salvas.
ThisWorkbook.Close SaveChanges:=False
A propriedade ThisWorkbook retorna uma referência a um objeto Workbook, o qual faz referência a pasta de trabalho atual. Podemos utilizar todas as propriedades do objeto Workbook (que estudaremos em detalhes a partir da lição 14) para obter informações sobre a pasta de trabalho atual. No exemplo a seguir, usamos a propriedade FullName para obter o caminho completo (por exemplo C:\ExcelAvancado\Teste.xls) da pasta de trabalho atual:
MsgBox "Você está trabalhando no seguinte arquivo: " & ThisWorkbook.FullName
Essa propriedade retorna um objeto Range representando a célula ativa da janela ativa (a janela visível) ou da janela especificada. Se a janela não estiver exibindo uma planilha, essa propriedade falhará. É do tipo Somente leitura, ou seja, somente pode ser usada para retornar a célula ativa e não para ativar uma determinada célula.
Quando você não especifica um qualificador de objeto, essa propriedade retorna a célula ativa da janela ativa.
Tenha cuidado de distinguir entre célula ativa e seleção. A célula ativa é uma única célula dentro da seleção atual. A seleção pode conter mais de uma célula, mas somente uma é a célula ativa.
Todas as expressões seguintes retornam a célula ativa, sendo todas equivalentes:
Este exemplo usa uma caixa de mensagem para exibir o valor da célula ativa. Como a propriedade ActiveCell falha se a planilha ativa não for uma planilha de trabalho, o exemplo ativa a planilha Plan1 antes de usar a propriedade ActiveCell.
Worksheets("Plan1").Activate
MsgBox ActiveCell.Value
Este exemplo altera a formatação da fonte da célula ativa:
Worksheets("Plan1").Activate
ActiveCell.Font.Bold = True
ActiveCell.Font.Italic = True
Essa propriedade retorna um objeto representando a planilha ativa (a planilha visível) da pasta de trabalho ativa ou na janela ou pasta de trabalho especificada. Retorna Nothing se não houver planilha ativa. Somente leitura.
Se você não especificar um qualificador de objeto, essa propriedade retornará a planilha ativa da pasta de trabalho ativa.
Se uma pasta de trabalho aparece em mais de uma janela, a propriedade ActiveSheet poderá ser diferente em janelas diferentes.
Este exemplo exibe o nome da planilha ativa.
MsgBox "O nome da planilha ativa é: " & ActiveSheet.Name
Essa propriedade Retorna ou define o modo de cálculo. Pode ser uma das seguintes constantes:
Este exemplo faz o Microsoft Excel calcular pastas de trabalho antes de elas serem salvas em disco.
Application.Calculation = xlCalculateManual
Application.CalculateBeforeSave = True
Este exemplo define o campo de dados no relatório de tabela dinâmica em Plan1 para calcular a diferença a partir do campo base, define o campo base com o campo chamado "ORDER_DATE" e define o item base com o item chamado "5/16/89".
Worksheets("Plan1").Range("A3").PivotField.Calculation = xlDifferenceFrom
Worksheets("Plan1").Range("A3").PivotField.BaseField = "ORDER_DATE"
Worksheets("Plan1").Range("A3").PivotField .BaseItem = "5/16/89"
Na próxima lição veremos mais algumas propriedades do objeto Application e iniciaremos o estudo dos principais métodos desse objeto.
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: |