|
 Saberexcel - site das macros Microsoft Excel VBA
Essa macros do Aplicativo Microsoft Excel VBA, mostram e ou ocultam todos os comentários existentes na folha de planilha
Sub mostrar_todos_comentarios()
On Error Resume Next
saber1.Shapes("sb1").Visible = True
saber1.Shapes("sb").Visible = False
Dim sb As Comment
For Each sb In ActiveSheet.Comments
sb.Visible = True
Next sb
End Sub
'Essa macro do Aplicativo Microsoft Excel VBA oculta todos os comentários existentes na planilha
Sub ocultar_todos_comentarios()
On Error Resume Next
saber1.Shapes("sb1").Visible = False
saber1.Shapes("sb").Visible = True
Dim sb As Comment
For Each sb In ActiveSheet.Comments
sb.Visible = False
Next sb
End Sub
Aprenda Microsoft Excel VBA(Visual Basic Application) com qualidade SaberExcel
|