VBA Excel - Contando células selecionadas.

| Blog Office VBA | Blog Excel | Blog Access |

Pelos mais diversos motivos e situações, eventualmente precisamos saber quantas células estão selecionadas, eis como fazê-lo:

Sub CntSelected()

    Dim cell As Object

    Dim count As Integer

    Let count = 0

    For Each cell In Selection

        Let count = count + 1

    Next cell

    MsgBox count & " item(ns) selecionados..."

End Sub

Tags: VBA, Excel, count, cell,  contar, célula, selected, selecionada

VBA Excel - Contar células que contenham Fórmulas, Texto, ou Números - Count Cells That Contain Formulas, Text, or Numbers

Termo de Responsabilidade

No Excel, podemos contar o número de células que contém fórmulas, texto ou números, usando a caixa de diálogo Go To Especial para selecionar as células e então executar um código que conta o número das células selecionadas. 

E onde é que vou usar isso? Por exemplo, pode ser útil quando a criação de uma tabela e você desejar saber se cada linha em uma coluna de resumo tem uma fórmula, sem averiguar manualmente cada linha.

Sub Count_Selection()

    Dim cell As Object

    Dim count As Integer

    count = 0

    For Each cell In Selection

        count = count + 1

    Next cell

    MsgBox  count & " item(s) selecionado(s)"

End Sub

Reference: 

Tags: VBA, Excel, count, selected, contar, células

VBA Excel - Barra de Progresso na Barra de Status - Show a Progress Meter in the Status Bar

Show a Progress Meter in the Status Bar

Olá pessoal!

Complementando o tópico anterior, segue novo Post com opção de utilização da nossa Barra de Status do MS Excel. Chamaremos este exemplo de SHOW A PROGRESS METER IN THE STATUS BAR.

Sim, é bom lembrar que este exemplo de código serve para ampliar a visão sobre como utilizar outras informações úteis na Barra de Status, fica mais um exemplo!

PASSO ÚNICO

Insira o código da função e efetue chamadas a ela.

Sub ShowProgress2()

    ' Author                        Contact                        Place

    ' André Luiz Bernardes          bernardess@gmail.com           http://inanyplace.blogspot.com/

    ' Show a Progress Meter in the Status Bar

    Let Application.DisplayStatusBar = True

    ' 1ª Mensagem

    Let Application.StatusBar = String(5, ChrW(9609)) & "Processando..."

    Application.Wait Now + TimeValue("00:00:02")

    ' 2ª Mensagem

    Let Application.StatusBar = String(10, ChrW(9609)) & "Ainda processando..."

    Application.Wait Now + TimeValue("00:00:02") '-- Replace this line with your own code to do something

    ' 3ª Mensagem

    Let Application.StatusBar = String(15, ChrW(9609)) & "Finalizando..."

    Application.Wait Now + TimeValue("00:00:02") '-- Replace this line with your own code to do something

    Let Application.StatusBar = False

End Sub

References: André Luiz Bernardes, DataPigTechnologies.com

Tags: Bernardes, iniciantes, MS, Microsoft, Office, VBA, Excel, Status Bar, Barra de Status, Status, information, range, selected

André Luiz Bernardes

A&A® - Work smart, not hard.

bernardess@gmail.com

VBA Excel - Contando células selecionadas.

Pelos mais diversos motivos e situações, eventualmente precisamos saber quantas células estão selecionadas, eis como fazê-lo:

Sub CntSelected()

    Dim cell As Object

    Dim count As Integer

    Let count = 0

    For Each cell In Selection

        Let count = count + 1

    Next cell

    MsgBox count & " item(ns) selecionados..."

End Sub

Tags: Excel, count, cell,  contar, célula, selected, selecionada

André Luiz Bernardes

A&A® - Work smart, not hard.

VBA Blogs

  

 

bernardes@.com