Excel planilha vba comentario numero comentarios

Ter, 29 de Março de 2011 10:01 Expedito Marcondes
Imprimir

- Saberexcel - o site das Macors

Essa macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), retorna a quantidade de comentários existente em uma determinada folha de planilha, neste caso em particular, usamos a planilha ativa.

Sub Contando_Comentarios_planilha()
    Dim vConta_Comentario As Integer
    Dim vCelula As Range
    Dim sbx As String
   
'   Sai do procedimento se não houver comentários na folha de planilha
    vConta_Comentario = 0
   
    For Each vCelula In ActiveSheet.UsedRange
        On Error Resume Next
        sbx = vCelula.Comment.Text
        If Err = 0 Then vConta_Comentario = vConta_Comentario + 1
    Next vCelula
   
    If vConta_Comentario = 0 Then
        MsgBox "Nesta folha de planilha ativa, não há comentários!", vbInformation, "Saberexcel - site das macros"
    Else
        MsgBox "Nesta folha de Planilha existem: [ " & vConta_Comentario & " ] comentarios!", vbInformation, "Saberexcel - site das macros"
    End If
   
End Sub




Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel




  Baixe o exemplo de planilha contendo o macro acima
Excel planilha vba comentario numero comentarios (74.29 KB)




Publicidade
Compre com segurança, garantia e ótimos preços
Eletrônicos - Submarino.com.br

Tags:
Última atualização em Qua, 10 de Agosto de 2011 08:18