Planilha Excel VBA Comentários ocultar mostrar listar colorir

Escola Saberexcel VBA Estudos® – Treinamentos com Macros, Fórmulas e Funções

PROMOÇÃO ESPECIAL – CURSO EXCEL VBA EXPERT – ESCOLA SABEREXCEL VBA Adquirir o Material Didático Escola SaberExcel VBA Estudos

Planilha Excel VBA Comentários ocultar mostrar listar colorir

com esses macros do Aplicativo Microsoft Excel VBA(Visual Basic Application), vamos aprender como listar, colorir, selecionar, contar comentarios.
‘//==========’
Neste exemplo de Planilha vamos aprender como:
1 – Contar comentarios existentes em uma folha de Planilha
2 – Como Selecionar os Comentários na folha de Planilha
3 – Como Mostra/Ocultar display Comentarios
4 – Inserir Cores Aleatórias em todos os comentarios existentes
5 – Criar um Workbook e relacionar os Comentarios, endereço, conteúdo.

MACROS USADOS:
Sub sbx_contar_comentario()
Dim ContarComentario As Integer
Dim vCelula As Range
Dim x As String
‘sair se não houver comentário
ContarComentario = 0
For Each vCelula In ActiveSheet.UsedRange
On Error Resume Next
x = vCelula.Comment.Text
If Err = 0 Then ContarComentario = ContarComentario + 1
Next vCelula

If ContarComentario = 0 Then
MsgBox “Nesta folha de planilha não há comentarios”, vbInformation, “Escola SaberExcel VBA Estudos®”
Else
MsgBox “Nesta folha de planilha contém [ ” & ContarComentario & ” ] comentários.”, vbInformation, “Escola SaberExcel VBA Estudos®”
End If
End Sub
‘//=======’
Sub sbx_selecionar_celulas_comentarios()
Cells.SpecialCells(xlCellTypeComments).Select
End Sub
‘//=======’
Sub sbx_mostrar_ocultar_comentarios()
If Application.DisplayCommentIndicator = xlCommentAndIndicator Then
Application.DisplayCommentIndicator = xlCommentIndicatorOnly
Saber1.Shapes(“sbx_bt01”).TextFrame.Characters.Text = “Mostrar Display Comentarios”
Else
Application.DisplayCommentIndicator = xlCommentAndIndicator
Saber1.Shapes(“sbx_bt01”).TextFrame.Characters.Text = “OCULTAR Display Comentarios”
End If
End Sub
‘//=======’
Sub sbx_listar_comentarios()
Dim ContarComentario As Integer
Dim vCelula As Range
Dim x As String
Dim ComentarioPlan As Worksheet
Dim PlanAntiga As Integer
Dim vLin As Integer
‘sair se não existir comentário
ContarComentario = 0
For Each vCelula In ActiveSheet.UsedRange
On Error Resume Next
x = vCelula.Comment.Text
If Err = 0 Then ContarComentario = ContarComentario + 1
Next vCelula
If ContarComentario = 0 Then
MsgBox “Na planilha ativa não há nenhum comentário.”, vbInformation, “Escola Saberexcel VBA Estudos®”
Exit Sub
End If

‘criando um novo Workbook com apenas uma folha de planilha
On Error GoTo 0
Set ComentarioPlan = ActiveSheet
PlanAntiga = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = 1
Workbooks.Add
Application.SheetsInNewWorkbook = PlanAntiga
ActiveWorkbook.Windows(1).Caption = “Comentarios ” & ComentarioPlan.Name & ” in ” & ComentarioPlan.Parent.Name
 ‘   Listando os comentários
vLin = 1
Cells(vLin, 1) = “Endereço”
Cells(vLin, 2) = “Conteudo”
Cells(vLin, 3) = “Comentário”
Range(Cells(vLin, 1), Cells(vLin, 3)).Font.Bold = True

For Each vCelula In ComentarioPlan.UsedRange
On Error Resume Next
x = vCelula.Comment.Text
If Err = 0 Then
vLin = vLin + 1
Cells(vLin, 1) = vCelula.Address(rowabsolute:=False, columnabsolute:=False)
Cells(vLin, 2) = ” ” & vCelula.Formula
Cells(vLin, 3) = vCelula.Comment.Text

End If
Next vCelula
Columns(“B:B”).EntireColumn.AutoFit
Columns(“C:C”).ColumnWidth = 34
Cells.Font.Size = 8
Cells.EntireRow.AutoFit
End Sub
‘//=======’
Sub sbx_cores_aleatorias_comentarios()
‘inserir cores aleatórias nos comentários fonte e interior
Dim vComentario As Comments
For Each vComentario In ActiveSheet.Comments
vComentario.Shape.Fill.ForeColor.SchemeColor = Int((80) * Rnd + 1) ‘1-80
vComentario.Shape.TextFrame.Characters.Font.ColorIndex = Int((56) * Rnd + 1) ‘1-56
Next vComentario
End Sub

Adquira o Curso Excel VBA Expert –
PagSeguro ou PayPal ou Deposito Direto:

Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola SaberExcel VBA Estudos® – Treinamentos com Macros, Fórmulas e Funções.

Compre pelo PagSeguro		Compre pelo PayPal

Material Didático: Curso Excel VBA Expert

Planilha Excel VBA Comentários ocultar mostrar listar colorir