Função para retornar a célula ativa do Excel

Objetivo: Função para retornar a célula atual do Excel.

Atenção: Atualização em: 28/03/2012, a função já existe no Excel é: =CÉL("endereço"), agradeço ao Afonso pela colaboração, a parte que tem a atualização na mudança da célula continua valendo.

Estava precisando hoje uma função que retornasse o endereço da célula ativa do Excel, mas infelizmente desconheço função que faça isso automaticamente.

Desta forma desenvolvi uma função para extrair esta informação do Excel, em um próximo post vou demonstrar porque eu precisava desta função, por hora vamos apenas aprender como ela funciona.

1. No arquivo Excel no qual você vá usar a função para determinar a função atual insira um módulo no VBA e a função abaixo:

Private Function gfLinhaAtual() As String
    Application.Volatile

    gfLinhaAtual = ActiveCell.Address
End Function

2. Na planilha em que for utilizar a função para identificar a célula coloque o código abaixo:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Calculate
End Sub

A primeira função identifica o endereço da célula que estiver selecionada e a chamada do procedimento Worksheet_SelectionChange com o comando Calculate faz com que ao haver uma mudança de célula a função seja atualizada.

Esse foi a demonstração da Função para retornar a célula atual do Excel. Faça download abaixo:

Abraço

Marcos Rieper