Classe Range (Excel VBA)

A classe Range representa uma célula, uma linha, uma coluna, uma seleção de células contendo um ou mais blocos contíguos de células ou um intervalo 3D.

Os principais procedimentos da classe Range são Activate, Copy, Delete e Select

Set

Para usar uma variável de classe Range, ela primeiro precisa ser instanciada por exemplo

Dim rng as Range
Set rng = ActiveCell

Os procedimentos a seguir podem ser usados ​​para definir variáveis ​​do tipo Range: Areas, AboveAverage.AppliesTo, AllowEditRange.Range, Application.ActiveCell, Application.Cells, Application.Columns, Application.Intersect, Application.Range, Application.Rows, Application.Union, Application.PreviousSelections, Application.ThisCell, Areas.Item, AutoFilter.Range, Axis.CategoryNames, ChartObject.BottomRightCell, ChartObject.TopLeftCell, ColorScale.AppliesTo, Databar.AppliesTo, DisplayFormat.NumberFormat, DisplayFormat.AddIndent, DisplayFormat.HorizontalAlignment, DisplayFormat.Orientation, DisplayFormat.VerticalAlignment, DisplayFormat.FormulaHidden, DisplayFormat.IndentLevel, DisplayFormat.MergeCells, DisplayFormat.NumberFormatLocal, DisplayFormat.ShrinkToFit, FormatCondition.AppliesTo, HPageBreak.Location, Hyperlink.Range, IconSetCondition.AppliesTo, ListColumn.Range, ListColumn.DataBodyRange, ListColumn.Total, ListObject.Range, ListObject.DataBodyRange, ListObject.HeaderRowRange, ListObject.InsertRowRange, ListObject.TotalsRowRange, ListRow.Range, Name.RefersToRange, OLEObject.BottomRightCell, OLEObject.TopLeftCell, Pane.VisibleRange, Parameter.SourceRange, PivotCell.Range, PivotField.DataRange, PivotField.LabelRange, PivotItem.DataRange, PivotItem.LabelRange, PivotTable.DataBodyRange, PivotTable.ColumnRange, PivotTable.DataLabelRange, PivotTable.GetPivotData, PivotTable.PageRange, PivotTable.PageRangeCells, PivotTable.RowRange, PivotTable.TableRange1, PivotTable.TableRange2, QueryTable.Destination, QueryTable.ResultRange, Cells, Columns, Range, Rows, Item, Next, Previous, Resize, ColumnDifferences, CurrentArray, CurrentRegion, Dependents, DirectDependents, DirectPrecedents, End, EntireColumn, EntireRow, Find, FindNext, FindPrevious, MergeArea, Offset, Precedents, RowDifferences, SpecialCells, SpillingToRange, SpillParent, Ranges.Item, Scenario.ChangingCells, Shape.BottomRightCell, Shape.TopLeftCell, Sort.Rng, SortField.Key, Sparkline.Location, SparklineGroup.Location, SparklineGroups.Parent, TableObject.Destination, TableObject.ResultRange, Top10.AppliesTo, UniqueValues.AppliesTo, VPageBreak.Location, Window.ActiveCell, Window.VisibleRange, Window.RangeFromPoint, Window.RangeSelection, Worksheet.Cells, Worksheet.Columns, Worksheet.Range, Worksheet.Rows, Worksheet.CircularReference, Worksheet.UsedRange, Worksheet.XmlDataQuery, Worksheet.XmlMapQuery e WorkbookConnection.Ranges

For Each

Aqui está um exemplo de processamento dos itens Range em uma coleção.

Dim rng As Range: Set rng = 
Dim rngArea As Range
For Each rngArea In rng.Areas
	With rngArea
		
	End With
Next rngArea

Temas

Alguns procedimentos nesta classe foram agrupados em temas e são descritos em páginas de tema separadas

Name with its procedures ApplyNames, CreateNames e ListNames
Format with its procedures ApplyOutlineStyles, BorderAround, Borders, ClearFormats, ColumnWidth, DisplayFormat, Font, FormatConditions, Height, Left, NumberFormat, NumberFormatLocal, RowHeight, Style, Top, UseStandardHeight, UseStandardWidth e Width
Row with its procedures CalculateRowMajorOrder, EntireRow, ListHeaderRows, Row, RowDifferences e Rows
Cell with its procedures Cells, MergeCells, PivotCell, SetCellDataTypeFromCell e SpecialCells
Column with its procedures Column, ColumnDifferences, Columns, EntireColumn e TextToColumns
Copy with its procedures Copy, CopyFromRecordset e CopyPicture
Formula with its procedures Formula2, Formula2Local, Formula2R1C1, Formula2R1C1Local, FormulaArray, FormulaHidden, FormulaLocal, FormulaR1C1, FormulaR1C1Local e HasFormula
Show/Hide with its procedures Hidden, Show, ShowCard, ShowDependents, ShowDetail, ShowErrors e ShowPrecedents
Print with its procedures PageBreak, PrintOut e PrintPreview
Sort/Order with its procedures ReadingOrder, Sort e SortSpecial

Métodos

Estes são os principais métodos da classe Range

Activate - Uma única célula, que deve estar dentro da seleção atual é ativada. Para selecionar um intervalo de células, use o método Select .

ActiveCell.Activate

Delete - Exclui o objeto.

ActiveCell.Delete

Select - Seleciona o objeto.

ActiveCell.Select

Estes são os principais métodos da classe

AddComment - Adiciona um comentário ao intervalo.

AddCommentThreaded - Adiciona um novo comentário encadeado moderno ao intervalo se nenhum comentário já existir.

AdvancedFilter - Filtra ou copia dados de uma lista com base em um intervalo de critérios. Se a seleção inicial estiver em uma única célula, a região atual dessa célula será usada.

AllocateChanges - Executa uma operação de write-back para todas as células editadas em um intervalo com base em uma fonte de dados OLAP.

AutoComplete - Retorna uma AutoConclusão coincidente da lista. Se não houver nenhuma correspondência de AutoCompletar ou se mais de uma entrada na lista corresponder à cadeia de caracteres a ser concluída, este método retornará uma cadeia de caracteres vazia.

AutoFill - Executa um AutoPreenchimento nas células no intervalo especificado.

AutoFilter - Filtra uma lista usando o AutoFilter.

AutoFit - Altera a altura das linhas do intervalo atual para obter o melhor ajuste, com base nos dados atuais nas colunas.

AutoOutline - Cria tópicos automaticamente para o intervalo especificado. Se o intervalo for uma única célula, o Microsoft Excel criará tópicos para a planilha inteira. Os novos tópicos substituem quaisquer tópicos existentes.

Calculate - Calcula todas as pastas de trabalho abertas, uma planilha específica em uma pasta de trabalho ou um intervalo de células especificado em uma planilha, conforme mostrado na tabela da seção comentários.

CheckSpelling - Verifica a ortografia de um objeto.

Clear - Desfazer o objeto inteiro.

ClearComments - Limpa todos os comentários de célula do intervalo especificado.

ClearContents - Limpa fórmulas e os valores do intervalo.

ClearHyperlinks - Remove todos os hiperlinks do intervalo especificado.

ClearNotes - Limpa as notas e notas sonoras de todas as células do intervalo especificado.

ClearOutline - Limpa os tópicos do intervalo especificado.

Consolidate - Consolida dados de vários intervalos de várias planilhas em um só intervalo de uma única planilha.

ConvertToLinkedDataType - Tenta converter todas as células no intervalo, como a um tipo de dados vinculadas ações ou geografia.

Cut - Recorta o objeto para a Área de Transferência ou o cola em um local especificado.

DataSeries - Cria uma série de dados no intervalo especificado.

DataTypeToText - Se qualquer uma das células no intervalo for um tipo de dados vinculado, como ações ou geografia, essa chamada converterá seus valores em texto.

Dirty - Designa um intervalo a ser recalculado quando o próximo recálculo ocorrer.

DiscardChanges - Descarta todas as alterações nas células editadas do intervalo.

ExportAsFixedFormat - Exporta para um arquivo do formato especificado.

FillDown - Preenche desde a célula ou células superiores do intervalo especificado até as inferiores. O conteúdo e a formatação da célula ou células da linha superior de um intervalo são copiados para o restante das linhas do intervalo.

FillLeft - Preenche à esquerda a partir da célula ou células mais à direita no intervalo especificado. O conteúdo e a formatação da célula ou células da coluna mais à direita de um intervalo são copiados para o restante das colunas do intervalo.

FillRight - Preenche à direita a partir da célula ou células da extrema esquerda no intervalo especificado. O conteúdo e a formatação da célula ou células da coluna da extrema esquerda de um intervalo são copiados para o restante das colunas do intervalo.

FillUp - Preenche acima a partir da célula ou células de baixo no intervalo especificado até o topo do intervalo. O conteúdo e formatação da célula ou células da linha inferior de um intervalo são copiados para o restante das linhas do intervalo.

Find - Localiza informações específicas em um intervalo.

FindNext - Continua uma pesquisa que foi iniciada com o método Find . Localiza a próxima célula que corresponde às mesmas condições e retorna um objeto Range que representa a célula. Isso não afeta a seleção ou a célula ativa.

FindPrevious - Continua uma pesquisa que foi iniciada com o método Find . Localiza a célula anterior que coincida com as mesmas condições e retorna um objeto Range representando essa célula. Não afeta a seleção ou a célula ativa.

FlashFill - True indica que o recurso de preenchimento do Excel flash foi habilitado e está ativo.

FunctionWizard - Inicia o Assistente de função para a célula superior esquerda do intervalo.

Group - Quando o objeto Range representa uma única célula no intervalo de dados de um campo de tabela dinâmica, o método Group executa agrupamento numérico ou baseado em data nesse campo.

Insert - Insere uma célula ou um intervalo de células na planilha ou folha de macro e desloca as outras células para liberar espaço.

InsertIndent - Adiciona um recuo ao intervalo especificado.

Justify - Reorganiza o texto de um intervalo de modo que ele preencha o intervalo uniformemente.

Merge - Cria uma célula mesclada a partir do objeto Range especificado.

NavigateArrow - Faz uma seta rastreadora navegar pelo intervalo especificado até a célula ou células precedentes, dependentes ou causadoras de erro. Seleciona as células precedentes, dependentes ou de erro e retorna um objeto Range representando a nova seleção. Este método causa um erro quando aplicado a uma célula sem setas rastreadoras visíveis.

NoteText - Retorna ou define a nota de célula associada à célula do canto superior esquerdo do intervalo. String de leitura/gravação. As notas de célula foram substituídas por comentários de intervalo. Para obter mais informações, consulte o objeto comment .

Parse - Analisa um intervalo de dados e o divide em várias células. Distribui o conteúdo do intervalo para preencher várias colunas adjacentes; o intervalo pode não ter mais que uma coluna de largura.

PasteSpecial - Cola um objeto Range que foi copiado para o intervalo especificado.

RemoveDuplicates - Remove valores duplicados de um intervalo de valores.

RemoveSubtotal - Remove subtotais de uma lista.

Replace - Retorna um Boolean que indica caracteres em células dentro do intervalo especificado. O uso deste método não altera a seleção ou a célula ativa.

Run - Executa a macro do Microsoft Excel neste local. O intervalo precisa estar em uma folha de macro.

SetPhonetic - Cria objetos fonéticos para todas as células no intervalo especificado.

Speak - Faz com que as células do intervalo sejam faladas na ordem da linha ou da coluna.

Subtotal - Cria subtotais para o intervalo ou para a região atual, se o intervalo for uma única célula.

Table - Cria uma tabela de dados com base nas fórmulas e valores de entrada e definidos por você em uma planilha.

Ungroup - Promove um intervalo em uma estrutura de tópicos ou seja, diminui o seu nível na estrutura. O intervalo especificado precisa ser uma linha ou coluna ou um intervalo de linhas ou colunas. Se o intervalo estiver em um relatório de tabela dinâmica, este método desagrupará os itens contidos no intervalo.

UnMerge - Separa uma área mesclada em células individuais.

Propriedades

Areas.Count Retorna um valor Long que representa o número de objetos na coleção.

Dim lngCount As Long
lngCount = ActiveCell.Areas.Count

Areas.Item Retorna um único objeto de uma coleção.

Dim rngItem As Range
Set rngItem = ActiveCell.Areas(Index:=1)

Areas.Parent Retorna o objeto pai do objeto especificado. Somente leitura.

Dim objParent As Object
Set objParent = ActiveCell.Areas.Parent

AddIndent Retorna ou define um valor que indica se o texto será recuado automaticamente quando o alinhamento do texto em uma célula for definido como distribuição igual horizontal ou verticalmente.

ActiveCell.AddIndent = True

Address Retorna um valor String que representa a referência de intervalo na linguagem da macro.

Dim strAddress As String
strAddress = ActiveCell.Address

AddressLocal Retorna a referência ao intervalo para o intervalo especificado no idioma do usuário. String somente leitura.

Dim strAddressLocal As String
strAddressLocal = ActiveCell.AddressLocal

AllowEdit Retorna um valor Boolean que indica se o intervalo pode ser editado em uma planilha protegida.

Dim booAllowEdit As Boolean
booAllowEdit = ActiveCell.AllowEdit

Areas Retorna uma coleção areas que representa todos os intervalos em uma seleção de várias áreas. Somente leitura.

Dim arsAreas As Areas
Set arsAreas = ActiveCell.Areas

Characters Retorna um objeto Characters que representa um intervalo de caracteres dentro do texto do objeto. Você pode usar o objeto Characters para formatar caracteres dentro de uma cadeia de caracteres de texto.

Dim chrsCharacters As Characters
Set chrsCharacters = ActiveCell.Characters

Comment Retorna um objeto comment que representa o comentário associado à célula no canto superior esquerdo do intervalo.

Dim cmmComment As Comment
Set cmmComment = ActiveCell.Comment

CommentThreaded Retorna um objeto CommentThreaded que representa o comentário encadeado associado à célula no canto superior esquerdo do intervalo.

Dim ctdCommentThreaded As CommentThreaded
Set ctdCommentThreaded = ActiveCell.CommentThreaded

Count Retorna um valor Long que representa o número de objetos na coleção.

Dim lngCount As Long
lngCount = ActiveCell.Count

CountLarge Retorna um valor que representa o número de objetos na coleção. Somente leitura .

Dim lngCountLarge As Long
lngCountLarge = ActiveCell.CountLarge

CurrentArray Se a célula especificada fizer parte de uma matriz, retorna um objeto Range que representa a matriz inteira. Somente leitura.

Dim rngCurrentArray As Range
Set rngCurrentArray = ActiveCell.CurrentArray

CurrentRegion Retorna um objeto Range que representa a região atual. A região atual é um intervalo limitado por qualquer combinação de linhas e de colunas em branco. Somente leitura.

Dim rngCurrentRegion As Range
Set rngCurrentRegion = ActiveCell.CurrentRegion

Dependents Retorna um objeto Range que representa o intervalo que contém todos os dependentes de uma célula. Pode ser uma seleção múltipla uma União de objetos Range se houver mais de um dependente. Objeto Range somente leitura.

Dim rngDependents As Range
Set rngDependents = ActiveCell.Dependents

DirectDependents Retorna um objeto Range que representa o intervalo que contém todos os dependentes diretos de uma célula. Pode ser uma seleção múltipla uma União de objetos Range se houver mais de um dependente. Objeto Range somente leitura.

Dim rngDirectDependents As Range
Set rngDirectDependents = ActiveCell.DirectDependents

DirectPrecedents Retorna um objeto Range que representa o intervalo que contém todos os precedentes diretos de uma célula. Pode ser uma seleção múltipla uma união de objetos Range caso haja mais de um precedente. Objeto Range somente leitura.

Dim rngDirectPrecedents As Range
Set rngDirectPrecedents = ActiveCell.DirectPrecedents

End Retorna um objeto Range que representa a célula no final da região que contém o intervalo de origem. Equivalente ao pressionar FINAL + SETA PARA CIMA, FINAL + SETA PARA BAIXO, FINAL + SETA PARA ESQUERDA OU FINAL + SETA PARA A DIREITA. Objeto Range somente leitura.

Dim rngEnd As Range
Set rngEnd = ActiveCell.End(Direction:=xlDown)

Errors Permite ao usuário acessar opções de verificação de erros.

Dim errsErrors As Errors
Set errsErrors = ActiveCell.Errors

HasArray True se a célula especificada fizer parte de uma fórmula de matriz. Somente leitura .

Dim booHasArray As Boolean
booHasArray = ActiveCell.HasArray

HasRichDataType Verdadeiro se todas as células no intervalo contêm um tipo de dados avançados. False se nenhuma das células no intervalo contiver um tipo de dados avançado; caso contrário, NULL. Somente leitura .

Dim booHasRichDataType As Boolean
booHasRichDataType = ActiveCell.HasRichDataType

HasSpill True se todas as células no intervalo fizerem parte de um intervalo derramado; False se nenhuma das células no intervalo fizer parte de um intervalo derramado; caso contrário, será nulo . Somente leitura .

Dim booHasSpill As Boolean
booHasSpill = ActiveCell.HasSpill

HorizontalAlignment Retorna ou define um valor que representa o alinhamento horizontal para o objeto especificado. Leitura/gravação.

ActiveCell.HorizontalAlignment = xlHAlignCenter

Hyperlinks Retorna uma coleção hyperlinks que representa os hiperlinks do intervalo.

Dim hypsHyperlinks As Hyperlinks
Set hypsHyperlinks = ActiveCell.Hyperlinks

ID Retorna ou define um valor String que representa o rótulo de identificação para a célula especificada quando a página é salva como uma página da Web.

ActiveCell.ID =

IndentLevel Retorna ou define um valor que representa o nível de recuo para a célula ou o intervalo. Pode ser um inteiro de 0 a 15.

ActiveCell.IndentLevel = 15

Interior Retorna um objeto Interior que representa o interior do objeto especificado.

Dim intInterior As Interior
Set intInterior = ActiveCell.Interior

Item Retorna um objeto Intervalo que representa um intervalo deslocado do intervalo especificado.

ActiveCell(RowIndex:=1) =

LinkedDataTypeState Retorna informações sobre o estado de qualquer tipos de dados vinculados, como ações ou geografia, no intervalo. Os valores possíveis são da enumeração XlLinkedDataTypeState . Somente leitura.

Dim xldLinkedDataTypeState As XlLinkedDataTypeState
xldLinkedDataTypeState = ActiveCell.LinkedDataTypeState

ListObject Retorna um objeto ListObject para o objeto Range . ListObject somente leitura.

Dim lstobjListObject As ListObject
Set lstobjListObject = ActiveCell.ListObject

LocationInTable Retorna uma constante que descreve a parte do relatório de tabela dinâmica que contém o canto superior esquerdo do intervalo especificado. Pode ser uma das seguintes constantes XlLocationInTable . Long somente leitura.

Dim xliLocationInTable As XlLocationInTable
xliLocationInTable = ActiveCell.LocationInTable

Locked Retorna ou define um valor que indica se o objeto está bloqueado.

ActiveCell.Locked = True

MDX Retorna o nome do MDX do objeto Range especificado. String somente leitura.

Dim strMDX As String
strMDX = ActiveCell.MDX

MergeArea Retorna um objeto Range representando o intervalo mesclado que contém a célula especificada. Se a célula especificada não estiver em um intervalo mesclado, essa propriedade retornará a célula especificada. Somente leitura .

Dim rngMergeArea As Range
Set rngMergeArea = ActiveCell.MergeArea

Name Retorna ou define um valor que representa o nome do objeto.

ActiveCell.Name =

Next Retorna um objeto Range que representa a próxima célula.

Dim rngNext As Range
Set rngNext = ActiveCell.Next

Offset Retorna um objeto Intervalo que representa um intervalo que é deslocado do intervalo especificado.

Dim rngOffset As Range
Set rngOffset = ActiveCell.Offset

Orientation Retorna ou define um valor que representa a orientação do texto.

ActiveCell.Orientation = xlDownward

OutlineLevel Retorna ou define o nível de tópico atual da linha ou coluna especificada. de leitura/gravação.

ActiveCell.OutlineLevel =

Parent Retorna o objeto pai do objeto especificado. Somente leitura.

Dim wsParent As Worksheet
Set wsParent = ActiveCell.Parent

Phonetic Retorna o objeto Phonetic , que contém informações sobre uma cadeia de caracteres de texto fonético específica em uma célula.

Dim phnPhonetic As Phonetic
Set phnPhonetic = ActiveCell.Phonetic

Phonetics Retorna a coleção Phonetics do intervalo. Somente leitura.

Dim phnsPhonetics As Phonetics
Set phnsPhonetics = ActiveCell.Phonetics

PivotField Retorna um objeto PivotField que representa o campo de tabela dinâmica que contém o canto superior esquerdo do intervalo especificado.

Dim pvtfPivotField As PivotField
Set pvtfPivotField = ActiveCell.PivotField

PivotItem Retorna um objeto PivotItem que representa o item de tabela dinâmica que contém o canto superior esquerdo do intervalo especificado.

Dim pvtiPivotItem As PivotItem
Set pvtiPivotItem = ActiveCell.PivotItem

PivotTable Retorna um objeto PivotTable que representa o relatório de tabela dinâmica que contém o canto superior esquerdo do intervalo especificado.

Dim pvtPivotTable As PivotTable
Set pvtPivotTable = ActiveCell.PivotTable

Precedents Retorna um objeto Range que representa todos os precedentes de uma célula. Pode ser uma seleção múltipla uma união de objetos Range caso haja mais de um precedente. Somente leitura.

Dim rngPrecedents As Range
Set rngPrecedents = ActiveCell.Precedents

PrefixCharacter Retorna o caractere de prefixo da célula. Somente leitura .

Dim strPrefixCharacter As String
strPrefixCharacter = ActiveCell.PrefixCharacter

Previous Retorna um objeto Range que representa a célula anterior.

Dim rngPrevious As Range
Set rngPrevious = ActiveCell.Previous

QueryTable Retorna um objeto QueryTable que representa a tabela de consulta que cruza o objeto Range especificado.

Dim qrytblQueryTable As QueryTable
Set qrytblQueryTable = ActiveCell.QueryTable

Range Retorna um objeto Range que representa uma célula ou um intervalo de células.

Dim lngCell1 As Long: lngCell1 = "A1"
Dim rngRange As Range
Set rngRange = ActiveCell.Range(Cell1:=lngCell1)

Resize Redimensiona o intervalo especificado. Retorna um objeto Range que representa o intervalo redimensionado.

Dim rngResize As Range
Set rngResize = ActiveCell.Resize

SavedAsArray True se todas as células no intervalo seriam salvas em File como uma fórmula de matriz; False se nenhuma das células no intervalo for salva em arquivo como uma fórmula de matriz herdada; caso contrário, será nulo . Somente leitura .

Dim booSavedAsArray As Boolean
booSavedAsArray = ActiveCell.SavedAsArray

ServerActions Especifica as ações que podem ser realizadas no servidor SharePoint para um objeto Range.

Dim actsServerActions As Actions
Set actsServerActions = ActiveCell.ServerActions

ShrinkToFit Retorna ou define um valor que indica se o texto é automaticamente reduzido para se ajustar à largura de coluna disponível.

ActiveCell.ShrinkToFit = True

SoundNote Essa propriedade não deve ser usada. As notas sonoras foram removidas do Microsoft Excel.

Dim sneSoundNote As SoundNote
Set sneSoundNote = ActiveCell.SoundNote

SparklineGroups Retorna um objeto SparklineGroups que representa um grupo existente de minigráficos do intervalo especificado. Somente leitura.

Dim sgsSparklineGroups As SparklineGroups
Set sgsSparklineGroups = ActiveCell.SparklineGroups

SpillingToRange

Dim rngSpillingToRange As Range
Set rngSpillingToRange = ActiveCell.SpillingToRange

SpillParent Se uma célula for um membro de um despejo, retornará a célula que contém a fórmula responsável. Do contrário, um erro será retornado.

Dim rngSpillParent As Range
Set rngSpillParent = ActiveCell.SpillParent

Summary True se o intervalo for uma linha ou coluna de resumo de tópicos. O intervalo deve ser uma linha ou uma coluna. Somente leitura .

Dim booSummary As Boolean
booSummary = ActiveCell.Summary

Text Retorna o texto formatado para o objeto especificado. String somente leitura.

Dim strText As String
strText = ActiveCell.Text

Validation Retorna o objeto Validation que representa a validação de dados para o intervalo especificado. Somente leitura.

Dim vldValidation As Validation
Set vldValidation = ActiveCell.Validation

Value Retorna ou define um valor que representa o valor do intervalo especificado.

ActiveCell.Value =

Value2 Retorna ou define o valor da célula. de leitura/gravação.

ActiveCell.Value2 =

VerticalAlignment Retorna ou define um valor que representa o alinhamento vertical do objeto especificado. Leitura/gravação.

ActiveCell.VerticalAlignment = xlVAlignBottom

Worksheet Retorna um objeto Worksheet que representa a planilha que contém o intervalo especificado. Somente leitura.

Dim wsWorksheet As Worksheet
Set wsWorksheet = ActiveCell.Worksheet

WrapText Retorna ou define um valor que indica se o Microsoft Excel faz retorno automático do texto no objeto.

ActiveCell.WrapText = True

XPath Retorna um objeto XPath que representa o XPath do elemento mapeado para o objeto Range especificado. O contexto do intervalo determina se a ação é bem-sucedida ou retorna um objeto vazio. Somente leitura.

Dim xphXPath As XPath
Set xphXPath = ActiveCell.XPath

Ranges.Count Retorna o número de objetos na coleção. Somente leitura Long.

Dim lngCount As Long
lngCount = ActiveWorkbook.Connections(1).Ranges.Count

Ranges.Item Retorna um objeto Range que representa um intervalo de itens em uma pasta de trabalho. Somente leitura.

Dim rngItem As Range
Set rngItem = ActiveWorkbook.Connections(1).Ranges(Index:=1)

Ranges.Parent Retorna o objeto pai do objeto especificado. Somente leitura.

Dim objParent As Object
Set objParent = ActiveWorkbook.Connections(1).Ranges.Parent