Como contar o número de células que contêm hiperligações no Excel?
Já alguma vez tentou contar o número de células que contêm hiperligações num intervalo específico no Excel? Este tutorial apresenta um método passo a passo para o ajudar a conseguir exatamente isso.
Contar o número de células com hiperligações com código VBA
Contar o número de células com hiperligações com código VBA
O código VBA seguinte permite contar quantas células contêm hiperligações num intervalo específico. Siga os passos abaixo.
1. Prima as teclas «Alt» + "F11" para abrir a janela do Microsoft Visual Basic for Applications.
Dica: também pode clicar em «Programador» > «Visual Basic» para abrir esta janela.
2. Na janela «Visual Basic», clique em «Inserir» > «Módulo» e cole o seguinte código VBA na janela do módulo.
Código VBA: Contar o número de células com hiperligações num determinado intervalo
Sub StatisticsHypRange()
'Updated by Extendoffice 20220815
Dim xSRg As Range
Dim xURg As Range
Dim xRg As Range
Dim xHRg As Range
Dim xHypCount As Long
On Error Resume Next
Set xSRg = Application.InputBox("Select the range of cells from which you want to count hyperlinks", "Kutools for Excel", "", Type:=8)
If xSRg Is Nothing Then Exit Sub
Set Where = Range("A1", Range("A" & Rows.Count).End(xlUp))
Set xURg = Application.Intersect(xSRg.Worksheet.UsedRange, xSRg)
xHypCount = 0
For Each xRg In xURg
If xRg.Hyperlinks.Count > 0 Then
xHypCount = xHypCount + 1
If xHRg Is Nothing Then
Set xHRg = xRg
Else
Set xHRg = Application.Union(xHRg, xRg)
End If
Else
If InStr(LCase(xRg.Formula), LCase("HYPERLINK")) > 0 Then
xHypCount = xHypCount + 1
If xHRg Is Nothing Then
Set xHRg = xRg
Else
Set xHRg = Application.Union(xHRg, xRg)
End If
End If
End If
Next
MsgBox "Find " & xHypCount & " hyperlink cells"
xHRg.Select
End Sub3. Prima a tecla "F5" para executar o código. Na caixa de diálogo «Kutools para Excel» que aparece, selecione o intervalo em que pretende contar as células com hiperligações e clique em «OK». Veja a imagem:
4. Em seguida, surge uma caixa de diálogo a indicar quantas células no intervalo selecionado contêm hiperligações. Clique em «OK» para fechar a caixa de diálogo.
De seguida, todas as células que contêm hiperligações são selecionadas em simultâneo.
Nota: Os seguintes tipos de hiperligações podem ser contabilizados pelo código VBA acima:
=HYPERLINK(link_location,[friendly_name])As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos