Planilha Excel VBA Barra comentarios por range name

Planilha Excel VBA Barra comentarios por range name Este Procedimentos com macros do Aplicativo Microsoft Excel VBA, cria uma barra de Ferramentas personalizada,
com base aos range(Range Name) criados. isto é, a cada intervalo de Celulas Renomeados, o macro vai inserir
um comentario e trazer o endereço desse range Name. há também uma opção para deletar os comentarios
para o teste e outra para determinar o tipo de comentario (linhas) que deseja inserir.
Fique com Deus, Expedito Marcondes.

‘//==============’
Ao abrir o livro (Workbook esse Evento (Auto_open) vai inserir uma barra de Ferramenta personalizada para realizarmos os nossos treinamentos.

Sub auto_open()
Dim Barra As CommandBar
Dim Botao As CommandBarControl
On Error Resume Next
CommandBars(“sbx-BarraNomeRange”).Delete
Set Barra = CommandBars.Add(Name:=”sbx-BarraNomeRange”)
Barra.Visible = True

Set Botao = CommandBars(“sbx-BarraNomeRange”).Controls.Add(Type:=msoControlButton)
Botao.BeginGroup = True
Botao.Style = msoButtonCaption
Botao.OnAction = “sbx_gerenciar_nomes_range”
Botao.Caption = “Gerenciar Range Name”

Set Botao = CommandBars(“sbx-BarraNomeRange”).Controls.Add(Type:=msoControlButton)
Botao.BeginGroup = True
Botao.Style = msoButtonCaption
Botao.OnAction = “sbx_nomes_range_comentarios”
Botao.Caption = “Nome Range Comentarios”

Set Botao = CommandBars(“sbx-BarraNomeRange”).Controls.Add(Type:=msoControlButton)
Botao.BeginGroup = True
Botao.Style = msoButtonCaption
Botao.OnAction = “sbx_deletar_comentarios”
Botao.Caption = “Deletar Comentarios Teste”
End Sub
‘//==============’
Sub sbx_gerenciar_nomes_range()
For Each n In ActiveWorkbook.Names
On Error Resume Next
Range(n.Name).BorderAround Weight:=xlMedium
Next n
End Sub
‘//==============’
Sub sbx_nomes_range_comentarios()
On Error Resume Next
For Each n In ActiveWorkbook.Names
p = InStr(n, ActiveSheet.Name)
If p > 0 Then
p1 = InStr(n, “!”)
p2 = InStr(n, “:”)
If p2 > 0 Then
c = Mid(n, p1 + 1, p2 – p1 – 1)
Else
c = n
End If
If Range(c).NoteText = “” Then
Range(c).AddComment n.Name & “:” & n
With Range(c).Comment.Shape.OLEFormat.Object.Font
.Name = “Tverdana”
.Size = 8
.FontStyle = “Normal”
.ColorIndex = 5
End With
Range(c).Comment.Visible = True
Range(c).Comment.Shape.Select
Selection.AutoSize = True
End If
End If
Next n
End Sub
‘//==============’
Sub sbx_deletar_comentarios()
For Each c In ActiveSheet.Comments
c.Delete
Next
End Sub
‘//==============’
‘se usar False, vai ocultar os suas planilhas,
‘Sub auto_close()
‘   On Error Resume Next
‘   Windows.Visible = True
‘   CommandBars(“sbx-BarraNomeRange”).Delete
‘   Windows(ThisWorkbook.Name).Visible = True
‘End Sub

Sub sbx_abrir_caixa_dialogo_nome_range()
‘Application.Dialogs(xlDialogDefineName).Show
‘Application.Dialogs(xlDialogCreateNames).Show
‘Application.Dialogs(xlDialogDeleteName).Show
Application.Dialogs(xlDialogNameManager).Show
End Sub

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.