Macro determina o nome de intervalo da célula ativa no Excel

IMPORTANTE: Este artigo foi traduzido por um sistema de tradução automática (também designado por Machine Translation ou MT), não tendo sido portanto traduzido ou revisto por pessoas. A Microsoft possui artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais, com o objetivo de oferecer em português a totalidade dos artigos existentes na base de dados de suporte. No entanto, a tradução automática não é sempre perfeita, podendo conter erros de vocabulário, sintaxe ou gramática. A Microsoft não é responsável por incoerências, erros ou prejuízos ocorridos em decorrência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza atualizações freqüentes ao software de tradução automática (MT). Obrigado.

Clique aqui para ver a versão em Inglês deste artigo: 811438
Este artigo foi arquivado. É oferecido "como está" e não será mais atualizado.
Sumário
Este artigo fornece uma macro que procura por meio de todos os nomes em uma pasta de trabalho Microsoft Excel para localizar quais nomes de nome ou a célula ativa no momento está localizado na. Por exemplo, se a célula ativa atual é A5 em sheet1 e há um nome definido "Test" refere-se a "sheet1! a1: C5," a macro exibirá uma mensagem informando:
O activecell está no intervalo chamado "Test"
Mais Informações
Microsoft fornece exemplos de programação apenas para ilustração, sem garantia expressa ou implícita. Isso inclui, mas não está limitado a, garantias implícitas de comercialização ou adequação para uma finalidade específica. Este artigo presume que você está familiarizados com a linguagem de programação que está sendo demonstrada e com as ferramentas que são usadas para criar e depurar procedimentos. Engenheiros de suporte podem ajudar a explicar a funcionalidade de um determinado procedimento, mas eles não modificarão esses exemplos para fornecer funcionalidades adicionais ou construir procedimentos para atender às suas necessidades.
'This macro searches through all the defined names in a workbook to find'the name(s) that the activecell appears in. For those names it finds'it displays a message box with the range name in it'Sub Find_Name_ActiveCell_In()   Dim oCurrentName as Name               Dim rRng as Range''Ignore any errors and may occur from some names referencing 'external workbooks'    On Error Resume Next''Loop through all the defined names in the workbook'    For Each oCurrentName In Names''make sure the name is a valid cell reference'        Set rRng = Range(oCurrentName.Name)''check the error flag to make sure no error was generated by the'above line'        If Err = 0 Then''Test to see if the active cell is in the current named range'           If Not Intersect(ActiveCell, rRng) Is Nothing Then''if it is then display the message box'                MsgBox "Activecell is in the range named " & _                    oCurrentName.Name & """"            End If        Else''reset the error flag'            Err = 0        End If    NextEnd Sub
2000 2001 2002 XP XLXP XLX XL2000 XL2002 XL XL2003 XL2007

Aviso: este artigo foi traduzido automaticamente

Propriedades

ID do Artigo: 811438 - Última Revisão: 12/08/2015 01:48:06 - Revisão: 5.2

Microsoft Office Excel 2007, Microsoft Office Excel 2003, Microsoft Excel 2002 Standard Edition, Microsoft Excel 2000 Standard Edition, Microsoft Excel 2001 para Mac, Microsoft Excel X para Macintosh

  • kbnosurvey kbarchive kbmt kbhowto KB811438 KbMtpt
Comentários