Como usar uma macro VBA para soma células visíveis somente

Traduções deste artigo Traduções deste artigo
ID do artigo: 150363 - Exibir os produtos aos quais esse artigo se aplica.
Expandir tudo | Recolher tudo

Neste artigo

Sumário

Se você tiver um intervalo de células que inclui linhas ocultas ou colunas ocultas, o Microsoft Excel não fornece uma maneira fácil de soma apenas as células visíveis.

A função SOMA totaliza todas as células em um intervalo, incluindo células ocultas. A função SUBTOTAL ignora linhas ocultas somente se eles forem parte de uma lista filtrada que foi criada usando o comando AutoFiltro ou filtro avançado.

A função personalizada seguinte soma somente as células visíveis em um intervalo. Para usar a função personalizada, digite o seguinte em uma célula em uma planilha
=Sum_Visible_Cells(A1:A5)
onde a1: A5 é o intervalo que você deseja somar.

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.

Procedimento de exemplo do Visual Basic

   Function Sum_Visible_Cells(Cells_To_Sum As Object)
       Application.Volatile
       For Each cell In Cells_To_Sum
           If cell.Rows.Hidden = False Then
               If cell.Columns.Hidden = False Then
                   total = total + cell.Value
               End If
           End If
       Next
       Sum_Visible_Cells = total
   End Function
				
Observe que se você ocultar ou reexibir células depois de inserir a fórmula na planilha, a fórmula será não recalcular automaticamente, mesmo se o cálculo é definido como automático. Você pode fazer as fórmulas recalcular se cálculo é definido como automático e você se qualquer uma das seguintes ações:

  • Editar qualquer célula na planilha. - ou -

  • Pressione F9, o que força um recálculo. - ou -

  • Você fechar a pasta de trabalho.

Referências

Para obter mais informações sobre como criar funções personalizadas no Microsoft Excel 97, no Editor do Visual Basic, clique no Assistente do Office, digite a instrução de função , clique em Pesquisar e, em seguida, clique para exibir "Função geral".

Observação: Se o Assistente estiver oculto, clique no botão Assistente do Office na barra de ferramentas padrão. Se o assistente não for capaz de responder sua consulta, consulte o seguinte artigo na Base de dados de Conhecimento da Microsoft:
176476OFF: Assistente do Office não resposta perguntas do Visual Basic
"Guia do usuário do Visual Basic,"versão 5.0, capítulo 3,"Criando um usuário-função definida pelo"

Propriedades

ID do artigo: 150363 - Última revisão: quarta-feira, 11 de outubro de 2006 - Revisão: 2.3
A informação contida neste artigo aplica-se a:
  • Microsoft Excel 97 Standard Edition
  • Microsoft Excel 95 Standard Edition
  • Microsoft Excel 5.0 Standard Edition
  • Microsoft Excel 98 for Macintosh
Palavras-chave: 
kbmt kbdtacode kbhowto kbprogramming KB150363 KbMtpt
Tradução automática
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: 150363
Aviso de Isenção de Responsabilidade sobre Conteúdo do KB Aposentado
Este artigo trata de produtos para os quais a Microsoft não mais oferece suporte. Por esta razão, este artigo é oferecido "como está" e não será mais atualizado.

Submeter comentários

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com